Sorted independent finance guides are full of helpful information on everyday money matters.

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.