<!--
<!-- Copyright www.tribology-abc.com -->
function solve1(form){

E1 = eval(form.E1.value * Math.pow(10,9));
E2 = eval(form.E2.value * Math.pow(10,9));
v1 = eval(form.v1.value);
v2 = eval(form.v2.value);
R1x = eval(form.R1x.value * Math.pow(10,-3));
R1y = eval(form.R1y.value * Math.pow(10,-3));
R2x = eval(form.R2x.value * Math.pow(10,-3));
R2y = eval(form.R2y.value * Math.pow(10,-3));
z   = eval(form.z.value);
P   = eval(form.P.value);

EE = 1 / ( (1-v1*v1) / (2*E1) + (1-v2*v2) / (2*E2) );

if (form.R1x.value == 0) R1x = Math.tan(Math.PI/2);
if (form.R1y.value == 0) R1y = Math.tan(Math.PI/2);
if (form.R2x.value == 0) R2x = Math.tan(Math.PI/2);
if (form.R2y.value == 0) R2y = Math.tan(Math.PI/2);
Rx = 1 / ( 1/R1x + 1/R2x );
Ry = 1 / ( 1/R1y + 1/R2y );
L = Math.min(Rx/Ry,Ry/Rx);
RR = 1 / ( 1/Rx + 1/Ry);

K = 1 / ( 1 + Math.sqrt( Math.log(16/L) /( 2*L) ) - (Math.sqrt(Math.log(4))) + 0.16*Math.log(L) );
a1 = K * Math.pow( ( 1 + 2*(1-K*K)/(Math.PI*K*K) - 0.25 * Math.log(K)),1/3);
b1 = a1/K;

F = 5*P/z;
a = a1 * Math.pow(3*F*RR/EE,1/3);
b = b1 * Math.pow(3*F*RR/EE,1/3);
pm = F/(Math.PI*a*b);

form.EE.value = Math.round(EE * Math.pow(10,-9)*100)/100;
form.RR.value = Math.round(RR * Math.pow(10,3)*100)/100;
form.a.value = Math.round(a*Math.pow(10,3)*100)/100;
form.b.value = Math.round(b*Math.pow(10,3)*100)/100;
form.pm.value = Math.round(pm*Math.pow(10,-9)*100)/100;
form.pmax.value = Math.round(1.5*pm*Math.pow(10,-9)*100)/100;

} 
function reset1(form) {
form.P.value = 500;
form.EE.value = "";
form.RR.value = "";
form.a.value = "";
form.b.value = "";
form.pm.value = "";
form.pmax.value = "";
form.z.value = "";
}

function solve2(form){

E1 = eval(form.E1.value * Math.pow(10,9));
E2 = eval(form.E2.value * Math.pow(10,9));
v1 = eval(form.v1.value);
v2 = eval(form.v2.value);
R1x = eval(form.R1x.value * Math.pow(10,-3));
R1y = eval(form.R1y.value * Math.pow(10,-3));
R2x = eval(form.R2x.value * Math.pow(10,-3));
R2y = eval(form.R2y.value * Math.pow(10,-3));
z   = eval(form.z.value);
pmax1 = eval(form.pmax1.value * Math.pow(10,9));

EE1 = 1 / ( (1-v1*v1) / (2*E1) + (1-v2*v2) / (2*E2) );
if (form.R1x.value == 0) R1x = Math.tan(Math.PI/2);
if (form.R1y.value == 0) R1y = Math.tan(Math.PI/2);
if (form.R2x.value == 0) R2x = Math.tan(Math.PI/2);
if (form.R2y.value == 0) R2y = Math.tan(Math.PI/2);
Rx = 1 / ( 1/R1x + 1/R2x );
Ry = 1 / ( 1/R1y + 1/R2y );
L = Math.min(Rx/Ry,Ry/Rx);
RR1 = 1 / ( 1/Rx + 1/Ry);
K = 1 / ( 1 + Math.sqrt( Math.log(16/L) /( 2*L) ) - (Math.sqrt(Math.log(4))) + 0.16*Math.log(L) );
aa = K * Math.pow( ( 1 + 2*(1-K*K)/(Math.PI*K*K) - 0.25 * Math.log(K)),1/3);
bb = aa/K;
F1  = Math.pow(Math.PI*aa*bb*pmax1/1.5,3)*Math.pow(3*RR1/EE1,2);
a1 = aa * Math.pow(3*F1*RR1/EE1,1/3);
b1 = bb * Math.pow(3*F1*RR1/EE1,1/3);

form.EE1.value = Math.round(EE1 * Math.pow(10,-9)*100)/100;
form.RR1.value = Math.round(RR1 * Math.pow(10,3)*100)/100;
form.a1.value = Math.round(a1*Math.pow(10,3)*100)/100;
form.b1.value = Math.round(b1*Math.pow(10,3)*100)/100;
form.C0.value = Math.round(F1*z/5*100)/100;
form.pm1.value = Math.round(F1/(Math.PI*a1*b1)*Math.pow(10,-9)*100)/100;

} 

function reset2(form) {
form.pmax1.value = 4.2;
form.EE1.value = "";
form.RR1.value = "";
form.a1.value = "";
form.b1.value = "";
form.pm1.value = "";
form.C0.value = "";
}

// -->