259 lines
7.5 KiB
PHP
259 lines
7.5 KiB
PHP
<?php // content="text/plain; charset=utf-8"
|
|
/**
|
|
* Class CCBPGraph
|
|
* Utility class to create Critical Chain Buffer penetration charts
|
|
*/
|
|
class CCBPGraph {
|
|
const TickStep = 25;
|
|
const YTitle = '% Buffer used';
|
|
const XTitle = '% CC Completed';
|
|
const NColorMaps = 2;
|
|
private $graph=null;
|
|
private $iWidth,$iHeight;
|
|
private $iPlots=array();
|
|
private $iXMin=-50, $iXMax = 100;
|
|
private $iYMin=-50, $iYMax = 150;
|
|
private $iColorInd = array(
|
|
array(5,75), /* Green */
|
|
array(25,85), /* Yellow */
|
|
array(50,100));/* Red */
|
|
private $iColorMap = 0;
|
|
private $iColorSpec = array(
|
|
array('darkgreen:1.0','yellow:1.4','red:0.8','darkred:0.85'),
|
|
array('#c6e9af','#ffeeaa','#ffaaaa','#de8787'));
|
|
private $iMarginColor = array('darkgreen@0.7','darkgreen@0.9');
|
|
private $iSubTitle='',$iTitle = 'CC Buffer penetration';
|
|
/**
|
|
* Construct a new instance of CCBPGraph
|
|
*
|
|
* @param int $aWidth
|
|
* @param int $aHeight
|
|
* @return CCBPGraph
|
|
*/
|
|
public function __construct($aWidth, $aHeight) {
|
|
$this->iWidth = $aWidth;
|
|
$this->iHeight = $aHeight;
|
|
}
|
|
/**
|
|
* Set the title and subtitle for the graph
|
|
*
|
|
* @param string $aTitle
|
|
* @param string $aSubTitle
|
|
*/
|
|
public function SetTitle($aTitle, $aSubTitle) {
|
|
$this->iTitle = $aTitle;
|
|
$this->iSubTitle = $aSubTitle;
|
|
}
|
|
/**
|
|
* Set the x-axis min and max values
|
|
*
|
|
* @param int $aMin
|
|
* @param int $aMax
|
|
*/
|
|
public function SetXMinMax($aMin, $aMax) {
|
|
$this->iXMin = floor($aMin/CCBPGraph::TickStep)*CCBPGraph::TickStep;
|
|
$this->iXMax = ceil($aMax/CCBPGraph::TickStep)*CCBPGraph::TickStep;
|
|
}
|
|
/**
|
|
* Specify what color map to use
|
|
*
|
|
* @param int $aMap
|
|
*/
|
|
public function SetColorMap($aMap) {
|
|
$this->iColorMap = $aMap % CCBPGraph::NColorMaps;
|
|
}
|
|
/**
|
|
* Set the y-axis min and max values
|
|
*
|
|
* @param int $aMin
|
|
* @param int $aMax
|
|
*/
|
|
public function SetYMinMax($aMin,$aMax) {
|
|
$this->iYMin = floor($aMin/CCBPGraph::TickStep)*CCBPGraph::TickStep;
|
|
$this->iYMax = ceil($aMax/CCBPGraph::TickStep)*CCBPGraph::TickStep;
|
|
}
|
|
/**
|
|
* Set the specification of the color backgrounds and also the
|
|
* optional exact colors to be used
|
|
*
|
|
* @param mixed $aSpec An array of 3 1x2 arrays. Each array specify the
|
|
* color indication value at x=0 and x=max x in order to determine the slope
|
|
* @param mixed $aColors An array with four elements specifying the colors
|
|
* of each color indicator
|
|
*/
|
|
public function SetColorIndication(array $aSpec,array $aColors=null) {
|
|
if( count($aSpec) !== 3 ) {
|
|
JpgraphError::Raise('Specification of scale values for background indicators must be an array with three elements.');
|
|
}
|
|
$this->iColorInd = $aSpec;
|
|
if( $aColors !== null ) {
|
|
if( is_array($aColors) && count($aColors) == 4 ) {
|
|
$this->iColorSpec = $aColors;
|
|
}
|
|
else {
|
|
JpGraphError::Raise('Color specification for background indication must have four colors.');
|
|
}
|
|
}
|
|
}
|
|
/**
|
|
* Construct the graph
|
|
*
|
|
*/
|
|
private function Init() {
|
|
|
|
// Setup limits for color indications
|
|
$lowx = $this->iXMin; $highx= $this->iXMax;
|
|
$lowy = $this->iYMin; $highy = $this->iYMax;
|
|
$width=$this->iWidth; $height=$this->iHeight;
|
|
|
|
// Margins
|
|
$lm=50; $rm=40;
|
|
$tm=60; $bm=40;
|
|
|
|
if( $width <= 300 || $height <= 250 ) {
|
|
$labelsize = 8;
|
|
$lm=25; $rm=25;
|
|
$tm=45; $bm=25;
|
|
}
|
|
elseif( $width <= 450 || $height <= 300 ) {
|
|
$labelsize = 8;
|
|
$lm=30; $rm=30;
|
|
$tm=50; $bm=30;
|
|
}
|
|
elseif( $width <= 600 || $height <= 400 ) {
|
|
$labelsize = 9;
|
|
}
|
|
else {
|
|
$labelsize = 11;
|
|
}
|
|
|
|
if( $this->iSubTitle == '' ) {
|
|
$tm -= $labelsize+4;
|
|
}
|
|
|
|
$graph = new Graph($width,$height);
|
|
$graph->clearTheme();
|
|
$graph->SetScale('intint',$lowy,$highy,$lowx,$highx);
|
|
$graph->SetMargin($lm,$rm,$tm,$bm);
|
|
$graph->SetMarginColor($this->iMarginColor[$this->iColorMap]);
|
|
$graph->SetClipping();
|
|
|
|
$graph->title->Set($this->iTitle);
|
|
$graph->subtitle->Set($this->iSubTitle);
|
|
|
|
$graph->title->SetFont(FF_ARIAL,FS_BOLD,$labelsize+4);
|
|
$graph->subtitle->SetFont(FF_ARIAL,FS_BOLD,$labelsize+1);
|
|
|
|
$graph->SetBox(true,'black@0.3');
|
|
|
|
$graph->xaxis->SetFont(FF_ARIAL,FS_BOLD,$labelsize);
|
|
$graph->yaxis->SetFont(FF_ARIAL,FS_BOLD,$labelsize);
|
|
|
|
$graph->xaxis->scale->ticks->Set(CCBPGraph::TickStep,CCBPGraph::TickStep);
|
|
$graph->yaxis->scale->ticks->Set(CCBPGraph::TickStep,CCBPGraph::TickStep);
|
|
|
|
$graph->xaxis->HideZeroLabel();
|
|
$graph->yaxis->HideZeroLabel();
|
|
|
|
$graph->xaxis->SetLabelFormatString('%d%%');
|
|
$graph->yaxis->SetLabelFormatString('%d%%');
|
|
|
|
// For the x-axis we adjust the color so labels on the left of the Y-axis are in black
|
|
$n1 = floor(abs($this->iXMin/25))+1;
|
|
$n2 = floor($this->iXMax/25);
|
|
if( $this->iColorMap == 0 ) {
|
|
$xlcolors=array();
|
|
for( $i = 0; $i < $n1; ++$i ) {
|
|
$xlcolors[$i] = 'black';
|
|
}
|
|
for( $i = 0; $i < $n2; ++$i ) {
|
|
$xlcolors[$n1+$i] = 'lightgray:1.5';
|
|
}
|
|
$graph->xaxis->SetColor('gray',$xlcolors);
|
|
$graph->yaxis->SetColor('gray','lightgray:1.5');
|
|
}
|
|
else {
|
|
$graph->xaxis->SetColor('darkgray','darkgray:0.8');
|
|
$graph->yaxis->SetColor('darkgray','darkgray:0.8');
|
|
}
|
|
$graph->SetGridDepth(DEPTH_FRONT);
|
|
$graph->ygrid->SetColor('gray@0.6');
|
|
$graph->ygrid->SetLineStyle('dotted');
|
|
|
|
$graph->ygrid->Show();
|
|
|
|
$graph->xaxis->SetWeight(1);
|
|
$graph->yaxis->SetWeight(1);
|
|
|
|
$ytitle = new Text(CCBPGraph::YTitle,floor($lm*.75),($height-$tm-$bm)/2+$tm);
|
|
#$ytitle->SetFont(FF_VERA,FS_BOLD,$labelsize+1);
|
|
$ytitle->SetAlign('right','center');
|
|
$ytitle->SetAngle(90);
|
|
$graph->Add($ytitle);
|
|
|
|
$xtitle = new Text(CCBPGraph::XTitle,($width-$lm-$rm)/2+$lm,$height - 10);
|
|
#$xtitle->SetFont(FF_VERA,FS_BOLD,$labelsize);
|
|
$xtitle->SetAlign('center','bottom');
|
|
$graph->Add($xtitle);
|
|
|
|
$df = 'D j:S M, Y';
|
|
if( $width < 400 ) {
|
|
$df = 'D j:S M';
|
|
}
|
|
|
|
$time = new Text(date($df),$width-10,$height-10);
|
|
$time->SetAlign('right','bottom');
|
|
#$time->SetFont(FF_VERA,FS_NORMAL,$labelsize-1);
|
|
$time->SetColor('darkgray');
|
|
$graph->Add($time);
|
|
|
|
// Use an accumulated fille line graph to create the colored bands
|
|
|
|
$n = 3;
|
|
for( $i=0; $i < $n; ++$i ) {
|
|
$b = $this->iColorInd[$i][0];
|
|
$k = ($this->iColorInd[$i][1] - $this->iColorInd[$i][0])/$this->iXMax;
|
|
$colarea[$i] = array( array($lowx,$lowx*$k+$b), array($highx,$highx*$k+$b) );
|
|
}
|
|
$colarea[3] = array( array($lowx,$highy), array($highx,$highy) );
|
|
|
|
|
|
$cb = array();
|
|
for( $i=0; $i < 4; ++$i ) {
|
|
$cb[$i] = new LinePlot(array($colarea[$i][0][1],$colarea[$i][1][1]),
|
|
array($colarea[$i][0][0],$colarea[$i][1][0]));
|
|
$cb[$i]->SetFillColor($this->iColorSpec[$this->iColorMap][$i]);
|
|
$cb[$i]->SetFillFromYMin();
|
|
}
|
|
|
|
$graph->Add(array_slice(array_reverse($cb),0,4));
|
|
$this->graph = $graph;
|
|
}
|
|
/**
|
|
* Add a line or scatter plot to the graph
|
|
*
|
|
* @param mixed $aPlots
|
|
*/
|
|
public function Add($aPlots) {
|
|
if( is_array($aPlots) ) {
|
|
$this->iPlots = array_merge($this->iPlots,$aPlots);
|
|
}
|
|
else {
|
|
$this->iPlots[] = $aPlots;
|
|
}
|
|
}
|
|
/**
|
|
* Stroke the graph back to the client or to a file
|
|
*
|
|
* @param mixed $aFile
|
|
*/
|
|
public function Stroke($aFile='') {
|
|
$this->Init();
|
|
if( count($this->iPlots) > 0 ) {
|
|
$this->graph->Add($this->iPlots);
|
|
}
|
|
$this->graph->Stroke($aFile);
|
|
}
|
|
}
|
|
?>
|