你羡慕那些出口就会吟诗的文人吗DOCWord下载.docx

1、71 69 39如梦令根号二 深处时节千里（过了许多年，男猪脚来到了很遥远的地方）41 42 13消息当年鸳鸯（这。找老相好去了？56 23 73归来今日（妹子，我胡汉三回来啦）09 50一点无情多少（你还知道来看我啊！48 80 16今夜，今夜（要出问题了。88 88而今时节归来（仿佛重回当年，男猪脚依然那么坚挺）72 42 09看完这首诗，网友们一边膜拜，一边自己的创作灵感也被打开了。“丘寒”留言道：“试着用某个号码创作了一首：天上相思，芳草年年，昨夜江南，回首一笑多情。“零Ronnie”很有创作激情：“我的生日：年年江上，江南春风；我的手机号：明月芳草去年，江南阑干归去还真挺上口的！我也

2、能做诗人了哈哈！理科生欢呼：消灭文科生的日子来了 可是这么一来，文科生又不淡定了，一群文科生跳起来反击。“雯名霞迩”大叫：“统统拖出去，斩了！这让学中文的人情何以堪啊！“Rockfish”代表理科生还击：“理科宅男们消灭文科生的日子到来了！拿起你的计算器，消灭文艺青年吧！“可可”童鞋呼唤：“就让科技小清新来得更猛烈些吧！” 还有一群网友七嘴八舌讨论着。“沌世界”淡定地说：“不知宋词的粉丝看了是不是有一种偶像破灭的感觉。“家杰仕”童鞋也总结道：“文艺男女已经阻止不了技术宅作诗了！网友“Rakin”点评：“理科生文艺得真凶猛！“焰心Spring”呼吁：“想文艺一回的同学请转！“ChanIm”表示：

3、“当时学写诗的时候超鄙视这些，现在淡定了，因为没那么多愁善感了。“思念的秋天”感慨：“穿越必备！“NetCharm”说：“背熟了，随便组合一下，写出来的也不会太烂。“huahualipo”童鞋还提出了意见：“高人，能不能把平仄也加上如果平仄太困难，至少考虑一下词尾押韵如何？韵脚也就十来个，每个都分配一个数值，然后每隔一行，末尾的词就只从一个值下选。这样会大大增加仿真度啊！再次神经短路，突然想看看宋词里面什么样的意象是最常见的，比如可以做个频率分析什么的。比如“犹解嫁东风”这句话，可能的二字组合是“犹解”“解嫁”“嫁东”“东风”，三字组合是“犹解嫁”“解嫁东”“嫁东风”，词的字数越多，可能的组合

4、就越少。当然里面会有很多无意义的字的组合，不过这类“词语”本身的出现就是一个偶然，所以可以预期的是它们整体的频数会很低，是入不了“大雅之堂”的。话不多说，直接上代码和结果。数据：全宋词文本代码：l=scan（Ci.txt,character,sep=n）;l.len=nchar（l）;# 某些行是作者和标题，所以选取长度大于10的行；# 另外这个文本文件不太规整，有些网址什么的，# 所以也要排除那些长度太长的。ci=l;# 句子用标点符号分割。sentences=strsplit（ci,，|。|！|？|、sentences=unlist（sentences）;sentences=sentenc

5、essentences!=;s.len=nchar（sentences）;# 单句太长了说明有可能是错误的字符，去除掉。sentences=sentencess.len=10;# 暴力挨个拆分，比如“犹解嫁东风”的所有二字组合为# “犹解”“解嫁”“嫁东”“东风”，# 无意义的词其频数自然就落在后面了。splitwords=function（x,x.len） substring（x,1:（x.len-1）,2:x.len）;words=mapply（splitwords,sentences,s.len,SIMPLIFY=TRUE,USE.NAMES=FALSE）;words=unlist（wo

6、rds）;words.freq=table（words）;words.freq=sort（words.freq,decreasing=TRUE）;data.frame（Word=names（words.freq1:100）,Freq=as.integer（words.freq1:100）;结果（排在第一的是无效字符，这跟数据源有关）：Word Freq1 14852 东风 13823 何处 12304 人间 12025 风流 8576 归去 8127 春风 8028 西风 7799 归来 77110 江南 76511 相思 75312 梅花 73213 千里 67614 回首 65615 明月

7、 65116 多少 64817 如今 64218 阑干 63019 年年 61320 万里 59021 一笑 58222 黄昏 55023 当年 54224 天涯 53725 相逢 52826 芳草 52727 尊前 51628 一枝 51229 风雨 50530 流水 47231 依旧 47232 风吹 47133 风月 46134 多情 45735 故人 45136 当时 45037 无人 44538 斜阳 43839 不知 43040 不见 42941 深处 42242 时节 40343 平生 39844 凄凉 39845 春色 39446 匆匆 38347 功名 38348 一点 37

8、849 无限 37750 今日 36951 天上 36852 杨柳 36253 西湖 35654 桃花 35455 扁舟 35356 消息 35157 憔悴 34458 何事 33959 芙蓉 33860 神仙 33461 一片 33462 桃李 33363 人生 33264 十分 33165 心事 32966 黄花 32867 一声 32568 佳人 32469 长安 32170 东君 31971 断肠 31672 而今 31573 鸳鸯 31474 为谁 31375 十年 31076 去年 30977 少年 30878 海棠 30779 寂寞 30680 无情 30681 不是 30582

9、 时候 30483 肠断 30384 富贵 30385 蓬莱 30386 昨夜 30387 行人 30288 今夜 30189 谁知 30090 不似 29991 江上 29892 悠悠 29693 几度 29594 青山 29595 何时 29496 天气 29397 惟有 29398 一曲 29199 月明 291100 往事 290不知各位看官看到上面这些既熟悉又悠远的话语又将作何感想？或许，她们就是我们千百年来的精神寄托吧。试了下在R下面执行此代码, 不过在我机子上好像有问题. 于是按照这个思路用KNIME做了个简单统计流程. （数据源相同）因为多处理了一点异常, 双字词频顺序基本一样

10、, 数量稍有区别, 不重复贴了. 不过可以贴出短句句频:D到如今,50君知否,46谁知道,30功名事,28须信道,28最好是,27人间世,26从今去,26凝伫,25归去,24不如归去,23知否,23谁信道倚阑干,21到而今又还是,21归去来兮人不见,20当此际记当年,19东风里,18怎奈向春去也须知道,18争知道,17更那堪留不住谩赢得,17那堪更一觞一咏,16休休君不见,16家山好归来也思往事悠悠无绪还知否追往事人间天上,15最苦是,14疏影横斜空怅望空惆怅,14记年时人间事,13又只恐回首处,13夜沈沈断人肠早归来有多少空凝伫向尊前,12微雨过情脉脉,12斜阳外无语月明中朱颜绿鬓绿鬓朱颜谁

11、念我还知么问何如不堪回首,11东风恶人何处人正在,11今老矣从别后倚东风又何须多少事天长地久安阳好对东风对西风广寒宫殿归去也归来晚愿年年江南岸空回首终不似肠断肠断处落花飞絮西源好阑干外风流飕飕与谁同,10五云深处,10人间何处难忘酒人静从此去倚西风分明是功名富贵南徐好岁岁年年思晴好想当年无限事朝朝暮暮歌窈窕独自个竹篱茅舍纶巾羽扇良辰美景记当时诗曰醉归来七十古来稀,9人如玉人尽道,9何处凝望处千古恨千秋岁去年今日向此际坐中客天赋与好天良夜年年今日待归来愁绝故人何处明月清风暗香浮动曲水流觞浑不似清绝盈盈空肠断空赢得算人间算只有缘底事记当日还又是道骨仙风都付与都休问酒醒时问人间问何时风不定一声声,8

12、不见二十年,8人散后人易老从今后休去休辞醉依然是几时休凭阑久去天尺五又谁知君且住吾老矣回首堪羡多少恨夜来风雨天下事天如水如何得嫣然一笑寂寞山居好归去来心下事怎知道思悠悠恁时节悄无人愿岁岁文章太守无个事最关情最好处有谁知浮世事满城风雨玉骨冰肌画堂深登临处看不足真个是知何处知音少称寿处空相忆笑人间纱窗外落花流水长安道问当年雨初晴频回首风又雨风流云散一杯酒,7一蓑烟雨,7三千岁东风外人去后人未老人道是今夜里但怅望佳人何处再相逢冰肌玉骨净几明窗凄凉凌波微步凝望久千山万水卷珠帘又何妨又过了叹人生君看取吴头楚尾地久天长堪恨处堪爱处多应是夜将阑天付与天寒日暮如今憔悴山无数帘栊静广寒宫里待明朝忆当年急管繁弦恨悠悠憔悴携手处无一事暗香疏影最难忘月明风细有个人人水悠悠江南春早深院宇深院静清风明月画图中留恋留春不住相逢相逢处看明年算惟有经行处绮罗丛里缓带轻裘肠欲断自别后莫匆匆行乐处许多愁试与问试屈指谈笑里谩回首还知道送君南浦都不管都莫问酒巡未止采菱拾翠长亭路问谁是难忘处非烟非雾风前月下黯销魂一叶扁舟,6一年一度,6一杯相属一枝枝一轮明月下缺不知今夕何夕东风起举杯相属之句人似玉人别后人生行乐人都道人间今夕何夕仙风道骨似当年但回首但赢得佳丽地依前是依然便从今便直饶凝眸几番风雨凭谁说凭阑处凭阑干分付与分携处别离情绪