Sunday, November 5, 2017

Animation: TI-84 Plus CE





Program listing:



Master program ANIMSTR:

prgmANI002
prgmANI003
prgmANI004
prgmANI005
prgmANI006

"EWS 2017-10-28"
FnOff :BackgroundOff
PlotsOff :AxesOn
seq(X,X,­5,5,0.5)→L1
e^(­L1²/2)→L2

dim(L1)→D
{RED,GREEN,BLUE,RED,GREEN,BLUE}→L3

"STAT PLOT"
PlotsOn 1
Plot1(xyLine,L1,L2,⁺,LTGRAY)
ZoomStat
"ANIMATION"

For(J,1,6)
For(K,1,D)
Pt-On(L1(K),L2(K),3,L3(J))
Wait 0.15
End
End

Subroutine ANI002:

"2017-11-05 EWS"
Func:ZStandard:FnOff
ClrDraw:PlotsOff

For(K,1,10)
Line(­8,8,8,8,1,GREEN)
Line(­4,4,4,4,1,ORANGE)
Pt-On(­2,2,3,ORANGE)
Pt-On(2,2,3,GREEN)
Wait 0.2

Line(­8,8,8,8,1,ORANGE)
Line(­4,4,4,4,1,GREEN)
Pt-On(­2,2,3,GREEN)
Pt-On(2,2,3,ORANGE)

Wait 0.2
End

Subroutine ANI003:

"2017-11-05 EWS"
Func:ZStandard:FnOff
ClrDraw:PlotsOff
Radian

Pt-On(­10,sin(­10),3,RED)
For(X,­9.9,10,.1)
Pt-On(X-.1,sin(X-.1),3,LTBLUE)
Pt-On(X,sin(X),3,RED)
Wait 0.1
End

Subroutine ANI004:

"2017-11-05 EWS"
Func:ZStandard:FnOff
ClrDraw:PlotsOff
Radian

"PRE-ANI"
Line(­4,4,­4,­4,BLUE)
Line(­1,4,­1,­4,BLUE)
Line(3,4,3,­4,BLUE)

"CHASING LINES"
For(K,1,10)
Line(­4,4,­4,­4,BLUE)
Line(­1,4,­1,­4,RED)
Wait .2

Line(­1,4,­1,­4,BLUE)
Line(3,4,3,­4,RED)
Wait .2

Line(3,4,3,­4,BLUE)
Line(­4,4,­4,­4,RED)
Wait .2

End

Subroutine ANI005:

"2017-11-05 EWS"
Func:ZSquare:FnOff
ClrDraw:PlotsOff
Radian
AxesOff

"CORE"
For(K,0.1,1,.1)
Circle(0,0,K,BLACK)
End

"BREATHING"
For(K,1,3)

For(J,1,5,.25)
Circle(0,0,J,RED)
End

For(J,5,1,­.25)
Circle(0,0,J,WHITE)
End

End
AxesOn

Subroutine ANI006:

"2017-11-05 EWS"
Radian:Func:PlotsOff
FnOff :AxesOff:ZSquare
ClrDraw

"SETUP"
BackgroundOn BLACK
Pt-On(0,0,3,YELLOW)

"ORBITS"
π/24→T
For(K,0,8π,T)

6.8cos(K)→A
7.2sin(K)→B
6.8cos(K-T)→C
7.2sin(K-T)→D
Pt-On(A,B,3,ORANGE)
Pt-On(C,D,3,BLACK)

5cos(1.05K)→A
5sin(1.05K)→B
5cos(1.05(K-T))→C
5sin(1.05(K-T))→D
Pt-On(A,B,3,LTBLUE)
Pt-On(C,D,3,BLACK)

3.1cos(1.1K)→A
2.9sin(1.1K)→B
3.1cos(1.1(K-T))→C
2.9sin(1.1(K-T))→D
Pt-On(A,B,3,RED)
Pt-On(C,D,3,BLACK)

Wait .15
End


BackgroundOff




Eddie



This blog is property of Edward Shore, 2017

2 comments:

TI-74: Extrema of a Cubic Polynomial

TI-74: Extrema of a Cubic Polynomial Introduction The program finds the extrema points of a cubic polynomial where the roots A, B,...