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

/* [wxMaxima: title   start ]
Lineare Funktion, Bestimmung von k und d
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1024
Quelle: Johann Weilharter,
             Analytische Geometrie 2
******************************************
In einer Geradengleichung sind k und d aus y=k*x+d
zu bestimmen.

   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
gerade:read("Gib eine Gerade ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
l:solve(gerade,y);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
f:''rhs(l[1]);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
koeff:bothcoeff(f,x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
k:koeff[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
d:koeff[2];
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Die Steigung der Geraden ist",k)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Der Abschnitt auf der y-Achse ist",d)$
/* [wxMaxima: input   end   ] */

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