# TITLE:  Fractal-1
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   26Jan1997
# MAKE:   CASIO
# MODEL:  9850G

# \i is the complex i
# \^2 is the squared key
# Quick method takes 2 or 3 minutes
# Slow method takes about an hour


@@ "FRAC1"

"QUICK 1"                   
"SLOW 2"?->E               
AxesOff
1->K
ViewWindow -6.3,6.3,1,-3.1,3.1,1
If E=2
Then ViewWindow -3,0,1,-1,1,0
0.2->K
IfEnd
For 10->A To -10 Step -K
For 1->B To 20 Step K
(A-10)/10 + \i(B-10)/10->Z    
Z->D
For 1->C To 6
Z\^2-0.9->Z
Next
Abs Z->Q
Q>=50000=>Plot ReP D,ImP D
Q>=1=>Q<50000=>Green Plot ReP D,ImP D
Q>=0.5=>Q<1=>Orange Plot ReP D, Imp D
Next
Next