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

/* [wxMaxima: title   start ]
Effektive Arbeitszeit
   [wxMaxima: title   end   ] */

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

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

Die tatsächliche tägliche Arbeitszeit je Arbeitnehmer, hier effektive
Arbeitszeit genannt, ist zu berechnen.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
beschaeftigte:read("Gib die Liste mit der Beschäftigtenzahl ein");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
N:length(beschaeftigte);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
durchschnitt:sum(beschaeftigte[i],i,1,N)/N;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
stundensumme:sum(stunden[i],i,1,N);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
effektive_Arbeitszeit:stundensumme/(N*durchschnitt);
/* [wxMaxima: input   end   ] */

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

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

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

/* [wxMaxima: input   start ] */
print("Die effektive Arbeitszeit ist",effektive_Arbeitszeit,"Stunden")$
/* [wxMaxima: input   end   ] */

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