\START92\
\COMMENT=
\NAME=defchidf
\FILE=DEFCHIDF.89P
()
Prgm
DelVar y3
Define y3(x)=when(x>0,m*x^(1.5)*\e\^(\(-)\x/2)/(3*\root\(2*\pi\)),0)
Style 3,"Line"
EndPrgm
\STOP92\