Сточно-динамические фекальные насосы типа СД
Курсовой проект - Разное
Другие курсовые по предмету Разное
?ивных параметров и основных характеристик насоса
5.1 Расчет конструктивных параметров и основных характеристик насоса
Pascal:nasos;arcsin(x:real):real;:=arctan(x/sqrt(1-sqr(x)));;arccos(x:real):real;:=arctan(sqrt(1-sqr(x))/x);;pwr(chislo:real; stepen:real):real;:=exp(ln(chislo)*stepen);;=3.14;=1.15;=1.1;=25;=0.68;=9.81;=1000;=0.96;=3;=150;=0.5;,H,w,n:real;,KPDg,KPD:real;p,d0,dvt,D10,D1,D2:real;,c1m1,cm1,c1m2,cm2:real;,Y1,Hm,H8,u1,u2:real;,p,bt10,bt2:real;,R2,b1,b2:real;,N1,Nmax,M,k11,k12,w1,w2,w0:real;(vvedite poda4u Q:);(Q);(vvedite napor H:);(H);(vvedite 4astotu n:);(n);:=3.65*n*sqrt(Q)/sqrt(sqrt(sqr(H)*H));:=Pi*n/30;p:=4.5*1000*pwr(Q/n,1/3);:=1-0/42/sqr(ln(D1p)/ln(10)-0/172);:=1/(1+a*pwr(ns,-2/3));:=KPD0*KPDg*KPDm;
N1:=Q*ro*H/(102*KPD);:=1.1*N1;:=97500*Nmax/n;:=pwr(M/(0.2*Skr),1/3);:=1.25*d0;:=Q/KPD0;:=0.06*pwr(Q11*pwr(n,2),1/3);
D10:=pwr(4*Q11/(Pi*c0)+pwr(dvt,2),1/2);:=4*Q11/(Pi*(pwr(D10,2)-pwr(dvt,2)));:=0.8*D10/2;:=2*R1;m1:=c0;:=Q11/(2*Pi*R1*c1m1);
cm1:=k1*c1m1;:=w0*R1;:=arctan(cm1/u1);:=H/KPDg;:=pwr((g*Hm/ku2),1/2);:=u2/w0;m2:=0.8*c1m1;:=arcsin(sin(bt1)*1*k2/k1*c1m2/c1m1);:=6.5*((R2+R1)/(R2-R1)*sin((bt1+bt2)/2));
Y1:=0.66+0.6*sin(bt2);:=2*Y1/z*1/(1-pwr((R1/R2),2));:=(1+p)*Hm;:=k2*c1m2;:=cm2/(2*(sin(bt2)/cos(bt2)))+pwr(pwr(cm2/(2*(sin(bt2)/cos(bt2))),2+g*H8),1/2);:=u2/w0;:=2*R2;:=Q11/(Pi*D2*c1m2);
k11:=1/(1-(z*det/(Pi*D1*sin(bt1))));:=1/(1-(z*det/(Pi*D2*sin(bt2))));
if(abs(k11-k1)>1)and(abs(k12-k2)>1)(programma rass4itana s nedopustimoj pogreshnostju);:=k11*c1m1/sin(bt1);:=k12*c1m2/sin(bt2);;(koefficient bystroxodnosti ns=,ns:6:4);(privedennyj diametr D1p=,D1p:6:4);(obemnyj KPD KPD0=,KPD0:6:4);(gidravli4eskij KPD KPDg=,KPDg:6:4);
writeln(polnyj KPD=,KPD:6:4);(mos4nost N=,Nmax:6:4);(krutjas4ij moment M=,M:6:4);(diametr vala nasosa d0=,d0:6:4);(diametr vtulki dvt=,dvt:6:4);(diametr rabo4egoklea D0=,D10:6:4);(skorost vxoda v rabo4ee koleso c0=,c0:6:4);(radius na vxode v rabo4ee koleso R1=,R1:6:4);
writeln(shirina lopasti na vxode b1=,b1:6:4);
writeln(okruznaja skorost na vxode u1=,u1:6:4);(ugol lopasti na vxode bt10=,bt10:6:4);(napor na vyxode iz nasosa Hm=,Hm:6:4);(okruznaja skorost na vyxode u2=,u2:6:4);(ugol bt2=,bt2:6:4);(k-vo lopatok z=,z:6:4);(napor H8=,H8:6:4);(okruznaja skorost na vyxode vo vtorom priblizniiu2=,u2:6:4);(radius na vyxode R2=,R2:6:4);(diametr na vyxode D2=,D2:6:4);
writeln(shirina lopasti na vyxode b2=,b2:6:4);(popravo4nyj koef skorosti na vxode k1=,k11:6:4);(popravo4nyj koef skorosti na vyxode k2=,k12:6:4);.++Builder 6:
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include
#include
#include "MainFekalki2006.h"
#include "About.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;k1=1.15,k2=1.1,a=0.68,g=9.81,=1000,kpdm=0.96,ku2=0.5;w0,Q,H,n,ns,kpd,kpdo,kpdg,d1p,nm,m,d0,dvt,,c0,d10,r1,c1m1,b1,u1,cm1,bt10,Hm,skr1,u2,r2,c1m2,bt2,z,,p,h8,cm2,u22,r22,d22,b22,k11,k12,Qs;
int bt1=25,det=3,skr=150,fp=3;
String k;ok(float s,int i){ax,cx,dx,j;bx;=ceil(s);=1-(ax-s);if(bx==1){bx=0;};=abs(bx*pow(10,i+1));dx=abs(bx*pow(10,i));((cx > cx%5)||((cx!=0) && (cx%5==0)))
{dx+=1;};(s<0){j=-1;} else {j=1;};=j*dx/pow(10,i)+j*abs(s);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm1::Button1Click(TObject *Sender)
{=StrToFloatDef(Edit1->Text,0);=StrToFloatDef(Edit2->Text,0);=StrToFloatDef(Edit3->Text,0);(Q<=0 || H<=0 || n<=0) {goto exit;};
//Расчёт характеристик=Q/3600;=M_PI*n/30;(ns=3.65*n*sqrt(Q/3600)/pow(H,3.0/4.0),fp);//Коэф. быстроходн.->Cells[0][0]="Коэффициент быстроходности";->Cells[1][0]=k;
ok(d1p=4500*pow(Q/(n*3600),1.0/3.0),fp);
Grid1->Cells[0][1]="Приведённый диаметр, мм";
Grid1->Cells[1][1]=k;(kpdo=1.0/(1.0+a*pow(ns,-2.0/3.0)),fp);->Cells[0][2]="Объёмный КПД";->Cells[1][2]=k;(kpdg=1-0.42/pow(log10(d1p)-0.172,2),fp);->Cells[0][3]="Гидравлический КПД";->Cells[1][3]=k;(kpd=kpdm*kpdo*kpdg,fp);->Cells[0][4]="Полный КПД";->Cells[1][4]=k;(nm=1.1*(Qs*ro*H/(102*kpd)),fp);->Cells[0][5]="Мощность, кВт";->Cells[1][5]=k;(m=97500*nm/n,fp);->Cells[0][6]="Крутящий момент, кг*см";->Cells[1][6]=k;(d0=10*pow(m/(0.2*skr),1.0/3.0),fp);
Grid1->Cells[0][7]="Диаметр вала насоса, мм";
Grid1->Cells[1][7]=k;(dvt=1.25*d0,fp);->Cells[0][8]="Диаметр втулки, мм";->Cells[1][8]=k;=Qs/kpdo;=0.06*pow(q11*pow(n,2),1.0/3.0);(d10=1000*sqrt(4*q11/(M_PI*c0)+pow(dvt/1000,2)),fp);
Grid1->Cells[0][9]="Диаметр рабочего колеса, мм";
Grid1->Cells[1][9]=k;(skr1=4*q11/(M_PI*(pow(d10/1000,2)-pow(dvt/1000,2))),fp);
Grid1->Cells[0][10]="Скорость входа в рабочее колесо, м/с";
Grid1->Cells[1][10]=k;(r1=0.8*d10/2,fp);
Grid1->Cells[0][11]="Радиус на входе в рабочее колесо, мм";
Grid1->Cells[1][11]=k;m1=c0;(b1=1000*q11/(2*M_PI*(r1/1000)*c1m1),fp);
Grid1->Cells[0][12]="Ширина лопасти на входе, мм";
Grid1->Cells[1][12]=k;=k1*c1m1;
ok(u1=w0*r1/1000,fp);->Cells[0][13]="Окружная скорость на входе, м/с";
Grid1->Cells[1][13]=k;(bt10=180*(atan(cm1/u1))/M_PI,fp);
Grid1->Cells[0][14]="Угол лопасти на входе";
Grid1->Cells[1][14]=k;(Hm=H/kpdg,fp);
Grid1->Cells[0][15]="Напор на выходе из насоса, м";
Grid1->Cells[1][15]=k;(u2=sqrt(g*Hm/ku2),fp);
Grid1->Cells[0][16]="Окружная скорость на выходе, м/с";
Grid1->Cells[1][16]=k;=1000*u2/w0;m2=0.8*c1m1;(bt2=180*(asin(sin(M_PI*bt1/180)*1.1*(k2/k1)*(c1m2/c1m1)))/M_PI,fp);->Cells[0][17]="Угол";->Cells[1][17]=k;(z=(6.5*(r2+r1)/(r2-r1))*sin((M_PI*bt1/180+M_PI*bt2/180)/2),0);z=StrToInt(k);
Grid1->Cells[0][18]="Кол-во лопаток";
Grid1->Cells[1][18]=k;=0.66+0.6*sin(M_PI*bt2/180);=2*y1/z*1/(1-pow((r1/r2),2));(h8=(1+p)*Hm,fp);->Cells[0][19]="Напор, м";->Cells[1][19]=k;=k2*c1m2;(u22=cm2/(2*tan(M_PI*bt2/180))+sqrt(pow(cm2/(2*tan(M_PI*bt2/180)),2)+g*h8),fp);
Grid1->Cells[0][20]="Окружная скорость на выходе 2, м/с";
Grid1->Cells[1][20]=k;(r22=1000*u22/w0,fp);
Grid1->Cells[0][21]="Радиус на выходе, мм";
Grid1->Cells[1][21]=k;(d22=2*r22,fp);
Grid1->Cells[0][22]="Диаметр на выходе, мм";
Grid1->Cells[1][22]=k;(b22=1000*q11/(M_PI*d22*c1m2/1000),fp);
Grid1->Cells[0][23]="Ширина лопасти на выходе, мм";
Grid1->Cells[1][23]=k;(k11=1/(1-(z*det/(M_PI*2*r1*sin(M_PI*bt1/180)))),fp);
Grid1->Cells[0][24]="Поправочный к-т скорости на входе";
Grid1->Cells[1][24]=k;(k12=1/(1-(z*det/(M_PI*d22*sin(M_PI*bt2/180)))),fp);
Grid1->Cells[0][25]="Поправочный к-т скорости на выходе";
Grid1->Cells[1][25]=k;:
}
//---------------------------------------------------------------------------__fastcall TForm1::N5Click(TObject *Sender)
{->Close() ;
}
//---------------------------------------------------------------------------__fastcall TForm1::N11Click(TObject *Sender)
{=1;->Click();
}
//---------------------------------------------------------------------------__fastcall TForm1::N21Click(TObject *Sender)
{=2;->Click();
}
//---------------------------------------------------------------------------__fastcall TForm1::N31Click(TObject *Sender)
{=3;->Click();
}
//---------------------------------------------------------------------------__fastcall TForm1::N41Click(TObject *Sender)
{=4;->Click();
}
//---------------------------------------------------------------------------__fastcall TForm1::N7Click(TObject *Sender)
{->ShowModal();
}
//---------------------------------------------------------------------------
5.2 Построение графических характеристик насоса
program grafiki;
uses crt, graph;gd,gm:integer;, y1, x, y, i: integer;podacha (x,y:integer);i:=1 to 6 do(x,y,x+20,y);(x+20,y-3,x+20,y+4);i=1 then(x-8, y+4,0 )if i=