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

/* [wxMaxima: title   start ]
Erwartungswert mit Skalarprodukt
von Vektoren berechnen
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1072
Quelle: Johann Weilharter,
             Stochastik
******************************************

An einer vielbefahrenen Kreuzung gibt es maximal 4
Verkehrsunfälle pro Woche. Ungefähr ein Jahr lang
werden die Verkehrsunfälle beobachtet.
   [wxMaxima: comment end   ] */

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

/* [wxMaxima: input   start ] */
load(vect)$
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: comment start ]
Anzahl der Verkehrsunfälle pro Woche
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
x:[0,1,2,3,4];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Absolute Häufigkeiten
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
h:read("Gib die zugehörigen Häufigkeiten ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: comment start ]
Summierender Vektor
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
s:[1,1,1,1,1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Summe der Häufigkeiten
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
N:h.s;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Relative Häufigkeiten
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
p:h/N;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Berechnung des Erwartungswerts
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
E:p.x;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
E:floor(E*1000+0.5)/1000.0;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Der Erwartungswert ist",E)$
/* [wxMaxima: input   end   ] */

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