\START92\
\COMMENT=
\NAME=defchivf
\FILE=DEFCHIVF.9XP
()
Prgm
\(C)\ keine Parametervorgabe, def. y2(x)
EntfVar y2
Definier y2(x)=when(x>0,numInt(z^(1.5)*\e\^(\(-)\z/2)/(3*\root\(2*\pi\)),z,0,x),0)
ZeiStil 2,"Line"
EndPrgm
\STOP92\