<?
require_once('phplib/phplib.php');
require_once('system.php');
require_once('db.php');
check_admin();
$db = mdb2_open($dsn);

$avg = mdb2_query($db, <<<EOQ
SELECT examen_id, subj_abbrev, AVG(se) se, AVG(ce) ce, (AVG(ce) - AVG(se)) diff FROM kandidaten
JOIN resultaat USING (kandidaat_id)
JOIN kldv.subj USING (subj_id)
LEFT JOIN tijdvakresultaat USING (resultaat_id)
LEFT JOIN noce USING (subj_id, examen_id)
WHERE noce_id IS NULL
GROUP BY examen_id, subj_abbrev
EOQ
);

$totalen = array();
$prognose = array();
while ($row = $avg->fetchRow(MDB2_FETCHMODE_ASSOC)) {
	if (!isset($totalen[$row['examen_id']])) $totalen[$row['examen_id']] = array( 'geslaagd' => 0, 'definitief afgewezen' => 0, 'her' => 0, 'incompleet' => 0);
	if (!isset($prognose[$row['examen_id']])) $prognose[$row['examen_id']] = array();
	$prognose[$row['examen_id']][$row['subj_abbrev']] = array('se' => $row['se'], 'ce' => $row['ce'], 'diff' => $row['diff']);
}

$lijst = mdb2_query($db, <<<EOQ
SELECT examen_id, ppl_login llnr,
	CONCAT(ppl_forename, ' ', IF(ppl_prefix != '', CONCAT(ppl_prefix, ' '), ''), ppl_surname) naam,
	grp_name klas, GROUP_CONCAT(CONCAT(subj_abbrev, ':', IFNULL(resultaat.se, '-'), '/', IFNULL(tv1.ce, '-'), '/', 
	IF(se IS NOT NULL AND ce IS NOT NULL, ROUND((se+ce)/2, 0), IF(se IS NOT NULL AND noce_id IS NOT NULL, ROUND(se, 0), '-'))) ORDER BY ord) cijfers, BIT_AND(IF(se IS NOT NULL AND ( ce IS NOT NULL OR noce_id IS NOT NULL), 1, 0)) complete, IFNULL(SUM(ce), 0.0) sumce, 5.5*SUM(IF(noce_id IS NULL, 1, 0)) countce, IFNULL(CONCAT('missing: ', GROUP_CONCAT(IF(se IS NOT NULL AND ( ce IS NOT NULL OR noce_id IS NOT NULL), NULL, subj_abbrev))), 'complete') inc

FROM kandidaten
JOIN kldv.ppl USING (ppl_id)
JOIN examen USING (examen_id)
JOIN (
	SELECT * FROM kldv.ppl2grp
	JOIN examen
	WHERE ppl_enter <= UNIX_TIMESTAMP(examen.timestamp)
	AND ppl_exit > UNIX_TIMESTAMP(examen.timestamp)
) AS ppl2grp_filtered USING (ppl_id, examen_id)
JOIN (
	SELECT * FROM kldv.grp
	WHERE grp_home = 1
) AS stamklassen USING (grp_id)
JOIN resultaat USING (kandidaat_id)
LEFT JOIN (
	SELECT * FROM tijdvakresultaat WHERE tijdvak = 1
) AS tv1 USING (resultaat_id)
JOIN kldv.subj USING (subj_id)
LEFT JOIN noce USING (examen_id, subj_id)
LEFT JOIN ordersubj USING (subj_id)
WHERE examen.year_id = 16
GROUP BY kandidaat_id
ORDER BY grp_name, ppl_surname, ppl_forename, ppl_prefix
EOQ
);

function analyseer($f) {
	$ret = array('aantal onvoldoendes' => 0,
		'aantal diepe onvoldoendes' => 0,
		'tekortpunten' => 0,
		'compensatiepunten' => 0
	);
	foreach ($f as $cijfer => $data) {
		if ($cijfer < 3.5) {
			$ret['aantal diepe onvoldoendes'] += $data['count'];
		}
		if ($cijfer < 5.5) {
			$ret['aantal onvoldoendes'] += $data['count'];
			$ret['tekortpunten'] += (6 - $cijfer)*$data['count'];
		} else {
			$ret['compensatiepunten'] += ($cijfer - 6)*$data['count'];
		}
	}
	return $ret;
}

function bereken_gm(&$vakken, $check) {
	foreach ($vakken as $vak => $cijfers) {
		if ($cijfers['se'] == '-' || $cijfers['gm'] == '-') continue;
		if ($cijfers['ce'] == '-') {
			$gm = round($cijfers['se'], 0);
		} else {
			$gm = round(($cijfers['se']+$cijfers['ce'])/2., 0);
		}
		if ($check) {
			if ($gm != $cijfers['gm']) {
				error_system("gemiddelde  $vak klopt niet");
			}
		}
		$vakken[$vak]['gm'] = $gm;
	}
}

function vul_eindcijfers_en_kernvakken(&$eindcijfers, &$kernvakken, &$sum2ce, &$countce, $vakken, $check = 0, $targetce = 0, $sumce = 0) {
	for ($i = 1; $i <= 10; $i++) {
		$eindcijfers[$i] = array('count' => 0, 'subjs' => array());
		$kernvakken[$i] = array('count' => 0, 'subjs' => array());
	}
	$countce = 0;
	$sum2ce = 0;

	foreach ($vakken as $vak => $data) {
		if ($data['ce'] != '-') {
			$countce += 1;
			$sum2ce += $data['ce'];
		}
		$eindcijfers[$data['gm']]['count']++;
		$eindcijfers[$data['gm']]['subjs'][] = $vak;
		if ($vak == 'netl' || $vak == 'wisA' || $vak == 'wisB' || $vak == 'wisC' || $vak == 'entl') {
			$kernvakken[$data['gm']]['count']++;
			$kernvakken[$data['gm']]['subjs'][] = $vak;
		}
	}

	if ($check) {
		if ($countce*5.5 != $targetce) error_system("aantal CE klopt niet");
		if (round($sumce, 1) != round($sum2ce, 1)) error_system("totaal CE klopt niet");
	}
}

function geslaagd($vakken) {
	bereken_gm($vakken, 0);

	$eindcijfers = array();
	$kernvakken = array();
	$sum2ce = 0;
	$countce = 0;

	vul_eindcijfers_en_kernvakken($eindcijfers, $kernvakken, $sum2ce, $countce, $vakken);
	$eind = analyseer($eindcijfers);
	$kern = analyseer($kernvakken);

	$gem = floor(10000*($sum2ce/$countce))/10000;

	if (round($sum2ce, 1) < round($countce*5.5, 1)) return 0;
	if ($kern['tekortpunten'] > 1) return 0;
	if ($eind['aantal diepe onvoldoendes'] > 0) return 0;
	if ($eind['aantal onvoldoendes'] > 2) return 0;
	if ($eind['tekortpunten'] > 3) return 0;
	if (($eind['tekortpunten'] == 2 || $eind['tekortpunten'] == 3) && $eind['compensatiepunten'] < $eind['tekortpunten']) return 0;

	return 1;
}

function show_vakken($vakken) { ?>
	<table><tr>
	<td></td><?
	foreach ($vakken as $vak => $data) {
		echo("<td>$vak</td>");
	}
	?></tr><tr>
	<td>SE</td><?
	foreach ($vakken as $vak => $data) {
		echo("<td>{$data['se']}</td>");
	}
	?></tr><tr>
	<td>CE</td><?
	foreach ($vakken as $vak => $data) {
		echo("<td>{$data['ce']}</td>");
	}
	?></tr><tr>
	<td>Eind</td><?
	foreach ($vakken as $vak => $data) {
		echo("<td>{$data['gm']}</td>");
	}
	?></tr></table><?
}

$hoogstekans = -10;
$laagstekans = 10;
html_start(); ?>
<!--<pre><? print_r($prognose); ?></pre>-->
<h3>Uitslagvergadering</h3>
We nemen aan de lo voldoende of goed is, dat re zonodig gemaakt is en dat de cijfers waaruit het combinatiecijfer is opgebouwd allemaal minstens een 4 zijn.

<? while (($row = $lijst->fetchRow(MDB2_FETCHMODE_ASSOC))) { ?>
<? 	$cijfers = explode(',', $row['cijfers']); ?>
<? 	$vakken = array(); ?>
<? 	foreach($cijfers as $elt) {
		$stuff = explode(':', $elt);
		if ($stuff[0] == 'lo') continue;
		if ($stuff[0] == 're') continue;
		$vakken[$stuff[0]] = array();
		$secegm = explode('/', $stuff[1]);
		$vakken[$stuff[0]]['se'] = $secegm[0]; 
		$vakken[$stuff[0]]['ce'] = $secegm[1]; 
		$vakken[$stuff[0]]['gm'] = $secegm[2]; 
	} 
	bereken_gm($vakken, 1);
	$sumce = $row['sumce'];
	$targetce = $row['countce'];

	?><p><h5><?=$row['llnr']?> <?=$row['naam']?> <?=$row['klas']?></h5>

<? show_vakken($vakken); 
if (count($vakken) < 8) { ?>
<p>dossier incompleet
<? 		$totalen[$row['examen_id']]['incompleet']++;
continue;

	}
 	if (!$row['complete']) { ?>
<p>dossier incompleet <?=$row['inc']?>.
<? 		$totalen[$row['examen_id']]['incompleet']++;
		continue; }

	$eindcijfers = array();
	$kernvakken = array();

	vul_eindcijfers_en_kernvakken($eindcijfers, $kernvakken, $sum2ce, $countce, $vakken, 1, $targetce, $sumce);
	$eind = analyseer($eindcijfers);
	$kern = analyseer($kernvakken);

	$gem = floor(10000*($sum2ce/$countce))/10000;
	$geslaagd = 1;

	?><p><table><tr><?
	echo("<td>Gemiddelde CE</td><td>$gem</td>");
	if (round($sumce, 1)< round($targetce, 1)) {
		echo('<td>'.($targetce - $sumce).' tekortpunt'.(($targetce - $sumce) == 1?'':'en').'</td>');
		$geslaagd = 0;
	} else echo('<td>OK</td>');
	?></tr><tr><?
	echo("<td>Kernvakkenregeling</td>");
	if ($kern['tekortpunten'] > 1) {
		$geslaagd = 0;
		echo("<td>meer dan 1 tekortpunt</td>");
	} else {
		echo('<td>OK</td>');
	}
	?></tr><tr><?
	echo("<td>Eindcijfers</td>");
	if ($eind['aantal diepe onvoldoendes'] > 0) {
		$geslaagd = 0;
		echo("<td>eindcijfer lager dan 4</td>");
	} else if ($eind['aantal onvoldoendes'] > 2) {
		$geslaagd = 0;
		echo("<td>te veel onvoldoendes ({$eind['aantal onvoldoendes']} stuks)</td>");
	} else if ($eind['tekortpunten'] > 3) {
		$geslaagd = 0;
		echo("<td>te veel terkortpunten ({$eind['tekortpunten']} stuks)</td>");
	} else if (($eind['tekortpunten'] == 2 || $eind['tekortpunten'] == 3) && $eind['compensatiepunten'] < $eind['tekortpunten']) {
		$geslaagd = 0;
		echo("<td>te weinig compensatie {$eind['compensatiepunten']}, benodigd {$eind['tekortpunten']}</td>");
	} else echo("<td>OK</td>");

	?></tr></table><?

	if ($geslaagd != geslaagd($vakken)) error_system("impossible");
	if ($geslaagd) {
		$totalen[$row['examen_id']]['geslaagd']++;
		echo("<p>Geslaagd");
		continue;
	}

	$slaagt = array();
	foreach ($vakken as $vak => $cijfers) {
		if ($cijfers['ce'] == '-') continue;
		$orig = $cijfers['ce'];
		for ($i = $orig + 0.1; $i <= 10; $i += .1) {
			$i = round($i, 1);
			$vakken[$vak]['ce'] = $i;
			//echo("<br>Probeer $i voor $vak");
			if (geslaagd($vakken)) {
				$slaagt[$vak] = $i;
				//echo("<p>Slaagt met $i voor $vak, dat is +".($i = $orig).".");
				break;
			}
		}
		$vakken[$vak]['ce'] = $orig;
	}
	if (count($slaagt) == 0) {
		$totalen[$row['examen_id']]['definitief afgewezen']++;
		echo("<p>Definitief afgewezen");
	} else {
		$totalen[$row['examen_id']]['her']++;
		echo("<p>Kan slagen met een herkansing");
		$kansrijk = -10;
		$extraslaaginfo[$row['llnr']] = array();
		?><ul><?
		foreach ($slaagt as $vak => $cijfer) {
			$extraslaaginfo[$row['llnr']][$vak] = array('new' => $cijfer, 'old' => $vakken[$vak]['ce'], 'prognose' => $prog);
			$prog = round($vakken[$vak]['se']+$prognose[$row['examen_id']][$vak]['diff'], 1);
			$diff = round($cijfer-$prog, 1);
			echo('<li>'.$cijfer.' voor '.$vak.' ('.($cijfer - $vakken[$vak]['ce']).' omhoog tov CE tv1, prognose '.$prog.' dus '.($diff >= 0?'+':'-').abs($diff).' tov prognose)</li>');
			$newkansrijk = (($cijfer - $vakken[$vak]['ce']) + $diff)/2;
			if ($newkansrijk > $kansrijk) $kansrijk = $newkansrijk;
		}
		if ($kansrijk < $laagstekans) $laagstekans = $kansrijk;
		if ($kansrijk > $hoogstekans) $hoogstekans = $kansrijk;
		$kansen[$row['llnr']] = $kansrijk;
		$lln[$row['llnr']] = $row['llnr'].' '.$row['naam'].' '.$row['klas'];
		$slaaginfo[$row['llnr']] = $slaagt;
		?></ul><?
	}
	
}
?><h3>Herkansers van kanrsijk naar kansarm</h3>

Kansrijkheid is het aantal punten dat omhoog moeten vanaf hun oude CE cijfer gemiddeld met het aantal punten dat ze omhoog moeten ten opzichte van hun progose (voorspeld CE cijfer op grond van het gemiddelde verschil tussen SE en CE an de groep en hun eigen SE cijfer). De kansrijkste leerling heeft relatieve kansrijkheid 1 en de minst kansrijke leerling heeft een relatieve kansrijkheid van 0.

<?
asort($kansen);
foreach ($kansen as $llnr => $kans) {
	$normeerdekans = round((-$kans + $hoogstekans)/($hoogstekans - $laagstekans), 4);
	echo("<br>".$lln[$llnr]);
	$first = 1;
	foreach ($slaaginfo[$llnr] as $vak => $target) {
		echo(($first == 1?':':',')." $vak $target");
		$first = 0;
	}
	echo(" (relatieve kansrijkheid $normeerdekans)");
}
?><pre><? print_r($totalen); ?></pre><?
html_end(); ?>