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

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

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

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

Gegeben sind Listen mit Kosten und Erlösen.
Der Gesamtgewinn ist zu bestimmen.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
kosten:read("Gib die Liste mit den Kosten ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
erloes:read("Gib die Liste mit den Erlösen ein");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
gewinn:makelist(erloes[i]-kosten[i],i,1,n);
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
print("Gesamtgewinn",gesamt)$
/* [wxMaxima: input   end   ] */

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