Tabla de contenido
Publicidad
Calculo Simbólico y Matemático con la HP 40G
8.2.3
Version recursiva con Listas
Se puede definir de una manera recursiva la función de Bézout por:
Bezout(A,0) = {1, 0, A}
Si B
cuando
R = A – B
Q y Q = E(A/B).
´
Tenemos:
Bezout
con
por lo tanto:
×
W
B
X
De dónde sacamos B
Bezout(A, B) = {LT[2], LT[1] – LT[2]
funcion Bezout (A,B)
local LT Q R
Si B
E(A/B) ->Q
A-B*Q->R
Bezout(B,R)->LT
resultado {LT[2], LT[1]-LT[2]*Q, LT[3]}
si no resultado {1, 0, A}
fsi
funcion
148
{
=
=
(
B
,
R
)
LT
W
×
×
×
W
B
X
R
+
×
−
×
=
X
(
A
B
Q
)
mcd
×
+
−
×
×
A
(
W
X
Q
)
B
}
,
X
,
mcd
(
br
)
=
mcd
(
B
,
R
)
o también
(
B
,
R
)
=
mcd
(
A
,
B
)
Q, LT[3]}.
´
Programas de Aritmetica
Publicidad
Tabla de contenido
