[Sommaire] [Imprimer]

   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