Julia set: Difference between revisions
Content added Content deleted
(→{{header|BASIC}}: add Locomotive Basic version) |
(add gw basic) |
||
Line 226: | Line 226: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|GW-BASIC}}=== |
|||
<lang gwbasic>10 SCALE# = 1/81 : ZEROX = 160 |
|||
20 ZEROY = 100 : MAXIT = 32 |
|||
30 CR# = -.798 : CI# = .1618 |
|||
40 SCREEN 1 |
|||
50 FOR X = 0 TO 2*ZEROX - 1 |
|||
60 FOR Y = 0 TO 2*ZEROY - 1 |
|||
70 ZR# = (X-ZEROX)*SCALE# |
|||
80 ZI# = (ZEROY-Y)*SCALE# |
|||
90 FOR I = 1 TO MAXIT |
|||
100 BR# = CR# + ZR#*ZR# - ZI#*ZI# |
|||
110 ZI# = CI# + 2*ZR#*ZI# |
|||
120 ZR# = BR# |
|||
130 IF ZR#*ZR# + ZI#*ZI# > 4! THEN GOTO 160 |
|||
140 NEXT I |
|||
150 GOTO 170 |
|||
160 PSET (X, Y), 1 + (I MOD 3) |
|||
170 NEXT Y |
|||
180 NEXT X</lang> |
|||
==={{header|Locomotive Basic}}=== |
==={{header|Locomotive Basic}}=== |