Monday, September 3, 2018

Mathematical Art: TI-84 Plus CE


Mathematical Art:  TI-84 Plus CE


Pixel art generated with the TI-84 Plus CE.  The program is listed below each picture.




Radian:FnOff 

ClrDraw:ZStandard
For(A,­10,10,.1)
For(B,­10,10,.1)

fPart((A^2+B^2)/2)→C
If C=0
Then
Pt-On(A,B,1,BLUE)
Else
Pt-On(A,B,1,RED)
End

End
End


Radian:FnOff 
ClrDraw:ZStandard
For(A,­10,10,.1)
For(B,­10,10,.1)


fPart(sin(A)*cos(B)+cos(A)*sin(B))→C
If 0≤C and C<.25
Then
Pt-On(A,B,1,BLUE)
End
If .25<C and C≤.5
Then
Pt-On(A,B,1,YELLOW)
End

End
End



Radian:FnOff 
ClrDraw:ZStandard
For(A,­10,10,.1)
For(B,­10,10,.1)

e^(sin(A))+10^(cos(B))→C
If C≤2:Pt-On(A,B,1,MAGENTA)
If 2<C and C<5:Pt-On(A,B,1,BLUE)
If C≥5:Pt-On(A,B,1,LTBLUE)

End
End



Radian:FnOff 

ClrDraw:ZStandard
For(A,­10,10,.1)
For(B,­10,10,.1)

iPart(fPart(√(A^2+B^2)/4)*4)→C
If C=1:Pt-On(A,B,1,YELLOW)
If C=2:Pt-On(A,B,1,ORANGE)
If C=3:Pt-On(A,B,1,BROWN)

End
End


Radian:FnOff 
ClrDraw:ZStandard
For(A,­10,10,.1)
For(B,­10,10,.1)

If fPart(A*B/(π/2))≠0 and tan(A*B)<230
Then
e^(tan(A*B))→C
Else
e^(sin(A*B))→C
End
If C≤1:Pt-On(A,B,1,YELLOW)
If 1≤C and C≤2:Pt-On(A,B,1,GREEN)
If C>2:Pt-On(A,B,1,RED)

End
End


Radian:FnOff 
ClrDraw:ZStandard
For(A,­10,10,.1)
For(B,­10,10,.1)

iPart(A*B)/2→C
If fPart(C)=0
Then
sin(A*B)→D
Else
sin(A^3+B^3)→D
End
If D<­0.25:Pt-On(A,B,1,NAVY)
If D>0.25:Pt-On(A,B,1,MEDGRAY)

End
End



Eddie

All original content copyright, © 2011-2018.  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.  Please contact the author if you have questions.