\START92\
\COMMENT=
\NAME=defchivf
\FILE=DEFCHIVF.89P
()
Prgm
DelVar y2
Define y2(x)=when(x>0,nInt(z^(1.5)*\e\^(\(-)\z/2)/(3*\root\(2*\pi\)),z,0,x),0)
Style 2,"Line"
EndPrgm
\STOP92\