%minMaxGrfVnurk.m
function MiMaSg=minMaxGrfVnurk(Fvv)
%
% Arvutab min ja max väändenurga väärused graafikute joonestamiseks
%=========================================================================
% PROGRAMMI KOOSTAS Andres Lahe,   2007-01-22
%                e-mail: alahe@staff.ttu.ee
%                http://staff.ttu.ee/~alahe/
% PROGRAMMI UUENDAS Andres Lahe,   2009-07-14, Octave 3.0
% Copyright (c)  2004 Tallinna Tehnikaülikool
%                Mehaanikainstituut
%                http://www.ttu.ee/
%
% Käesolev programm on vaba tarkvara. Te võite seda levitada ja/või muuta vastavalt
% GNU üldise avaliku litsentsi tingimustele, nagu need on sõnastanud
% Vaba Tarkvara Uond; kas litsentsi versioonis number 2 või (vastavalt
% Teie valikule) ükskõik millises hilisemas versioonis.
%
% Seda programmi levitatakse lootuses, et see on kasulik, kuid ILMA
% IGASUGUSE GARANTIITA; isegi KESKMISE/TAVALISE KVALITEEDI GARANTIITA
% või SOBIVUSELE TEATUD KINDLAKS EESMÄRGIKS.
% Üksikasjade suhtes vaata GNU Üldist Avalikku Litsentsi.
%
% Te peaksite olema saanud GNU üldise avaliku litsentsi koopia koos selle
% programmiga, kui ei, siis kontakteeruge Uree Software Uoundation'iga.
% 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
%
%  Täpsemalt vaata GNU litsentsi:
%  http://hasso.linux.ee/doku.php/eesti:litsentsid:gpl
%  http://www.gnu.org/copyleft/gpl.html
%  http://www.gnu.org/licenses/
%=========================================================================
%
epsgraf=1.0e-14;
%epsgraf=0.01;
%
FvvR=Fvv;
%%%%%%%%%
SR=FvvR(1:5,:);
%SR=FvvR'(1:5,:);
%
maxtheta=max(SR(1,:));
maxtheta=round(maxtheta);
qLisa3=round(maxtheta*0.01);
maxtheta=maxtheta+qLisa3;
%
mintheta=min(SR(1,:));
mintheta=round(mintheta);
qLisa4=round(mintheta*0.01);
mintheta=mintheta+qLisa4;
%
if (mintheta-epsgraf<0)
mintheta=mintheta-qLisa3;
endif
%
%
maxTt=max(SR(2,:));
maxTt=round(maxTt);
mLisa1=round(maxTt*0.01);
maxTt=maxTt+mLisa1;
%
minTt=min(SR(2,:));
minTt=round(minTt);
mLisa2=round(minTt*0.01);
minTt=minTt+mLisa2;
%
if (minTt-epsgraf<0)
minTt=minTt-mLisa1;
endif
%%%%%%%%%%%%%
%
maxBw=max(SR(3,:));
maxBw=round(maxBw);
qLisa3=round(maxBw*0.01);
maxBw=maxBw+qLisa3;
%
minBw=min(SR(3,:));
minBw=round(minBw);
qLisa4=round(minBw*0.01);
minBw=minBw+qLisa4;
%
if (minBw-epsgraf<0)
minBw=minBw-qLisa3;
endif
%
%
%SR(4,:)
maxTw=max(SR(4,:));
maxTw=round(maxTw);
mLisa1=round(maxTw*0.01);
maxTw=maxTw+mLisa1;
%
minTw=min(SR(5,:));
minTw=round(minTw);
mLisa2=round(minTw*0.01);
minTw=minTw+mLisa2;
%
if (minTw-epsgraf<0)
minTw=minTw-mLisa1;
endif
%%%%%%%%%%%%
%
%SR(5,:)
maxTsum=max(SR(5,:));
maxTsum=round(maxTsum);
mLisa1=round(maxTsum*0.01);
maxTsum=maxTsum+mLisa1;
%
minTsum=min(SR(5,:));
minTsum=round(minTsum);
mLisa2=round(minTsum*0.01);
minTsum=minTsum+mLisa2;
%
if (minTsum-epsgraf<0)
minTsum=minTsum-mLisa1;
endif
%%%%%%%%%%%%
matheta=maxtheta;
mitheta=mintheta;
maTt=maxTt;
miTt=minTt;
maBw=maxBw;
miBw=minBw;
maTw=maxTw;
miTw=minTw;
maM=maxTsum;
miM=minTsum;
%
MiMaSg=[matheta mitheta; maTt miTt; maBw miBw; maTw miTw; maM miM];
%
endfunction
