Основы теории и расчета деталей роторного аппарата. Червяков В.М - 60 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

double __fastcall f(double tt)
{
if (fabs(tt)>0.5*dt) return(0);
else return(-exp(-(tt/dt)*(tt/dt)));
}
double __fastcall Ma(double pp)
{
double sl1=(li*li)/Cvp;
double sl2=(1.0-li)*(1.0-li)/Clp;
double sl3=li*(1.0-li)/n;
double proizv=sl1+sl2+sl3;
double koren;
koren=sqrt(fabs(proizv));
return(fabsl((pp*koren/(2.0*M_PI))));
}
void __fastcall sCreate(double st,double sRpp)
{
double Max=Ma(sRpp);
s[1]=(1.0-2.0*Max);
s[2]=1.5*(1.0-1.33333333333333*Max);
s[3]=(1.0+(Max*(1.0-Max)))*b;
s[4]=(1.0-(Max*(1.0-Max)));
s[5]=((4.0*Max)/Re)*(1.0-Max);
s[6]=(f(st)/xai)+1;
if(s[1])if(s[2])if(s[3])if(s[4])if(s[5])if(s[6]){}
}
double __fastcall fRpp(double st,double sR,double sRpp)
{
sCreate(st,sRpp);
if (R){}
double tmp=(We-((4.0*sRpp)/(Re*sR)));
if (R){}
double tmp1=s[3]*pow(sR,-3*nv)-s[2]*sRpp*sRpp+s[4]*tmp-s[6];
if (R){}
return(((tmp1*sRpp)/(sR*s[1]*sRpp+s[5])));
}
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Application->Terminate();
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double tmpp;
int i,j;
z = zSpin->Value;
We = WeSpin->Value/((double)10000000.0);
Re = ReSpin->Value;
xa0 = xa0Spin->Value/((double)1000.0);
pl = plSpin->Value;
Cv = CvSpin->Value;
Cl = ClSpin->Value;
n = nSpin->Value;
b = bSpin->Value;
nv = nvSpin->Value/((double)1000.0);
dtd = dtdSpin->Value/((double)1000.0);
l0 = l0Spin->Value/((double)10000000.0);
tmpp = log10l(l0);
xai = XaiSpin->Value;
xi = xa0/xai;
R = RSpin->Value*pow(xi,0.3333333333333)/((double)1000.0);
Rpp = RppSpin->Value/((double)1000.0);
dt = dtd*pow(xi,0.833333333333333333);
Cvp = (pl/z)*Cv*Cv;
Clp = (pl/z)*Cl*Cl;
t=0.0;

Страницы