<!--

function solve(form){

S1 = form.S1.value;
Fm = form.Fm.value*Math.pow(10,3);

if (form.Rp.value==8.8){

	Rm = 800;
	Rp02 = 0.8*Rm}

else if (form.Rp.value==9.8){

	Rm = 900;
	Rp02 = 0.8*Rm}
   
else if (form.Rp.value==10.9){

	Rm = 1000;
	Rp02 = 0.9*Rm}
   
else if (form.Rp.value==12.9){

	Rm = 1200;
	Rp02 = 0.9*Rm}

d = form.metric.value;
if (d!=12) {
	alert("Please login to get full access!");
	form.metric.value=12;}
	P  = 1.75;
	d  = 12;
	d2 = 10.863;
	d3 = 9.853;

d0=(d2+d3)/2;
As = (Math.PI/4)*d0*d0;
F02 = Rp02*As;
Sa = 0.75*(180/d+52);

Pb = 2*Sa*As;
Pm = Pb*(1-S1)/S1;
Fi_min = Fm+Pm;
Fi_max = F02-Pb;
Pmax  = Pb+Pm;

if (Fi_min>Fi_max) {
   alert("warning: minimum value of clamping force not realised (Fi,min>Fi,max)!");
   }


form.P.value = P;
form.d2.value = d2;
form.d3.value = d3;
form.As.value = Math.round(As*100)/100;
form.Rm.value = Math.round(Rm*100)/100;
form.Rp02.value = Math.round(Rp02*100)/100;
form.F02.value  = Math.round(F02*Math.pow(10,-3)*100)/100;
form.Sa.value  = Math.round(Sa*100)/100;
form.Pb.value = Math.round(Pb*Math.pow(10,-3)*100)/100;
form.Pm.value = Math.round(Pm*Math.pow(10,-3)*100)/100;
form.Fi_min.value  = Math.round(Fi_min*Math.pow(10,-3)*100)/100;
form.Fi_max.value  = Math.round(Fi_max*Math.pow(10,-3)*100)/100;
form.Pmax.value  = Math.round(Pmax*Math.pow(10,-3)*100)/100;

}

function reset(form) 
{
}
// -->