ГИДРОЦИКЛОНЫ ТООЦОО

Эрхэм дүү нарт зориулж гидроциклоны тооцоог HP Prime Graphing тооны машин дээр хэрхэн хийх аргачлалыг дор өгөв.

PPL Программын листинг:
EXPORT Hydrocyclone()
//Расчёт гидроциклонов ,работающих в замкнутом цикле с мельницей
//по методу Krebs EWngineering
//G.Davaatseren

BEGIN
LOCAL Sd, Ts, PP;
LOCAL PS,P,V,k,PV;
LOCAL D50,c1,c2,c3,D1;
LOCAL L1,L2,I,V1;
LOCAL Dv, Di,Da;//Vortex,Inlet and Apex Diameters
LOCAL Si;//Inlet Nozzle Area
//
L1:={10,15,25,38,51,66,76,84,91};//Standart Diameter of Cyclone
L2:={8,6,9,7,4,4,3,5.4,7.8};//Minimal Pressure Drop in PSI
L3:={30,70,200,300,500,1000,1300,2150,3000};//Minimal Capacity of Cyclone, USGPM
L4:={0.51,0.52,0.52,0.52,0.55,0.52,0.53,0.51,0.53};//Slope of Capacity Line
//
Sd:=2.65;
Ts:=54.6;
PP:=80;
PS:=150;
P:=100;
V:=0;
//
INPUT({Sd,Ts,PP, PS,P, V},{"HYDROCYCLONE DATA"},{"Solid Density(g/sm3) ","Solid Percent ", "%Passing ","Target P80(micron) ","Pressure Drop(kPa)","Feed Volume"});
PP:=PP/100;
I:=6;
k:=round(-522.18913*PP^5+1982.21545*PP^4−2983.36894*PP^3+2226.65199*PP^2-828.64328*PP+125.78964,2);
//
D50:=round(PS*k,0);
PV:=100/(1+Sd*(100/Ts-1));
//
c1:=round(((53-PV)/53)^−1.43,2);
c2:=round(3.27*P^(−0.28),2);
c3:=round((1.65/(Sd-1))^0.5,2);
//
print();
//
D50:=round(D50/(c1*c2*c3),0);
D:=round((D50/2.84)^(1/0.66),0);

Print("D50(c)= "+D50+" micron");
Print("Calculated Diameter : "+D+" sm or "+ round(D/2.54,0)+" inch");
wait;
input({{I,L1}},"Select Standart Diameter(sm)",{"Diameter : ="});
D1:=L1(I);
Print("Selected Diameter : "+D1+" sm or "+ round(D1/2.54,0)+" inch");
Print("Pressure Drop :"+P+" kPa or "+round(P/6.8948,2)+" PSI");
P:=P/6.8948;//Pressure Drop from KPa to PSI
//
Dv:=D*0.35;
Si:=0.05*D^2;
Di:=SQRT(Si*4/π);
//
V1:=10^(LOG(L3(I))+(LOG(P)-LOG(L2(I)))*L4(I));
V1:=V1*0.2271009;
Print(" ");
Print("Capacity : "+ round(V1,1)+" m3/h or "+round(V1/0.2271009,1)+" USGPM");
Print("Vortex Diameter: "+round(Dv,0)+" sm");
Print("Inlet Diameter: "+round(Di,0)+" sm");
END;