! o OPTION ARITHMETIC NATIVE DECLARE EXTERNAL FUNCTION C LET n=180 LET x1=16 LET x2=45 FOR p=0.1640 TO 0.1680 STEP 0.0001 LET L=0 FOR k=0 TO x1 LET L=L+C(n,k)*p^k*(1-p)^(n-k) NEXT k FOR k=x2 TO n LET L=L+C(n,k)*p^k*(1-p)^(n-k) NEXT k PRINT USING "#.#### #.#######": p,L NEXT p END EXTERNAL FUNCTION C(n,r) OPTION ARITHMETIC NATIVE IF r=0 THEN LET C=1 ELSE LET C=C(n-1,r-1)*n/r END FUNCTION