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

/* [wxMaxima: title   start ]
Durchschnittlicher Fertigungslohn
   [wxMaxima: title   end   ] */

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

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

Gegeben ist eine Aufstellung von Fertigungslöhnen, die in
einer Produktion angefallen sind:
-----------------------------------------------------------
Stunden   |   Fertigungslohn in GE/Stunde
-----------------------------------------------------------
10             |    20
20             I    15
22             I      9
-----------------------------------------------------------      
Es ist ein Programm zu erstellen, welcher nach Eingabe
dieser Daten den durchschnittlichen Fertigungslohn
errechnet und ausgibt.

Daten sind nur beispielhaft
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
fl:read("Liste [Stunden,GE]");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
dfl:sum(fl[i][1]*fl[i][2],i,1,n)/sum(fl[i][1],i,1,n);
/* [wxMaxima: input   end   ] */

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

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

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

/* [wxMaxima: input   start ] */
print("Durchschnittlicher Fertigungslohn",dfl,"GE")$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: section start ]
Zusätzliche Erklärungen
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
Nummer 1 : Eingabe der gegebenen Daten in Form einer Liste
Nummer 2 : Länge der Liste bestimmen
Nummer 3 : Formel für den gewogenen Durchschnitt
Nummer 4 : den Bruch in eine Dezimalzahl verwandeln
Nummer 5 : kaufmännische Rundung auf 2 Dezimalstellen
Nummer 6 : das $ Zeichen unterdückt die Ausgabe mittels ECHO
   [wxMaxima: comment end   ] */

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