Inhaltsverzeichnis
Werbung
wird), werden die Zellen
219
bis
225 (zwölt
Stellen berechnet) oder entsprechend
weni-
ger
Zellen
mit
dem
Rechenergebnis belegt.
Ein
sechsstelliges Ergebnis
kann
z
B.
folgen-
dermaßen aussehen:
Zelle 219:
00
031
Zelle
22O:
OOO41
Zelle 221:
00.059
;r
wurde also
zu
3,14159
berechnet
(das
Komma müssen wir großzügigerweise
hin-
zufügen).
Für
die Ermittlung
von
Näherungszahlen
für
y
während des Rechenganges muß noch
ei-
ne Portverdrahtung
vorgenommen
werden
:
Porl
412
muß
mit
Port
3/1
Port
413
muß
mit Porl
312
Port
44
muß
mit
Port
3/3
Porl
415
muß
mit Potl
314
Porl
4/6
muß
mit
Port
3/5
Porl
417
muß
mit
Port
3/6
Porl
418
muß
mit
Port
3/7
und
Computer
OV muß
mit
Port
3/8
verbunden
werden
Die Rechenzeit des Computers bei der
Er-
mittlung derZahl
r
ist
beträchtlich,
da
insbe-
sondere der
Algorithmus
zur
Berechnung
von
y
:
1/x
viele Millionen
Mal durchlaufen
werden
muß; zur
Berechnung
der
ersten vrer
Listing 60: Berechnung der Kreiszahl
n
Stellen hinter dem Komma benötigt
er
im-
merhin rund 240 Stunden
(10
Tage)
Aber
es
ist
wirklich erstaunlich,
daß
unser
Computer
auch derart
komplizierte
Rechengänge
durch geschickte
Programmierung
erledi-
gen
kann.
Wenn
Sie
nachvollziehen wollen,
wie
sich
der
Computer
nach und nach
derZahl
r
nä-
hert, können
Sie in
den Zellen
165
und
166
statt:
165
SPB
012
(A1)
166
HLT
auch:
165
HLT
166
SPU
012
(41)
11
012
01.000
01
000
09.012
eingeben. Dann
hält der
Computer vor je-
dem
neuen x an und Sie können
in
den
Zel-
len, die
f
ür
r
reservieft
sind,
nachsehen,
wel-
cher
Wert
rnzwischen
dort
gespeichert
ist
(Zellen 219tt
).
Das
Programm
kann
dann so-
fort
durch erneutes Drücken von
RUN
wei-
terlaufen.
Zugegeben:
Die Berechnung
von
.r
ist ganz
schön langwierig. Für
die
ganz
Ungeduldi-
gen geben wir deshalb hier noch
die
ersten
40 Stellen
an,
wie
sie ein
Großcomputer für
uns
berechnet
hat:
t :
3,141592653589793238
462643283279
5028841971
...
Adresse
Mnemonics
Code
Kommentar
001
AKO
001
04.001
lade
,,1
OO2
ABS
243
06.243
und speichere
als
Modus: addieren
003
AKO
007
(R0)
O4.OO7
lade
die
0
Rücksprunsadresse
004
ABS
000
06.000
und
speichere
sie in der Adreßzelle
005
LDA
248
05,248
lade die
Startadresse
von
:r
006
SPU 189
(Y1)
09.189
und sprinse
ins Lösch-Unterproqramm
OO7 R0:
AKO
01
1
(R
1
)
04.01
1
lade
die
1
Rücksprunqadresse
008
ABS
OOO
06.000
und speichere
sie
009
LDA
245
05.245
lade
die
Startadresse von
x
010
SPU 189
(Y1)
09.189
und
springe
ins
Lösch-Unterprogramm
01
1
R1:
LIA
249
19.249
lade indirekt die letzten x-Ziffe'n
Berechne das nächste
x:
012
41
:
ADD
251
07.251
addiere
dazu
,,1"
Werbung
Inhaltsverzeichnis
