# Schularbeitenergebnisse

## Problembeschreibung

******************************************
Dokumentnummer: D1272
******************************************

Aus einer externen Datei sind die Ergebnisse von vier
Schularbeiten einzulesen. Die Daten sind in Listen zu zerlegen,
um dann die Durchschnittsergebnisse jeder einzelnen der
vier Schularbeiten zu ermitteln.

## Problemlösung

=====================================================
Das Unterprogramm erleichert die Manipulation der externen Daten.
=====================================================

load(numericalio);

EINGABE (Einlesen)

ergebnis:read_list(file_search("namen5.csv"));

VERARBEITUNG

==============
Anzahl der Zeilen
==============

n:length(ergebnis);

=============================
Die Noten stehen in der ersten Spalte
=============================

note:makelist(ergebnis[i][1],i,2,n);

==============================================
Absolute Häufigkeiten der einzelnen Noten bei den einzelnen
Schularbeiten
==============================================

s1:makelist(ergebnis[i][2],i,2,n);

s2:makelist(ergebnis[i][3],i,2,n);

s3:makelist(ergebnis[i][4],i,2,n);

s4:makelist(ergebnis[i][5],i,2,n);

=====================================
Wie viele Schüler/innen haben mitgeschrieben?
=====================================

NS1:sum(s1[i],i,1,n-1);

NS2:sum(s2[i],i,1,n-1);

NS3:sum(s3[i],i,1,n-1);

NS4:sum(s4[i],i,1,n-1);

=========================================
Nun die relativen Häufigkeiten (Wahrscheinlichkeiten)
=========================================

pS1:s1/NS1;

pS2:s2/NS2;

pS3:s3/NS3;

pS4:s4/NS4;

===========================
Erwartungswert = Notendurchnitt
===========================

ES1:sum(note[i]*pS1[i],i,1,n-1);

ES2:sum(note[i]*pS2[i],i,1,n-1);

ES3:sum(note[i]*pS3[i],i,1,n-1);

ES4:sum(note[i]*pS4[i],i,1,n-1);

Notendurchschnitt:[ES1,ES2,ES3,ES4];

AUSGABE

print("Die Notendurchschnitte sind",Notendurchschnitt)$

%,numer;