Hardware Reference
In-Depth Information
geladen werden. Wir schreiben hier fur jeden Punkt des Bildes lediglich den
errechneten Farbwert an Speicherstelle Basis+(x*Breite)+y.
mandelbrot.mms
1
PREFIX :Mandel:
2
LOC
#100
3 plow
#c002000000000000 -0,025
GREG
4 pdelta
#3f83333333333333 0,009375=(0,75- (-2,25))/320
GREG
5 qlow
#bff8000000000000 -1,5
GREG
6 qdelta
#3f8999999999999a 0,0125=(1,5 - (-1,5))/240
GREG
7 p
IS
$1
8 q
IS
$2
9 xk
IS
$3
x k
10 yk
y k
IS
$4
11 k
Iteration k
IS
$5
12 r
IS
$6
13 bildx
Geratekoordinaten (integer)
IS
$7
14 bildy
IS
$8
15 test
IS
$9
16 temp1
Zwischenergebnisse
IS
$10
17 temp2
IS
$11
18
19 :Mandel FLOT
p,bildx
20
FLOT
q,bildy
21
FMUL
p,p,pdelta
22
FMUL
q,q,qdelta
23
FADD
p,p,plow
24
FADD
q,q,qlow
25
SET
xk,0
26
SET
yk,0
27
SET
k,0
Nachste Iteration: x k +1 = x k − y k
28
+ p
29 1H
INCL
k,1
x k
30
FMUL
temp1,xk,xk
31
y k
FMUL
temp2,yk,yk
32
FSUB
temp1,temp1,temp2
33
x k +1
FADD
temp1,temp1,p
34
∗ y k +1 =2 x k y k + q ; Siehe hierzu die Anmerkung in Kapitel 4.3
35
FMUL
yk,xk,yk
36
2 , 0 (Gleitkommawert!)
SETH
xk,#4000
37
2
× y k
FMUL
yk,yk,xk
Search WWH ::




Custom Search