**TI92P*calculusRsineshowZ() Prgm Disp ClrDraw:FnOff setMode("Graph","Parametric") setGraph("Graph Order","Simul") 2.9xmin 3*/4xmax 3xscl 1.1ymin 1.1ymax 1yscl 0tmin 6.3tmax .15tstep 1.25+cos(t)xt1(t) sin(t)yt1(t) t/4xt2(t) sin(t)yt2(t) DispG For n,1,12 n*/(6.5)t 1.25+cos(t)a sin(t)b t/4c Line a,b,c,b Pause EndFor Pause setMode("Graph","Function") setMode("Graph order","Seq") setMode("Split 1 App","Home") EndPrgmO