2月 15

十年

Posted on by

十年，一个说短不短、说长不长的时间。
十年，有的早已改变，有的却一如既往。
十年，有的人哭闹着来了、有的人不情愿得走了。
十年，有的事情早已淡忘，有的却依然刻骨铭心。
十年，有过相聚、有过离别；十年，有过欢笑、有过悲伤；十年，有过选择、有过无奈。
十年，似近似远、如梦如幻。十年，……

  • 《唐诗三百首》中的“十年”

遣怀（杜牧）
落魄江湖载酒行，楚腰纤细掌中轻。
十年一觉扬州梦，赢得青楼薄幸名。

宿府（杜甫）
清秋幕府井梧寒，独宿江城蜡炬残。
永夜角声悲自语，中庭月色好谁看。
风尘荏苒音书绝，关塞萧条行路难。
已忍伶俜十年事，强移栖息一枝安。

淮上喜会梁川故人（韦应物）
江汉曾为客，相逢每醉还。
浮云一别后，流水十年间。
欢笑情如旧，萧疏鬓已斑。
何因北归去，淮上对秋山。

喜见外弟又言别（李益）
十年离乱后，长大一相逢，
问姓惊初见，称名忆旧容。
别来沧海事，语罢暮天钟。
明日巴陵道，秋山又几重。

赠阙下裴舍人（钱起）
二月黄鹂飞上林，春城紫禁晓阴阴。
长乐钟声花外尽，龙池柳色雨中深。
阳和不散穷途恨，霄汉常悬捧日心。
献赋十年犹未遇，羞将白发对华簪。

古意呈补阙乔知之（沈佺期）
卢家少妇郁金堂，海燕双栖玳瑁梁。
九月寒砧催木叶，十年征戍忆辽阳。
白浪河北音书断，丹凤城南秋夜长。
谁为含愁独不见，更教明月照流黄。
Continue reading →

2月 13

情人节特献之“我心永恒”

Posted on by

  • 极坐标中的心形［R］

预览：
heart1
代码：

1
2
3
4

library(plotrix)
t《-seq(-pi,pi,0.1)
r《-1-cos(t/2)
radial.plot(r,t,rp.type="p",lwd=3,line.col=2)

  • 2D的中国心［R］

预览：
heart2
代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

#heart
n=30000
p=sort(runif(n,min=0,max=pi))
p=sin(p)+rnorm(n)
plot(sort(rnorm(n)),-p,col="red",pch="·",axes = F, ylab="",xlab=paste("By 微微    ",Sys.Date()),main="Happy Birthday")
#stars
p《-c()
q《-c()
rr《-c(0.68,rep(0.32,4))
#locator()定的下面坐标，精确但不准确。
m《-c(-1.2511927,-0.7707085,-0.5538095,-0.6129638,-0.8293381)
n《-c(-0.079779159,0.42312375,0.05632304,-0.45719796,-0.8440031)
for (k in c(1:5))
{
r=rr[k]
for (i in 1:5)
{
p[2*i-1]=sin(pi*18/90)/sin(pi*54/90)*r*sin(pi*(i*72+36)/90)
q[2*i-1]=sin(pi*18/90)/sin(pi*54/90)*r*cos(pi*(i*72+36)/90)
p[2*i]=sin(pi*18/90)/sin(pi*54/90)*0.38*r*sin(pi*(i*72+18)/90)
q[2*i]=sin(pi*18/90)/sin(pi*54/90)*0.38*r*cos(pi*(i*72+18)/90)
}
x=c(p[1],p[2],p[5],p[6],p[9],p[10],p[3],p[4],p[7],p[8],p[1])
y=c(q[1],q[2],q[5],q[6],q[9],q[10],q[3],q[4],q[7],q[8],q[1])
x=x+m[k]
y=y+n[k]
polygon(x, y, col="yellow",border = "yellow")
}

  • 3D的中国心［R］

预览：
snapshot01
代码（下载）：mychina

  • 浪漫的表白

参看：浪漫的表白与猥琐的相思——几个有趣的R代码
Continue reading →