HP 39g-Grafenberechner - Handbuch (Seite 155)

Exakte Berechnungen und Mathematik mit HP40G
Arithmetische Programme 155
Ergebnis {LT[2], LT[1]-LT[2]*Q, LT[3]}
wenn das Ergebnis nicht Résultat {1, 0, A} ist
fsi
funkce
8.2.4 Rekursive Versionen ohne Register
Wenn globale Variablen für A B D U V T verwendet werden, kann man
Bezouts Funktion als Kalkulator von A B verstehen, Werte, die sie in U V D
(AU+BV=D) mit Hilfe einer lokalen Variablen Q öffnet.
Man schreibt also:
Programme Bezour
local Q
Wenn B
  IROJHQGHQ 6FKULWW XQWHUQHKPHQ
E(A/B) ->Q
A–B*Q->T
B->A
T->B
Bezour
U–V*Q->T
V->U
T->V
wenn nicht
1->U
0->V
A->D
fsi
8.2.5 Interpretation HP40G
FREEZE: