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

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

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

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

Gegeben ist eine Liste von Lieferungen mit Angabe von
Menge und Einzelpreis. Der Durchschnittspreis ist gesucht.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
lieferungen:read("Gib eine Liste aus Lieferungen (Menge,Einzelpreis) ein");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
durchschnittlicher_Einzelpreis:sum(lieferungen[k][1]*lieferungen[k][2],k,1,n)/
sum(lieferungen[k][1],k,1,n);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
durchschnittlicher_Einzelpreis:durchschnittlicher_Einzelpreis,numer;
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
print("Durchschnittspreis =",durchschnittlicher_Einzelpreis)$
/* [wxMaxima: input   end   ] */

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