/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/

/* [wxMaxima: title   start ]
Drehung eines Punktes
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Problembeschreibung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1079
Quelle: Johann Weilharter,
             Matrizen
******************************************

Ein gegebener Punkt soll um einen gegebenen Winkel gedreht werden.
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
EINGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
Punkt:read("Gib einen Punkt ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
winkel:read("Gib einen Winkel in Grad ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
winkel:winkel*%pi/180;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
A(%alpha):=matrix(
 [cos(%alpha),-sin(%alpha)], 
 [sin(%alpha),cos(%alpha)]
);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
drehung1:Punkt.A(winkel);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
drehung2:Punkt.A(-winkel);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print("Drehung um den Winkel gibt",drehung1)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Drehung in Gegenrichtung gibt",drehung2)$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$