/* SYNTAX-Sammlung für SE Leistungsbeurteilung & Diagnostik

COMPUTE Gesamtnote = MEAN(Mathe,Deutsch,Sport,Englisch,Physik,Chemie
 ,Geschichte,Musik,Kunst) .
EXECUTE .

COMPUTE M_PR_Fehler = (100 * Mathe_Fehler) / 60 .
EXECUTE .
COMPUTE M_PR_Menge = (100 * Mathe_N) / 30 .
EXECUTE .

FLIP
 VARIABLES=Mathe Deutsch Sport Englisch Physik Chemie Geschichte Musik
 Kunst  /NEWNAME=Name  .
 EXECUTE .

CREATE SpellingDif = DIFF(SPELLING, 1) .
CREATE PSpellingDif = DIFF(PSPELLIN, 1) .
CREATE ZSpellingDif = DIFF(ZSPELLING, 1) .
EXECUTE .

/* Hier folgen die Syntax_Schritte für die Leistungsbeurteilung

COMPUTE Mathe_Punkte = Mathe_N - Mathe_Fehler .
EXECUTE .
COMPUTE Kunst_Punkte = Kunst_N - Kunst_Fehler .
EXECUTE .
COMPUTE Deutsch_Punkte = Deutsch_N - Deutsch_Fehler .
EXECUTE .
COMPUTE Englisch_Punkte = Englisch_N - Englisch_Fehler .
EXECUTE .
COMPUTE Sport_Punkte = Sport_N - Sport_Fehler .
EXECUTE .
COMPUTE Physik_Punkte = Physik_N - Physik_Fehler .
EXECUTE .
COMPUTE Chemie_Punkte = Chemie_N - Chemie_Fehler .
EXECUTE .
COMPUTE Geschichte_Punkte = Geschichte_N - Geschichte_Fehler .
EXECUTE .
COMPUTE Musik_Punkte = Musik_N - Musik_Fehler .
EXECUTE .



COMPUTE Mathe_Punkte = Faktor *(Mathe_Punkte) .
COMPUTE Kunst_Punkte = Faktor *(Kunst_Punkte) .
COMPUTE Deutsch_Punkte = Faktor *(Deutsch_Punkte) .
COMPUTE Englisch_Punkte = Faktor *(Englisch_Punkte) .
COMPUTE Sport_Punkte = Faktor *(Sport_Punkte) .
COMPUTE Physik_Punkte = Faktor *(Physik_Punkte) .
COMPUTE Chemie_Punkte = Faktor *(Chemie_Punkte) .
COMPUTE Geschichte_Punkte = Faktor *(Geschichte_Punkte) .
COMPUTE Musik_Punkte = Faktor *(Musik_Punkte) .
EXECUTE .




RANK
 VARIABLES=Mathe_Punkte Kunst_Punkte Deutsch_Punkte Englisch_Punkte Sport_Punkte
 Physik_Punkte Chemie_Punkte Geschichte_Punkte Musik_Punkte (A) /PERCENT /PRINT=YES
 /TIES=MEAN .
EXECUTE .


RECODE
 PMathe_P PKunst_P PDeutsch PEnglisc PSport_P PPhysik_ PChemie_ PGeschic
 PMusik_P
 (0 thru 9=6)  (9.00001 thru 25=5)  (25.00001 thru 50=4)  (50.00001 thru
 75=3)  (75.0001 thru 91=2)  (91.0001 thru 100=1)  INTO  Mathe_Note
 Kunst_Note  Deutsch_Note  Englisch_Note  Sport_Note  Physik_Note
 Chemie_Note  Geschichts_Note  Musik_Note .
EXECUTE .

COMPUTE Gesamtnote = MEAN(Mathe_Note,Deutsch_Note,Sport_Note,Englisch_Note,
 Physik_Note,Chemie_Note ,Geschichts_Note, Musik_Note ,Kunst_Note ) .
EXECUTE .

/* Hier folgen die Syntax-Schritte für eine (einfache) Diagnostik


COMPUTE Ma_PR_Fehler = (100 * Mathe_Fehler) / Mathe_N .
EXECUTE .
COMPUTE Ma_PR_Menge = (100 * Mathe_N) / 30 .
EXECUTE . 

COMPUTE K_PR_Fehler = (100 * Kunst_Fehler) / Kunst_N .
EXECUTE .
COMPUTE K_PR_Menge = (100 * Kunst_N) / 30 .
EXECUTE . 

COMPUTE D_PR_Fehler = (100 * Deutsch_Fehler) / Deutsch_N .
EXECUTE .
COMPUTE D_PR_Menge = (100 * Deutsch_N) / 30 .
EXECUTE . 

COMPUTE E_PR_Fehler = (100 * Englisch_Fehler) / Englisch_N .
EXECUTE .
COMPUTE E_PR_Menge = (100 * Englisch_N) / 30 .
EXECUTE . 

COMPUTE S_PR_Fehler = (100 * Sport_Fehler) / Sport_N .
EXECUTE .
COMPUTE S_PR_Menge = (100 * Sport_N) / 30 .
EXECUTE . 

COMPUTE P_PR_Fehler = (100 * Physik_Fehler) / Physik_N .
EXECUTE .
COMPUTE P_PR_Menge = (100 * Physik_N) / 30 .
EXECUTE . 

COMPUTE C_PR_Fehler = (100 * Chemie_Fehler) / Chemie_N .
EXECUTE .
COMPUTE C_PR_Menge = (100 * Chemie_N) / 30 .
EXECUTE . 

COMPUTE G_PR_Fehler = (100 * Geschichte_Fehler) / Geschichte_N .
EXECUTE .
COMPUTE G_PR_Menge = (100 * Geschichte_N) / 30 .
EXECUTE . 

COMPUTE Mu_PR_Fehler = (100 * Musik_Fehler) / Musik_N .
EXECUTE .
COMPUTE Mu_PR_Menge = (100 * Musik_N) / 30 .
EXECUTE . 

FILTER OFF.
USE ALL.
COMPUTE filter_$=(Arbeit_Nr = 1).
VARIABLE LABEL filter_$ 'Arbeit_Nr = 1 (FILTER)'.
VALUE LABELS filter_$  0 'Nicht ausgewählt' 1 'Ausgewählt'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE .

GRAPH
 /SCATTERPLOT(BIVAR)=Ma_PR_Menge WITH Ma_PR_Fehler BY Name
 /MISSING=LISTWISE .
EXECUTE .

/* Alternative: Einzelbetrachtung

FILTER OFF.
USE ALL.
COMPUTE filter_$=(Name = "Melitta").
VARIABLE LABEL filter_$ 'Name = "Melitta" (FILTER)'.
VALUE LABELS filter_$  0 'Nicht ausgewählt' 1 'Ausgewählt'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE .

GRAPH
 /LINE(SIMPLE)=VALUE( Gesamtnote ) .
EXECUTE .

/* Oder auch für mehrere Fächer:

GRAPH
 /LINE(MULTIPLE)= VALUE( Mathe_Note Kunst_Note Deutsch_Note Englisch_Note
 Sport_Note Physik_Note Chemie_Note Geschichts_Note Musik_Note ) .
EXECUTE .


/* Notengebung über die Punkte

FILTER OFF.
USE ALL.
SELECT IF(Name = "Melitta").
EXECUTE .
FLIP
 VARIABLES=Mathe_Punkte Kunst_Punkte Deutsch_Punkte Englisch_Punkte
 Sport_Punkte Physik_Punkte Chemie_Punkte Geschichte_Punkte Musik_Punkte
 /NEWNAME=Arbeit_Nr  .

COMPUTE Gesamtpunkte = K_1 + K_2 + K_3 .
EXECUTE .

RECODE
 Gesamtpunkte
 (Lowest thru 18.9=6)  (18.9001 thru 52.5=5)  (52.5001 thru 105=4)
 (105.001 thru 157.5=3)  (157.5001 thru 191.1=2)  (191.1001 thru
 Highest=1)  INTO  Gesamtnote .
EXECUTE .


/* Notengebung über die Einzelnoten - Ist kritisch zu bewerten, da Mittelwerte über ordinalskalierte Werte berechnet werden!!!

FILTER OFF.
USE ALL.
SELECT IF(Name = "Melitta").
EXECUTE .

FLIP
 VARIABLES=Mathe_Note Kunst_Note Deutsch_Note Englisch_Note Sport_Note
 Physik_Note Chemie_Note Geschichts_Note Musik_Note 
 /NEWNAME=Arbeit_Nr  .
EXECUTE .

COMPUTE Gesamtnote = (K_1 + K_2 + K_3)/3  .
EXECUTE .