R语言模糊化图片(骰子作画的原理) r语言模糊匹配

R语言模糊化图片(骰子作画的原理) r语言模糊匹配
看到阮一峰的一篇文章骰子作画的算法,http://www.ruanyifeng.com/blog/2011/11/dice_portrait.html很干兴趣,尝试用R实现了一下。原理:将原图按指定好的像素分块,每一个小块是一个矩阵,计算每一块矩阵某个色度的平均值。将每一个矩阵内色度的平均值和原图色度的分位数比较,将其打上不同的标识,即将图片分成若干区域,每个区域经过计算后,如果是骰子则用1-6涧的一个整数表示,1-6代表骰子的某一个面。最后将指定的骰子的某一面平铺即可得到最终的结果。源码如下library(bmp)library(jpeg)library(pixmap)t <- read.bmp
t <- readJPEG("E:\个人\Think 1600×900\Think 09.jpg")r=read.bmp('myrgbimage.bmp')dim(t)plot(t)z <- t[, , 1]dim(z)dim(z1)[1]z1<-t(z)temp <-z[c(1:10), c(21:30)]mean(temp)k <- 1#按照10×10的划分小块 将小块内的数据的平均值保存到数组resultresult <- array(0)for(i in 1:160){ for(j in 1:90) { result[k] <-mean(z1[c((i-1)*10+1, i*10), c((j-1)*10+1, j*10)]) k <- k+1 print(paste(k,i,j,sep=",")) }}paste(k,i,j, sep=",")
p<-seq(0,1,0.1)


#数组长度为14400length(result)#查看分布summary(result)#计算数组的十等分值 保存到数组quan中p<-seq(0,1,0.1)
quan<-quantile(result,probs<- p)quan[11]#将转后的数据保存到result1字符串数组中result1<-array(0)for( i in 1:length(result)){ if(result[i] { result1[i]<- 1 } else if(result[i] result1[i]<- 2 } else if(result[i] result1[i]<- 3 } else if(result[i] result1[i]<- 4 } else if(result[i] result1[i]<- 5 } else if(result[i] result1[i]<- 6 } else if(result[i] result1[i]<- 7 } else if(result[i] result1[i]<- 8 } else if(result[i] result1[i]<- 9 } else { result1[i]<- 10 } }k <- 1#提取下标值x<- NULLy<- NULLx<-array(0);y<-array(0);
for (i in 1:160){ for( j in 1:90){ x[k]<- i y[k]<- j k <- k+1 } }length(y)
#再次转换到90×160的矩阵result2<-matrix(result1, nrow = 90, ncol = 160)new<-data.frame(x,y,result1)names(new)<-c('x', 'y', 'pch')#画出空白画板plot(1:160,type = "n")#points(new$y,new$x,pch=new$pch)
最后的结果比较图为,还是可以的

  

爱华网本文地址 » http://www.413yy.cn/a/25101010/35367.html

更多阅读

yy摇骰子怎么添加? yy摇骰子按键精灵

yy摇骰子怎么添加?——简介摇骰子是一个用于抽取幸运观众的频道应用,谁抢到管理员设置的中奖点数,谁就是中奖者。可运用于频道日常或各类需发奖品的活动中。下面我来给大家显示如何添加这个摇筛子应用。yy摇骰子怎么添加?——工具/

如何将图片转换成JPG的图片格式 精 图片转换jpg格式

如何将图片转换成JPG的图片格式 精——简介我相信很多人都会遇到这样的情况,有些电脑只能读取JPG格式的图片,png或者其他格式的图片就读取不了,那么怎么将其他格式的图片转换成JPG的图片格式呢?如何将图片转换成JPG的图

体癣图片及症状 梅毒的早期症状图片

体癣图片及症状——简介体癣好发于躯干、四肢。青壮年男性更多见,夏季多发。面积也不会太大。体癣图片及症状——体癣的诊断1、随着病程的延长,其损害会逐渐向四周扩散。2、应加强皮肤

关于周子寒的<吻和泪> 吻和泪 周子寒 李富兴

关于周子寒的<吻和泪>  以前我从没有听过周子寒的歌曲,甚至不知道他是谁,偶尔的一次机会,我到集上买了一张光盘,那里面正好有一首他的歌<吻和泪>,回到家里,我听到了这首歌,真没想到,这首歌的旋律是那么优雅,曲调是那么动人,连我这个不懂的什么是

声明:《R语言模糊化图片(骰子作画的原理) r语言模糊匹配》为网友迷路的男人分享!如侵犯到您的合法权益请联系我们删除