You are here
Mandelbrot graphic test (DM42)
ср, 27/12/2017 - 12:22 - Vitasam
Пользователь форума швейцарских калькуляторов wawachief выложил программу Mandelbrot graphic test.
Результат в высоком разрешении на моем DM42:
Текст программы:
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
Метки публикаций:
»
- Vitasam's blog
- Log in or register to post comments
- 2497 просмотров