Beispiele von Notenskalen

Hier wird das folgende Notensystem verwendet:  

*  1 = nicht anwesend
*  4 = genügend
*  6 = ausgezeichnet
*  dazwischen linear

Manchmal werden die Noten dann auch in der "Bolognawertung A bis F" ausgedrückt.

A  Ungeknickt, linear von 1 bis 6, 6 für 45 Punkte

Programm mit Output

Remove["Global`*"];
f[x_] := Round[2 (x/9 + 1)]/2;
Table[{" | ", x // N, f[x] // N, " | ", (x // N) + 15.5, 
          f[x + 15.5] // N, " | ", (x // N) + 31, 
          f[x + 31] // N, " | "}, 
{x, 0, 15, 1/2}] // 
      TableForm

B  Geknickt, linear von 6 für k2 Punkte, für k1 Punkte

Porbierfeld

n[p_]:=p/22 5 +1;
k[p_]:=p/25*100 ;

Table[{p,k[p]},{p,6,25}]//N//MatrixForm;   (* ";" unterdrückt Output *)

n1[p_]:=(p-10)/14 2 +4;
Table[{p,n1[p]},{p,10,25}]//N//MatrixForm;   (* ";" unterdrückt Output *)

n2[p_]:=(p)/10 3 +1;
Table[{p,n2[p]},{p,0,10}]//N//MatrixForm;   (* ";" unterdrückt Output *)

Outputerzeugendes Programm, Beispiel 1

Remove["Global`*"];

(* k1 und k2 eingeben! *)   
k1=10; k2=24;

n1[p_]:=(p-k1)/(k2-k1) 2 +4;
n2[p_]:=(p)/k1 3 +1;
Table[{p,Round[100 Min[n1[p],n2[p]]]/100},{p,0,k2}]//N//TableForm

Outputerzeugendes Programm,Beispiel 2

Remove["Global`*"];

(* k1 und k2 eingeben! *)   
k1=12; k2=29;

n1[p_]:=(p-k1)/(k2-k1) 2 +4;
n2[p_]:=(p)/k1 3 +1;
Table[{p,Round[100 Min[n1[p],n2[p]]]/100},{p,0,k2}]//N//TableForm

C  Geknickt, linear von 6 für k2 Punkte, für k1 Punkte
     Angepasst an das Bologna-System: A, B, C, D, E, FX oder F

k1 = 10; 
    k2 = 24;

    bo[x_] := 
If[x ≥ 5.75, 
          u = "A", 
If[x ≥ 5.25, 
            u = "B", 
If[x ≥ 4.75, 
              u = "C", 
If[x ≥ 4.25, 
                u = "D", 
If[x ≥ 3.75, 
                  u = "E", 
If[x ≥ 3.0, 
                    u = "FX", "F"
]]]]]];

Outputerzeugendes Programm, Beispiel 1

Remove["Global`*"];

(* k1 und k2 eingeben! *)   
k1=10; k2=24;

bo[x_]:=
    If[x≥5.75,u="A",
      If[x≥5.25,u="B",
        If[x≥4.75,u="C",
          If[x≥4.25,u="D",
            If[x≥3.75,u="E",
              If[x≥3.0,u="FX","F"
                ]]]]]];
n1[p_]:=(p-k1)/(k2-k1) 2 +4;
n2[p_]:=(p)/k1 3 +1;
ro[p_]:=Round[100 Min[n1[p],n2[p]]]/100;
Table[{p,ro[p],bo[ro[p]]},{p,0,k2}]//N//TableForm

D  Geknickt, linear von 6 für 60 Punkte, 4 für Hälfte, mit Graphiken

Porbierfeld

\(\(\(\(\(dat = {66, 50, 49, 46, 44, 42, 39, 36, 34, 33, 32, 29, 22, 14, 
            14}\) \);\)\( (*";"\ unterdrückt\ Output*) \)\)\)

\(\(\(\(\(l = 
          Length[dat]\) \);\)\( (*";"\ unterdrückt\ Output*) \)\)\)

Plus[66, 50, 49, 46, 44, 42, 39, 36, 34, 33, 32, 29, 22, 14, 
              14]/l  // 
          N ;

ListPlot[dat, AxesOrigin -> {0, 0}, 
        Prolog -> 
          AbsolutePointSize[
            4]];  
Plot[{1 + 5/66  x, 1 + 5/60  x, 6 + 2/(66 - 33) (x - 66), 
          4 + 3/(33) (x - 33), 4, 6, 1}, {x, 0, 66}, 
        AxesOrigin -> {0, 0}];
Plot[{1 + 5/66  x, 1 + 5/60  x, 6 + 2/(66 - 33) (x - 66), 
          4 + 3/(33) (x - 33), 4, 6, 1}, {x, 0, 66}, 
        AxesOrigin -> {0, 0}];
Plot[{6 + 2/(60 - 30) (x - 60), 4 + 3/(30) (x - 30), 
          4, 6, 1}, {x, 0, 66}, 
        AxesOrigin -> {0, 0}];
Plot[{6 + 2/(63 - 31.5) (x - 63), 
          4 + 3/(31.5) (x - 31.5), 4, 6, 1}, {x, 0, 66}, 
        AxesOrigin -> {0, 0}];

Output mit obigen Vorbereitungsprogrammen

Remove["Global`*"];
Plot[{6 + 2/(63 - 31.5) (x - 63), 
          4 + 3/(31.5) (x - 31.5), 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5, 
          5.5, 6}, {x, 0, 66}, 
        AxesOrigin -> {0, 0}];
bo[x_] := 
If[x ≥ 5.75, 
          u = "A", 
If[x ≥ 5.25, 
            u = "B", 
If[x ≥ 4.75, 
              u = "C", 
If[x ≥ 4.25, 
                u = "D", 
If[x ≥ 3.75, 
                  u = "E", 
If[x ≥ 3.0, 
                    u = "FX", "F"
]]]]]];
t1 = 
        Table[{x, u = 4 + 3/(30) (x - 30), bo[u]}, {x, 0, 27}] // 
          N;
t2 = 
        Table[{x, u = 6 + 2/(60 - 30) (x - 60), bo[u]}, {x, 28, 66}] // 
          N;
Join[t1, t2] // TableForm