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
