**TI92P*mainVg4@*~_xgVVg_,T?RdynasinW Z () Prgm Local a,a1,an,b,b1,bn,d,da,db,dh,dk,h,h1,hn,i,k,k1,kn,n,str0,str1,str2,str3,str4,str5,str6,str7,str8 "5"str0 "2"str1 "2"str2 "1"str3 "1"str4 "0"str5 "0"str6 "0"str7 "0"str8 Lbl top ClrHome ClrIO Dialog Title "Dynamic SIN Graph" Text "" Text "Displays N graphs of A*sin(B(x-h))+k " Text "" Text "as one or more of the parameters A, B," Text "" Text "h, and k varies over a specified range." Text "" Request " Number of graphs N",str0 Text "" Text "Press alpha to turn off alpha lock." Text "" EndDlog expr(str0)n If ok=0 Goto drp ClrIO Dialog Title "A*sin(B(x-h))+k parameters" Text "" Text "Press alpha to turn off alpha lock." Text "" Request " first A",str1 Request " last A",str2 Request " first B",str3 Request " last B",str4 EndDlog If ok=0 Goto drp Dialog Title "A*sin(B(x-h))+k parameters" Text "" Text "Press alpha to turn off alpha lock." Text "" Request " first h",str5 Request " last h",str6 Request " first k",str7 Request " last k",str8 EndDlog If ok=0 Goto drp Dialog Title "Dynamic A*sin(B(x-h))+k Settings" Text "" Text "Parameter First Last" Text " A "&str1&" "&str2 Text " B "&str3&" "&str4 Text " h "&str5&" "&str6 Text " k "&str7&" "&str8 Text "" EndDlog If ok=0 Goto top Dialog Title "TO EXIT" Text "" Text "Program will cycle graphs thru" Text "" Text "parameters in "&str0&" steps until the" Text "" Text "ESC key is pressed." Text "" Text "Press ESC to halt or to change" Text "" Text "parameters." Text "" EndDlog If ok=0 Goto drp expr(str1)a1 expr(str2)an (a1-an)/nda expr(str3)b1 b1b expr(str4)bn (b1-bn)/ndb expr(str5)h1 h1h expr(str6)hn (h1-hn)/ndh expr(str7)k1 k1k expr(str8)kn (k1-kn)/ndk 0ky 1.1*max(abs(a1),abs(an))a max(k1,kn)+aymax min(k1,kn)-aymin a1a 1d 1i FnOff PlotsOff While ky264 ClrDraw DrawFunc a*sin(b*(x-h))+k "A="&string(round(a,2))str PxlText str,5,0 "B="&string(round(b,2))str PxlText str,15,0 "h="&string(round(h,2))str PxlText str,25,0 "k="&string(round(k,2))str PxlText str,35,0 For j,1,150 EndFor If i>n Then 1i dd EndIf i+1i a+d*daa b+d*dbb h+d*dhh k+d*dkk getKey()ky EndWhile ClrHome Dialog Title "REPEAT" Text "" Text "To change parameters press ENTER" Text "To end press ESC" Text "" EndDlog If ok=1 Goto top Lbl drp DispHome Stop EndPrgm