大神们帮我看看这个图怎么生成？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

直线的栅格化

（http://wenku.baidu.com/view/d278cc100b4e767f5acfce39.html）

随机产生直线的两个端点，实现对直线的栅格化，把连接两端点的栅格显示出来。

如下图所示，灰色栅格就是所求的结果。怎么生成15行15列的矩阵网格？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：wenku baidu view HTML HTTP

图画的比较随意

1. #y=1/4*x+1
   
2. plot(c(0,25),c(0,25),type="n")
   
3. x=0
   
4. y=1
   
5. data <- data.frame(x=x,y=y)
   
6. e = -1/2
   
7. repeat{
   
8.   k=1/4
   
9.   e=e + k
   
10.   if(e>0|e==0){
    
11.     e=e-1
    
12.     x=x+1
    
13.     y=y+1
    
14.   }else{
    
15.     x=x+1
    
16.     y=y+0
    
17.   }
    
18.   data= rbind(data,c(x,y))
    
19. if(x>25)break
    
20. }
    
21. 
    
22. rect(data$x-.5,data$y-.5,data$x+.5,data$y+.5,col="lightblue")
    
23. abline(1,1/4)

复制代码

jmpamao 发表于 2013-11-2 21:09
图画的比较随意

最近没有登录论坛，谢谢。。