通行证: 用户 密码
域名空间  下载中心 社区论坛 信息公告 my小屋
联系我们
设为首页
加入收藏
热门:qq挂机,asp,php,jsp,xml
,sql,.net,编程 程序 网页图象
首页>网络编程>其他相关>正文 中国黑客群攻击美政府网站 拿到部   微软计划开放office文件格式 消除   腾讯联合八部门严厉打击挂机网站   神六载人飞行圆满成功   美国会要求nasa彻底完成空间站建   google中国研究院有望落户清华   深度分析:论雅虎中国的夭折和阿   神六可能于10月13日上午11点发射   盖茨继续当全美首富   adobe ceo痛斥微软 称其管理层从   
热 点 排 行
dll文件下载
qq挂机的n种快速方法
长白山天池怪兽再现 一分钟
腾讯qq调整升级条件 不再诱
ape歌曲的播放、转换和刻录
新开放qq免费挂级网站
qq挂级程序,qq免费挂机源程
刘亦菲 变性人、堕胎,自称
photoshop通道抠图:给秀发
免费把qq炫铃设为本机qq的
用通通通作代理在局域网上
用6位qq注意啦,免费领取6位
超级女声总决赛 现场实况(
用nero制作win98多功能启动
亲身体验!让桌面不再粗糙
推 荐 新 闻
中国黑客群攻击美政府网站
bittorrent被好莱坞招安盗
网站建设中,关键词选择技
神六载人飞行圆满成功
国庆长假上网慎防“移动杀
连环起诉google 传统媒体欲
最强秘籍 ie7最新使用技巧
神六完成总装可接航天器 外
adobe ceo痛斥微软 称其管
微软急调张亚勤回中国 千里
微软宣布重大重组方案 将划
腾讯qq 2005 beta3火热发布
腾讯扩张路线图曝光 陈天桥
腾讯拍拍网正式吹响进军c2
第五届“西湖论剑”文字实
相 关 新 闻
首页>网络编程>其他相关>正文

一组javascript绘图函数


http://www.iyit.net  日期:2005-11-24 17:47:52  来源:易特网络技术  点击:
<html>
<head>
<title>javascript绘图</title>
<script language="javascript">
ie4 = ! (navigator.appversion.charat(0) < "4" || navigator.appname == "netscape")
var xo=0
var yo=0
var ox = -1
var oy = -1
var rad = math.pi/180
var maxy = 400
var color = "red"
function print(str) {
document.write(str)
}
function orgy(y) {
return maxy-y
}
function outplot(x,y,w,h) {
print(’<span style="position:absolute;left:’+x+’;top:’+y+’;height:’+h+’;width:’+w+’;font-size:1px;background-color:’+color+’"></span>’)
}
function plot(x,y) {
outplot(x,y,1,1)
if(ox>=0 || oy>=0) {
showline(ox,oy,x-ox,y-oy)
}
ox = x
oy = y
}
function showline(x,y,w,h) {
if(w<0) {
x += w
w = math.abs(w)
}
if(h<0) {
y += h
h = math.abs(h)
}
if(w<1) w=1
if(h<1) h=1
outplot(x,y,math.round(w),math.round(h))
}
function lineto(x,y) {
line(xo,yo,x,y)
}
function sign(n) {
if(n>0)
return 1
if(n<0)
return -1
return n
}
function line(x1,y1,x2,y2) {
x2 = math.round(x2)
y2 = math.round(y2)
xo = x2
yo = y2
y1 = orgy(y1)
y2 = orgy(y2)
var str = ""
var i=0
var x = x1
var y = y1
dx = math.abs(x2-x1)
dy = math.abs(y2-y1)
s1 = sign(x2-x1)
s2 = sign(y2-y1)
if(dx==0 || dy==0) {
showline(x1,y1,x2-x1,y2-y1)
return
}
if(dx>dy) {
temp = dx
dx = dy
dy = temp
key = 1
}else
key = 0
e = 2*dy-dx
for(i=0;i<dx;i++) {
px = 0
py = 0
plot(x,y)
while(e>=0) {
if(key==1) {
x += s1
px += s1
}else {
y += s2
py += s2
}
e = e-2*dx
}
if(key==1)
y += s2
else
x += s1
e = e+2*dy
}

function moveto(x,y) {
ox = oy = -1
xo = math.round(x)
yo = math.round(y)
}
// 圆
function cir(x,y,r) {
moveto(x+r,y)
for(i=0;i<=360;i+=5) {
lineto(r*math.cos(i*rad)+x,r*math.sin(i*rad)+y)
}
}
// 弧形
function arc(x,y,r,a1,a2) {
moveto(r*math.cos(a1*rad)+x,r*math.sin(a1*rad)+y)
for(i=a1;i<=a2;i++) {
lineto(r*math.cos(i*rad)+x,r*math.sin(i*rad)+y)
}
}
// 扇形
function pei(x,y,r,a1,a2) {
moveto(x,y)
for(var i=a1;i<=a2;i++) {
lineto(r*math.cos(i*rad)+x,r*math.sin(i*rad)+y)
}
lineto(x,y)
}
// 弹出扇形
function poppei(x,y,r,a1,a2) {
dx = r*math.cos((a1+(a2-a1)/2)*rad)/10
dy = r*math.sin((a1+(a2-a1)/2)*rad)/10
x += dx
y += dy
moveto(x,y)
for(var i=a1;i<=a2;i++) {
lineto(r*math.cos(i*rad)+x,r*math.sin(i*rad)+y)
}
lineto(x,y)
}
// 矩形
function rect(x,y,w,h) {
moveto(x,y)
lineto(x+w,y)
lineto(x+w,y+h)
lineto(x,y+h)
lineto(x,y)
}
// 准星
function zhunxing(x,y) {
var ox = xo
var oy = yo
var ocolor = color
color = "#000000"
line(x-5,y,x+6,y)
line(x,y-6,x,y+5)
print(’<span style="position:absolute;font-size:10pt;left:’+(x+5)+’;top:’+orgy(y+5)+’;">[’+x+’,’+y+’]</span>’)
color = ocolor
xo = ox
yo = oy
}
// 标注
function biaozhustr(x,y,s) {
return ’<span style="position:absolute;font-size:10pt;left:’+x+’;top:’+orgy(y)+’;">’+s+’</span>’
}
function biaozhu(x,y,s,t) {
var ox = xo
var oy = yo
var ocolor = color
point = "p01.gif"
if(t==1) {
print(biaozhustr(x-5,y+6,"·"+s))
}
if(t==2) {
print(biaozhustr(xo+x*math.cos(y*rad)-10,yo+x*math.sin(y*rad),s))
}
color = ocolor
xo = ox
yo = oy
}
</script>
</head>
<body>
<table border="0" width="100%">
<tr>
<td width="100%" style="font-family: 方正舒体; font-size: 18pt; color: #ff0000" class="t1">javascript绘图</td>
</tr>
<tr>
<td width="100%" style="font-family: 幼圆; font-size: 12pt; color: #008000" class="t2"> 
如果需要在网页上提供图形化的资料,通常是将其制作成图片,但这样一来网络上的开销就太大了。有什么办法呢?这里向你提供一组javascript函数,来解决这一问题。虽然简单了点,但是对画点线图来说还是绰绰有余的!</td>
</tr>
</table>
<script>
if(ie4) {
// 基本图形
color = "maroon"
cir(50,40,20)
arc(100,40,20,60,120)
pei(150,60,40,240,300)
rect(200,20,40,40)
// 折线图
color = "#ff0000"
var jd = new array(
203,232,277,223,271,234,273,284,276,250,267,280
)
moveto(30,jd[0]-40)
biaozhu(xo,yo,jd[0])
for(i=1;i<jd.length;i++) {
lineto(i*30+30,jd[i]-40)
biaozhu(xo,yo,jd[i],1)
}
color = "#c0c0c0"
line(30,140,i*30+30,140)
line(30,140,30,260)
// 饼图
color = "#00ff00"
var gc = new array(
150,120,200,180,180
)
var s = 0
var m = 0
var n = 0
for(i=0;i<gc.length;i++) {
s +=gc[i]
if(gc[i] > m) {
m = gc[i]
n = i
}
}
var k = s/360
var mm = 0
var a =0
for(i=0;i<gc.length;i++) {
b = math.round((gc[i]+mm)/k)
if(i==n)
poppei(600,150,100,a,b)
else
pei(600,150,100,a,b)
biaozhu(60,a+(b-a)/2,math.round(gc[i]/s*100)+"%",2)
mm = mm+gc[i]
a = b
}
// 十字标注
moveto(280,20)
zhunxing(xo,yo)
}else {
document.write("<p> </p><table bgcolor=#ff0000><tr><td><font color=#ffff00>对不起!您的浏览器不能支持该页的某些功能,请换用ie4.0以上版本的浏览器!谢谢!</font></td></tr></table>")
}
</script>
</body>
</html> 

上一篇:vbs脚本的应用
下一篇:完美关闭窗口js

[发送给好友] [打印本页] [关闭窗口] [返回顶部] 转载请注明来源:http://www.iyit.net
特别声明: 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员,我们尽快予以更正。
责任编辑: 投稿作者: 易特网络技术
信息来源: 易特网络技术 录入时间: 2005-11-24 17:47:52
浏览次数: 投稿信箱: shtghy@163.com
  友情链接
设置首页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接
copyrights ?2004-2005 iyit.net all rights reserved.
网站合作、广告联系qq:147007642、466949678
易特网络技术 点击这里给我发消息