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

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

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

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

Gegeben ist eine Liste mit den Umsätzen
eines Vertreters. Berechne die Umsatzsumme
und daraus die Provision für den Vertreter.
Über 100000 Umsatzsumme gibt es 5% Provision,
über 50000 Umsatzsumme gibt es 2% Provision.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
UL:read("Gib die Liste mit den Umsätzen eines Vertreters ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
n:length(UL);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
U:sum(UL[i],i,1,n);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if U > 100000
   then ev(P:U*0.05)
   else if U > 50000
              then ev(P:U*0.02)
              else ev(P:0);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Für eine Umsatzsumme von",U,"gibt es eine Provision von",P)$
/* [wxMaxima: input   end   ] */

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