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

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

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1054
Quelle: Johann Weilharter,
             Wirtschaftsrechnen
*****************************************

Gegeben sind:
a) Anschaffungswert,
b) Nutzungsdauer und
c) der aktuelle Buchwert.

Berechnung der Abschreibungsdauer bei der
linearen Abschreibung
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
A:read("Gib den Anschaffungswert ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
n:read("Gib die Nutzungsdauer in Jahren ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
B:read("Gib den Buchwert ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
g:B=A-A/n*x;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
xd:ev(x,l[1]),numer;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Abschreibungsdauer in Jahren =",xd);
/* [wxMaxima: input   end   ] */

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