mò GïEc@s\dklZlZlZd„ZhZd„Zd„Zd„Zdd„Z d„Z dS( (sceilssqrtspicCs td„td|dƒdƒS(NcCs||S(N(txty(RR((t4/home/.inka/novalis_dt/novalis.org/cgi/samplesize.pytsi(treducetrangetn(R((RtfactscCs˜|djodSn|tjo t|Snd}xStd|ƒD]B}|tt|ƒt|d|ƒƒ|dd|d7}qDW|t|<|S(Niii(tktinverse_erf_c_tablettotalRtmtfloatt inverse_erf_c(RR R ((RR s   @ cCsd}d}d}xft||ƒdjoN|}|t|ƒd|dttƒ|dd|d7}|d7}qW|S(Niiÿÿÿÿf1.0000000000000001e-05ii(RtlasttcurtabsR tsqrttpiR(RRRR((Rt inverse_erfs:cCstdƒtd|dƒS(Nii(RRR(R((Rtprobit_inversesf0.94999999999999996cCsšd|}td|dƒ}d|jo djnpt‚||dt|ƒdd}|djo|d|d|:}nt t |ƒƒS(Niiii2f0.25f100.0( tconfidence_leveltalphaRtztconfidence_intervaltAssertionErrorR tsizet populationtinttceil(RRRRRR((Rt sample_size"s %  cCsœd}|djpt‚d|jo djnpt‚|ot||ƒ|d}nd}t|ƒd}t||d||ƒd}|S(Nf3.8416000000000001iidii( tzcRRt percentageRR tpftpcRR(RRR R"RR!R((RR-s% N( tmathRRRRR R RRRR( RR RR RRRRRR((Rt?s