st1 <- function(sp=1,att=1){ /*sp是文戏/武戏参数，这里默认为1就是文戏；att是喜/哀情绪参数，这里默认为喜；两个参数都可以改*/
pla <- sample(1:length(place),1,replace=F) /*生成1个用于抽取地名的随机数*/
looc <- sample(1:length(loc),2,replace=F) /*生成2个用于抽取地点的随机数*/
pre <- sample(1:length(prep),3,replace=F) /*生成3个用于抽取虚词的随机数*/
time <- sample(1:length(wea),1,replace=F) /*生成1个用于抽取时间的随机数*/
peocount <- sample(1:length(people),1,replace=F) /*生成1个用于抽取官职的随机数*/
if(sp==1){ /*条件判断，如果是文戏的情况下*/
spnumc <- sample(1:length(schnun),2,replace=F) /*生成2个用于抽取文戏环境的随机数*/
spvebc <- sample(1:length(schveb),2,replace=F) /*生成2个用于抽取文戏动作的随机数*/
spnum <- schnun /*为环境赋值文戏环境*/
spveb <- schveb /*为环境赋值文戏动作*/
spstate <- NULL
for (i in 1:2){
spstate <- paste(spstate,spnum[spnumc[i]],spveb[spvebc[i]],",")
} /*for 循环实现两个文戏四字短语的粘贴*/
}
else { /*条件判断，如果是武戏的情况下，就不多写了*/
spnumc <- sample(1:length(solnun),2,replace=F)
spvebc <- sample(1:length(solveb),2,replace=F)
spnum <- solnun
spveb <- solveb
spstate <- NULL
for (i in 1:2){
spstate <- paste(spstate,spnum[spnumc[i]],spveb[spvebc[i]],",")
}
}
if(att==1){ /*条件判断，如果情绪是“喜”的情况下，就不多写了*/
attsic <- sample(1:10,2,replace=F)
atti <-sisch
modadjc <- sample(1:length(hapadj),2,replace=F)
modthoc <- sample(1:length(haptho),2,replace=F)
mood <- c(paste(hapadj[modadjc[1]],hapadj[modthoc[1]]),paste(hapadj[modadjc[2]],hapadj[modthoc[2]]))
}else { /*条件判断，如果情绪是“哀”的情况下，就不多写了*/
attsic <- sample(1:10,2,replace=F)
atti <-sisol
modadjc <- sample(1:length(sadadj),2,replace=F)
modthoc <- sample(1:length(sadtho),2,replace=F)
mood <- c(paste(sadadj[modadjc[1]],sadadj[modthoc[1]]),paste(sadadj[modadjc[2]],sadadj[modthoc[2]]))
}
/*实现文本输出*/
res <- paste(place[pla[1]]/*环境1*/,loc[looc[1]]/*地点1*/,prep[pre[1]]/*虚词1*/,
people[peocount[1]]/*人物1*/,",",prep[pre[2]]/*虚词2*/,wea[time[1]]/*天气1*/,spstate/*两个四字短语*/,paste(atti[attsic[1]]",",atti[attsic[1]+10])/*文戏二十四诗品*/,,"֮之时",",",
mood[1]/*情绪词1*/,loc[looc[2]]/*地点2*/,paste(atti[attsic[2]],",",atti[attsic[2]+10])/*文戏二十四诗品*/,, "֮之",mood[2])/*情绪词2*/
return(res) /*返回函数值*/
}
@Paris零
生成结果就是这样：
东京酒家之胥吏 , 而华霜卷帘, 深庭初开 , 萧萧落叶 , 漏雨苍苔之时 , 空持之匪强 , 来之无穷之悲戚。
可以多跑上十几次，然后选择你最喜欢的词句进行组合。比较程序是死的，人文是活的。
最后高考已经完了，欢迎广大学子报考计量与应用信息专业。
怒赞！
都看不懂程序虽然我造它很牛逼
