**TI92P*mainPˆä6&‡BŚ`Eā$PŹäŹäPģ  äV%‡B !RplotxyT„Zś(fname,xl,xh,pn,res) Prgm ©("f(x)",xlow,xhigh,plot#,xres) plot function using data plot ©leaves global variables xx and yy ©1jul00/dburkett@infinet.com local dxx,k ©Find x-step and make x-, y-lists ©Change all 239 to 159 for TI89 res*((xh-xl)/239)dxx seq((k-1)*dxx+xl,k,1,ceiling(239/res))xx seq(expr(fname)|x=xx[k],k,1,ceiling(239/res))yy ©Set graph window limits xlxmin xhxmax min(yy)ymin max(yy)ymax ©Create plot; display graph fnoff plotsoff newplot pn,2,xx,yy,,,,5 dispg EndPrgm äåÜ_«