<!--

function solve(form){

alpha=eval(form.alpha.value);
mus =eval(form.mus.value);
muk =eval(form.muk.value);

if (form.metric.value==1){

	P  = 0.25;
	d  = 1;
	d2 = 0.838;
	d3 = 0.693}

else if (form.metric.value==1.2){

	P  = 0.25;
	d  = 1.2;
	d2 = 1.038;
	d3 = 0.893}

else if (form.metric.value==1.6){

	P  = 0.35;
	d  = 1.6;
	d2 = 1.373;
	d3 = 1.17}

else if (form.metric.value==2){

	P  = 0.4;
	d  = 2;
	d2 = 1.74;
	d3 = 1.509}

else if (form.metric.value==3){

	P  = 0.5;
	d  = 3;
	d2 = 2.675;
	d3 = 2.387}

else if (form.metric.value==4){

	P  = 0.7;
	d  = 4;
	d2 = 3.545;
	d3 = 3.141}

else if (form.metric.value==5){

	P  = 0.8;
	d  = 5;
	d2 = 4.48;
	d3 = 4.019}

else if (form.metric.value==6){

	P  = 1.0;
	d  = 6;
	d2 = 5.35;
	d3 = 4.773}
	
else if (form.metric.value==8){

	P  = 1.25;
	d  = 8;
	d2 = 7.188;
	d3 = 6.466}

else if (form.metric.value==10){

	P  = 1.5;
	d  = 10;
	d2 = 9.026;
	d3 = 8.160}

else if (form.metric.value==12){

	P  = 1.75;
	d  = 12;
	d2 = 10.863;
	d3 = 9.853}
   
else if (form.metric.value==14){

	P  = 2;
	d  = 14;
	d2 = 12.701;
	d3 = 11.546}

else if (form.metric.value==16){

	P  = 2;
	d  = 16;
	d2 = 14.701;
	d3 = 13.546}

else if (form.metric.value==20){

	P  = 2.5;
	d  = 20;
	d2 = 18.376;
	d3 = 16.933}

else if (form.metric.value==24){

	P  = 3;
	d  = 24;
	d2 = 22.051;
	d3 = 20.319}

else if (form.metric.value==30){

	P  = 3.5;
	d  = 30;
	d2 = 27.727;
	d3 = 25.706}

else if (form.metric.value==36){

	P  = 4.0;
	d  = 36;
	d2 = 33.402;
	d3 = 31.093}
	
else if (form.metric.value==42){

	P  = 4.5;
	d  = 42;
	d2 = 39.077;
	d3 = 36.479}

if (form.Rp.value==3.6){

	Rm = 300;
	Rp02 = 0.6*Rm;
	St =Rp02*alpha }

else if (form.Rp.value==4.6){

	Rm = 400;
	Rp02 = 0.6*Rm;
	St =Rp02*alpha }

else if (form.Rp.value==4.8){

	Rm = 400;
	Rp02 = 0.8*Rm;
	St =Rp02*alpha }

else if (form.Rp.value==5.6){

	Rm = 500;
	Rp02 = 0.6*Rm;
	St =Rp02*alpha }

else if (form.Rp.value==5.8){

	Rm = 500;
	Rp02 = 0.8*Rm;
	St =Rp02*alpha }

else if (form.Rp.value==6.8){

	Rm = 600;
	Rp02 = 0.8*Rm;
	St =Rp02*alpha }
    
else if (form.Rp.value==8.8){

	Rm = 800;
	Rp02 = 0.8*Rm;
	St =Rp02*alpha }

else if (form.Rp.value==9.8){

	Rm = 900;
	Rp02 = 0.8*Rm;
	St =Rp02*alpha }
   
else if (form.Rp.value==10.9){

	Rm = 1000;
	Rp02 = 0.9*Rm;
	St =Rp02*alpha }
   
else if (form.Rp.value==12.9){

	Rm = 1200;
	Rp02 = 0.9*Rm;
	St =Rp02*alpha }

d0=(d2+d3)/2;
At = (Math.PI/4)*d0*d0;

form.P.value = P;
form.d2.value = d2;
form.d3.value = d3;
form.At.value = Math.round(At*100)/100;
form.Rm.value = Math.round(Rm*10)/10;
form.Rp02.value = Math.round(Rp02*10)/10;
form.St.value = Math.round(St*10)/10;

Wp = Math.PI*d3*d3*d3/16;
rho=Math.atan( mus/( Math.cos(30*Math.PI/180) ));
phi=Math.atan(P/(Math.PI*d2));
tan=Math.tan(phi+rho);
Fi = St*At;
MG = Fi*(d2/2)*tan;
MG2= Fi*(d2/2)*Math.tan(phi-rho);
tau = MG/Wp;
Se = Math.pow(St*St+3*tau*tau,1/2);
MWD = Fi*muk*1.3*d/2;
MA = MG + MWD;
F02 = Rp02*At;

if (Se > Rp02) {alert("Warning: Equivalent stress > Yield strength!")};

form.tau.value = Math.round(tau*100)/100;
form.Se.value = Math.round(Se*100)/100;
form.MG.value = Math.round(MG*Math.pow(10,-3)*100)/100;
form.MG2.value = Math.round(MG2*Math.pow(10,-3)*100)/100;
form.MWD.value = Math.round(MWD*Math.pow(10,-3)*100)/100;
form.MA.value = Math.round(MA*Math.pow(10,-3)*100)/100;
form.Fi.value = Math.round(Fi*Math.pow(10,-3)*100)/100;
form.F02.value = Math.round(F02*Math.pow(10,-3)*100)/100;
form.Pb.value = Math.round((F02-Fi)*Math.pow(10,-3)*100)/100;


}

function reset(form){}
// -->