Subversion-Projekte lars-tiefland.php_share

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1
<?php
2
include ("../jpgraph.php");
3
include ("../jpgraph_line.php");
4
include ("../jpgraph_bar.php");
5
 
6
$month=array(
7
"Jan","Feb","Mar","Apr","Maj","Jun","Jul","Aug","Sep","Okt","Nov","Dec");
8
 
9
// Create datapoints where every point
10
$steps=100;
11
for($i=0; $i<$steps; ++$i) {
12
	$datay[$i]=log(pow($i,$i/10)+1)*sin($i/15)+35;
13
	$databarx[]=sprintf("198%d %s",floor($i/12),$month[$i%12]);
14
 
15
	// Simulate an accumulated value for every 5:th data point
16
	if( $i % 6 == 0 ) {
17
		$databary[]=abs(25*sin($i)+5);
18
	}
19
	else {
20
		$databary[]=0;
21
	}
22
 
23
}
24
 
25
 
26
// New graph with a background image and drop shadow
27
$graph = new Graph(450,300,"auto");
28
$graph->SetBackgroundImage("tiger_bkg.png",BGIMG_FILLFRAME);
29
$graph->SetShadow();
30
 
31
// Use an integer X-scale
32
$graph->SetScale("textlin");
33
 
34
// Set title and subtitle
35
$graph->title->Set("Combined bar and line plot");
36
$graph->subtitle->Set("100 data points, X-Scale: 'text'");
37
 
38
// Use built in font
39
$graph->title->SetFont(FF_FONT1,FS_BOLD);
40
 
41
// Make the margin around the plot a little bit bigger
42
// then default
43
$graph->img->SetMargin(40,140,40,80);
44
 
45
// Slightly adjust the legend from it's default position in the
46
// top right corner to middle right side
47
$graph->legend->Pos(0.05,0.5,"right","center");
48
 
49
// Display every 10:th datalabel
50
$graph->xaxis->SetTextTickInterval(6);
51
$graph->xaxis->SetTextLabelInterval(2);
52
$graph->xaxis->SetTickLabels($databarx);
53
$graph->xaxis->SetLabelAngle(90);
54
 
55
// Create a red line plot
56
$p1 = new LinePlot($datay);
57
$p1->SetColor("red");
58
$p1->SetLegend("Pressure");
59
 
60
// Create the bar plot
61
$b1 = new BarPlot($databary);
62
$b1->SetLegend("Temperature");
63
$b1->SetAbsWidth(6);
64
$b1->SetShadow();
65
 
66
// The order the plots are added determines who's ontop
67
$graph->Add($p1);
68
$graph->Add($b1);
69
 
70
// Finally output the  image
71
$graph->Stroke();
72
 
73
?>
74
 
75