扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:Paul Meagher 来源:ibm 2007年10月21日
关键字: Linux
 
<?php  
  // HTML.php  
  // Copyright 2003, Paul Meagher  
  // Distributed under GPL    
  include_once "slr/SimpleLinearRegression.php";  
  class SimpleLinearRegressionHTML extends SimpleLinearRegression {  
    function SimpleLinearRegressionHTML($X, $Y, $conf_int) {  
      SimpleLinearRegression::SimpleLinearRegression($X, $Y, $conf_int);  
    }  
    function showTableSummary($x_name, $y_name) { }  
        
    function showAnalysisOfVariance() { }  
    function showParameterEstimates() { }  
    function showFormula($x_name, $y_name) { }  
    function showRValues() {}  
  }  
  ?>  
 | 
 
<?php  
  // Snippet extracted from explore.php script  
  include ("jpgraph/jpgraph.php");  
  include ("jpgraph/jpgraph_scatter.php");  
  include ("jpgraph/jpgraph_line.php");  
  // Create the graph  
  $graph = new Graph(300,200,'auto');  
  $graph->SetScale("linlin");  
  // Setup title    
  $graph->title->Set("$title");  
  $graph->img->SetMargin(50,20,20,40);     
  $graph->xaxis->SetTitle("$x_name","center");  
  $graph->yaxis->SetTitleMargin(30);       
  $graph->yaxis->title->Set("$y_name");   
  $graph->title->SetFont(FF_FONT1,FS_BOLD);  
  // make sure that the X-axis is always at the  
  // bottom at the plot and not just at Y=0 which is  
  // the default position    
  $graph->xaxis->SetPos('min');  
  // Create the scatter plot with some nice colors  
  $sp1 = new ScatterPlot($slr->Y, $slr->X);  
  $sp1->mark->SetType(MARK_FILLEDCIRCLE);  
  $sp1->mark->SetFillColor("red");  
  $sp1->SetColor("blue");  
  $sp1->SetWeight(3);  
  $sp1->mark->SetWidth(4);  
  // Create the regression line  
  $lplot = new LinePlot($slr->PredictedY, $slr->X);  
  $lplot->SetWeight(2);  
  $lplot->SetColor('navy');  
  // Add the pltos to the line  
  $graph->Add($sp1);  
  $graph->Add($lplot);  
  // ... and stroke  
  $graph_name = "temp/test.png";  
  $graph->Stroke($graph_name);  
  ?>  
  <img src='<?php echo $graph_name ?>' vspace='15'>  
  ?> 
 | 
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。