function setTail(i){normType='left';}function RoundDP(x,dp){var powten=Math.pow(10,dp);return(Math.round(x*powten)/powten)}function RoundSF(x,sf){if(x==0)return 0;with(Math){var magnitude=ceil(log(abs(x))/LN10);var dp=max(0,min(6,sf-magnitude));return RoundDP(x,dp)}}function diddle(p,fromType,toType,negative){var newp=any2left(p,fromType,negative);newp=left2any(newp,toType,negative);return newp}function any2left(p,from,negative){if(from=='left')return p;if(from=='right')return(1-p);if(from=='twotail')p=1-p/2;else if(from=='middle')p=p/2+0.5;else if(from=='half')p=p+0.5;if(negative)p=1-p;return p}function left2any(p,to,negative){if(to=='left')return p;if(to=='right')return(1-p);if(negative)p=1-p;if(to=='twotail')return 2*(1-p);if(to=='middle')return(2*p-1);if(to=='half')return(p-0.5)}function forwardNormal(fan){setTail('0');var p=Norm_p(fan);p=diddle(p,'twotail',normType,fan<0);return RoundDP(p,6)}function backwardNormal(fan){setTail('0');var p=fan;p=diddle(p,normType,'half',fan<0);var z=Norm_z(p);return RoundSF(z,6)}function Norm_p(z){var absz=Math.abs(z),a1=0.0000053830,a2=0.0000488906,a3=0.0000380036,a4=0.0032776263,a5=0.0211410061,a6=0.0498673470;var p=(((((a1*absz+a2)*absz+a3)*absz+a4)*absz+a5)*absz+a6)*absz+1;p=Math.pow(p,-16);return p}function Norm_z(p){var a0=2.5066282,a1=-18.6150006,a2=41.3911977,a3=-25.4410605,b1=-8.4735109,b2=23.0833674,b3=-21.0622410,b4=3.1308291,c0=-2.7871893,c1=-2.2979648,c2=4.8501413,c3=2.3212128,d1=3.5438892,d2=1.6370678,r,z;if(p>0.42){r=Math.sqrt(-Math.log(0.5-p));z=(((c3*r+c2)*r+c1)*r+c0)/((d2*r+d1)*r+1)}else{r=p*p;z=p*(((a3*r+a2)*r+a1)*r+a0)/((((b4*r+b3)*r+b2)*r+b1)*r+1)}return z}