function createSpline($ydata = "")
{
$xdata = array(2, 4, 6, 8, 10, 12, 14, 16);
if (!$ydata) {
$ydata = array(5, 1, 9, 6, 4, 3, 4, 2);
}
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata, $ydata);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx, $newy) = $spline->Get(50);
// Create the graph
$g = new Graph(380, 300);
$g->SetMargin(30, 20, 40, 30);
//$g->title->Set("Natural cubic splines");
//$g->title->SetFont(FF_ARIAL,FS_NORMAL,12);
//$g->subtitle->Set('(Control points shown in red)');
//$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightblue');
//$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('linlin');
$xlable = array('', 'AA', 'AA', 'AB', 'AB', 'BB', 'BB', 'BC', 'BC', 'CC', 'CC', 'CD', 'CD', 'DD', 'DD', 'FF', 'FF', '');
// We want 1 decimal for the X-label
//$g -> xaxis -> SetLabelFormat('%d');
$g->xaxis->SetTickLabels($xlable);
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata, $xdata);
//
$splot->mark->SetFillColor('red@0.3');
$splot->mark->SetColor('red@0.5');
// And a line plot to stroke the smooth curve we got
// from the original control points
$lplot = new LinePlot($newy, $newx);
$lplot->SetColor('navy');
// Add the plots to the graph and stroke
$g->Add($lplot);
$g->Add($splot);
$g->Stroke();
}
<?php
// content="text/plain; charset=utf-8"
require_once 'jpgraph/jpgraph.php';
require_once 'jpgraph/jpgraph_line.php';
require_once 'jpgraph/jpgraph_scatter.php';
require_once 'jpgraph/jpgraph_regstat.php';
// Original data points
$xdata = array(1, 3, 5, 7, 9, 12, 15, 17.1);
$ydata = array(5, 1, 9, 6, 4, 3, 19, 12);
// Get the interpolated values by creating
// a new Spline object.
$spline = new Spline($xdata, $ydata);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx, $newy) = $spline->Get(50);
// Create the graph
$g = new Graph(300, 200);
$g->SetMargin(30, 20, 40, 30);
$g->title->Set("Natural cubic splines");
$g->title->SetFont(FF_ARIAL, FS_NORMAL, 12);
$g->subtitle->Set('(Control points shown in red)');
$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightblue');
//$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('linlin');
// We want 1 decimal for the X-label
$g->xaxis->SetLabelFormat('%1.1f');
// We use a scatterplot to illustrate the original
private function _renderPlotScatter($groupID, $bubble)
{
$grouping = $this->_chart->getPlotArea()->getPlotGroupByIndex($groupID)->getPlotGrouping();
$scatterStyle = $bubbleSize = $this->_chart->getPlotArea()->getPlotGroupByIndex($groupID)->getPlotStyle();
$seriesCount = $this->_chart->getPlotArea()->getPlotGroupByIndex($groupID)->getPlotSeriesCount();
$seriesPlots = array();
// Loop through each data series in turn
for ($i = 0; $i < $seriesCount; ++$i) {
$dataValuesY = $this->_chart->getPlotArea()->getPlotGroupByIndex($groupID)->getPlotCategoryByIndex($i)->getDataValues();
$dataValuesX = $this->_chart->getPlotArea()->getPlotGroupByIndex($groupID)->getPlotValuesByIndex($i)->getDataValues();
foreach ($dataValuesY as $k => $dataValueY) {
$dataValuesY[$k] = $k;
}
$seriesPlot = new ScatterPlot($dataValuesX, $dataValuesY);
if ($scatterStyle == 'lineMarker') {
$seriesPlot->SetLinkPoints();
$seriesPlot->link->SetColor(self::$_colourSet[self::$_plotColour]);
} elseif ($scatterStyle == 'smoothMarker') {
$spline = new Spline($dataValuesY, $dataValuesX);
list($splineDataY, $splineDataX) = $spline->Get(count($dataValuesX) * self::$_width / 20);
$lplot = new LinePlot($splineDataX, $splineDataY);
$lplot->SetColor(self::$_colourSet[self::$_plotColour]);
$this->_graph->Add($lplot);
}
if ($bubble) {
$this->_formatPointMarker($seriesPlot, 'dot');
$seriesPlot->mark->SetColor('black');
$seriesPlot->mark->SetSize($bubbleSize);
} else {
$marker = $this->_chart->getPlotArea()->getPlotGroupByIndex($groupID)->getPlotValuesByIndex($i)->getPointMarker();
$this->_formatPointMarker($seriesPlot, $marker);
}
$dataLabel = $this->_chart->getPlotArea()->getPlotGroupByIndex($groupID)->getPlotLabelByIndex($i)->getDataValue();
$seriesPlot->SetLegend($dataLabel);
$this->_graph->Add($seriesPlot);
}
}
function print_graph($g, $pgwidth)
{
$splines = false;
$bandw = false;
$percent = false;
$show_percent = false;
$stacked = false;
$h = false;
$show_values = false;
$hide_grid = false;
$hide_y_axis = false;
if (isset($g['attr']['TYPE']) && $g['attr']['TYPE']) {
$type = strtolower($g['attr']['TYPE']);
}
if (!in_array($type, array('bar', 'horiz_bar', 'line', 'radar', 'pie', 'pie3d', 'xy', 'scatter'))) {
$type = 'bar';
}
// Default=bar
if (isset($g['attr']['STACKED']) && $g['attr']['STACKED']) {
$stacked = true;
}
// stacked for bar or horiz_bar
if (isset($g['attr']['SPLINES']) && $g['attr']['SPLINES'] && $type == 'xy') {
$splines = true;
}
// splines for XY line graphs
if (isset($g['attr']['BANDW']) && $g['attr']['BANDW']) {
$bandw = true;
}
// black and white
if (isset($g['attr']['LEGEND-OVERLAP']) && $g['attr']['LEGEND-OVERLAP']) {
$overlap = true;
}
// avoid overlap of Legends over graph (line, bar, horiz_bar only)
if (isset($g['attr']['PERCENT']) && $g['attr']['PERCENT'] && $type != 'xy' && $type != 'scatter') {
$percent = true;
}
// Show data series as percent of total in series
if (isset($g['attr']['SHOW-VALUES']) && $g['attr']['SHOW-VALUES']) {
$show_values = true;
}
// Show the individual data values
if (isset($g['attr']['HIDE-GRID']) && $g['attr']['HIDE-GRID']) {
$hide_grid = true;
}
// Hide the y-axis gridlines
if (isset($g['attr']['HIDE-Y-AXIS']) && $g['attr']['HIDE-Y-AXIS']) {
$hide_y_axis = true;
}
// Hide the y-axis
// Antialias: If true - better quality curves, but graph line will only be 1px even in PDF 300dpi
// default=true for most except line and radar
if (isset($g['attr']['ANTIALIAS']) && ($g['attr']['ANTIALIAS'] == '' || $g['attr']['ANTIALIAS'] == 0)) {
$antialias = false;
} else {
if (isset($g['attr']['ANTIALIAS']) && $g['attr']['ANTIALIAS'] > 0) {
$antialias = true;
} else {
if ($type == 'line' || $type == 'radar') {
$antialias = false;
} else {
$antialias = true;
}
}
}
if ($g['attr']['DPI']) {
$dpi = intval($g['attr']['DPI']);
}
if (!$dpi || $dpi < 50 || $dpi > 2400) {
$dpi = 150;
}
// Default dpi 150
$k = 0.2645 / 25.4 * $dpi;
// mPDF 4.5.009
global $JpgUseSVGFormat;
if (isset($JpgUseSVGFormat) && $JpgUseSVGFormat) {
$img_type = 'svg';
$k = 1;
// Overrides as Vector scale does not need DPI
} else {
$img_type = 'png';
}
if (isset($g['attr']['TITLE']) && $g['attr']['TITLE']) {
$title = $g['attr']['TITLE'];
}
if (isset($g['attr']['LABEL-X']) && $g['attr']['LABEL-X']) {
$xlabel = $g['attr']['LABEL-X'];
}
// NOT IMPLEMENTED??????
if (isset($g['attr']['LABEL-Y']) && $g['attr']['LABEL-Y']) {
$ylabel = $g['attr']['LABEL-Y'];
}
if (isset($g['attr']['AXIS-X']) && $g['attr']['AXIS-X']) {
$xaxis = strtolower($g['attr']['AXIS-X']);
}
if (!in_array($xaxis, array('text', 'lin', 'linear', 'log'))) {
$xaxis = 'text';
}
// Default=text
if ($xaxis == 'linear') {
$xaxis = 'lin';
}
if (isset($g['attr']['AXIS-Y']) && $g['attr']['AXIS-Y']) {
$yaxis = strtolower($g['attr']['AXIS-Y']);
}
if (!in_array($yaxis, array('lin', 'linear', 'log', 'percent'))) {
$yaxis = 'lin';
}
// Default=lin
if ($yaxis == 'percent') {
$show_percent = true;
$yaxis = 'lin';
}
// Show percent sign on scales
if ($yaxis == 'linear') {
$yaxis = 'lin';
}
if ($splines) {
$xaxis = 'lin';
}
$axes = $xaxis . $yaxis;
// e.g.textlin, textlog, loglog, loglin, linlog (XY)
// mPDF 4.0
if (isset($g['attr']['cWIDTH']) && $g['attr']['cWIDTH']) {
$w = $g['attr']['cWIDTH'] / 0.2645;
}
// pixels
if (isset($g['attr']['cHEIGHT']) && $g['attr']['cHEIGHT']) {
$h = $g['attr']['cHEIGHT'] / 0.2645;
}
if (isset($g['attr']['SERIES']) && strtolower($g['attr']['SERIES']) == 'rows') {
$dataseries = 'rows';
} else {
$dataseries = 'cols';
}
// Defaults - define data
$rowbegin = 2;
$colbegin = 2;
if ($type == 'scatter' || $type == 'xy') {
if ($dataseries == 'rows') {
$rowbegin = 1;
} else {
$colbegin = 1;
}
}
$rowend = 0;
$colend = 0;
if (isset($g['attr']['DATA-ROW-BEGIN']) && ($g['attr']['DATA-ROW-BEGIN'] === '0' || $g['attr']['DATA-ROW-BEGIN'] > 0)) {
$rowbegin = $g['attr']['DATA-ROW-BEGIN'];
}
if (isset($g['attr']['DATA-COL-BEGIN']) && ($g['attr']['DATA-COL-BEGIN'] === '0' || $g['attr']['DATA-COL-BEGIN'] > 0)) {
$colbegin = $g['attr']['DATA-COL-BEGIN'];
}
if (isset($g['attr']['DATA-ROW-END']) && ($g['attr']['DATA-ROW-END'] === '0' || $g['attr']['DATA-ROW-END'] != 0)) {
$rowend = $g['attr']['DATA-ROW-END'];
}
if (isset($g['attr']['DATA-COL-END']) && ($g['attr']['DATA-COL-END'] === '0' || $g['attr']['DATA-COL-END'] != 0)) {
$colend = $g['attr']['DATA-COL-END'];
}
$nr = count($g['data']);
$nc = 0;
foreach ($g['data'] as $r) {
$cc = 0;
foreach ($r as $c) {
$cc++;
}
$nc = max($nc, $cc);
}
if ($colend == 0) {
$colend = $nc;
} else {
if ($colend < 0) {
$colend = $nc + $colend;
}
}
if ($rowend == 0) {
$rowend = $nr;
} else {
if ($rowend < 0) {
$rowend = $nr + $rowend;
}
}
if ($colend < $colbegin) {
$colend = $colbegin;
}
if ($rowend < $rowbegin) {
$rowend = $rowbegin;
}
// if ($type == 'xy' || $type=='scatter') { $colstart=0; }
// Get Data + Totals
$data = array();
$totals = array();
for ($r = $rowbegin - 1; $r < $rowend; $r++) {
for ($c = $colbegin - 1; $c < $colend; $c++) {
if (isset($g['data'][$r][$c])) {
$g['data'][$r][$c] = floatval($g['data'][$r][$c]);
} else {
$g['data'][$r][$c] = 0;
}
if ($dataseries == 'rows') {
$data[$r + 1 - $rowbegin][$c + 1 - $colbegin] = $g['data'][$r][$c];
$totals[$r + 1 - $rowbegin] += $g['data'][$r][$c];
} else {
$data[$c + 1 - $colbegin][$r + 1 - $rowbegin] = $g['data'][$r][$c];
if (isset($totals[$c + 1 - $colbegin])) {
$totals[$c + 1 - $colbegin] += $g['data'][$r][$c];
} else {
$totals[$c + 1 - $colbegin] = $g['data'][$r][$c];
}
}
}
}
// PERCENT
if ($percent && $type != 'pie' && $type != 'pie3d') {
for ($r = 0; $r < count($data); $r++) {
for ($c = 0; $c < count($data[$r]); $c++) {
$data[$r][$c] = $data[$r][$c] / $totals[$r] * 100;
}
}
}
// Get Legends and labels
$legends = array();
$labels = array();
$longestlegend = 0;
$longestlabel = 0;
if ($dataseries == 'cols') {
if ($colbegin > 1) {
for ($r = $rowbegin - 1; $r < $rowend; $r++) {
$legends[$r + 1 - $rowbegin] = $g['data'][$r][0];
$longestlegend = max($longestlegend, strlen($g['data'][$r][0]));
}
}
if ($rowbegin > 1) {
for ($c = $colbegin - 1; $c < $colend; $c++) {
$labels[$c + 1 - $colbegin] = $g['data'][0][$c];
$longestlabel = max($longestlabel, strlen($g['data'][0][$c]));
}
}
} else {
if ($dataseries == 'rows') {
if ($colbegin > 1) {
for ($r = $rowbegin - 1; $r < $rowend; $r++) {
$labels[$r + 1 - $rowbegin] = $g['data'][$r][0];
$longestlabel = max($longestlabel, strlen($g['data'][$r][0]));
}
}
if ($rowbegin > 1) {
for ($c = $colbegin - 1; $c < $colend; $c++) {
$legends[$c + 1 - $colbegin] = $g['data'][0][$c];
$longestlegend = max($longestlegend, strlen($g['data'][0][$c]));
}
}
}
}
// Default sizes
$defsize = array();
$defsize['pie'] = array('w' => 600, 'h' => 300);
$defsize['pie3d'] = array('w' => 600, 'h' => 300);
$defsize['radar'] = array('w' => 600, 'h' => 300);
$defsize['line'] = array('w' => 600, 'h' => 400);
$defsize['xy'] = array('w' => 600, 'h' => 400);
$defsize['scatter'] = array('w' => 600, 'h' => 400);
$defsize['bar'] = array('w' => 600, 'h' => 400);
$defsize['horiz_bar'] = array('w' => 600, 'h' => 500);
// Use default ratios
if ($w && !$h) {
$h = $w * $defsize[$type]['h'] / $defsize[$type]['w'];
}
if ($h && !$w) {
$w = $h * $defsize[$type]['w'] / $defsize[$type]['h'];
}
if (!$h && !$w) {
$w = $defsize[$type]['w'];
$h = $defsize[$type]['h'];
}
if (count($data) > 0 && $type) {
$figure_file = "graph_cache/" . rand(11111, 999999999) . "." . $img_type;
if ($bandw) {
$colours = array('snow1', 'black', 'snow4', 'snow3', 'snow2', 'cadetblue4', 'cadetblue3', 'cadetblue1', 'bisque4', 'bisque2', 'beige');
} else {
$colours = array('cyan', 'darkorchid4', 'cadetblue3', 'khaki1', 'darkolivegreen2', 'cadetblue4', 'coral', 'cyan4', 'rosybrown3', 'wheat1');
}
$fills = array('navy', 'orange', 'red', 'yellow', 'purple', 'navy', 'orange', 'red', 'yellow', 'purple');
$patterns = array(PATTERN_DIAG1, PATTERN_CROSS1, PATTERN_STRIPE1, PATTERN_DIAG3, PATTERN_CROSS2, PATTERN_DIAG2, PATTERN_DIAG4, PATTERN_CROSS3, PATTERN_CROSS4, PATTERN_STRIPE1);
$markers = array(MARK_DIAMOND, MARK_SQUARE, MARK_CIRCLE, MARK_UTRIANGLE, MARK_DTRIANGLE, MARK_FILLEDCIRCLE, MARK_CROSS, MARK_STAR, MARK_X);
// LEGENDS
if ($type == 'pie' || $type == 'pie3d') {
$graph = new PieGraph($w * $k, $h * $k);
} else {
if ($type == 'radar') {
$graph = new RadarGraph($w * $k, $h * $k);
} else {
$graph = new Graph($w * $k, $h * $k);
}
}
// mPDF 4.5.009
// $graph->img->SetImgFormat($img_type) ;
// if (strtoupper($img_type)=='JPEG') { $graph->img->SetQuality(90); }
if ($antialias) {
$graph->img->SetAntiAliasing();
}
$graph->SetShadow(true, 2 * $k);
$graph->SetMarginColor("white");
// TITLE
$graph->title->Set($title);
$graph->title->SetMargin(10 * $k);
$graph->title->SetFont(FF_USERFONT, FS_BOLD, 11 * $k);
$graph->title->SetColor("black");
$graph->legend->SetLineSpacing(3 * $k);
$graph->legend->SetMarkAbsSize(6 * $k);
$graph->legend->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
// Set GRAPH IMAGE MARGINS
if ($type == 'pie' || $type == 'pie3d') {
$psize = 0.3;
$pposxabs = $w / 2;
$pposy = 0.55;
if ($longestlegend) {
// if legend showing
$pposxabs -= ($longestlegend * 5 + 20) / 2;
}
$pposx = $pposxabs / $w;
$graph->legend->Pos(0.02, 0.5, 'right', 'center');
} else {
if ($type == 'radar') {
$psize = 0.5;
$pposxabs = $w / 2;
$pposy = 0.55;
if ($longestlabel) {
// if legend showing
$pposxabs -= ($longestlabel * 5 + 20) / 2;
}
$pposx = $pposxabs / $w;
$graph->legend->Pos(0.02, 0.5, 'right', 'center');
} else {
if ($type == 'xy' || $type == 'scatter') {
$pml = 50;
$pmr = 20;
$pmt = 60;
$pmb = 50;
$xaxislblmargin = $pmb - 30;
$yaxislblmargin = $pml - 15;
$graph->legend->Pos(0.02, 0.1, 'right', 'top');
} else {
if ($type == 'line' || $type == 'bar') {
$pml = 50;
$pmr = 20;
$pmt = 60;
$pmb = 50;
$xlangle = 0;
$ll = $longestlegend * 5;
// 45 degrees 8pt fontsize
if ($ll > 5 || $ll > 3 && count($data) > 10) {
$pmb = max($pmb, $ll + 30);
$xlangle = 50;
}
$xaxislblmargin = $pmb - 30;
$yaxislblmargin = $pml - 15;
if ($longestlabel && !$overlap) {
// if legend showing
$pmr = $longestlabel * 5 + 40;
}
$graph->legend->Pos(0.02, 0.1, 'right', 'top');
} else {
if ($type == 'horiz_bar') {
$pml = 50;
$pmr = 20;
$pmt = 50;
$pmb = 45;
$ll = $longestlegend * 6.5;
// 8pt fontsize
$pml = max($pml, $ll + 20);
$xaxislblmargin = $pml - 20;
$yaxislblmargin = $pmb - 15;
if ($longestlabel && !$overlap) {
// if legend showing
$pmr = $longestlabel * 5 + 40;
}
$graph->legend->Pos(0.02, 0.1, 'right', 'top');
}
}
}
}
}
// DRAW THE GRAPHS
if ($type == 'pie') {
$p1 = new PiePlot($data[0]);
$p1->SetSliceColors($colours);
if ($show_values) {
$p1->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
if ($percent) {
$p1->SetLabelType(PIE_VALUE_PERADJ);
} else {
$p1->SetLabelType(PIE_VALUE_ABS);
}
if ($percent || $show_percent) {
$p1->value->SetFormat("%d%%");
} else {
$p1->value->SetFormat("%s");
}
// Enable and set policy for guide-lines. Make labels line up vertically
$p1->SetGuideLines(true);
$p1->SetGuideLinesAdjust(1.5);
} else {
$p1->value->Show(false);
}
$p1->SetLegends($legends);
$p1->SetSize($psize);
$p1->SetCenter($pposx, $pposy);
if ($labels[0]) {
$graph->subtitle->Set($labels[0]);
$graph->subtitle->SetMargin(10 * $k);
$graph->subtitle->SetFont(FF_USERFONT, FS_BOLD, 11 * $k);
$graph->subtitle->SetColor("black");
}
$graph->Add($p1);
} else {
if ($type == 'pie3d') {
$p1 = new PiePlot3d($data[0]);
$p1->SetSliceColors($colours);
if ($show_values) {
$p1->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
if ($percent) {
$p1->SetLabelType(PIE_VALUE_PERADJ);
} else {
$p1->SetLabelType(PIE_VALUE_ABS);
}
if ($percent || $show_percent) {
$p1->value->SetFormat("%d%%");
} else {
$p1->value->SetFormat("%s");
}
} else {
$p1->value->Show(false);
}
$p1->SetLegends($legends);
$p1->SetEdge();
$p1->SetSize($psize);
$p1->SetCenter($pposx, $pposy);
if ($labels[0]) {
$graph->subtitle->Set($labels[0]);
$graph->subtitle->SetMargin(10 * $k);
$graph->subtitle->SetFont(FF_USERFONT, FS_BOLD, 11 * $k);
$graph->subtitle->SetColor("black");
}
$graph->Add($p1);
} else {
if ($type == 'radar') {
$graph->SetSize($psize);
$graph->SetPos($pposx, $pposy);
$graph->SetTitles($legends);
// labels each axis
$graph->axis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->axis->title->SetMargin(5 * $k);
$graph->axis->SetWeight(1 * $k);
$graph->axis->HideLabels();
$graph->axis->SetFont(FF_USERFONT, FS_NORMAL, 6 * $k);
$graph->HideTickMarks();
$group = array();
foreach ($data as $series => $dat) {
$rdata = array();
foreach ($data[$series] as $row) {
$rdata[] = $row;
}
if (count($rdata) < 3) {
die("ERROR::Graph::Cannot create a Radar Plot with less than 3 data points.");
}
// Create the radar plot
$bplot = new RadarPlot($rdata);
$bplot->mark->SetType($markers[$series]);
$bplot->mark->SetFillColor($colours[$series]);
$bplot->mark->SetWidth(3 * $k);
$bplot->SetColor($colours[$series]);
if ($series == 0) {
$bplot->SetFillColor('lightred');
} else {
$bplot->SetFill(false);
}
$bplot->SetLineWeight(1 * $k);
$bplot->SetLegend($labels[$series]);
if ($bandw) {
$bplot->SetShadow("gray5");
}
$graph->Add($bplot);
}
} else {
if ($type == 'line') {
// Setup the graph.
$graph->img->SetMargin($pml * $k, $pmr * $k, $pmt * $k, $pmb * $k);
// LRTB
$graph->SetScale($axes);
$graph->yaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
if ($ylabel) {
$graph->yaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->yaxis->SetTitle($ylabel, 'middle');
$graph->yaxis->SetTitleMargin($yaxislblmargin * $k);
}
$graph->yaxis->SetLabelMargin(4 * $k);
if ($percent || $show_percent) {
$graph->yaxis->SetLabelFormat('%d%%');
}
// Percent
// Show 0 label on Y-axis (default is not to show)
$graph->yscale->ticks->SupressZeroLabel(true);
if ($hide_y_axis) {
$graph->yaxis->Hide();
}
if ($hide_grid) {
$graph->ygrid->Show(false);
}
// Setup X-axis labels
$graph->xaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->xaxis->SetTickLabels($legends);
$graph->xaxis->SetLabelAngle($xlangle);
$graph->xaxis->SetLabelMargin(4 * $k);
// X-axis title
if ($xlabel) {
$graph->xaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->xaxis->SetTitle($xlabel, 'middle');
$graph->xaxis->SetTitleMargin($xaxislblmargin * $k);
}
foreach ($data as $series => $rdata) {
$bplot = new LinePlot($rdata);
$bplot->mark->SetType($markers[$series]);
$bplot->mark->SetFillColor($colours[$series]);
$bplot->mark->SetWidth(4 * $k);
if ($show_values) {
$bplot->value->Show();
// Not if scatter
$bplot->value->SetMargin(6 * $k);
$bplot->value->SetColor("darkred");
$bplot->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
if ($percent || $show_percent) {
$bplot->value->SetFormat('%d%%');
} else {
$bplot->value->SetFormat("%s");
}
}
// Set color for each line
$bplot->SetColor($colours[$series]);
$bplot->SetWeight(2 * $k);
$bplot->SetLegend($labels[$series]);
if ($bandw) {
$bplot->SetShadow("gray5");
}
// Indent the X-scale so the first and last point doesn't fall on the edges
$bplot->SetCenter();
$graph->Add($bplot);
}
} else {
if ($type == 'xy' || $type == 'scatter') {
// Setup the graph.
$graph->img->SetMargin($pml * $k, $pmr * $k, $pmt * $k, $pmb * $k);
// LRTB
$graph->SetScale($axes);
// Setup font for axis
$graph->yaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
// Y-axis title
if ($labels[1]) {
$graph->yaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->yaxis->SetTitleMargin($yaxislblmargin * $k);
$graph->yaxis->SetTitle($labels[1], 'middle');
}
$graph->yaxis->SetLabelMargin(4 * $k);
if ($percent || $show_percent) {
$graph->yaxis->SetLabelFormat('%d%%');
}
// Percent
// Show 0 label on Y-axis (default is not to show)
$graph->yscale->ticks->SupressZeroLabel(true);
// Just let the maximum be autoscaled
$graph->yaxis->scale->SetAutoMin(0);
if ($hide_y_axis) {
$graph->yaxis->Hide();
}
if ($hide_grid) {
$graph->ygrid->Show(false);
}
// Setup X-axis labels
$graph->xaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
// mPDF 2.5 Corrects labelling of x-axis
// $graph->xaxis->SetTickLabels($legends);
$graph->xaxis->SetLabelAngle(50);
$graph->xaxis->SetLabelMargin(4 * $k);
// X-axis title
if ($labels[0]) {
$graph->xaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->xaxis->SetTitleMargin($xaxislblmargin * $k);
$graph->xaxis->SetTitle($labels[0], 'middle');
}
// Create the bar plot
// SPLINES
if ($splines && $type == 'xy') {
$spline = new Spline($data[0], $data[1]);
list($newx, $newy) = $spline->Get(100);
} else {
$newx = $data[0];
$newy = $data[1];
}
if ($type == 'xy') {
// LINE PLOT
$bplot = new LinePlot($newy, $newx);
// Set color for each line
$bplot->SetColor($fills[0]);
$bplot->SetWeight(4 * $k);
if ($bandw) {
$bplot->SetShadow("gray5");
}
$graph->Add($bplot);
}
// SCATTER PLOT
$cplot = new ScatterPlot($data[1], $data[0]);
$cplot->mark->SetType($markers[0]);
$cplot->mark->SetFillColor($fills[0]);
$cplot->mark->SetWidth(8 * $k);
if ($show_values) {
// mPDF 2.5
if ($type == 'xy') {
$cplot->value->Show();
}
// Not if scatter
$cplot->value->SetMargin(8 * $k);
$cplot->value->SetColor("darkred");
$cplot->value->SetFont(FF_USERFONT, FS_NORMAL, 6 * $k);
if ($percent || $show_percent) {
$cplot->value->SetFormat('%d%%');
} else {
$cplot->value->SetFormat("%s");
}
}
// Set color for each line
$cplot->SetColor($fills[0]);
$cplot->SetWeight(4 * $k);
if ($bandw) {
$cplot->SetShadow("gray5");
}
$graph->Add($cplot);
} else {
if ($type == 'bar') {
// Setup the graph.
$graph->img->SetMargin($pml * $k, $pmr * $k, $pmt * $k, $pmb * $k);
// LRTB
$graph->SetScale($axes);
// Setup y-axis
$graph->yaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
if ($hide_y_axis) {
$graph->yaxis->Hide();
}
if ($hide_grid) {
$graph->ygrid->Show(false);
}
$graph->yaxis->SetLabelMargin(4 * $k);
if ($ylabel) {
$graph->yaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->yaxis->SetTitle($ylabel, 'middle');
$graph->yaxis->SetTitleMargin($yaxislblmargin * $k);
}
// Show 0 label on Y-axis (default is not to show)
$graph->yscale->ticks->SupressZeroLabel(false);
// Setup X-axis labels
$graph->xaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->xaxis->SetTickLabels($legends);
$graph->xaxis->SetLabelAngle($xlangle);
$graph->xaxis->SetLabelMargin(4 * $k);
// X-axis title
if ($xlabel) {
$graph->xaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->xaxis->SetTitle($xlabel, 'middle');
$graph->xaxis->SetTitleMargin($xaxislblmargin * $k);
}
$group = array();
foreach ($data as $series => $dat) {
$rdata = array();
foreach ($data[$series] as $row) {
$rdata[] = $row;
}
// Create the bar plot
$bplot = new BarPlot($rdata);
$bplot->SetWidth(0.6);
// for SINGLE??
// Setup color for gradient fill style
if ($bandw) {
$bplot->SetPattern($patterns[$series]);
} else {
$bplot->SetFillGradient($fills[$series], "#EEEEEE", GRAD_LEFT_REFLECTION);
}
// Set color for the frame of each bar
$bplot->SetColor("darkgray");
$bplot->SetLegend($labels[$series]);
if ($bandw) {
$bplot->SetShadow("gray5");
}
if ($show_values) {
$bplot->value->Show();
$bplot->value->SetMargin(6 * $k);
$bplot->value->SetColor("darkred");
$bplot->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
if ($percent || $show_percent) {
$bplot->value->SetFormat('%d%%');
} else {
$bplot->value->SetFormat("%s");
}
}
$group[] = $bplot;
}
if (count($data) == 1) {
$graph->Add($group[0]);
} else {
// Create the grouped bar plot
if ($stacked) {
$gbplot = new AccBarPlot($group);
} else {
$gbplot = new GroupBarPlot($group);
}
$graph->Add($gbplot);
}
} else {
if ($type == 'horiz_bar') {
$graph->SetScale($axes);
$graph->Set90AndMargin($pml * $k, $pmr * $k, $pmt * $k, $pmb * $k);
// LRTB
// Setup y-axis
$graph->yaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->yaxis->SetLabelMargin(4 * $k);
$graph->yaxis->SetPos('max');
// Intersect at top of x-axis i.e. y axis is at bottom
// First make the labels look right
$graph->yaxis->SetLabelAlign('center', 'top');
if ($percent || $show_percent) {
$graph->yaxis->SetLabelFormat('%d%%');
}
$graph->yaxis->SetLabelSide(SIDE_RIGHT);
$graph->yaxis->scale->SetGrace(10);
// sets 10% headroom
if ($hide_y_axis) {
$graph->yaxis->Hide();
}
if ($hide_grid) {
$graph->ygrid->Show(false);
}
// The fix the tick marks
$graph->yaxis->SetTickSide(SIDE_LEFT);
if ($ylabel) {
$graph->yaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->yaxis->SetTitle($ylabel, 'middle');
$graph->yaxis->SetTitleMargin($yaxislblmargin * $k);
// Finally setup the title
$graph->yaxis->SetTitleSide(SIDE_RIGHT);
// To align the title to the right use :
$graph->yaxis->title->Align('right');
$graph->yaxis->title->SetAngle(0);
}
// Show 0 label on Y-axis (default is not to show)
$graph->yscale->ticks->SupressZeroLabel(false);
// Setup X-axis labels
$graph->xaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->xaxis->title->SetAngle(90);
$graph->xaxis->SetTickLabels($legends);
$graph->xaxis->SetLabelMargin(4 * $k);
// X-axis title
if ($xlabel) {
$graph->xaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
$graph->xaxis->SetTitleMargin($xaxislblmargin * $k);
$graph->xaxis->SetTitle($xlabel, 'middle');
}
$group = array();
foreach ($data as $series => $dat) {
$rdata = array();
foreach ($data[$series] as $row) {
$rdata[] = $row;
}
// Create the bar pot
$bplot = new BarPlot($rdata);
$bplot->SetWidth(0.6);
// for SINGLE??
// Setup color for gradient fill style
if ($bandw) {
$bplot->SetPattern($patterns[$series]);
} else {
$bplot->SetFillGradient($fills[$series], "#EEEEEE", GRAD_LEFT_REFLECTION);
}
// Set color for the frame of each bar
$bplot->SetColor("darkgray");
$bplot->SetLegend($labels[$series]);
if ($bandw) {
$bplot->SetShadow("gray5");
}
if ($show_values) {
$bplot->value->Show();
$bplot->value->SetMargin(6 * $k);
$bplot->value->SetColor("darkred");
$bplot->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);
if ($percent || $show_percent) {
$bplot->value->SetFormat('%d%%');
} else {
$bplot->value->SetFormat("%s");
}
}
$group[] = $bplot;
}
if (count($data) == 1) {
$graph->Add($group[0]);
} else {
// Create the grouped bar plot
if ($stacked) {
$gbplot = new AccBarPlot($group);
} else {
$gbplot = new GroupBarPlot($group);
}
$graph->Add($gbplot);
}
}
}
}
}
}
}
}
if ($graph) {
$graph->Stroke(_MPDF_PATH . $figure_file);
$srcpath = str_replace("\\", "/", dirname(__FILE__)) . "/";
$srcpath .= $figure_file;
return array('file' => $srcpath, 'w' => $w, 'h' => $h);
}
}
return false;
}
$title = 'Bedbezetting ' . $naam;
$graph->title->Set($title);
$graph->title->SetFont(FF_ARIAL, FS_BOLD, 14);
$subtitle = date('d/m/Y', $starttime) . ' - ' . date('d/m/Y', $endtime);
$graph->subtitle->Set($subtitle);
$graph->subtitle->SetFont(FF_ARIAL, FS_BOLD, 12);
// Setup titles and X-axis labels
$graph->xaxis->title->Set('');
$graph->xaxis->SetLabelAngle(45);
$graph->xaxis->SetFont(FF_ARIAL, FS_NORMAL, 8);
// Setup Y-axis title
$graph->yaxis->title->Set('');
$graph->yaxis->SetFont(FF_ARIAL);
// Create the linear plot
if ($starttime < strtotime('-13 months', $endtime)) {
$spline = new Spline($xdata, $ydata);
list($nxdata, $nydata) = $spline->get(100);
$lineplot = new LinePlot($nydata, $nxdata);
} else {
$lineplot = new LinePlot($ydata, $xdata);
}
// echo '<pre>';
// $i = 0;
// foreach ($xdata as $date){
// echo $i . ' | ' . $date . ' | ' . date('j-m-Y',$date) . ' | ' . $ydata[$i] . "\n";
// $i++;
// }
//
//
// echo '</pre>';
$lineplot->SetColor('blue');
$bottom = 35;
$left = 50;
$right = 25;
$graph->img->SetMargin($left, $right, $top, $bottom);
function format_graph_label($number)
{
if ($number) {
return number_format($number);
}
return "";
}
$group = array();
$colors = array('blue', 'azure3', 'brown', 'darkorchid3', 'limegreen', 'orange');
foreach ($teams as $team => $day_counts) {
$days = array_keys($day_counts);
$counts = array_values($day_counts);
$spline = new Spline($days, $counts);
list($x, $y) = $spline->Get(count($days) * 10);
$lplot = new LinePlot($y, $x);
$lplot->SetLegend($team);
$lplot->SetColor(array_pop($colors));
$lplot->SetWeight(2);
$graph->Add($lplot);
}
// Setup the titles
$graph->title->Set("Daily Average Wordcount");
$graph->title->SetFont(FF_FONT1, FS_BOLD);
$graph->xaxis->HideTicks();
$graph->legend->SetPos(0.1, 0.12, "left", "top");
// Display the graph
$graph->Stroke();
public function graficarSPLINE($xdata, $ydata, $grado)
{
switch ($grado) {
case 0:
$spline = new Spline($xdata, $ydata);
list($newx, $newy) = $spline->Get0();
$linex = array();
$liney = array();
// Create the graph
$g = new Graph(800, 600);
$g->SetMargin(30, 20, 40, 30);
$g->title->Set("SPline grado 0");
//$g->title->SetFont(FF_ARIAL,FS_NORMAL,12);
$g->subtitle->Set('(Puntos ingresados en rojo)');
$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightblue');
$g->SetScale('int');
// We want 1 decimal for the X-label
$g->xaxis->SetLabelFormat('%1.0f');
$splot = new ScatterPlot($ydata, $xdata);
$splot->mark->SetFillColor('red@0.3');
$splot->mark->SetColor('red@0.5');
foreach ($xdata as $key => $x) {
if (isset($xdata[$key + 1])) {
$lplot[$key] = new LinePlot(array($ydata[$key], $ydata[$key]), array($xdata[$key], $xdata[$key + 1]));
$lplot[$key]->SetColor('#0000FF');
$g->Add($lplot[$key]);
// lineas
}
}
// Add the plots to the graph and stroke
$g->Add($splot);
// puntos
break;
case 1:
// Create the graph
$g = new Graph(800, 600);
$g->SetMargin(30, 20, 40, 30);
$g->title->Set("SPline grado 1");
//$g->title->SetFont(FF_ARIAL,FS_NORMAL,12);
$g->subtitle->Set('(Puntos ingresados en rojo)');
$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightblue');
//$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('int');
// We want 1 decimal for the X-label
$g->xaxis->SetLabelFormat('%1.0f');
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata, $xdata);
$splot->mark->SetFillColor('red@0.3');
$splot->mark->SetColor('red@0.5');
foreach ($xdata as $key => $x) {
if (isset($xdata[$key + 1])) {
$a[$key] = ($ydata[$key + 1] - $ydata[$key]) / ($xdata[$key + 1] - $xdata[$key]);
$lplot[$key] = new LinePlot(array($ydata[$key], $ydata[$key + 1]), array($xdata[$key], $xdata[$key + 1]));
$lplot[$key]->SetColor('#0000FF');
$g->Add($lplot[$key]);
// lineas
}
}
$g->Add($splot);
// puntos
break;
case 3:
$spline = new Spline($xdata, $ydata);
// For the new data set we want 40 points to
// get a smooth curve.
list($newx, $newy) = $spline->Get(50);
// Create the graph
$g = new Graph(800, 600);
$g->SetMargin(30, 20, 40, 30);
$g->title->Set("SPLine cúbico");
//$g->title->SetFont(FF_ARIAL,FS_NORMAL,12);
$g->subtitle->Set('(Puntos ingresados en rojo)');
$g->subtitle->SetColor('darkred');
$g->SetMarginColor('lightblue');
//$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('int');
// We want 1 decimal for the X-label
$g->xaxis->SetLabelFormat('%1.1f');
// We use a scatterplot to illustrate the original
// contro points.
$splot = new ScatterPlot($ydata, $xdata);
//
$splot->mark->SetFillColor('red@0.3');
$splot->mark->SetColor('red@0.5');
// And a line plot to stroke the smooth curve we got
// from the original control points
$lplot = new LinePlot($newy, $newx);
$lplot->SetColor('navy');
// Add the plots to the graph and stroke
$g->Add($lplot);
$g->Add($splot);
break;
}
//$nombrearchivo = implode($xdata).'-'.implode($ydata).'-'.time().'sp0.png';
//$nombrearchivo = implode($xdata).'-'.implode($ydata).'-'.time().'sp0.png';
//if(!file_exists($name))
// $g->Stroke($name);
//$rutaImg = $this->cad->directorios(SAVE_IMAGEN."/ajuste_de_curvas/spline/").$name;
//$larutaadevoilver = "../src/model/img/ajuste_de_curvas/spline/".$nombrearchivo;
//echo '<img src="'.$larutaadevoilver.'" />';
//$rutaImg = $this->cad->directorios(SAVE_IMAGEN."/ajuste_de_curvas/spline")."/".$nombrearchivo;
//$g->Stroke($rutaImg);
//echo '<img src="'.$this->cad->union(LOAD_IMG."/".$this->p_nombre[0]."/".$this->p_nombre[1])."/".$img.'" />';
/*
$nombrearchivo = implode($xdata).'-'.implode($ydata).'-'.time().'sp0.png';
$name = SAVE_IMAGEN."/ajuste_de_curvas/spline/".$nombrearchivo;
if(!file_exists($name))
$g->Stroke($name);
$rutaImg = $this->cad->directorios(SAVE_IMAGEN."/ajuste_de_curvas/spline/").$name;
$larutaadevoilver = "../src/model/img/ajuste_de_curvas/spline/".$nombrearchivo;
return '<img src="'.$larutaadevoilver.'" />';
*/
$nombrearchivo = implode($xdata) . '-' . implode($ydata) . '-' . time() . 'sp0.png';
$name = SAVE_IMAGEN . "/ajuste_de_curvas/spline/" . $nombrearchivo;
if (!file_exists($name)) {
$g->Stroke($name);
}
$rutaImg = $this->cad->directorios(SAVE_IMAGEN . "/ajuste_de_curvas/spline/") . $name;
$larutaadevoilver = "../src/model/img/ajuste_de_curvas/spline/" . $nombrearchivo;
echo '<img src="' . $larutaadevoilver . '" />';
}
}
//exit('{status:"error",value:'.json_encode($xvalues).',xmin:'.$xmin.',xmax:'.$xmax.',dx:'.$dx.',n:'.$n.'}');
$expr_str = decode($_REQUEST["expression"]);
if ($expr_str == 'spline') {
if (!isset($_REQUEST["points"])) {
exit('{status:"error",value:"Points not given for spline"}');
}
$points = json_decode($_REQUEST["points"]);
$do_fit = false;
if (isset($_REQUEST["fit"])) {
$do_fit = $_REQUEST["fit"];
}
if (sizeof($points) == 0) {
exit('{status:"error",value:"Empty points array given for spline"}');
}
$spline = new Spline();
$spline->add_points($points);
//exit('{status:"error",value:'.json_encode($points).'}');
if ($do_fit) {
$spline->fit_derivs();
} else {
$spline->fit();
}
$x_first = $spline->points[0]->x;
$x_last = $spline->points[sizeof($spline->points) - 1]->x;
$x_arr = array();
$m = sizeof($xvalues);
$empty = true;
for ($i = 0; $i < $m; $i += 1) {
$x = $xvalues[$i];
if ($x >= $x_first && $x <= $x_last) {
$graph->xaxis->SetFont(FF_FONT0, FS_NORMAL);
//$graph->xaxis->title->SetFont($font1,FS_BOLD);
/*
$graph->SetBackgroundGradient(
imgdef($q['frame']['color1'], 'gray'),
imgdef($q['frame']['color2'], 'whitesmoke'),
constant(imgdef($q['frame']['type'], 'GRAD_LEFT_REFLECTION')),
constant(imgdef($q['frame']['style'], 'BGRAD_MARGIN'))
);
/**/
//$graph->SetFrame(false);
$graph->SetMarginColor(imgdef($q['frame']['margin'], '#d7d7d7'));
$graph->SetFrame(true, imgdef($q['frame']['color'], 'gray'), imgdef($q['frame']['width'], 1));
//$graph->SetShadow();
//$smooth = max(imgdef($q['smooth'], 10), 10);
$s = new Spline($datax, $datay);
list($x, $y) = $s->Get(count($datay) * $smooth);
// Create the bar pot
$p1 = new LinePlot($y);
$p1->SetLegend(imgdef($q['frame']['plot'][0]['_content'], 'Maximum') . " [{$maxconn}]");
$p1->SetWeight(imgdef($q['frame']['plot'][0]['weight'], 1));
$p1->SetFillColor(imgdef($q['frame']['plot'][0]['color'], 'blue@0.90'));
$p1->SetBarCenter();
$avg = intval($avg);
if ($avg) {
$avgdata = array();
for ($i = 0; $i < count($datay) * $smooth; $i++) {
$avgdata[] = $avg;
}
$p2 = new LinePlot($avgdata);
// $p2->SetStyle('dashed');
$alien_numb[] = $offset;
$alien_data[] = 0;
$human_numb[] = $offset;
$human_data[] = 0;
$world_numb[] = $offset;
$world_data[] = 0;
$offset++;
}
if ($yscale < 10) {
$yscale = 10;
}
$alien_spline = new Spline($alien_numb, $alien_data);
list($alien_newx, $alien_newy) = $alien_spline->Get(500);
$human_spline = new Spline($human_numb, $human_data);
list($human_newx, $human_newy) = $human_spline->Get(500);
$world_spline = new Spline($world_numb, $world_data);
list($world_newx, $world_newy) = $world_spline->Get(500);
// create graph
$g = new Graph(573, 200);
$g->SetMargin(30, 10, 10, 30);
$g->SetMarginColor('#22262a');
$g->SetColor('#22262a');
$g->SetFrame(true, array(0, 0, 0), 0);
$g->SetBox(false);
$g->img->SetAntiAliasing();
// We need a linlin scale since we provide both
// x and y coordinates for the data points.
$g->SetScale('linlin', 0, $yscale);
// Set the grid
$g->yaxis->SetLabelFormat('%d');
$g->xaxis->SetLabelFormat('%d');
