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

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

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1075
Quelle: Johann Weilharter
******************************************

Die Achseneinteilung im Koordinatensystem soll
eigegeben werden können.
   [wxMaxima: comment end   ] */

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

/* [wxMaxima: input   start ] */
load(draw);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
DX:xrange=read("Gib den Bereich für x ein (als Liste)");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
DY:yrange=read("Gib den Bereich für y ein (als Liste)");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
f:read("Gib die Funktion f(x):= ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
a:rhs(DX)[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
b:rhs(DX)[2];
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
wxdraw2d(DX,DY,explicit(f(x),x,a,b))$
/* [wxMaxima: input   end   ] */

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