диссертация модальная логика
.pdf-432 -
Приложение 2
pi: |
Vm=Pr*Dm]*n 1/60000; |
Ft=2000*Tl/Dml; S_hO=475*sqrt((Ft/(Vh*DmI*b))*(sqrt(U*U+l)/U)); Ze=sqrt(l/(0.95*(1.88-3.2*(1/Zl+1/Z2))));
K_ha= 1 +0.25 *(StToch-5)*(( 1 /Ze*Ze)-1); fqO=fopen("fq0.txt";'r+"); while(!feof(fqO))
{
fscanf(fqO,"%f%f%f%f',&diim_min,&dmn_max,&t__qO,&qqO); if((Mn>dmn_min)&&(Mn<=dmn_max)&&(StToch==t_qO))
{
QO=qqO;
break;
}
}
if(feof(fqO))
{
АррИса11оп->Ме88а§еВох("Коэффициент, учитывающий точность колес не определен","ЕККОК",МВ_ОК);
return;
}
fclose(fqO); if((Hl<=35)&&(H2<=35))Del_h=0.02;
else Del_h=0.04; Whv=Del_h*Q0*Vm*sqrt((Dml+Dm2)/(2*U));
Kiiv=l+(Whv*b*Dml)/(2000*Tl*K_hb); FKa->Imagel->Picture->LoadFromFile("Ka.bmp"); FKa->ShowModal();
if(FKa->flag==l)goto ka; sscanf(FKa->Editl->Text.c_str(),"%f',&Ka); if(FKa->Editl->Text.Length()==0)
{
Application->MessageBox("He определено значение Ка","",МВ_ОК); return;
}
Kh=Ka*IChv*K_hb*K_ha; S_h=sqrt(Kh)*S_hO; Zv=0.85*pow(Vm,0.1); Shpl=(S_hliml/Sh)*ZNl*Zr*Zv*Zl*Zxl;
-433 -
Приложение 2
Shp2=(S_hlim2/Sh)*ZN2*Zr*Zv*Zl*Zx2; Shp=0.45*(Shpl+Shp2);
if(S_h>Shp)
{
sprintf(s/'H3rH6HaH прочность не выполняется"); Application->MessageBox(s,"MESSAGE",MB_OK);
return;
}
//
//Изгибная выносливость передачи
_Yfsl=3.47+13.2/Zvl-29.7*(Xl/Zvl)+0.092*Xl*Xl; Y_fsl=1.2*_Yfsl; Wfv=0.06*Q0*Vm*sqrt((Dml+Dm2)/(2*U)); KfV=l+((Wft'*b*Dml)/(2000*Tl*K_fb));
K_fa=l; h=2*Mn;
N_f=((b/h)*(b/h))/((b/h)*(b/h)+b/h+l); K_fb=pow(K_hb,N_f);
Kf=Ka*Kfv*K_fb*K_fa;
Sfl=1.4*Ft*KPY_fsl/(Vf*Me*b); switch(ComboBox3->ItemIndex)
{
case 0:
{
Yz=l;
break;
}
case 1:
{
Yz=0,9;
break;
}
case 2:
{
Yz=0.8;
break;
}
default: return;
-434 -
Приложение 2
}
Ydel=1.082-0.172*log(Mn);
Yxl=1.05-O.OOOI25*Dml;
Sfliml=S_flimb*Yz*Yg*Yd; 8ф1=8Шт1 *Ynl *Ydel* 1 *Yxl/Sf; if(Sfl>Sfpl)
{
sprintf(s,"Контактная прочность не выполняется"); AppIication->MessageBox(s,"MESSAGE",MB_OK);
return;
}
// |
. |
//Расчет валов
dn=pow(Tl*1000/(0.2*20*(l-pow(0.83,4))),0.3333333333); dvn=0.83*dn; dn2=pow(T2*1000/(0.2*20*(l-pow(0.83,4))),0.3333333333); dvn2=0.83*dn2;
Ft21=2*Tl/Dml;
Ftl2=2*T2/Dm2;
Fr21 =Ft21 *tan(alfa_n)*cos(Del 1); Frl2=Ft21*tan(alfa_n)*cos(Del2);
Fa21=Frl2;
Fal2=Fr21;
//Подбор подшипника
ul: sprintf(s,"%3.2f',dn); Fpodsh->Label2->Caption=strcat(s," серия 75");
Fpodsh->ShowModal(); if(Fpodsh->flag== 1 )goto p 1; sscanf(Fpodsh->Editl->Text.c_str(),"%f',&pd); sscanf(Fpodsh->Edit2->Text.c_str(),"%f',&pD); sscanf(Fpodsh->Edit3->Text.c_str(),"%f',&pT); sscanf(Fpodsh->Edit4->Text.c_str(),"%f',&pd2);
-435 -
Приложение 2
88сапГ(Ррос18Ь->Е(1115->Тех1.с_з№(),"%Г',&р02); 88сап£(Ррос18И->Ес1к6->Тех1.с_81г(),"%Г',&ра2);
II.
//выбор уплотнителя
р2: 8ргт1Г(8,"%3.2Г,с1п); Рир1->ЬаЬе12->Сар11оп=8;
рир1->8Ьо\уМоаа1(); 1А^рир1->йа£==1)§о1о и1; 88canf(FUpl->Editl->Text.c_8tr(),"%f',&uD); 88сапА^Рир1->Еа112->Тех1.с_81г(),"%Р',&иВ); 88сапА^Рир1->Еа113->Тех1.с_з1гО,"%Р',&иа);
II
//второй подшипник
рЗ: 8ргт1Г(8,"%3.2Г'4п); Fpodsh->Label2->Caption=8trcat(s," серия 76"); Fpod8h->ShowModal(); if(Fpodsh->flag==l)goto р2; sscanf(Fpodsh->Editl->Text.c_str(),"%f',&p2d); sscanf(Fpod8h->Edit2->Text.c_str(),"%f',&p2D); sscanf(Fpod8h->EditЗ->Text.c_str(),"%f'Дp2T); sscanf(Fpodsh->Edit4->Text.c_8tr(),"%f',&p2d2);
sscanf(Fpodsh->Edit5->Text.c_str(),"%f',&p2D2); sscanf(Fpod8h->Edit6->Text.c_str(),"%f',&p2a2); sscanf(Fpod8h->Edit7->Text.c_str();'%f',&p2dЗ);
//
//Третий подшипник
р4: 8ргт1Г(8,"%3.2Г'4п2); Fpodsh->Label2->Caption=strcat(8," серия 76"); Fpodsh->ShowModaI();
if(Fpod8h->flag==l)goto рЗ; 8scanf(Fpod8h->Editl->Text.c_str(),"%f^&Pd); sscanf(Fpodsh->Edit2->Text.c_str(),"%f',&PD); sscanf(Fpodsh->EditЗ->Text.c_str(),"%f',&PT); sscanf(Fpod8h->Edit4->Text.c_str(),"%f',&Pd2);
-437- Приложение 2
{
strcpy(n_dir, "Х:\\"); n_dir[0] ='А'+ getdiskO; getcurdir(0, n_dir+3); disk=getdisk(); FOpt->ShowModal(); setdisk(disk); chdir(n_dir);
}
// |
. |
Приведенный ниже текст программы служит для построения компоновки:
II
#include <vcl\vcl.h> #mclude <stdio.h> #pragnia hdrstop
extern float U,Tl,T2,nl,n2,betta_n,Kbe,h_a,C,alfa_n,Lh;
extern float Nhe 1 ,Nhe2,Nfe 1 ,Nfe2,Nhlim,Nflim,ZN 1 ,ZN2;
extern float S_hliml,S_hlim2,S_hpl,S_hp2,S_hp,Sh,S_flimb,Vh,S_fi3l;
extern float K_hb,K_fb,Del,De2,temp,Zlmin,Me,Zvl,Zv2,Zl,Z2,x,Yfsl,Vf,Mte,Mn,Zc;
extern float R,Re,b,PI,Dell ,Del2,X 1 ,X2,Xrl,Xr2,Hfl ,Hf2,Del_hf,Sn 1 ,Sn2,k,D0;
extern floatteta_fs,teta_fl,teta_f2,teta_al,teta_a2,Kal,Ka2,d_h_ael,d_h_ae2;
extern float d_h_fel,d_h_fe2,Del_hal,Del_ha2,H_al,H_a2,H_ael,H_ae2;
extern float H_fel,H_fe2,H_fl,H_f2,H_el,H_e2,Del_al,Del_a2,DelJl,DeLf2,Dml,Dm2;
extern float Dae 1 ,Dae2,B 1 ,B2,Vm,_Sc 1 ,_Sc2,Hc 1 ,Hc2,psi_n 1 ,psi_n2,_Sn 1 ,_Sn2,_Ha 1 ,_Ha2;
extern float Ft,S_hO,Ze,K_ha,S_h,QO,Ka,Whv,Khv,Kh,Z_e,Zh,Zr,Zv,Zl,Zx 1;
extern float Zx2,Shpl,Shp2,Shp,_Yfsl,Y_fsl,Wfv,Kfv,Kf,K_fa,S_n;
extern float dl,d2,Ft21,Ftl2,Frl2,Fr21,Fal2,Fa21,Koef,dvn,dn;
externfloatpd,pD,pD2,pd2,pa2,pT,Pd,PD,PD2,Pd2,Pa2,PT,Pd3;
-438-
Приложение 2
externfloatud,uD,uB,p2d,p2D,p2D2,p2d2,p2a2,p2T,p2d3,dvn2,dn2,P2d,P2D,P2D2,P2d2,P2a2,P2T;
II
void lisp_red(void)
{
FILE *f; f=fopen("red.lsp","w"); fprintf(f,"(defunred()\n");
fprintf(f,"(setq bp'(384 316.5))\n");//ol
фrintf(f,"(setq X (/ %3.2f (/ (sin %3.2f) (cos %3.2f))))\n",(Dml/2),Dell,Dell); fprintf(f,"(setq bpl (polar bp 0 x))\n");
фrintf(f,"(setq 0 (polar bpl (* 1.5 pi) %3.2f))\n",(Dml/2)); фrintf(f,"(setq ol2 (polar о (* 0.5 pi) %3.2f))\n",Dml); фrintf(f,"(setq tf (polar о (- pi %3.2f) %3.2f))\n",Dell,(b/2)); фrintf(f,"(setq ta (polar о (- %3.2f) %3.2f))\n",Del 1 ,(b/2)); фrintf(f,"(setq tl (polar ta (- (/ pi 2) %3.2f) %3.2f))\n",Dell,H_fel); фrintf(f,"(setq t2 (polar ta (- (* pi 1.5) %3.2f) %3.2f))\n",Dell,H_ael); фrintf(f,"(setqtmpl (polar tl (-pi%3.2f) 10))\п",Ое1_П); фrintf(f,"(setq tmp2 (polar tf (- (/ pi 2) %3.2f) 10))\n",Dell); фrintf(f,"(setqt4 (inters tl tmpl tftmp2 nil))\n");
фrintf(f,"(setqtmpl (polar t2 (- pi %3.2f) 10))\n",Del_al); фrintf(f,"(setq t3 (inters tmpl t2 tf t4 nil))\n"); фrintf(f,"(command \"p]ine\" tl \"w\" 0.5 0.5 t2 t3 t4 \"c\")\n"); фrintf(f,"(command \"mirror\" tl t4 \"\" bpl bp \"N\")\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bpl \"N\")\n"); //прорисовка внешнего полого вала
фrintf(f,"(setq ol (polar bp pi 214))\n");
фrintf(f,"(setq vll (polar ol (* 0.5 pi) %3.2f))\n",dvn/2); фrintf(f,"(setq vl2 (polar ol (* 0.5 pi) %3.2f))\n",dn/2); фrintf(f,"(setq or (polar bp 0 122))\n");
фrintf(f,"(setq vrl (polar or (* 0.5 pi) %3.2f))\n",dvn/2); фrintf(f,"(setq vr2 (polar or (* 0.5 pi) %3.2f))\n",dn/2); фrintf(f,"(command V'plineV vl2 \"w\" 0.5 0.5 vll ol vll vrl nil)\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bpl \"N\")\n"); //Подшипник
фrintf(f,"(setq pi (polar ol 0 160))\n");
фrintf(f,"(setq p2 (polar pi (* 0.5 pi) %3.2f))\n",pd2/2); фrintf(f,"(setq p3 (polar p2 pi 3))\n");
-439- Приложение 2
fprintf(f,"(setq р4 (polar рЗ (* 0.5 pi) (- %3.2f %3.2f)))\n",pD/2,pd2/2); фг1п1ад"(5е1я p5 (polar p4 (* 1.5 pi) (- %3.2f %3.2f)))\n",pD/2,pd/2); фпмад"(8е1я p6 (polar p5 pi %3.2f))\n",pT);
фг1тГ(Г,"(соттапа \"pline\" p2 \"w\" 0.5 0.5 p3 \"c\")\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bpl \"N\")\n"); фпп1А;Г,"(5е1я p4I (polar p4 pi %3.2f))Vn",pT); фrintf(f,"(command VplineV p4 \"w\" 0.5 0.5 p5 p6 p41 \"c\")\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bp 1 \"N\")\n"); фг1тад"(8е1ч uplot %3.2f )\n",ud/2);
фпп1ад"(8е!я p7 (polar p6 (* 1.5 pi) 1.5))\n"); фг1п1Г(Г,"(5е1я p8 (polar p7 pi %3.2i))\n",pa2);
фг1тед"(5е1яр9 (polar p8 (* 0.5 pi) (- %3.2f uplot)))\n",pD2/2); фrintf(f,"(setq plO (polar p9 0 %3.2f))\n",pa2); фптад"(command \"pline\" p6 \"w\" 0.5 0.5 p7 p8 p9 plO nil)\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bpl \"N\")\n"); фг1п1ад"(5е1я pi 1 (polar p8 pi %3.2f))\n",uB);
фг1п1ад"(5е1я pl2 (polar pi 1 (* 0.5 pi) (- %3.2f %3.2f)))\n",uD/2,ud/2); фптед"(5е1я pl3 (polar pl2 0 %3.2f))\n",uB);
фпшад"(command \"pline\" p8 \"w\" 0.5 0.5 pi 1 pl2 pl3 nil)\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bp 1 \"N\")\n"); фг!мад"(8е1я pl4 (polar pi 1 (* 1.5 pi) (- %3.2f %3.2f)))\n",ud/2,dn/2); фrintf(f,"(command VplineV pi 1 \"w\" 0.5 0.5 pl4 vl2 nil)\n"); фrintf(f,"(command VmirrorV \"LV \"V bp bpl \"N\")\n"); фг1тад"(8е1я vr3 (polar or (* 0.5 pi) %3.2f))\n",ud/2);
фг1тад"(8е1я vr4 (polar vr3 (* 0.5 pi) (- %3.2f %3.2f)))\n",uD/2,ud/2); фптад"(5е1я vr5 (polar vr4 pi %3.2f))\n",uB);
фптад"(8е1я vr6 (polar vr5 (* 1.5 pi) (- %3.2f %3.2f)))\n",uD/2,ud/2); фrintf(f,"(command \"plineV' vr3 \"w\" 0.5 0.5 vr4 vr5 vr6 \"c\")\n"); фrintf(f,"(command \"pline\" vr3 \"w\" 0.5 0.5 vrl nil)\n"); фrintf(f,"(command \"mirrorV \"L\" \"\" bp bpl \"N\")\n"); фг1п1Г(Г,"(8е1я vr7 (polar vr6 pi %3.2f))\n",p2a2);
фпп1ад"(5е1я vr8 (polar vr7 (* 0.5 pi) (- %3.2f %3.2f)))\n",p2d/2,ud/2); фптед"(8е1я vr9 (polar vr7 (* 0.5 pi) (- %3.2f %3.2f)))\n",p2D2/2,p2d/2); фг1п1ад"(8е1я vrlO (polar vr9 0 %3.2f))\n",p2a2);
фrintf(f;•(command VplineV vr6 \"w\" 0.5 0.5 vr8 vr9 vrlO\"c\")\n"); фг1п1ад"(8е!я vrl 1 (polar vr8 (* 0.5 pi) (- %3.2f %3.2f)))\n",p2D/2,p2d/2); фг1п1ад"(8е1я vrl2 (polar vrl 1 pi %3.2f))\n",p2T);
фптад"(5е1я vrl3 (polar vrl2 (* 1.5 pi) (- %3.2f %3.2f)))\n",p2D/2,p2d/2); фrintf(f,"(command VplineV vr8 VwV 0.5 0.5 vrllvrl2 vrl3 VcV)\n"); фпп1ад"(command\"pline\" vr8 Vw\" 0.2 0.2 vrl2 vrll vrl3 \"c\")\n");
-440- Приложение 2
//шестерня
fprintf(f,"(setq Z X (polar t4 (* 0.5 pi) 10))\n"); фг1п1Г(Г,"(5е1я tmp (inters bp bplt4 zx nil))\n"); QDrintf(f,"(setq re (distance t4 tmp))\n"); fprintf(f,"(setq tfl (polar tmp (* 0.5 pi) re))\n"); fprintf(f,"(setq ul (polar tfl (- (/ pi 4)) 3))");
фrintf(f,"(command \"pline\" tfl \"w\" 0.5 0.5 ul nil)\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bpl \"N\")\n"); фrintf(f,"(setq zx (polar tl (* 0.5 pi) 10))\n"); фrintf(f,"(setq tmp (inters bp bpl tl zx nil))\n"); фrintf(f,"(setq re (distance tl tmp))\n");
фrintf(f,"(setq tal (polar tmp (* 0.5 pi) re))\n"); фrintf(f,"(setq u2 (polar tal (- (/ pi 4)) 3))"); фrintf(f,"(command \"p]ine\" tal \"w\" 0.5 0.5 u2 nil)\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bpl \"N\")\n");
фrintf(f,"(setq u3 (polar vrl3 (* 0.5 pi) (- %3.2f %3.2f) ))",(p2d3/2)+5,p2d/2); фrintf(f,"(setq tmpl (polar u3 pi 3))");
фrintf(f "(setq tmp2 (polar u2 (* 1.5 pi) 3))"); фrintf(f,"(setq u4 (inters u2 tmp2 u3 tmpl nil))");
фrintf(f "(command \"pline\" u2 \"w\" 0.5 0.5 u4 u3 nil)\n"); фrintf(f,"(command \"mirror\" \"L\" \"\" bp bpl \"N\")\n"); фrintf(f,"(setq u5 (polar vrl3 (* 0.5 pi) 2))");
фrintf(f,"(setq u6 (polar bp 0 15))");
фrintf(f,"(setq u7 (polar u6 (* 0.5 pi) %3.2f))",p2d2/2); фrintf(f,"(setq u8 (polar u7 0 3))"); фrintf(f,"(setqtmpl (polar u8 (* 1.5 pi) 10))"); фrintf(f,"(setq tmp2 (polar u5 pi 3))");
фrintf(f,"(setq u9 (inters u5 tmp2 u8 tmpl nil))"); фrintf(f,"(command \"pline\" u7 \"w\" 0.5 0.5 u8 u9 u5 nil)\n");
фrintf(f,"(setq tmpl (polar u7 (* 1.5 pi) 3))\n"); фrintf(f,"(setq tmp2 (polar p2 (* 1.5 pi) 3))\n"); фrintf(f,"(setq ulO (inters u7 tmpl p8 pi 1 nil))\n"); фrintf(f "(setq ul 1 (inters p2 tmp2 p8 pi 1 nil))\n");
фrintf(f;'(command \"pline\" u7 \"w\" 0.5 0.5 ulO ul 1 p2 nil)\n"); фrintf(f,"(command \"mirror\" u9 u8 u7 ulO ul 1 p2 p3 p9\"\" bp bpl \"N\")\n"); фrintf(f,"(setq ul2 (polar u9 (* 1.5 pi) 2))\n");
фrintf(f,"(command V'plineV vrl3 \"w\" 0.5 0.5 ul2 u9 nil)\n"); фrintf(f,"(setqtmpl (polar ul (* 1.5 pi) 3))\n");
фrintf(f,"(setq ul3 (inters ul tmpl u5 u9 nil))\n");