**TI92**mainProgram: 03\20\1996 06:56:34 PMRvs1ˆ¥Z.() Prgm Local x,y,n,ny,hx,hy,dx,dy,i,j,px,py,c 20n 10ny (xmax-xmin)/nhx hx/3dx (ymax-ymin)/nyhy ClrDraw FnOff For i,1,n-1 For j,1,ny-1 xmin+i*hxx ymin+j*hyy dx*vsf(x,y)dy ¨((dx/(xmax-xmin))^2+(dy/(ymax-ymin))^2)c 40*cc dx/cpx dy/cpy Line x-px,y-py,x+px,y+py EndFor EndFor EndPrgmäåÜá]