<!--

function solve1(form){

Ei = eval(form.Ei.value * Math.pow(10,9));
Eo = eval(form.Eo.value * Math.pow(10,9));
vi = eval(form.vi.value);
vo = eval(form.vo.value);
Di = eval(form.Di.value * Math.pow(10,-3));
D  = eval(form.D.value * Math.pow(10,-3));
Do = eval(form.Do.value * Math.pow(10,-3));
delta = eval(form.delta.value)* Math.pow(10,-3);
L  = eval(form.L.value * Math.pow(10,-3));
mu = eval(form.mu.value);

if (form.Do.value == 0) Do = Math.tan(Math.PI/2);
if (D<Di || Do<Di || Di<0) {
alert("WARNING: wrong input!   RESET: Di, D, Do"); Do=0.08; D=0.023; Di=0.02;
form.Do.value = 80; form.D.value = 23; form.Di.value = 20};



dD=delta/D;
n1=((Do*Do+D*D)/(Do*Do-D*D)+vo)/Eo;
n2=((Di*Di+D*D)/(Di*Di-D*D)+vi)/Ei;
P=dD/(n1-n2);
F=Math.PI*D*L*mu*P;

Sti1=2*P/((Di/D)*(Di/D)-1);
Sti2=P*((Di/D)*(Di/D)+1)/((Di/D)*(Di/D)-1);
Sto1=P*((Do/D)*(Do/D)+1)/((Do/D)*(Do/D)-1);
Sto2=2*P/((Do/D)*(Do/D)-1);

Sri1=0;
Sri2=-P;
Sro1=-P;
Sro2=0;

Sei1=Math.sqrt(Sti1*Sti1+Sri1*Sri1-Sti1*Sri1);
Sei2=Math.sqrt(Sti2*Sti2+Sri2*Sri2-Sti2*Sri2);
Seo1=Math.sqrt(Sto1*Sto1+Sro1*Sro1-Sto1*Sro1);
Seo2=Math.sqrt(Sto2*Sto2+Sro2*Sro2-Sto2*Sro2);

form.Sti1.value = Math.round(Sti1 * Math.pow(10,-6)*100)/100;
form.Sti2.value = Math.round(Sti2 * Math.pow(10,-6)*100)/100;
form.Sri1.value = Math.round(Sri1 * Math.pow(10,-6)*100)/100;
form.Sri2.value = Math.round(Sri2 * Math.pow(10,-6)*100)/100;
form.Sei1.value = Math.round(Sei1 * Math.pow(10,-6)*100)/100;
form.Sei2.value = Math.round(Sei2 * Math.pow(10,-6)*100)/100;

form.Sto1.value = Math.round(Sto1 * Math.pow(10,-6)*100)/100;
form.Sto2.value = Math.round(Sto2 * Math.pow(10,-6)*100)/100;
form.Sro1.value = Math.round(Sro1 * Math.pow(10,-6)*100)/100;
form.Sro2.value = Math.round(Sro2 * Math.pow(10,-6)*100)/100;
form.Seo1.value = Math.round(Seo1 * Math.pow(10,-6)*100)/100;
form.Seo2.value = Math.round(Seo2 * Math.pow(10,-6)*100)/100;

form.P.value = Math.round(P * Math.pow(10,-6)*100)/100;
form.F.value = Math.round(F * Math.pow(10,-3)*100)/100;
form.T.value = Math.round(F*D/2*100)/100;

} 

function reset(form) {}

// -->