# 几个有趣的R代码

## 此图代表我的心

 n=50000; r=0.7;r_e=(1-r*r)^.5; X=rnorm(n); Y=X*r+r_e*rnorm(n); Y=ifelse(X>0,Y,-Y); plot(X,Y,col="pink")

R语言脚本，有趣的图

## 我心因你而有爱

 n=50000; r=0.7;r_e=(1-r*r)^.5; X=rnorm(n); Y=X*r+r_e*rnorm(n); Y=ifelse(X>0,Y,-Y); a<-sample(c(2,6,7,8),50000,T) b<-sample(c(76,79,86,69),50000,T) plot(X,Y,col=0) text(X,Y,"lOVE",col=a)

## 此图太猥琐了，运行结果就不贴上了

 xrange = c(-15, 15) yrange = c(0, 16) plot(0, xlim = xrange, ylim = yrange, type = "n") #plot(xrange, yrange, type="n", ann=FALSE, axes=FALSE) yr = seq(yrange[1], yrange[2], len = 50) offsetFn = function(y) { 2 * sin(0 + y/3) } offset = offsetFn(yr) leftE = function(y) { -10 - offsetFn(y) } rightE = function(y) { 10 + offsetFn(y) } xp = c(leftE(yr), rev(rightE(yr))) yp = c(yr, rev(yr)) polygon(xp, yp, col = "#ffeecc", border = NA) h = 9 xt = seq(0, rightE(h), len = 100) yt = log(1 + log(1 + log(xt + 1))) yt = yt - min(yt) yt = h * yt/max(yt) x = c(leftE(h), rightE(h), rev(xt), -xt) y = c(h, h, rev(yt), yt) polygon(x, y, col = "red", border = NA)

• 本文由 整理发表
• 网站部分文章源自互联网，若未正确标注来源，请联系管理员更新。文章转载，请务必保留本文链接

• xysheep @回复

嘿嘿，挺有趣的。

我也来一段matlab代码：

x=[-1.65:0.00001:1.65];
hold on;
plot(x,(sqrt(cos(x)).*cos(200.*x)+sqrt(abs(x))-0.7).*(4-x.*x).^0.01,’r’)
axis([-5 5 -5 5]);
x=[-4.5:0.00001:4.5];
plot(x,sqrt(4.5-x.^2),x,-sqrt(4.5-x.^2))

• boya888 @回复

xysheep是来踢馆的？！ :razz:
matlab PK R