Mandelbrot set: Difference between revisions

</pre>

=={{header|FOCAL}}==

<lang FOCAL>1.1 S I1=-1.2; S I2=1.2; S R1=-2; S R2=.5

1.2 S MIT=30

1.3 F Y=1,24; D 2

1.4 Q

2.1 T !

2.2 F X=1,70; D 3

3.1 S R=X*(R2-R1)/70+R1

3.2 S I=Y*(I2-I1)/24+I1

3.3 S C1=R; S C2=I

3.4 F T=1,MIT; D 4

4.1 S C3=C1

4.2 S C1=C1*C1 - C2*C2

4.3 S C2=C3*C2 + C2*C3

4.4 S C1=C1+R

4.5 S C2=C2+I

4.6 I (-FABS(C1)+2)5.1

4.7 I (-FABS(C2)+2)5.1

4.8 I (MIT-T-1)6.1

5.1 S T=MIT; T "*"; R

6.1 T " "; R</lang>

{{output}}

<pre>

**********************************************************************

**********************************************************************

**************************************************** *****************

************************************************* ***************

************************************************* ***************

**************************************** * **********

*************************************** * ******

************************************* *****

********************** **** ******* ****

*********************** ** **

********************* ****

*** * *******

********************* ****

*********************** ** **

********************** **** ******* ****

************************************* *****

*************************************** * ******

**************************************** * **********

************************************************* ***************

************************************************* ***************

**************************************************** *****************

**********************************************************************

**********************************************************************

**********************************************************************