首 页   · 站长博客 · 用户注册 · 会员登陆  · 会员排行  ·最新主题  ·最近回复  ☆精华区  版权声明  ·论坛管理
  当前登录身份:游客，请先登录。  笔名： 口令： 验证码：   
楼 主  index »  PHP与模板与代码加密/优化 » [原创]Chart（图表） 程序 　

  作者：pnrj7999
  注册时间：2005-04-04
  主题/回复：73/43
  积分：813
  等级：★★★(六级)
  称号：声名鹊起
用户联系方式已设置为保密

　

  发表：2005-06-06 00:12:09 阅读 2019 次 回复 0 次 得分0  |   字号 字色
[原创]Chart（图表） 程序
<?php 
/* Copyright (C) 1998  Afan Ottenheimer, afan@jeonet.com  

    这个程序可无条件和在GNU GPL条款下传播的。

    在以下情况下，你必须要有我们的许可证才能使用该程序：如果该程序是用于某个商业公司，
或是被用来买卖，或是提供给Microsoft的产品。

    你可以从 GNU GPL 的这个网址获取该程序的拷贝： http://www.gnu.org/copyleft/gpl.html   
*/ 

/* 一些有关该程序的说明：  
    它做了一个二维的Chart（图表），其中的X轴是标签轴，而Y轴则是数字轴。
    Y轴用到了一个叫n_max_y方法，该用于把数据转换成图表。
    X轴没有这种转换。每个X轴上的刻度可以由xlab[N]得到，这里N是一个整数。
*/ 
     
/*    4/14/2000    Mouse Chen( litmouse@km169.net   )    Translate it to Chinese   */

　


/* 读入数据*/ 
$maxy = $maxy_in; 
if ($maxy == 0) { 
  echo  "Error Max Y = 0 <p>"; 
  exit; 
} 
SetType($maxy, "double"); 

/* X轴是由一个叫 $maxx的变量分割成从 0 到 $maxx-1的部分的 */ 
$maxx = $maxx_in; 
if ($maxx <= 0) { 
  echo  "error maxx <= 0 <p>"; 
  exit; 
} 
SetType($maxx, "double"); 


$XSIZE = $XSIZE_in;   /*图片最大的宽度（单位：象素） */ 
SetType($XSIZE, "double"); 

$YSIZE = $YSIZE_in;  /*图片最大的高度（单位：象素） */ 
SetType($YSIZE, "double"); 

$num_vert_ticks = $num_vert_ticks_in; 
if ($num_vert_ticks <= 0) { 
  echo  "error num_vert_ticks <= 0 <p>"; 
  exit; 
} 
SetType($num_vert_ticks, "double"); 

$y_title = $y_title_in; 
$x_title = $x_title_in; 
/* *********读入数据完成********** */ 

/* 创建一个文件类型头 */ 
Header( "Content-Type: image/gif");  

$x_tot_margin = 100.0; 
SetType($x_tot_margin, "double"); 
$x_left_margin = 77.0;  /* 在X轴上左边的空白距离（单位：象素）*/ 
SetType($x_left_margin, "double"); 


$xscale = ($XSIZE - $x_tot_margin)/$maxx ;  
SetType($xscale, "double"); 

$y_top_margin = 14.0;  /* 必须是整型数 */ 
SetType($y_top_margin, "double"); 
$y_tot_margin = 80.0;  /* 必须是整型数 */ 
SetType($y_tot_margin, "double"); 
$yscale = ($YSIZE - $y_tot_margin)/$maxy;  /* 屏幕最大的高度 */ 
SetType($yscale, "double"); 
$y_bot_margin = $y_tot_margin - $y_top_margin; 
SetType($y_bot_margin, "double"); 

/* Y轴是由一个叫 $maxy变量分割成的 */ 
$y_tick_delta = $maxy / $num_vert_ticks; 
SetType($y_tick_delta, "double"); 


$si_units[0] =  "";   
$si_units[1] =  "k"; 
$si_units[2] =  "M"; 
$si_units[3] =  "G"; 
$si_units[4] =  "T"; 
$small_font = 2;  /* 字体大小：fonts = 1,2,3,4 或 5 */ 
$small_font_width = 6.0;  
$small_font_height = 10.0;
$tiny_font = 1; 
$c_blank[0]  =  "245"; 
$c_blank[1]  =  "245"; 
$c_blank[2]  =  "245"; 
$c_light[0] =  "194"; 
$c_light[1] =  "194"; 
$c_light[2] =  "194"; 
$c_dark[0] =  "100"; 
$c_dark[1] =  "100"; 
$c_dark[2] =  "100"; 
$c_major[0] =  "255"; 
$c_major[1] =  "0"; 
$c_major[2] =  "0"; 
$c_grid[0] =  "0"; 
$c_grid[1] =  "0"; 
$c_grid[2] =  "0"; 
$col_in[0] =  "0"; 
$col_in[1] =  "235"; 
$col_in[2] =  "12"; 
$col_inm[0] =  "0"; 
$col_inm[1] =  "166"; 
$col_inm[2] =  "33"; 
$col_out[0] =  "0"; 
$col_out[1] =  "94"; 
$col_out[2] =  "255"; 
$col_outm[0] =  "255"; 
$col_outm[1] =  "0"; 
$col_outm[2] =  "255"; 

 /* ################################################# */ 
 /* 图表的一些普通的定义*/ 
$XSIZE = (($maxx*$xscale)+100); 

 /* 图表的位置 */ 
 /* 把 x/y 的 coord 转换成 象素的 coord */ 
old_function ytr $y ( 
  SetType($y, "double"); 
  global $maxy,$yscale,$y_top_margin; 
  return ($maxy*$yscale+$y_top_margin-(($y)*$yscale)); 
); 
old_function xtr $x ( 
  SetType($x, "double"); 
  global $maxx,$xscale,$growright,$x_left_margin; 
  if ($growright) { 
   $tmpret = ($maxx*$xscale+$x_left_margin-(($x)*$xscale)) ; 
  } else { 
    $tmpret =  ($x_left_margin+(($x)*$xscale)); 
  } 
  return($tmpret); 
); 
 
    $graph = ImageCreate($XSIZE, $YSIZE); 
/* 要能正确让 brush_out和 brush_outm 为 ImageSetBrush 而使用，必须是GD 第三版 */ 
/*  
    $brush_out = ImageCreate(1,2); 
    $brush_outm = ImageCreate(1,2); 
    $i_outm = ImageColorAllocate($brush_outm,$col_outm[0], $col_outm[1], $col_outm[2]);   
    $i_out = ImageColorAllocate($brush_out,$col_out[0], $col_out[1], $col_out[2]); 
*/ 

 /* 先分配一个背景色. */ 
    $i_blank = ImageColorAllocate($graph,$c_blank[0],$c_blank[1],$c_blank[2]); 
    $i_light = ImageColorAllocate($graph,$c_light[0],$c_light[1],$c_light[2]); 
    $i_dark  = ImageColorAllocate($graph,$c_dark[0],$c_dark[1],$c_dark[2]); 

 /* ImageColorTransparent($graph, $i_blank); */ 
 /* ImageInterlace($graph, 1); */ 

    $i_grid = ImageColorAllocate($graph,$c_grid[0],$c_grid[1],$c_grid[2] ); 
    $i_major = ImageColorAllocate($graph,$c_major[0],$c_major_g,$c_major_b); 

    $i_in = ImageColorAllocate($graph,$col_in[0], $col_in[1], $col_in[2]); 
    $i_inm = ImageColorAllocate($graph,$col_inm[0], $col_inm[1], $col_inm[2]); 

 /* 为图片画个边框 */ 
    ImageLine($graph,0,0,$XSIZE-1,0,$i_light); 
    ImageLine($graph,1,1,$XSIZE-2,1,$i_light); 
    ImageLine($graph,0,0,0,$YSIZE-1,$i_light); 
    ImageLine($graph,1,1,1,$YSIZE-2,$i_light); 
    ImageLine($graph,$XSIZE-1,0,$XSIZE-1,$YSIZE-1,$i_dark); 
    ImageLine($graph,0,$YSIZE-1,$XSIZE-1,$YSIZE-1,$i_dark); 
    ImageLine($graph,$XSIZE-2,1,$XSIZE-2,$YSIZE-2,$i_dark); 
    ImageLine($graph,1,$YSIZE-2,$XSIZE-2,$YSIZE-2,$i_dark);        

   /*为图表画个边框 */ 

    ImageRectangle($graph, xtr(0),ytr(0),xtr($maxx),ytr($maxy),$i_grid); 

 /*为网格线创建一个点的类型*/ 
/* 该类型不被 PHP/FI2所支持 ??? 
    $styleDotted[0] = $i_grid; 
    $styleDotted[1] = Transparent; 
    $styleDotted[2] = Transparent; 
    ImageSetStyle($graph, $styleDotted, 3);         
*/ 

 /* 画水平的网格线 */ 

    ImageStringUp($graph, $small_font,8, ($small_font_width*strlen($y_title)/2.0) + ytr($maxy/2.0), $y_title, $i_grid); 
    ImageString($graph, $small_font, -($small_font_width*strlen($x_title)/2.0) + xtr($maxx/2.0) , ($YSIZE - 3.0*$small_font_height), $x_title, $i_grid); 

    $i = 0; 
/* 画垂直的刻度 */ 
    while ($i<=$num_vert_ticks){ 

    $y_tmp = (DoubleVal($i)*$maxy/$num_vert_ticks); 
    SetType($y_tmp, "double"); 

    ImageLine($graph,(-10+xtr(0)),ytr($y_tmp),xtr(1),ytr($y_tmp),$i_grid); 

    ImageLine($graph,(xtr($maxx)+10),ytr($y_tmp),xtr($maxx-1),ytr($y_tmp),$i_grid); 

/* gdStyled 函数只被 GD v3 所支持*/ 
/*ImageLine($graph,xtr(0),ytr($y_tmp),xtr($maxx),ytr($y_tmp),gdStyled); */ 
    ImageLine($graph,xtr(0),ytr($y_tmp),xtr($maxx),ytr($y_tmp),$i_light); 

    $ylab = sprintf( "%6.1f %s",$y_tick_delta*$i,$si_units[0]); 

    ImageString($graph, $small_font,($x_left_margin-54),( -($small_font_height/2.0) + ytr($y_tmp)),$ylab, $i_grid); 
    $i++; 
    }  

 /* 画垂直的网格线和水平的标签*/ 
    $x = 0; 
    while ($x<$maxx) { 
  if ($x_label[$x]) { 
    ImageString($graph, $small_font,( -(strlen($x_label[$x]) * $small_font_width / 2.0) + xtr(0.5+$x)),  ($YSIZE - $y_bot_margin + 1.5*$small_font_height) ,$x_label[$x], $i_grid); 
  } 
  if ($y_data[$x] ) {  /* 画柱形 */ 
    ImageFilledRectangle($graph, xtr(0.25+$x), ytr($y_data[$x]), xtr(0.75+$x), ytr(0), $i_major); 
  } 
/* 以下是调试程序时的语句 */ 
/* 
$tempmid = "mid"; 
$tempajo =  $x; 
    ImageString($graph, $small_font, xtr($x), ytr(-1), $tempajo, $i_major); 
    ImageString($graph, $small_font, (-((strlen($tempmid))* $small_font_width /2.0) + xtr((.5+$x)) ), ytr(-1), $tempmid, $i_major);  
*/ 
/* 调试结束 */ 
  $x++; 
    }               


ImageGif($graph); 
ImageDestroy($graph); 
/*  
ImageDestroy($brush_out); 
ImageDestroy($brush_outm); 
*/ 
?>
　
　 页数1/1: 首页 « 1 » 末页
  发表回复：您还没有登陆，无法发表回复。请先[登陆]

 一起PHP技术联盟 主办：一起PHP 联系方式：站长QQ:4304410 QQ群：8423742 20159565 站长博客 E-mail： nqp@nqp.me 执行时间:0.017sec
SimsmaBBS 2008 (v6.0) Developed by 17php.com,Copyright(C)2003-2010 All rights reserved. 副本授权：一起PHP官方专用版