apheight=640; InitGraph(); ScaleWindow(-4,-4,4,4); DrawAxes(); Colour(Black); x=[0,0]; for (x[0]=-3;x[0]<3;x[0]+=.25){ x[1]=-3; copy(x,w); cmul(w,x); LineStart(w[0],w[1]); for (x[1]=-3;x[1]<3;x[1]+=.05){ copy(x,w); cmul(w,x); LineTo(w[0],w[1]); } } x=[0,0]; for (x[1]=-3;x[1]<3;x[1]+=.25){ x[0]=-3; copy(x,w); cmul(w,x); LineStart(w[0],w[1]); for (x[0]=-3;x[0]<3;x[0]+=.05){ copy(x,w); cmul(w,x); LineTo(w[0],w[1]); } }