tag 标签: 缓冲区经管大学堂:名校名师名课

相关日志

分享 R生成栅格缓冲区的各种图
小洋仔 2013-12-10 09:19
R生成栅格缓冲区的各种图
x-c(0,15) y-c(0,15) par(bg="gray") plot(x,y,type="n",xlab="",ylab="") for(x in 0:15){for(y in 0:15) rect(x-.5,y-.5,x+.5,y+.5)} points(c(3,12),c(6,8),pch=21,bg="yellow") x =3 y =6 x2=12 y2=8 m=max(abs(y2-y ),abs(x2-x )) n=m+1 addy=(y2-y )/m addx=(x2-x )/m i=2 for(i in 2:n){x =x +(i-1)*addx y =y +(i-1)*addy y =round(y )} data-data.frame(x=x,y=y) for(i in 1:10){x-rep(c((data $x-3):(data $x+3)),7) y-rep(c((data $y-3):(data $y+3)),each=7) data1-data.frame(y=y,x=x) for(j in 1:49){if (sqrt((data1 $x-data $x)^2+(data1 $y-data $y)^2)4) rect(data1 $x-.5,data1 $y-.5,data1 $x+.5,data1 $y+.5,col="green")}} rect(data$x-.5,data$y-.5,data$x+.5,data$y+.5,col=rev(heat.colors(10))) lines(c(3,12),c(6,8),type="o",col="green") 缓冲区
6 次阅读|0 个评论

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-5-4 22:13