есть такой фрагмент
procedure TfrmMain.CalcAdvData;
var
Frn,Ftn,Frv,Ftv:extended;
Sn,Sv:extended;
kriteriu:extended;
wn,wp:extended;
Ft1:extended;
Fr1:Extended;
Dr,Dt,Lambda:extended;
begin
try
psiN:=ArcCos(R0/(RotorParams.Rro{/2.5}));
psiV:=ArcCos(R0/(RotorParams.Rri{/2.5}));
edtPsiN.Text:=FloatToStrF(psiN*180/pi,ffFixed,7,3);
edtPsiV.Text:=FloatToStrF(psiV*180/pi,ffFixed,7,3);
Ctb:=C*sin(psiV);
Ctn:=C*sin(psiN);
Crb:=C*cos(psiV);
Crn:=C*cos(psiN);
Sn:=((RotorParams.Rro{/2.5})*En)/1000/1000;
Sv:=((RotorParams.Rri{/2.5})*Ev)/1000/1000;
edtSn.Text:=FloatToStrF(Sn*1000,ffFixed,7,4);
edtSv.Text:=FloatToStrF(Sv*1000,ffFixed,7,4);
Frn:=Crn*Sqr(Vn)*pi*(RotorParams.Rro{/2.5}/1000)*Sn;
Ftn:=Ctn*Sqr(Vn)*pi*(RotorParams.Rro{/2.5}/1000)*Sn;
Frv:=Crb*Sqr(Vv)*pi*(RotorParams.Rri{/2.5}/1000)*Sv;
Ftv:=Ctb*Sqr(Vv)*pi*(RotorParams.Rri{/2.5}/1000)*Sv;
nc:=f/P;
wn:=2*pi*nc;
wp:=(2*pi*nr)/60;
C:=Round( (( (wn-wp)/Ro )*Hp{/1000}));
speC.Value:=c;
edtNc.Text:=FloatToStrF((60*Wn)/(2*pi),ffFixed,16,0);
Ft1:=Ctn*Sqr(Vn)*(En/1000)*pi*sqr((RotorParams.Rro/1000))-Ctb*sqr(Vv)*(Ev/1000)*pi*sqr((RotorParams.Rri/1000));
Fr1:=Crn*Sqr(Vn)*(En/1000)*pi*sqr((RotorParams.Rro/1000))-Crb*sqr(Vv)*(Ev/1000)*pi*sqr((RotorParams.Rri/1000));
edtFt.Text:=FloatToStrF(Ft1,ffFixed,16,3);
edtFr.Text:=FloatToStrF(Fr1,ffFixed,16,3);
try
Dr:=(Fr1/(e/1000));
Dt:=(Ft1/(e/1000));
a:=(Dr/(m/1000));
b:=Dt/(m/1000);
except
a:=0;
b:=0;
end;
edtAlpha.Text:=FloatToStrF(a,ffFixed,16,3);
edtBeta.Text:=FloatToStrF(b,ffFixed,16,3);
pnlError.Visible:=false;
except
pnlError.Visible:=true;
end;
end;
Помогите сюда дописать следующую формулу:
kriteriu:=(Dt*sqrt(m))/(LaMBdA*sqrt(Dr));
edtKrit.Text:=FloatToStrF(kriteriu,ffFixed,16,3);
У меня при попітке дописать віскакивает постоянно ошибка:
[Warning] uMain.pas(805): Variable 'Dt' might not have been initialized
[Warning] uMain.pas(805): Variable 'Dr' might not have been initialized