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

/* [wxMaxima: title   start ]
Darstellung von durch Parameterdarstellungen
gegebenen Kurven
   [wxMaxima: title   end   ] */

/* [wxMaxima: comment start ]
(A. Filler, Elementare Lineare Algebra, Kapitel 4)
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Ebene Kurven
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
Einzugeben ist die Parameterdarstellung x(t), y(t) einer ebenen Kurve bzw.
es ist die als Beispiel eingegebene Parameterdarstellung zu varieren.
Eventuell ist das Parameterintervall (t,0,5) zu verändern.
In Abhängigkeit von der Ausdehnung der Kurve müssen die Darstellungsintervalle
xrange = [-5,5], yrange = [0,5] verändert werden.
Die Angabe nticks=200 bewirkt, dass die Kurve in 200 Strecken unterteilt wird.
Wirkt die Kurve zu "eckig", so sollte dieser Wert vergrößert werden.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
load(draw)$
x(t):= 0.1*%e^t*cos(2*%pi*t)$ 
y(t):= 0.1*%e^t*sin(2*%pi*t)$ 
draw2d( user_preamble = ["set size ratio 1"], grid=true,
        xaxis=true, yaxis=true, 
        nticks=200,
        xrange = [-5,5], yrange = [-5,5],
        color = blue, line_width=2,
        parametric(x(t), y(t), t,0,5)
    )$
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: comment start ]
Einzugeben ist die Parameterdarstellung x(t), y(t), z(t) einer Raumkurve bzw.
es ist die als Beispiel eingegebene Parameterdarstellung zu varieren.
Eventuell ist das Parameterintervall (t,-2,2) zu verändern.
In Abhängigkeit von der Ausdehnung der Kurve müssen die Darstellungsintervalle
xrange = [-6,6], yrange = [-6,6], zrange = [-4,4] verändert werden.
Dabei ist darauf zu achten, dass eine etwa gleiche Achsenskalierung entsteht.
Dies gelingt meist mit xrange = yrange = ca. 1,5 * zrange.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
load(draw)$
x(t):= 2*t*cos(2*%pi*t)$ 
y(t):= 2*t*sin(2*%pi*t)$
z(t):= 2*t$
draw3d( user_preamble = ["set size ratio 1"], grid=true,
        xyplane=0, xaxis=true, yaxis=true, zaxis=true,
        nticks=200,
        xrange = [-6,6], yrange = [-6,6], zrange = [-4,4],
        color = blue, line_width=2, xu_grid = 100,
        parametric(x(t), y(t), z(t), t,-2,2)
    )$
/* [wxMaxima: input   end   ] */

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