<?
@extract($_GET);
@extract($_POST);
@extract($_COOKIE);
@extract($_SERVER);
@extract($_ENV);
include "GudGraf.php"; 
$xmax=600; 
$ymax=400;

// zvoleni grafickeho formatu podle nainstalovane knihovny v PHP
if (ImageTypes() & IMG_PNG) 
	$grafika=new GudGraf($xmax,$ymax,"png");
else
{
	if (ImageTypes() & IMG_JPG) 
		$grafika=new GudGraf($xmax,$ymax,"jpg");
	else
	{
		if (ImageTypes() & IMG_GIF) 
			$grafika=new GudGraf($xmax,$ymax,"gif");
	}
}

$m=0;
$t=fopen("TURNAJE.DAT","r");
while (!feof($t)) {
  $c="";
  fscanf($t,"%ld%ld%ld%ld*[^\n]", &$c,&$c1,&$c2,&$c3);
  $m=$c;
  $dd[$c]=$c3;
}
fclose($t);

$t=fopen("PKNSA.DAT","r");
$n=0;
while (!feof($t)) {
  $c="";
  fscanf($t,"%ld%ld%ld*[^\n]", &$c,&$c1,&$c2);
  if ($c==$Cislo) {
    $n++;
    $nsa[$n]=$c1;
    $rok[$n]=$dd[$c2];
  }
}
fclose($t);

if ($n>1) { 
$maxr=0;
$minr=3000;
$delta=100;
$ok=1;

while ($ok==1) {
  $max=0;
  $min=3000;
  for ($i=1;$i<=$n;$i++) {
    while ($max<$nsa[$i]) {$max=$max+$delta;}
    while ($min>$nsa[$i]) {$min=$min-$delta;}
    if ($maxr<$nsa[$i]) {$maxr=$nsa[$i];}
    if ($minr>$nsa[$i]) {$minr=$nsa[$i];}
  }
  $min=($min-1500)/$delta;
  $max=($max-1500)/$delta;
  if (($max-$min<4)&&($delta>25)) {$ok=1;$delta=$delta/2;} else {$ok=0;}
}

$grafika->Scale(-0.1*$n,$min-($max-$min)/10,$n+0.1*$n,$max+($max-$min)/10);

for ($k=$min;$k<=$max;$k++) {
  if ($k==0) {
    $grafika->PenColor(0,0,0);
  }
  else {
    $grafika->PenColor(255,0,0);
  }
  $grafika->Move(0,$k);
  $grafika->Plot($n,$k);

  $grafika->PenColor(0,0,0);
  $r=1500+$k*$delta; 
  $l=-0.04*$n-0.0125*$n*strlen($r); 
  $grafika->Move($l,$k);
  $grafika->OutString($r,2);
}

  $grafika->PenColor(0,0,0);

  $grafika->Move(0.1*$n,$max+0.05*($max-$min));
  $s="Soucasna sila : ".$nsa[$n]."  Interval sily : ".$minr;
  $s=$s."-".$maxr;
  $grafika->OutString($s,2);

  $k=0;
  for ($i=2;$i<=$n;$i++) {
    if ($rok[$i]>$rok[$i-1]) {
      $grafika->PenColor(255,0,0);
      $grafika->Move(($i-1-0.5)*$n/($n-1),$max);
      $grafika->Plot(($i-1-0.5)*$n/($n-1),$min);
      $grafika->Move((($i+$k)/2-1)*$n/($n-1),$min-0.05*($max-$min));
      $grafika->PenColor(0,0,0);
      $grafika->OutString($rok[$i-1],2);
      $k=$i-1;
    }
  }
  $grafika->PenColor(0,0,0);
  $grafika->Move((($n+$k)/2-0.5)*$n/($n-1),$min-0.05*($max-$min));
  $grafika->OutString($rok[$n],2);

  $grafika->PenColor(0,0,200);
  $grafika->Move(0,($nsa[1]-1500)/$delta);
  for ($i=2;$i<=$n;$i++) {
    $grafika->Plot(($i-1)*$n/($n-1),($nsa[$i]-1500)/$delta);
  }
$grafika->Paint();
}
?>