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

/* [wxMaxima: title   start ]
Punktspiegelung
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1015
Quelle: Johann Weilharter,
             Analytische Geometrie 2
******************************************

Eine gegebener Punkt P soll entweder um die x- oder
y-Achse gespiegelt werden.
   [wxMaxima: comment end   ] */

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

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

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

/* [wxMaxima: input   start ] */
Achse:read("Um welche Achse soll gespiegelt werden? (x,y)");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
xP:P[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
yP:P[2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if Achse = x then ev(yP:yP*(-1));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if Achse = y then ev(xP:xP*(-1));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
PS:[xP,yP];
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Der gespiegelte Punkt ist",PS)$
/* [wxMaxima: input   end   ] */

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