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

/* [wxMaxima: title   start ]
Progressive Handelskalkulation
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Gokumentnummer: D1059
Quelle: Johann Weilharter,
             Wirtschaftsrechnen
******************************************

Ein Programm zur progressiven Handelskalkulation ist gesucht.
   [wxMaxima: comment end   ] */

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

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

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

/* [wxMaxima: input   start ] */
lrp:read("Gib den Lieferantenrabatt in % ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
lsp:read("Gib den Lieferantenskonto in % ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
bkp:read("Gib die Bezugskosten in % ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
rgp:read("Gib die Regien in % ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
gwp:read("Gib den Gewinn in % ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ksp:read("Gib den Kundenskonto in % ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
krp:read("Gib den Kundenrabatt in % ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
usp:read("Gib den Umsatzsteuerstatz in % ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
lrg:wwg*lrp/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
zeg:wwg-lrg;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
lsg:zeg*lsp/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
keg:zeg-lsg;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
bkg:keg*bkp/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
epg:keg+bkg;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
rgg:epg*rgp/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
skg:epg+rgg;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
gwg:skg*gwp/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
kvg:skg+gwg;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ksg:kvg*ksp/(100.0-ksp);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
zvg:kvg+ksg;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
krg:zvg*krp/(100.0-krp);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
lng:zvg+krg;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
usg:lng*usp/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
lbg:lng+usg;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
lbg:floor(lbg*100+0.5)/100.0;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Der Listenverkaufspreis brutto ist",lbg,"GE")$
/* [wxMaxima: input   end   ] */

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