<?php
echo ("<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">
<html>
<head>
    <title>Magisch Vierkant Generator</title>
    <link rel=\"icon\" type=\"image/png\" href=\"favicon.ico\">
    <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">
    <meta name=\"Generator\" content=\"compieter\">
    <meta name=\"Author\" content=\"compieter\">
    <meta name=\"Keywords\" content=\"magic square generator\>
    <meta name=\"Copyright\" content=\"&copy 2005 compieter\>
 
</head>
<body>
");
 
if ($_GET['N']) {
#if ($_GET['N'] != "") {
$N = $_GET['N'];
if ($_GET['startgetal']) {
	echo "$startgetal";
	$startgetal=$_GET['startgetal'];
} else {
	$startgetal=1;
}
#$DEBUG = "TRUE";
$DEBUG = "FALSE";
$N = round($N);
if ($N > 125) {
    echo "<p align='center'>zo'n grote waarde van N is een beetje overdreven, vind je ook niet?</p>";
    break;
}
 
#function informatie($N, $startgetal) {
	$magic_constant = ($N*(($N*$N)+1))/2+($N*($startgetal-1));
	echo "<center><h3>Informatie over het vierkant: </h3></center>\n";
	echo "<p align='center'>Dimensies: <strong>$N</strong>*<strong>$N</strong><br/>\n";
	echo "Magische constante (optelsom van elke regel/kolom/diagonaal): <strong>$magic_constant</strong><br/>\n";
	echo "Hoogste getal: <strong>" .($N*$N+$startgetal-1);
	echo "</strong>\n";
#}
 
if ($N % 2 == 0) {
    echo ("<p align='center'>$N is een even getal!</p>\n");
    $even = "TRUE";
    if ($N % 4 == 2){
#	echo ("<p align='center'>dit is een even vierkant dat we al kunnen genereren :)</p>");
	$vierdeorde = "TRUE";
    } else {
#	echo ("<p align='center'>dit vierkant is een veelvoud van vier.</p>"); // dat zien ze zelf ook wel..
	$vierdeorde = "FALSE"; // de naam voor deze variabele klopt eigenlijk niet, maar ik had
						   // geen zin meer om 't te veranderen.
    }
} elseif ($N % 2 == 1) {
    echo ("<p align='center'>$N is een oneven getal!</p>\n");
    $even = "FALSE";
} else {
    echo ("<p align='center'>ik weet niet precies wat je van plan was, maar met $N kan ik niets hoor</p>\n");
}
$kolom = $N;
$rij = $N;
for ($kolom=1; $kolom < $N+1; $kolom++) {
    for ($rij=1; $rij < $N+1; $rij++) {
        $square[$rij][$kolom] = 0;
    }
}
 
function wissel($oud_r,$oud_k,$nieuw_r,$nieuw_k){
    global $square;
    $tijdelijk1 = $square[$oud_r][$oud_k];
    $tijdelijk2 = $square[$nieuw_r][$nieuw_k];
//    echo "DEBUG_WISSEL: \$oud_r = <strong>$oud_r</strong> \$oud_k = <strong>$oud_k</strong> \$nieuw_r = <strong>$nieuw_r</strong> \$nieuw_k = <strong>$nieuw_k</strong> \$tijdelijk1 = <strong>$tijdelijk1</strong> \$tijdelijk2 = <strong>$tijdelijk2</strong><br>";#    echo "DEBUG: \$tijdelijk1 = $tijdelijk1<br>";
    $square[$nieuw_r][$nieuw_k] = $tijdelijk1;
    $square[$oud_r][$oud_k] = $tijdelijk2;
}
 
function oneven($N,$startpositierij,$startpositiekolom,$startgetal,$DEBUG){
    global $square, $b;
//    echo "$square $N $startpositierij $startpositiekolom $startgetal $DEBUG<br>\n";
 
#    $mid = ($kolom/2)+0.5;
 
    $kolom = $startpositierij;
    $rij = $startpositiekolom;
    $square[$rij][$kolom] = $startgetal;
    $i = $startgetal;
    while ($i < (($N*$N)+$startgetal-1)) {
	$kolommodified = "FALSE";
	$rijmodified = "FALSE";
	$i = $i+1;
	$last[1]=$kolom;
	$last[2]=$rij;
	if ($square[$rij+2][$kolom+1] == 0) { // hier zit nog een probleem <= wat als $kolom+1/$rij+2 buiten de array valt (=0!) 
	    // checken of we niet buiten ons vierkant treden
	    if ($DEBUG == "TRUE") {
    		echo "<br>DEBUG: [$i] Lege plek<br>\n";
	    }
 
	    if (($kolom+1) > $N) {
		if ($DEBUG == "TRUE") {
    		    echo ("<br>DEBUG: [$i] \$kolom: $kolom+1 was groter dan $N. dus $kolom-$N= " );
		    echo ($kolom+1-$N);
		}
		$kolom = $kolom + 1 - $N;
		$kolommodified = "TRUE";
	    } else {
		$kolom = $kolom + 1;
	    }
	    if (($rij+2) > $N) {
		if ($DEBUG == "TRUE") {
    		    echo ("<br>DEBUG: [$i] \$rij: $rij+2 was groter dan $N. dus $rij-$N= ");
		    echo ($rij + 2 - $N);
		}		
		$rij = $rij + 2 - $N;
		$rijmodified = "TRUE";
	    } else {
		$rij = $rij + 2;
	    }
    	    if ($square[$rij][$kolom] == '0') { // the holy grail?
 
#	    	echo "<br>DEBUG: \$last[1] = ".$last[1];
#	    	echo "<br>DEBUG: \$last[2] = ".$last[2];
		$square[$rij][$kolom] = $i;
    	    } else {
		$kolom = $last[1];
		$rij = $last[2]+1;
		$square[$rij][$kolom] = $i;
	    }    
 
	} else {
	    if ($DEBUG == "TRUE") {
		echo ("<br>DEBUG: [$i] we vonden geen lege shizzle: \$square[$rij][$kolom]= " .$square[$rij][$kolom]);
	    }
    	    $kolom = $last[1];
	    $rij = $last[2]+1;
	    if ($rij > $N) {
#    		echo ("<br>DEBUG: [$i] \$rij: $rij+2 was groter dan $N. dus $rij-$N= ");
		$rij = $rij - $N;
	    }
    	    if ($rij < 1) {
#    		echo ("<br>DEBUG: [$i] \$rij: $rij+2 was kleiner dan 1. dus $rij+$N= ");
		$rij = $rij + $N;
	    }
	    $square[$rij][$kolom] = $i;
	    } 
	if ($DEBUG == "TRUE") {
	    echo ("<br>DEBUG: [$i] \$square[$kolom][$rij]= " .$square[$rij][$kolom]);
	}
    }
    return $square;
}
 
function display_all($array,$N,$startgetal){
    global $square;
    $magic_constant = ($N*(($N*$N)+1))/2+($N*($startgetal-1));
#    echo $magic_constant;
    echo "<p align='center'>\n";
    echo "<table border='0'>\n";
	echo "<tr align='center'>\n";
 
	for ($i = 0; $i < $N+2; $i++) {
    	echo "\t<td align='center' width='50' height='50' bgcolor=\"green\"><strong>$magic_constant</strong></td>\n";
    }
	echo "</tr>\n";
    foreach($array as $spot){
	echo "<tr align='center'>\n";
	echo "\t<td width='50' height='50' bgcolor=\"green\"><strong>$magic_constant</strong></td>";
        foreach($spot as $spottwo){
    	    echo "\t<td width='50'  height='50'>".$spottwo;
	    echo ("</td>\n");
	}
	echo "\t<td width='50' height='50' bgcolor=\"green\"><strong>$magic_constant</strong></td>";
	echo "</tr>\n";
    }
	echo "<tr align='center'>\n";
    for ($i = 0; $i < $N+2; $i++) {
    	echo "\t<td align='center' width='50' height='50' bgcolor=\"green\"><strong>$magic_constant</strong></td>\n";
    }
    echo "</tr></table>\n";
}
 
//voor ONEVEN vierkanten
if ($even != "TRUE") {
    $startpositierij = ($N/2)+0.5;
    $startpositiekolom = 1;
    oneven($N,$startpositierij,$startpositiekolom,$startgetal,$DEBUG);
}
 
if ($vierdeorde == "TRUE") {
 
    $N_new = $N/2;
    $kleine_dimensies = $N/2;
    $startpositierij = ($kleine_dimensies/2)+0.5;
    $startpositiekolom = 1;
#    $startgetal = 1;
    oneven($kleine_dimensies,$startpositierij,$startpositiekolom,$startgetal,$DEBUG);
 
//voor vlak 'B'
    $kolom = 0;
    while ($kolom < $N_new) {
	$kolom++;
#	echo "DEBUG: \$kolom = $kolom<br>";
	$rij = 0;
	while ($rij < $N_new) {
	    $rij++;
#	    echo "DEBUG: \$rij = $rij<br>";
	    $square[$rij+$N_new][$kolom+$N_new] = $square[$rij][$kolom]+($N_new*$N_new);
	}
    }
 
//voor vlak 'C'
    $kolom = 0;
    $rij = 0;
    while ($kolom < $N_new) {
	$kolom++;
#	echo "DEBUG: \$kolom = $kolom<br>";
	$rij = 0;
	while ($rij < $N_new) {
	    $rij++;
#	    echo "DEBUG: \$rij = $rij<br>";
	    $square[$rij][$kolom+$N_new] = $square[$rij][$kolom]+(2*$N_new*$N_new);
	}
    }
 
//voor vlak 'D'
    $kolom = 0;
    $rij = 0;
    while ($kolom < $N_new) {
		$kolom++;
#		echo "DEBUG: \$kolom = $kolom<br>";
		$rij = 0;
		while ($rij < $N_new) {
	    	$rij++;
#	    	echo "DEBUG: \$rij = $rij<br>";
	    	$square[$rij+$N_new][$kolom] = $square[$rij][$kolom]+(3*$N_new*$N_new);
		}
    }
 
	$kolomlinks = floor($N/4);
    $kolomrechts = $kolomlinks-1;
//	echo "\$kolomlinks = $kolomlinks en \$kolomrechts = $kolomrechts<br>\n";
	for ($rij = 1; $rij < $N_new+1; $rij++){
		for ($kolom = $N-$kolomrechts+1; $kolom < $N+1; $kolom++){
			wissel($rij,$kolom,$rij+$N_new,$kolom);
		}
	}
 
//	echo "DEBUG: en nu beginnen we aan de linkerkant, \$kolomlinks = $kolomlinks<br>\n";
	for ($rij = 1; $rij < $N_new+1; $rij++){
 
		for ($kolom = 1; $kolom < $kolomlinks+1; $kolom++){
			if($rij == ($N_new/2+0.5)) {
				$kolomlinks++;
				$kolom++;
				$kolomincr=1;
			}
			wissel($rij,$kolom,$rij+$N_new,$kolom);
			if ($kolomincr == 1) {
				$kolom--;
				$kolomlinks--;
			}
		}
	}
 
}
 
if ($even == "TRUE" && $vierdeorde == "FALSE") {
	$i = $startgetal;
	//hier vullen we de array van 1 tot N*N, van linksboven tot rechtsonder
    for ($rij = 1; $rij < $N+1; $rij++) {
    	for ($kolom = 1; $kolom < $N+1; $kolom++, $i++) {
			$square[$rij][$kolom] = $i;
		}
	}
	$rij_oneven = array();
	$rij_even = array();	
 
//hier vullen we de kolommen die gewisseld moeten worden in voor oneven rijen
	for($i = 1; $i < $N+1; $i = $i+4) {
		array_push($rij_oneven, $i);
	}
	for($i = 4; $i < $N+1; $i = $i+4) {
		array_push($rij_oneven, $i);
	}
//hier vullen we de kolommen die gewisseld moeten worden in voor even rijen
	for($i = 2; $i < $N+1; $i = $i+4) {
		array_push($rij_even, $i);
	}
	for($i = 3; $i < $N+1; $i = $i+4) {
		array_push($rij_even, $i);
	}
 
	$rij = 0;
	$kolom = 0;
	sort($rij_oneven);
	sort($rij_even);
 
// $i < $N/4: we hebben N/2 kolommen die gewisseld worden. maar we gaan tot de helft,
// anders wisselen we alles gewoon weer terug. wat natuurlijk niet de bedoeling is.
	for($i = 0; $i < $N/4; $i++) { 
		$rij = $rij_oneven[$i];
		foreach($rij_oneven as $kolom) {
//			echo "DEBUG: \$rij = $rij en \$kolom = $kolom<br/>";
			wissel($rij,$kolom,$N+1-$rij,$N+1-$kolom);
		}
	}
 
// zelfde verhaal als hierboven
	for($i = 0; $i < $N/4; $i++) {
		$rij = $rij_even[$i];
		foreach($rij_even as $kolom) {
//			echo "DEBUG: \$rij = $rij en \$kolom = $kolom<br/>";
			wissel($rij,$kolom,$N+1-$rij,$N+1-$kolom);
		}
	}
}
 
 
display_all($square,$N,$startgetal);
} else {
	echo "<p align='center'>Je moet wel een waarde voor N opgeven</p>";
}
 
echo "<p align='center'>Ga <a href=\"generator.html\">terug</a> of lees de <a href=\"magicsource.html\">broncode</a>.</p>";
echo "<p align=\"right\"><a href=\"http://www.php.net\"><img border=\"0\" src=\"php-power-white.png\" alt=\"Powered by PHP\></a></p>
 
	<p align='right'><a href=\"http://validator.w3.org/check?uri=referer\"><img border=\"0\"
    src=\"http://www.w3.org/Icons/valid-html401\"
    alt=\"Valid HTML 4.01!\ height=\"31\" width=\"88\"></a>
    </p>";
echo ("</body>
</html>\n");
?>