HP 39g-Grafenberechner - Handbuch (Seite 157)

Exakte Berechnungen und Mathematik mit HP40G
Arithmetische Programme 157
PROMPT B:
RUN BEZOUR:
ERASE:
MSGBOX {U,V,D}:
ANMERKUNG: Wenn in den vorhergehenden Programmen die Funktion der
symbolischen Berechnung IREMAINDER anstatt von MOD und IQUOT(A,B)
anstatt von FLOOR(A/B) verwendet wird, können BEZOUT und BEZOUR als
Parameter ganze Gauß´ Zahlen haben, unter der Voraussetzung, daß die Namen
der Variablen A, B, R … durch die Namen Z1, Z2, Z3 … ersetzt werden.
ANMERKUNG: Wenn in den vorhergehenden Programmen die Funktion der
symbolischen Berechnung REMAINDER anstatt von MOD verwendet wird,
kann BEZOUT (oder BEZOUR) als Parameter Polynome haben, unter der
Voraussetzung, daß die Namen der Variablen A, B, R … durch die Namen E1,
E2, E3 … ersetzt werden und der Beendigungstest geändert wird.
8.3 Verteilung auf Primfaktoren
8.3.1 Algorithmen und deren Erläuterung
Erster Algorithmus
Sei N eine ganze Zahl.
Man testet für alle Zahlen D von 2 bis N, ob N teilbar durch D ist.
Wenn D N teilt, sucht man dann den Teiler für N/D usw …N/D vertretet die
Rolle von N und man stoppt, wenn N = 1.
Die Teiler, die man gefunden hat, gibt man in die Reihe FACT.
Funktion facprem(N)
lokal D FACT
2-
>D
{}-> FACT
solange N
¹ 1 durchführen
wenn N mod D = 0 so
FACT + D -
> FACT
N/D -
> N