**TI92P*mainÚäß+˜ä6&/h&g9ê#g9ß+ÚäÚäß+î °äV%/$ Rplotdemo»¥Za(xyspec,xyn,fplot,fpn) prgm ©Demo program to plot xy-data & 1 function ©24dec99 dburkett@infinet.com ©xyspec: data points matrix or name ©xyn: xy data plot number ©fplot: function to plot; expression ©fpn: function plot number local umode,gmode ©Save user's modes getmode("ALL")umode stogdb gmode ©Set graph modes as needed setmode({"Graph","Function","Split Screen","Full"}) ©Clear previous graph contents clrgraph clrdraw fnoff plotsoff ©Get number of data points rowdim(xyspec)xyrows ©Convert xy data points to lists matlist(submat(xyspec,1,1,xyrows,1))xlist matlist(submat(xyspec,1,2,xyrows,2))ylist ©Plot the data and zoom to fit newplot xyn,1,xlist,ylist zoomdata ©Plot the function & trace expr(string(fplot)&"y"&string(exact(fpn))&"(x)") trace ©Restore user's modes delvar xlist,ylist setmode(umode) rclgdb gmode disphome endprgmäåÜ 4