8ec98c9f
 Guillaume
MAJ
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
<?php // content="text/plain; charset=utf-8"
require_once ('jpgraph/jpgraph.php');
require_once ('jpgraph/jpgraph_line.php');
require_once ('jpgraph/jpgraph_date.php');
require_once ('jpgraph/jpgraph_mgraph.php');
// Setup some fake data to simulate some wind speed and direction
DEFINE('NDATAPOINTS',420);
DEFINE('SAMPLERATE',300);
$start = time();
$end = $start+NDATAPOINTS*SAMPLERATE;
$data = array();
$xdata = array();
$data_winddirection[0] = rand(100,200);
$data_windspeed[0] = rand(7,10);
for( $i=0; $i < NDATAPOINTS-1; ++$i ) {
$data_winddirection[$i+1] = $data_winddirection[$i] + rand(-4,4);
if($data_winddirection[$i+1] < 0 || $data_winddirection[$i+1] > 359)
$data_winddirection[$i+1] = 0;
$data_windspeed[$i+1] = $data_windspeed[$i] + rand(-2,2);
if($data_windspeed[$i+1] < 0 )
$data_windspeed[$i+1] = 0;
$xdata[$i] = $start + $i * SAMPLERATE;
}
$xdata[$i] = $start + $i * SAMPLERATE;
// Setup the Wind direction graph
$graph = new Graph(300,800);
$graph->clearTheme();
$graph->SetMarginColor('lightgray:1.7');
$graph->SetScale('datlin',0,360);
$graph->Set90AndMargin(50,30,60,30);
$graph->SetFrame(true,'white',0);
$graph->SetBox();
$graph->title->Set('Wind direction');
$graph->title->SetFont(FF_ARIAL,FS_BOLD,14);
$graph->title->SetMargin(10);
$graph->xaxis->SetFont(FF_ARIAL,FS_NORMAL,9);
$graph->xaxis->scale->SetDateFormat('h:i');
$graph->xgrid->Show();
$graph->yaxis->SetLabelAngle(45);
$graph->yaxis->SetFont(FF_ARIAL,FS_NORMAL,9);
$graph->yaxis->SetLabelMargin(0);
$graph->yaxis->scale->SetAutoMin(0);
$line = new LinePlot($data_winddirection,$xdata);
$line->SetStepStyle();
$line->SetColor('blue');
$graph->Add($line);
// Setup the wind speed graph
$graph2 = new Graph(300,800);
$graph2->clearTheme();
$graph2->SetScale('datlin');
$graph2->Set90AndMargin(50,30,60,30);
$graph2->SetMarginColor('lightgray:1.7');
$graph2->SetFrame(true,'white',0);
$graph2->SetBox();
$graph2->title->Set('Windspeed');
$graph2->title->SetFont(FF_ARIAL,FS_BOLD,14);
$graph2->title->SetMargin(10);
$graph2->xaxis->SetFont(FF_ARIAL,FS_NORMAL,9);
$graph2->xaxis->scale->SetDateFormat('h:i');
$graph2->xgrid->Show();
$graph2->yaxis->SetLabelAngle(45);
$graph2->yaxis->SetFont(FF_ARIAL,FS_NORMAL,9);
$graph2->yaxis->SetLabelMargin(0);
$graph2->yaxis->scale->SetAutoMin(0);
$line2 = new LinePlot($data_windspeed,$xdata);
$line2->SetStepStyle();
$line2->SetColor('red');
$graph2->Add($line2);
//-----------------------
// Create a multigraph
//----------------------
$mgraph = new MGraph();
$mgraph->SetMargin(2,2,2,2);
$mgraph->SetFrame(true,'darkgray',2);
$mgraph->SetFillColor('lightgray');
$mgraph->Add($graph);
$mgraph->Add($graph2,300,0);
$mgraph->Stroke();
?>
|