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

/* [wxMaxima: title   start ]
Tangente in einem Punkt
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1083
Quelle: Johann Weilharter,
             Analysis
******************************************

An eine gegebene Funktion ist in einem gegebenen Punkt
eine Tangente zu legen und das ganze ist dann grafisch
darzustellen.
   [wxMaxima: comment end   ] */

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

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

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

/* [wxMaxima: input   start ] */
x0:read("Gib die x-Koordinate eines Punktes ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
y0:f(x0);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ab:diff(f(x),x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
k:ab,x=x0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g(x,y):=y=k*x+d;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g:g(x0,y0);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l:solve(g,d);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
abschnitt:d,l[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
steigung:k;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y(x):=steigung*x+abschnitt;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Tangente y =",y(x));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([f(x),y(x)], [x,x0-5,x0+5], [gnuplot_preamble, "set size ratio 1; set zeroaxis;"])$
/* [wxMaxima: input   end   ] */

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