HP 39g-Grafenberechner - Handbuch (Seite 154)

Exakte Berechnungen und Mathematik mit HP40G
154 Arithmetische Programme
L1–L2*FLOOR(L1(3)/L2(3)) -
>L3:
L2-
>L1:
L3-
>L2:
END:
DISP 4
;"U V NSD "L1:
FREEZE:
8.2.3 Rekursive Versionen mit Hilfe von
Registern
Bezouts Funktion kann rekursiv mit Hilfe von Folgendem definiert werden:
Bezout(A,0) = {1, 0, A}
Wenn B
  LVW HV Q|WLJ Bezout(A, B) als Funktion Bezout(B, R) zu definieren
wenn
R = A – B
´ Q und Q = E(A/B).
Man hat also:
{ }
) gcd( , , ) , ( Bezout br p X W LT R B
= =
mit ) , gcd( R B p R X B W
= Ч Ч Ч
Also:
) , gcd( ) ( R B p Q B A X B W
= Ч − Ч + Ч
oder auch
) , gcd( ) ( B A p B Q X W A X
= Ч Ч − + Ч
Wenn B
  XQG ZHQQ Bezout(B, R) = LT, bekommt man das Ergebnis:
Bezout(A, B) = {LT[2], LT[1] – LT[2] x Q, LT[3]}.
Bezouts Funktion (A,B)
local LT Q R
Wenn B
  IROJHQGHQ 6FKULWW XQWHUQHKPHQ
E(A/B) ->Q
A– B*Q->R
Bezout(B,R)->LT