TI-81 Mandelbrot set generator
Period-5 bulb of the Mandelbrot set was plotted on the Texas Instruments TI-81 graphing calculator. The video is speeded up by 30 times.
Here you can see what it is supposed to look like: https://disk.yandex.ru/i/b7HWtL222bh31A
My code is a slight modification of the code from this website (the original code has some mistakes!!): https://www.ticalc.org/pub/81/basic/m...
ClrDraw
%coordinates of the buble
-0.65→C %xmin
0.5→D %ymin
-0.4→E %xmax
0.7→F %ymax
(E - C)/95→L %xstep
(F - D)/63→M %ystep
1→Xmin
1→Ymin
96→Xmax
64→Ymax
0→Xscl
0→Yscl
DispGraph
64→J
Lbl 1
1→I
Lbl 2
C + (I-1)*L→R
D + (J-1)*M→S
R→X
S→Y
1→N
Lbl 3
(X^2 - Y^2 + R)→W
(2XY + S)→T
(W^2 + T^2)→Z
If Z ≥ 4
Goto 4
W→X
T→Y
N + 1→N
If N ≤ 23 %number of iterations
Goto 3
PT-On(I,J)
Lbl 4
I + 1→I
If I ≤ 96
Goto 2
J - 1→J
If J ≥ 1
Goto 1
end