Normal Distribution Table by uru

#define X (j/10+i/100)
#define T 1/(1+0.2316419*X)
#define F(Y);for i:=0to Y do
var i,j:word;begin
write("  Z |")F(9)write("0.0":6-1shr i*2,i);write("
----+")F(69)write("-");repeat
write(^j,j/10:1:1," |")F(9)write(^`,1-0.398942*exp(-X*X/2)*T*(T*(T*(T*(T*1.330274-1.821256)+1.781478)-0.3565637)+0.319382):2:4);inc(j)until j>30end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page