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.
