Subversion Repositories Sites.obs-saisons.fr

Compare Revisions

Problem with comparison.

Ignore whitespace Rev HEAD → Rev 1

/obs_saisons/SPIP-v1-8-3/modules/graphiques/gen_graph.php
New file
0,0 → 1,90
<?
$jpgraph = "../bibliotheque/jpgraph";
include ("$jpgraph/jpgraph.php");
include ("$jpgraph/jpgraph_line.php");
 
include ("../connect.php");
 
$evenement_id = $_GET['ev'];
$commune_id = $_GET['com'];
$espece_id=$_GET['esp'];
 
$req_dates = mysql_query("SELECT DATE_FORMAT(MESURE_DATE,'%j'), DATE_FORMAT(MESURE_DATE,'%Y') as ANNEE FROM MESURE,SEQUENCE".
" where SEQUENCE.SEQUENCE_ID=MESURE.SEQUENCE_ID and".
" EVENEMENT_ID=$evenement_id and ESPECE_ID=$espece_id".
" AND MESURE_DATE!='0000-00-00'".
" and STATION_ID=$commune_id".
" order by ANNEE");
$dates = array();
$lastannee = 0;
$nbdates = 1;
while ($obs = mysql_fetch_row($req_dates)) {
$jourjulien_crt = $obs[0];
$annee_crt = $obs[1];
if ($obs[1]!=$lastannee) {
//on calcule la moyenne pour l'année précédente :
if ($lastannee != 0)
$dates[$lastannee] = $dates[$lastannee]/$nbdates;
//on initialise les variables pour la nouvelle commune
$nbdates = 1;
$lastannee=$obs[1];
$dates[$lastannee] = $jourjulien_crt;
} else {
$nbdates++;
$dates[$lastannee] += $jourjulien_crt;
}
}
$dates[$lastannee] = $dates[$lastannee]/$nbdates;
 
if (sizeof($dates)>0) {
$dateMin = min ($dates);
$dateMax = max ($dates);
$nbDates = sizeof ($dates);
}
else {
$erreurs[] = "Il n'y a pas encore de données cette année pour cette observation.";
}
 
$jours = array();
$annees = array();
 
foreach ($dates as $annee => $date) {
$annees[] = "$annee";
$jours[] = $date - $dateMin;
}
 
$dateMin = cal_from_jd($dateMin, CAL_GREGORIAN);
 
// Create the graph. These two calls are always required
$graph = new Graph();//600, 800,"auto");
$graph->SetScale( "intint");
 
 
//$annees = array('2000','2005','2010');
$graph->xaxis->SetTickLabels($annees);
//$graph->yaxis->SetTickLabels($tickLabels);
 
// Create the linear plot
$lineplot =new LinePlot($jours);
$lineplot ->SetColor("darkgreen");
 
// Add the plot to the graph
$graph->Add( $lineplot);
 
//Un peu de forme
$graph->SetBackgroundGradient('#ffcc55','#ffeb55',3,BGRAD_FRAME);
$graph->title->Set("Dates moyennes d'observation");
$graph->img->SetMargin(60,20,20,40);
$graph->xaxis->title->Set("Année");
$graph->yaxis->title->Set("Jours partir du ".$dateMin['day']."/".$dateMin['month']);
$graph->title->SetFont(FF_FONT1,FS_BOLD);
$graph->yaxis->title->SetFont(FF_FONT1,FS_BOLD);
$graph->xaxis->title->SetFont(FF_FONT1,FS_BOLD);
$lineplot->mark->SetType(MARK_SQUARE);
 
// Display the graph
$graph->Stroke();
 
?>