Информатика / DiagStat

 Новый Документ var Pi=3.141592653589793; Pi2=2*Pi; LnPi2 = Math.log(Pi2); PiD2=Pi/2 var Cell_A; var Cell_B; var Cell_C; var Cell_D var Cell_r1; var Cell_r2; var Cell_c1; var Cell_c2; var t var Ex_A; var Ex_B; var Ex_C; var Ex_D; var Sav_A; var Sav_B; var Sav_C; var Sav_D var cs; var od; var rr; var kp; var fc; var mcr; var sn; var sp; var pp; var np var arr; var rrr; var plr; var nlr; var dor; var yj; var nnd var dp; var nn; var nmi; var cc; var ca; var cp; var yq; var ets var Cell_se; var Cell_sp; var Cell_pd2; var n function CalcTots(form) { Cell_A = eval(form.Cell_A.value) Cell_B = eval(form.Cell_B.value) Cell_C = eval(form.Cell_C.value) Cell_D = eval(form.Cell_D.value) Cell_r1 = Cell_A+Cell_B Cell_r2 = Cell_C+Cell_D Cell_c1 = Cell_A+Cell_C Cell_c2 = Cell_B+Cell_D n = Cell_A+Cell_B+Cell_C+Cell_D form.Cell_r1.value = ''+(Cell_r1) form.Cell_r2.value = ''+(Cell_r2) form.Cell_c1.value = ''+(Cell_c1) form.Cell_c2.value = ''+(Cell_c2) form.n.value = ''+(n) } function CalcAll (form) { CalcOutcome (form,parseFloat(form.Cell_A.value), parseFloat(form.Cell_B.value), parseFloat(form.Cell_C.value), parseFloat(form.Cell_D.value)) CalcDiastic (form) } function CalcOutcome (form) { CalcExactOutcome (form) var a=parseFloat(form.Cell_A.value), b=parseFloat(form.Cell_B.value), c=parseFloat(form.Cell_C.value), d=parseFloat(form.Cell_D.value) var DIa95 = CalcBin (a,n,0.0125) form.Pa_lwb95.value = Fmt(DIa95.lwb) form.Pa_upb95.value = Fmt(DIa95.upb) var DIa99 = CalcBin (a,n,0.0025) form.Pa_lwb99.value = Fmt(DIa99.lwb) form.Pa_upb99.value = Fmt(DIa99.upb) var DIa999 = CalcBin (a,n,0.00025) form.Pa_lwb999.value = Fmt(DIa999.lwb) form.Pa_upb999.value = Fmt(DIa999.upb) var DIb95 = CalcBin (b,n,0.0125) form.Pb_lwb95.value = Fmt(DIb95.lwb) form.Pb_upb95.value = Fmt(DIb95.upb) var DIb99 = CalcBin (b,n,0.0025) form.Pb_lwb99.value = Fmt(DIb99.lwb) form.Pb_upb99.value = Fmt(DIb99.upb) var DIb999 = CalcBin (b,n,0.00025) form.Pb_lwb999.value = Fmt(DIb999.lwb) form.Pb_upb999.value = Fmt(DIb999.upb) var DIc95 = CalcBin (c,n,0.0125) form.Pc_lwb95.value = Fmt(DIc95.lwb) form.Pc_upb95.value = Fmt(DIc95.upb) var DIc99 = CalcBin (c,n,0.0025) form.Pc_lwb99.value = Fmt(DIc99.lwb) form.Pc_upb99.value = Fmt(DIc99.upb) var DIc999 = CalcBin (c,n,0.00025) form.Pc_lwb999.value = Fmt(DIc999.lwb) form.Pc_upb999.value = Fmt(DIc999.upb) var DId95 = CalcBin (d,n,0.0125) form.Pd_lwb95.value = Fmt(DIc95.lwb) form.Pd_upb95.value = Fmt(DIc95.upb) var DIdbin99 = CalcBin (d,n,0.0025) form.Pd_lwb99.value = Fmt(DIc99.lwb) form.Pd_upb99.value = Fmt(DIc99.upb) var DId999 = CalcBin (d,n,0.00025) form.Pd_lwb999.value = Fmt(DIc999.lwb) form.Pd_upb999.value = Fmt(DIc999.upb) var DIab95 = CalcBin (r1,n,0.05) form.Pab_lwb95.value = Fmt(DIab95.lwb) form.Pab_upb95.value = Fmt(DIab95.upb) var DIab99 = CalcBin (r1,n,0.01) form.Pab_lwb99.value = Fmt(DIab99.lwb) form.Pab_upb99.value = Fmt(DIab99.upb) var DIab999 = CalcBin (r1,n,0.001) form.Pab_lwb999.value = Fmt(DIab999.lwb) form.Pab_upb999.value = Fmt(DIab999.upb) var DIcd95 = CalcBin (r2,n,0.05) form.Pcd_lwb95.value = Fmt(DIcd95.lwb) form.Pcd_upb95.value = Fmt(DIcd95.upb) var DIcd99 = CalcBin (r2,n,0.01) form.Pcd_lwb99.value = Fmt(DIcd99.lwb) form.Pcd_upb99.value = Fmt(DIcd99.upb) var DIcd999 = CalcBin (r2,n,0.001) form.Pcd_lwb999.value = Fmt(DIcd999.lwb) form.Pcd_upb999.value = Fmt(DIcd999.upb) var DIac95 = CalcBin (c1,n,0.05) form.Pac_lwb95.value = Fmt(DIac95.lwb) form.Pac_upb95.value = Fmt(DIac95.upb) var DIac99 = CalcBin (c1,n,0.01) form.Pac_lwb99.value = Fmt(DIac99.lwb) form.Pac_upb99.value = Fmt(DIac99.upb) var DIac999 = CalcBin (c1,n,0.001) form.Pac_lwb999.value = Fmt(DIac999.lwb) form.Pac_upb999.value = Fmt(DIac999.upb) var DIbd95 = CalcBin (c2,n,0.05) form.Pbd_lwb95.value = Fmt(DIbd95.lwb) form.Pbd_upb95.value = Fmt(DIbd95.upb) var DIbd99 = CalcBin (c2,n,0.01) form.Pbd_lwb99.value = Fmt(DIbd99.lwb) form.Pbd_upb99.value = Fmt(DIbd99.upb) var DIbd999 = CalcBin (c2,n,0.001) form.Pbd_lwb999.value = Fmt(DIbd999.lwb) form.Pbd_upb999.value = Fmt(DIbd999.upb) } function CalcExactOutcome (form){ r1 = Cell_A+Cell_B r2 = Cell_C+Cell_D c1 = Cell_A+Cell_C c2 = Cell_B+Cell_D n = Cell_A+Cell_B+Cell_C+Cell_D form.Cell_A2.value = ''+(Cell_A) form.Cell_B2.value = ''+(Cell_B) form.Cell_C2.value = ''+(Cell_C) form.Cell_D2.value = ''+(Cell_D) form.n2.value = ''+(n) form.Cell_r21.value = ''+(Cell_r1) form.Cell_r22.value = ''+(Cell_r2) form.n3.value = ''+(n) form.Cell_c21.value = ''+(Cell_c1) form.Cell_c22.value = ''+(Cell_c2) form.n4.value = ''+(n) form.Pa.value= Fmt(''+(Cell_A/n)) form.Pb.value= Fmt(''+(Cell_B/n)) form.Pc.value= Fmt(''+(Cell_C/n)) form.Pd.value= Fmt(''+(Cell_D/n)) form.Pn2.value= Fmt(''+(Cell_A/n+Cell_B/n+Cell_C/n+Cell_D/n)) form.Pab.value= Fmt(''+(r1/n)) form.Pcd.value= Fmt(''+(r2/n)) form.Pn3.value= Fmt(''+((r1+r2)/n)) form.Pac.value= Fmt(''+(c1/n)) form.Pbd.value= Fmt(''+(c2/n)) form.Pn4.value= Fmt(''+((c1+c2)/n)) } function CalcDiastic (form) { CalcExact (form) var a=parseFloat(form.Cell_A.value), b=parseFloat(form.Cell_B.value), c=parseFloat(form.Cell_C.value), d=parseFloat(form.Cell_D.value), c1=parseFloat(form.Cell_c1.value), c2=parseFloat(form.Cell_c2.value), r1=parseFloat(form.Cell_r1.value), r2=parseFloat(form.Cell_r2.value), n=parseFloat(form.n.value) var ex95_lwb = iterABCD (1,(a