Mandelbrot graphic test (DM42)

Пользователь форума швейцарских калькуляторов wawachief выложил программу Mandelbrot graphic test.

Результат в высоком разрешении на моем DM42:
Mandelbrot

Текст программы:

00 { 375-Byte Prgm }
01▸LBL "mandel"
02 MVAR "XMIN"
03 MVAR "XMAX"
04 MVAR "YMIN"
05 MVAR "YMAX"
06 MVAR "NITER"
07▸LBL 05
08 RCL "GrMod"
09 "hp"
10 X=0?
11 ├"•"
12 KEY 1 GTO 06
13 "200"
14 2
15 -
16 X=0?
17 ├"•"
18 KEY 2 GTO 07
19 "400"
20 1
21 -
22 X=0?
23 ├"•"
24 KEY 3 GTO 08
25 CLA
26 KEY 4 GTO 05
27 KEY 5 GTO 05
28 "next>"
29 KEY 6 GTO 09
30 MENU
31 STOP
32 GTO 05
33▸LBL 06
34 131
35 STO 10
36 16
37 STO 11
38 0
39 STO "GrMod"
40 GTO 05
41▸LBL 07
42 200
43 STO 10
44 120
45 STO 11
46 2
47 STO "GrMod"
48 GTO 05
49▸LBL 08
50 400
51 STO 10
52 240
53 STO 11
54 3
55 STO "GrMod"
56 GTO 05
57▸LBL 09
58 VARMENU "mandel"
59 "Enter scale R/S"
60 PROMPT
61▸LBL 00
62 CLLCD
63 RCL "XMIN"
64 STO 00
65 RCL "XMAX"
66 X<>Y
67 -
68 RCL 10
69 ÷
70 STO 02
71 RCL "YMIN"
72 STO 01
73 RCL "YMAX"
74 X<>Y
75 -
76 RCL 11
77 ÷
78 STO 03
79▸LBL 01
80 RCL 03
81 STO+ 01
82▸LBL 02
83 RCL 02
84 STO+ 00
85 XEQ 11
86 RCL 00
87 RCL "XMAX"
88 X>Y?
89 GTO 02
90 RCL "XMIN"
91 STO 00
92 RCL 01
93 RCL "YMAX"
94 X>Y?
95 GTO 01
96 STOP
97▸LBL 10
98 RCL 00
99 RCL 01
100 RCL "YMIN"
101 -
102 RCL "YMAX"
103 RCL "YMIN"
104 -
105 ÷
106 X<>Y
107 RCL "XMIN"
108 -
109 RCL "XMAX"
110 RCL "XMIN"
111 -
112 ÷
113 RCL 10
114 ×
115 RND
116 X<>Y
117 RCL 11
118 ×
119 RND
120 X<>Y
121 PIXEL
122 RTN
123▸LBL 11
124 RCL "NITER"
125 STO 04
126 RCL 00
127 RCL 01
128 COMPLEX
129 ENTER
130▸LBL 12
131 X↑2
132 RCL ST Y
133 +
134 ENTER
135 ABS
136 2
137 X
Метки публикаций: 
Русский