3维饼图

饼图

一直想发表点东西。最近刚把php4中的php_gd.dll搞定,就迫不及待的想做点图形程序玩玩。看到有许多php做饼图的例子,看了一下都是2维的,于是就想做个3维的。经过努力pie3d完成了,好东西与大家分享。不过小弟是php新手,代码可能不够精炼,希望大家指教共同来完善这个程序。记得通知我(estorm@yeah.net)

+------------------------+
| pie3dfun.php//公用函数 |
+------------------------+

define("ANGLE_STEP",5);//定义画椭圆弧时的角度步长
function chx_getdarkcolor($img,$clr){//求$clr对应的暗色
$rgb=imagecolorsforindex($img,$clr);
return array($rgb["red"]/2,$rgb["green"]/2,$rgb["blue"]/2);
}

function chx_getexy($a,$b,$d){//求角度$d对应的椭圆上的点坐标
$d=deg2rad($d);
return array(round($a*Cos($d)),round($b*Sin($d)));
}

function chx_arc($img,$ox,$oy,$a,$b,$sd,$ed,$clr){//椭圆弧函数
$n=ceil(($ed-$sd)/ANGLE_STEP);
$d=$sd;
list($x0,$y0)=chx_getexy($a,$b,$d);
for($i=0;$i<$n;$i++){
$d=($d+ANGLE_STEP)>$ed?$ed:($d+ANGLE_STEP);
list($x,$y)=chx_getexy($a,$b,$d);
imageline($img,$x0+$ox,$y0+$oy,$x+$ox,$y+$oy,$clr);
$x0=$x;
$y0=$y;
}
}
function chx_sector($img,$ox,$oy,$a,$b,$sd,$ed,$clr){//画扇面
$n=ceil(($ed-$sd)/ANGLE_STEP);
$d=$sd;
list($x0,$y0)=chx_getexy($a,$b,$d);
imageline($img,$x0+$ox,$y0+$oy,$ox,$oy,$clr);
for($i=0;$i<$n;$i++){
$d=($d+ANGLE_STEP)>$ed?$ed:($d+ANGLE_STEP);
list($x,$y)=chx_getexy($a,$b,$d);
imageline($img,$x0+$ox,$y0+$oy,$x+$ox,$y+$oy,$clr);
$x0=$x;
$y0=$y;
}
imageline($img,$x0+$ox,$y0+$oy,$ox,$oy,$clr);
list($x,$y)=chx_getexy($a/2,$b/2,($d+$sd)/2);
imagefill($img,$x+$ox,$y+$oy,$clr);
}

function chx_sector3d($img,$ox,$oy,$a,$b,$v,$sd,$ed,$clr){//3d扇面
chx_sector($img,$ox,$oy,$a,$b,$sd,$ed,$clr);
if($sd<180){
list($R,$G,$B)=chx_getdarkcolor($img,$clr);
$clr=imagecolorallocate($img,$R,$G,$B);
if($ed>180) $ed=180;
list($sx,$sy)=chx_getexy($a,$b,$sd);
$sx+=$ox;
$sy+=$oy;
list($ex,$ey)=chx_getexy($a,$b,$ed);
$ex+=$ox;
$ey+=$oy;
imageline($img,$sx,$sy,$sx,$sy+$v,$clr);
imageline($img,$ex,$ey,$ex,$ey+$v,$clr);
chx_arc($img,$ox,$oy+$v,$a,$b,$sd,$ed,$clr);
list($sx,$sy)=chx_getexy($a,$b,($sd+$ed)/2);
$sy+=$oy+$v/2;
$sx+=$ox;
imagefill($img,$sx,$sy,$clr);
}
}

function chx_getindexcolor($img,$clr){//RBG转索引色
$R=($clr>>16) & 0xff;
$G=($clr>>8)& 0xff;
$B=($clr) & 0xff;
return imagecolorallocate($img,$R,$G,$B);
}

?>

+--------------------------+
| pie3d.php //三维饼图文件 |
+--------------------------+

require("pie3dfun.php");

$a=150;//椭圆长半轴
$b=50;//椭圆段半轴
$v=20;//圆饼高度
$font=5;//字体

$ox=5+$a;
$oy=5+$b;
$fw=imagefontwidth($font);
$fh=imagefontheight($font);

$datLst=array(30,10,20,20,10,20,10,20);//数据
$labLst=array("a1","a2","a3","a4","a5","a6","a7","a8");//标签
$clrLst=array(0x99ff00,0xff6666,0x0099ff,0xff99ff,0xffff99,0x99ffff,0xff3333,0x009999);

$w=10+$a*2;
$h=10+$b*2+$v+($fh+2)*count($datLst);

$img=imagecreate($w,$h);

//转RGB为索引色
for($i=0;$i
$clrbk=imagecolorallocate($img,0xff,0xff,0xff);
$clrt=imagecolorallocate($img,0x00,0x00,0x00);
//填充背景色
imagefill($img,0,0,$clrbk);
//求和
$tot=0;
for($i=0;$i
$sd=0;
$ed=0;
$ly=10+$b*2+$v;
for($i=0;$i $sd=$ed;
$ed+=$datLst[$i]/$tot*360;
//画圆饼
chx_sector3d($img,$ox,$oy,$a,$b,$v,$sd,$ed,$clrLst[$i]);//$sd,$ed,$clrLst[$i]);
//画标签
imagefilledrectangle($img,5,$ly,5+$fw,$ly+$fh,$clrLst[$i]);
imagerectangle($img,5,$ly,5+$fw,$ly+$fh,$clrt);
imagestring($img,$font,5+2*$fw,$ly,
$labLst[$i].":".$datLst[$i]."(".(round(10000*($datLst[$i]/$tot))/100)."%)",
$clrt);
$ly+=$fh+2;
}
//输出图形
header("Content-type:image/gif");
imagegif($img);

?>

时间: 2024-10-29 10:00:25

3维饼图的相关文章

用ASP生成二维饼图

<%@ Language=VBScript %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <BODY> <OBJECT classid="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D" id=MSChar

用ASP生成Chart (二维饼图)

这是使用ActiveX Controls 的<%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><OBJECT classid="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D

用ASP生成二维拼图

<%@ Language=VBScript %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <BODY> <OBJECT classid="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D" id=MSChar

Excel2013中表格怎么制作直观双饼图

  Excel2013中表格怎么制作直观双饼图 像这张表格中的数据,数据虽然不多,但只能大致看出蔬菜.电器.水果3个类别,而3种水果又没有算出总量.若仅从这张表格来看,很难一眼看出3类物品量的对比关系. 但是,如果将上述数据变成下面这样的图表,是不是就直观多了呢? 那么,这样的图表如何生成呢?请随我来-- 首先打开数据表,选择要制作图表的数据区域,然后依次选择"插入→图表→插入饼图或圆环图→二维饼图→复合饼图",这样就可以获得一个基本的复合饼图雏形. 但是,这个图表还缺乏必要的标注,只

Excel2013怎么制作半圆饼图

Excel2013怎么制作半圆饼图   1.打开excel2013,其他版本操作其实都差不多,输入各个项目类别的数据,如图所示,并进行依次汇总统计,结果放在列表底端,如图所示. 2.先对数据进行排序,降序,全选所有数据,包括汇总的结果,点击插入,选择饼图,使用最基本的二维饼图就行. 3.表格中已经生成一个饼图,左侧的蓝色图形是汇总结果的数据占比,选中饼图,右击,选择设置数据系列格式. 4.在excel右侧的找到第一扇区起始位置,输入270度,也就是从-90度开始,如图所示,原来左侧的蓝色图形转移

Excel数据如何变身直观双饼图

  在用Excel表格进行数据统计时,为了看起来更直观,往往要将不同种类的数据存放在不同行(列)中.但是,有时要统计的不同种类的数据却混杂在同一行(列)中,很难一眼看出彼此之间的关系.遇到这种情况,我们可以用双饼图来更直观地表现数据的关系. 像这张表格中的数据,数据虽然不多,但只能大致看出蔬菜.电器.水果3个类别,而3种水果又没有算出总量.若仅从这张表格来看,很难一眼看出3类物品量的对比关系. 但是,如果将上述数据变成下面这样的图表,是不是就直观多了呢? 那么,这样的图表如何生成呢?请随我来--

Excel2013怎样在图表制作半圆饼图

  1.启动Excel2013,打开需要进行制作饼图的数据表格,在C2单元格输入公式,这里用到绝对引用. 2.回车,得到计算结果,为小数,我们单击菜单栏--开始--数字,选择百分比格式,将小数化为百分比形式. 3.四舍五入取整,19%,双击填充柄,将其与的也计算出来,在C8单元格输入100%,按下Enter键回车. 4.按住Ctrl键选择A1:A8和C1:C8区域,单击插入--饼图,选择二维饼图中的第一种样式. 5.图表插入完成,右击,从弹出的右键菜单中选择设置数据系列格式. 6.右侧出现设置数

《MATLAB图像处理375例》——第2章 MATLAB图形的可视化 2.1 二维绘图

第2章 MATLAB图形的可视化 MATLAB图像处理375例数据可视化是MATLAB一项重要的功能.MATLAB所提供的丰富绘图功能,使得工程科研人员从繁琐的绘图细节中脱离出来,并专注于最关心的本质.通过数据可视化的方法,工程科研人员可以对样本数据的分布.趋势特性有一个直观的了解. 2.1 二维绘图 MATLAB图像处理375例在MATLAB中绘制二维图形,通常采用以下步骤. (1)准备数据. (2)设置当前绘图区. (3)绘制图形. (4)设置图形中曲线和标记点格式. (5)设置坐标轴和网格

Excel2010图表半圆百分比进度图

  半圆百分比进度图,是指表达工作进度完成百分比比例的特殊饼图,案例包括数据模型建立.格式设置.添加数据标签等内容.下面,小编就来带领大家一起制作一份半圆百分比进度图. 1.创建图表,必须要有数据,我们先启动Excel2010,简单的输入一些数据,包括业绩目标,未完成和完成的百分比,各个月份的业绩情况. 2.我们看到上方有完成以及未完成的单元格,是用来计算比例的,先在已完成所属的单元格输入公式:=sum(B5:B16)/A2,意思是计算B5:B16区域的数据之和,然后除以A2单元格数值,也就是业