HP 39g-Grafenberechner - Handbuch (Seite 153)

Exakte Berechnungen und Mathematik mit HP40G
Arithmetische Programme 153
ist sehr praktisch, weil die Rechner die Reihen mit gleichen Längen hinzufügen
können (es werden Elemente mit einem gleichen Vorzeichen (Wurzelexponent)
hinzugefügt und sie können die Reihe mit einer Zahl multiplizieren (sie
multiplizieren jedes Element aus der Reihe mit dieser Zahl).
Funktion Bezout (A,B) Bezouts Funktion
lokal LA LB LR
{1, 0, A}->LA
{0, 1, B}->LB
solange LB
[3] ¹ 0 durchführen
LA–LB*E(LA
[3] /LB[3])->LR
LB-
>LA
LR-
>LB
/solange/
Ergebnis LA
/Funktion/
8.2.2 Erläuterung HP40G
Iteration (nochmalige) Version mit Reihen
Hier wird das Programm IN benutzt, das den Zutritt von zwei gleichen Zahlen
A und B ermöglicht:
INPUT A
;"A";;;1:
INPUT B
;"B";;;1:
ERASE:
Dann schreibt man das Programm BEZOUT:
RUN IN:
DISP 3
;"BEZOUT"{A,B}:
{1, 0, A}->L1:
{0, 1, B}->L2:
WHILE L2(3)
¹ 0 REPEAT