begin if Ksi=l then Result:=sigmal 1 else begin:=Sqrt (1 -Ksi * Ksi)/Ksi;:=Ksi/Tau;:=2/Alfa *
(l/(Mu * Mu + l) + Exp (ArcTan (Mu)/Mu)/(Sqrt (Mu * Mu + l) * (Exp (Pi/Mu) -l)) ); end; end; case Power of 1: sigmal:=sigmall; end;
: sigmal:=sigmal2; end;
: l:=sigmal l + sigmal2; end; end; ^ bl/bO ;; TfExtreme.btnCalculateClick (Sender: TObject); begin.Cursor:=crHourGlass;.UndoZoom;.UndoZoom;.UndoZoom;;:=StrToInt(edPower.Text);:=StrToFloat(edTaul.Text);:=StrToFloat (edTau.Text);:=StrToFloat (edKsi.Text) ;;. Text:=FloatToStr (MaxQ); edMinQ.Text:=FloatToStr (MinQ); edDeltar.Text:=FloatToStr ((MaxQ-MinQ) {* 100/2}); if chbDrift. Checked then edDeltaguar.Text:=FloatToStr (DeltaY {* 100/2}) else.Text:=FloatToStr (Al {* 100/2}); finally.ZoomPercent (90) ;. ZoomPercent (90) ;. ZoomPercent (97) ;. Cursor:=crDefault ;;; TfExtreme.Clear; begin chQ.Series [0] .Clear; chV. Series [0]. Clear; chP. Series [0]. Clear; chP.Series [l] .Clear; end;.
