function do_form() {

    var vis_a = eval(document.cform.vis_a.value);
	var conv_a = eval(document.cform.conv_a.value);
	var vis_b = eval(document.cform.vis_b.value);
	var conv_b = eval(document.cform.conv_b.value);

	document.cform.level.value  = confidence_level(vis_a,conv_a,vis_b,conv_b);
	document.cform.level2.value = confidence_level(vis_a*2,conv_a*2,vis_b*2,conv_b*2);
	document.cform.level3.value = confidence_level(vis_a*3,conv_a*3,vis_b*3,conv_b*3);
	document.cform.level4.value = confidence_level(vis_a*4,conv_a*4,vis_b*4,conv_b*4);

}

function confidence_level(vis_a,conv_a,vis_b,conv_b) {

	var p1 = conv_a/vis_a;
	var p2 = conv_b/vis_b;

	var denom = Math.sqrt(((p1*(1-p1))/(vis_a-1))+((p2*(1-p2))/(vis_b-1))); 
	var Z = Math.abs((p1-p2)/denom);

	var clevel = '';
	
    if (Z>= 0)    clevel = 'less than 70%';
	if (Z>= 1.03) clevel = '70%';
	if (Z>= 1.05) clevel = '71%';
	if (Z>= 1.07) clevel = '72%';
	if (Z>= 1.10) clevel = '73%';
	if (Z>= 1.12) clevel = '74%';
	if (Z>= 1.14) clevel = '75%';
	if (Z>= 1.17) clevel = '76%';
	if (Z>= 1.19) clevel = '77%';
	if (Z>= 1.22) clevel = '78%';
	if (Z>= 1.24) clevel = '79%';
	if (Z>= 1.28) clevel = '80%';
	if (Z>= 1.31) clevel = '81%';
	if (Z>= 1.34) clevel = '82%';
	if (Z>= 1.37) clevel = '83%';
	if (Z>= 1.41) clevel = '84%';
	if (Z>= 1.44) clevel = '85%';
	if (Z>= 1.48) clevel = '86%';
	if (Z>= 1.51) clevel = '87%';
	if (Z>= 1.55) clevel = '88%';
	if (Z>= 1.60) clevel = '89%';
	if (Z>= 1.64) clevel = '90%';
	if (Z>= 1.69) clevel = '91%';
	if (Z>= 1.75) clevel = '92%';
	if (Z>= 1.81) clevel = '93%';
	if (Z>= 1.88) clevel = '94%';
	if (Z>= 1.96) clevel = '95%';
	if (Z>= 2.05) clevel = '96%';
	if (Z>= 2.17) clevel = '97%';
	if (Z>= 2.33) clevel = '98%';
	if (Z>= 2.57) clevel = '99%';
	
	return clevel;
}