<!--

function solve(form){

R0    = eval(form.D0.value)*Math.pow(10,-3)/2;
R1    = eval(form.D1.value)*Math.pow(10,-3)/2;
h0    = eval(form.h0.value)*Math.pow(10,-3);
ps    = eval(form.ps.value)*Math.pow(10,5);
vis   = eval(form.vis.value);
rho   = eval(form.rho.value);
CD    = eval(form.CD.value);
betha = eval(form.betha.value);

if (R0<R1) alert("warning: Radii incorrect defined!");
if (R0 != 0.325 || h0 != 0.1*Math.pow(10,-3) || betha != 0.7) {
alert("Please login to get full access!");
R0=0.325; form.D0.value = 2*R0*Math.pow(10,3);
h0=0.1*Math.pow(10,-3); form.h0.value = h0*Math.pow(10,3);
betha=0.7; form.betha.value = betha;
};

nr = 1
R1_R0 = R1/0.325;
Ae_A =1/2*(R1_R0*R1_R0-1)/Math.log(R1_R0);
A  = Math.PI*R0*R0;   
F1   = betha*Ae_A
Cf   = -Math.PI/(6*Math.log(R1_R0));
Q1   = betha*Cf
S1 = 6*F1*(1-betha)/(2-betha);

F  = F1*ps*A;
Q  = Q1*Math.pow(h0,3)*ps/vis;
N  = Q*ps;
S  = S1*A*ps/h0;
Qr = Q/nr;
Ar = Qr/CD*Math.sqrt(rho/(2*ps*(1-0.7)));
dr = Math.sqrt(Ar/(Math.PI/4));
Vr = Qr/Ar;
Re_r = rho*Vr*dr/vis;
Vf = Q/(2*Math.PI*R1*h0);
Re_f = rho*Vf*h0/vis;
   
form.Ae_A.value = Math.round(Ae_A*1000)/1000;
form.S1.value = Math.round(S1*1000)/1000;
form.F1.value = Math.round(F1*1000)/1000;
form.Q1.value = Math.round(betha*Cf*1000)/1000;
form.Re_r.value = Math.round(Re_r);
form.Re_f.value = Math.round(Re_f);
form.dr.value = Math.round(dr*Math.pow(10,3)*100)/100;
form.F.value = Math.round(F*Math.pow(10,-3));
form.S.value = Math.round(S*Math.pow(10,-6));
form.Q.value = Math.round(Q*Math.pow(10,3)*1000)/1000;
form.N.value = Math.round(Q*ps*Math.pow(10,-3)*1000)/1000;

} 

function reset(form){}
// -->