Erweiterter Euklidischer Algorithmus

Prof. Dr. Dörte Haftendorn Okt 2014  www.mahematik-verstehen.de
http://www.mathematik-sehen-und-verstehen.de/02krypto.htm
http://www.mathematik-verstehen.de/krypto/krypto.htm

Manipulate[ExtendedGCD[a,b],
Style["Vielfachsummendarstellung VSD:  ggT(a,b)= s a + t b ",16],

{{a,20,"a"}},
{{b,7,"b"}},
Style["Das Ergebnis ist die Liste {ggT(a,b),{s,t}}:",16,Bold],

FrameLabel->{{None,"Info\nunten"},{"www.mathematik-sehen-und-verstehen.de","Erweiterter Euklidischer Algorithmus"}},
LabelStyle->Directive[RGBColor[0.7,0,0],Large]
]