"> ">

Algebra Leitseite URL mathe.web-leuphana.de/algebra/algebra.htm

[Algebra] [lineare Algebra] [MuPAD] [GeoGebra] [ing-math]    © Prof. Dr. Dörte Haftendorn

Download des MuPAD-Notebooks     Save Link Taget As..., Verküpfung speichern unter... Affine Abbildungen
Prof. Dr. Dörte Haftendorn: Mathematik mit MuPAD 3.1.1, Okt. 05 Update 27.10.05
Web: haftendorn.uni-lueneburg.de"> haftendorn.uni-lueneburg.de/ing-math
Achtung: Menu ->Notebook->Evaluiere->Alle Eingaben
######################################################
Dieses Notebook eignet sich für viele Beispiele.
"Grün" muss angepasst werden. (3 Stellen)
######################################################
Abbildungsmatrix hier eintragen

• A := matrix([[3/2, 1/2], [1/2, 3/4]]);

Die Spalten sind Bilder von
Translationsvektor hier eintragen

• trans:=matrix([3,2]);

Definition eine Urbildes , hier eintragen

• myUr:=[[2,0],[2,1],[1,1],[1,3],[0,3],[0,0],[2,0],[1,1/2]]:
  myUrM:=linalg::transpose(matrix(myUr))

• npk:=nops(myUr):  //Anzahl der Punkte
  urbild:=plot::Polygon2d(myUr, 
  LineWidth=1, LineColor=RGB::Green, Scaling=Constrained): 
  e1s:=plot::Arrow2d([0,0],[A[1,1],A[2,1]]):
  e2s:=plot::Arrow2d([0,0],[A[1,2],A[2,2]],LineColor=RGB::Black):
  transl:=plot::Arrow2d([0,0],trans,LineColor=RGB::Magenta):
  plot(urbild,e1s,e2s,transl,GridVisible=TRUE, ViewingBox=[0..7,0..5])

Transponieren, damit die Spalten die Urbild-Punkte sind:

• myUrM:=linalg::transpose(matrix(myUr)) 

• t:=linalg::transpose(matrix([[trans[1],trans[2]] $ npk]))

• myBM:=A*myUrM +t   //die Bildpunkte

• myB:=[[myBM[1,j],myBM[2,j]] $ j=1..npk]:
  bild:=plot::Polygon2d(myB,
  LineWidth=1, LineColor=RGB::Red):
  plot(urbild,bild,e1s,e2s,transl,GridVisible=TRUE,
  ViewingBox=[0..7,0..5])

#######################################################
Ein Schmankerl, dieses Bild als Animation:

• tr:=r*linalg::transpose(matrix([[trans[1],trans[2]] $ npk]))

• myBMr:=A*myUrM +tr   //die Bildpunkte

• translat:=plot::Arrow2d([0,0],r*trans,r=0..1,LineColor=RGB::Magenta):

• myBr:=[[myBMr[1,j],myBMr[2,j]] $ j=1..npk]:
  bildr:=plot::Polygon2d(myBr,r=0..1,
  LineWidth=1, LineColor=RGB::Red, 
  AnimationStyle=BackAndForth):
  plot(urbild,bildr,e1s,e2s,translat,GridVisible=TRUE,
  ViewingBox=[0..7,0..5])

Achtung diese Graphik kann man animieren
Doppelklick im Bild, Player oben bedienen

´

[Algebra] [lineare Algebra] [MuPAD] [GeoGebra] [ing-math]

Inhalt und Webbetreuung ©Prof. Dr. Dörte Haftendorn  Apr. 2003, update 01. August 2023

[www.doerte-haftendorn.de] [mathe.web-leuphana.de]   [haftendorn.uni-lueneburg.de/ing-math]