# Drehung eines Punktes

## Problembeschreibung

*******************************************
Dokumentnummer: D1563
*******************************************
Ein gegebener Punkt soll um einen gegebenen Winkel gedreht werden.

## Problemlösung

EINGABE

Punkt:read("Gib einen Punkt ein");

winkel:read("Gib einen Winkel in Grad ein");

VERARBEITUNG

winkel:winkel*%pi/180;

A(%alpha):=matrix(
 [cos(%alpha),-sin(%alpha)], 
 [sin(%alpha),cos(%alpha)]
);

drehung1:Punkt.A(winkel);

drehung2:Punkt.A(-winkel);

AUSGABE

print("Drehung um den Winkel gibt",drehung1)$

print("Drehung in Gegenrichtung gibt",drehung2)$