Sunday, March 29, 2020

TI 84 Plus CE: Rotating y(x) (Updated)

TI 84 Plus CE:  Rotating y(x) (Updated)

See the original post, way back on August 13, 2012, here:  http://edspi31415.blogspot.com/2012/08/applications-and-programming-rotation.html

This is an updated version of ROTATEY1.  This version will ask you for a function (enter y(X) in quotes, very important), degree rotation, and a speed factor.  For the most detailed rotated graph, enter 1.  Higher numbers will speed up the plot but will decrease the detail of the rotated graph.

The rotated graph is plotted by two lists, L1 for the x coordinates, and L2 for the y coordinates.

TI-84 Plus CE Program ROTATEY1

"2020-02-24 EWS 84+CE"
Func
FnOff
PlotsOff
Disp "USE QUOTES"
Input "Y1=", Y1
FnOn 1
PlotsOn 1
Disp "TYPE ° FOR DEGREES","COUNTERCLOCKWISE"
Input "θ?", θ
Input "SPEED FACTOR?", F
Xmin → X
{0} → L1
{0} → L2
1 → C
For(K, Xmin, Xmax - ∆X, ∆X F)
K + ∆X F → X
augment(L1, {X cos(θ) - Y1 sin(θ)}) → L1
augment(L2, {X sin(θ) + Y1 cos(θ)}) → L2
C + 1 → C
ClrHome
Output(1,1"PROGRESS")
Output(2,1,round(100C/(319/F),2))
End
L1(2) → L1(1)
L2(2) → L2(1)
Plot1(xyLine, L1, L2, .)
ZoomStat

Examples

Example 1:
Y1 = "X*SIN(X)"
θ = 35°
SPEED FACTOR = 2

Example 2:
Y1 = "(X-1)^3"
θ = -60°
SPEED FACTOR = 2

Eddie

All original content copyright, © 2011-2020.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author.