Name-AFract.86p
Author- Joe Bauman
Version-???

Note- This description is for the 86 version and the 82 version of this program...they're basicaly the same...


This is my Fractal Program for the TI86. To use it is simple, just send it to your calc (or just use the text version below), open it in the program editor, replace "(Enter Equ. Here)" with and equation of your choice that includes the variables A and B, and then run the program.          Be creative when choosing an equation, if your in Physics, use an equ. that looks like a Physics equ, etc...
You can try the ones on my web page to see how it works.
I'd love to hear from anyone who finds a cool equ. to use and also anyone who is interested in this stuff to see what other cool stuff is out there.


Web Page-  www.pivot.net/~jmbauman
E-mail-  jmbauman@pivot.net
ICQ #4511843

==AFract.86P== ( /->/ is the store key right above the ON key)
:ClDrw
:CoordOff
:AxesOff
:0/->/xMin
:126/->/xMax
:0/->/yMin
:64/->/yMax
:For(A,0,126)
:For(B,0,64)
:(Enter Equ. Here)
:If ((iPart Ans)/2)==(iPart (Ans/2))
:PtOn(A,B)
:End
:End


==FRACT.82P== (DITTO)
:ClrDraw
:CoordOff
:AxesOff
:0/->/Xmin
:94/->/Xmax
:1/->/Xscl
:0/->/Ymin
:62/->/Ymax
:1/->/Yscl
:For(A,0,94)
:For(B,0,62)
:(YOUR-EQU.-HERE)
:If ((iPart Ans)/2)=(iPart (Ans/2))
:Pt-On(A,B)
:End
:End
