Construct a falling hair

 

home

 

p1:=plot::Curve2d([cos(3*t),sin(t^(1/2)+q)],t=0..2*PI,q=0..PI)

math

plot(p1,Axes=None,Scaling=Constrained);

MuPAD graphics