找回密码
 注册
搜索
查看: 1937|回复: 6

[灌水聊天] 诗歌机器人

[复制链接]
发表于 2018-6-24 06:34 PM | 显示全部楼层 |阅读模式


Robot for poetry 诗歌机器人

可能人工智能艺术家更加有才华,会写诗。

许多诗人和文科生没有闲工夫写码,可能误认为写程序非码农莫能。其实,
诗歌机器人的制造,必须由诗人主持大业,广大专业和业余诗歌爱好者大量的码字,并没有职业码农多少事。

这里九天示范一下Robot for poetry源码大致结构,目的是说明诗歌机器人程序不难,但是特麻烦。

下面是Robot for poetry写的诗歌, 因为我只是一个业余诗歌爱好者,自然编的程序写不出有创意的好诗,只是模仿而已。

1. 去年今日胡同中,
   小散人工智能相映红。
   小散不知何处去,
   人工智能依旧笑股市。

2. 蓝天给了我蓝色的幽梦,
   我却用它寻找前程

3. 明年游全球,
   提前报夫知  
   钱须连夜赚,
   莫待口袋空。

4. 我如果爱你——
   绝不像冷淡的月光,
   不照你的夜路却照沟渠。
//+--------------------------------------------------------------------------+
//|                                                        Robot for poetry  |
//|                                 Copyright 2018, 广大专业和业余诗歌爱好者  |
//| http://www.hutong9.net/forum.php ... &extra=page%3D1|
//+--------------------------------------------------------------------------+
#property copyright "Copyright 2014, 广大专业和业余诗歌爱好者"
#property link      "http://www.hutong9.net"
#property version   "1.00"

Input int     Choice  = 18572;      //18572=访崔护12 由子窗口根据选择模仿诗人的诗歌产生
Input string 门中A[];                //一维字符串数组,例如,其中门中A[9] =  "胡同";
Input string 人面A[]                //一维字符串数组,例如,其中人面A[6] = "小散";
Input string 桃花A[]                //一维字符串数组,例如,其中桃花A[3] = "人工智能";
Input string 春风A[]                //一维字符串数组,例如,其中春风A[5] = "股市";
..........
..........
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
  //子窗口根据选择模仿诗人的诗歌产生int Choice,  比如 Choice = 18572 调用 子程序 访崔护12
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| 主程序                                                           |
//+------------------------------------------------------------------+
void
{
//---
  Switch(Choice)
   .........
  case 18572:
   for(int i:=1; i<10;i++)  for(int j:=1; j<10;j++)  for(int k:=1; k<10;k++)  for(int im:=1; m<10;m++)
   {
   崔护12( 门中A,  人面A[j],   桃花A[k],      春风A[m],string 仿崔护12)
       //= "胡同"     = "小散"    = "人工智能"    = "股市"
   if(checkout(仿崔护12)) Print(仿崔护12);
   }
  .........
   case 26134:
   顾城279(蓝,天,幽梦,前程,访顾城279)
   if(checkout(仿仿顾城279)) Print(仿顾城279);
  .........
   case 27897:
   武则天02(年,全球,提前,夫,钱,赚,口袋空,string 仿武则天02)
   if(checkout(仿武则天02)) Print(仿武则天02);
  .........
  case 31564:
  十大古诗人混合体267(Input string xx,string yy,string zz,string ww,string uu,string vv,string 仿十大古诗人混合体267)
  .........
  case 68938:
  九大现代诗人混合体768(冷淡,月光,不照,夜路,却照沟渠,string 仿九大现代诗人混合体768)
  if(checkout(仿十大现代诗人混合体768)) Print(仿十大现代诗人混合体768);
  .........
  case 89654:
   ....................
}
//+------------------------------------------------------------------+
//| 诗人 崔护 先生 的第12号 子程序                                    |
//+------------------------------------------------------------------+
void 崔护12(string 此门,string 人面, string 桃花,string 春风,string 访崔护12)
  {
   string a="去年今日";
   string b="中,";
   string c="相映红。";
   string d="不知何处去";
   string e="依旧笑";
   string f="。";
   //去年今日此门中,人面桃花相映红。人面不知何处去,桃花依旧笑春风。
   访崔护12=a+此门+b+人面+桃花+c+人面+d+桃花+e+春风+f;
   return();   
  }
//+------------------------------------------------------------------+
//| 诗人 顾城 先生 的第279号 子程序                                   |
//+------------------------------------------------------------------+
void 顾城279(string 黑,string 夜,string 眼睛,string 光明,string 仿顾城279)
  {
   string a="给了";
   string b="色的";
   string c=",";
   string d="却用它寻找";
   string e="。";
   string f="我";
   //黑夜给了我黑色的眼睛,我却用它寻找光明
   仿崔护12=黑+夜+a+f+黑+b+眼睛+c+f+d+光明+e;
   return();
  }

//+------------------------------------------------------------------+
//| 诗人 武则天 陛下 的第2号 子程序                                   |
//+------------------------------------------------------------------+
void 武则天02(string 朝,string 上苑,string 火速,string 春,string 花,string 放,string 晓风吹,string 仿武则天02)
  {
  string a="明";
  string b="游";
  string c="游";
  string d=",";
  string e="报";
  string f="知。";
  string g="须连夜";
  string h="莫待";
  string i="。";

  //明朝游上苑, 火速报春知  花须连夜放, 莫待晓风吹。
  仿武则天02=a+朝+b+上苑+d+火速+e+春+f+花+g+放+d+h+晓风吹+i;
  }

//+------------------------------------------------------------------+
//| 屈原,曹植,陶渊明,王维,李白,杜甫,白居易,李商隐,苏东坡,陆游 混合体 |
//| 的第285号  子程序                                                 |
//+------------------------------------------------------------------+  
void 十大古诗人混合体 267(Input string xx,string yy,string zz,string ww,string uu,string vv,string 仿十大古诗人混合体)
  {
   
  }  
//+------------------------------------------------------------------+
//| 顾城,北岛,舒婷,西川,海子,汪国真,席慕容,胡适,徐志摩   混合体 |
//| 的第285号  子程序                                                 |
//+------------------------------------------------------------------+  
void 九大现代诗人混合体 768(string 攀援,string 凌霄花,string 借,string 高枝,string 炫耀自己,string 仿九大现代诗人混合体768)
  {
  string a="我如果爱你——";
  string b="绝不像";
  string c="的";
  string d=",";
  string e="你的";
  string f="。";
  string g="须连夜";
  string h="莫待";
  string i="。";

  //我如果爱你—— 绝不像攀援的凌霄花,借你的高枝炫耀自己。
  仿十大现代诗人混合体768=a+b+攀援+c+凌霄花+d+借+e+高枝+炫耀自己+f;
  }                                   |

//+------------------------------------------------------------------+
//| 检验Robot写的诗歌 意境  用词                                      |
//+------------------------------------------------------------------+
bool checkout(Robot写的诗歌)
  {
   //开始由人工评审Robot写的每一首诗歌,例如,利用一维字符串数组,门中A[9]  =  "胡同"; 人面A[6] = "小散"; 桃花A[3] = "人工智能";
   //春风A[5] = "股市";写成的诗歌,人工智能多了2个字,如果不必改善,那么 checkout(Robot写的诗歌)=true;负责这组数据就被禁止使用。
   //长期学习积累下来,Robot就会写出令人满意的诗歌。
  }
发表于 2018-7-12 02:03 PM | 显示全部楼层
九天,我有一个朋友, 有很多原创作品,小说,传记,回忆录等。文笔很好,但是从未在任何地方发表过。只是在朋友微信群里传传而已。年龄也很大了。我劝他到网上或者自费发表,他竟然不知如何做。我突然想到你这里。不知放在这里合不合适?因为不是胡同成员原创。当然我会注明作者。我主要是希望他的作品将来不要被遗忘,丢失了。他在国内,要翻墙才能看到胡同。

行或者不行都没有关系,只管直说。我并没有对他提起我的主意。不行就当从未提起过罢了。

评分

1

查看全部评分

回复 鲜花 鸡蛋

使用道具 举报

发表于 2018-7-12 03:37 PM | 显示全部楼层
九天,再想想,算了。太麻烦。谢谢你

评分

1

查看全部评分

回复 鲜花 鸡蛋

使用道具 举报

 楼主| 发表于 2018-7-12 03:56 PM | 显示全部楼层
ranchgirl 发表于 2018-7-12 02:03 PM
九天,我有一个朋友, 有很多原创作品,小说,传记,回忆录等。文笔很好,但是从未在任何地方发表过。只是在 ...

谢谢你。我已经代你请示源济超版主,咱们等待他的指示和决定。

我个人欢迎你和其他胡同网友向老蛇,源济申请来原创担任版主,这样你们就可以自己编辑,也不麻烦。
回复 鲜花 鸡蛋

使用道具 举报

发表于 2018-7-12 10:53 PM | 显示全部楼层
谢谢你,九天。不是你这儿的麻烦,而是从中国来去的麻烦,心里已经决定不想自己给自己找麻烦。请转告源济。谢谢你们两位费心了!

评分

1

查看全部评分

回复 鲜花 鸡蛋

使用道具 举报

发表于 2018-7-12 10:57 PM | 显示全部楼层
至于原创版,我没有原创作品。不够资格,也没有时间和兴趣。很抱歉。。。

评分

1

查看全部评分

回复 鲜花 鸡蛋

使用道具 举报

 楼主| 发表于 2018-7-16 05:27 AM | 显示全部楼层
ranchgirl 发表于 2018-7-12 10:53 PM
谢谢你,九天。不是你这儿的麻烦,而是从中国来去的麻烦,心里已经决定不想自己给自己找麻烦。请转告源济。 ...

源济已经回示,欢迎,欢迎,所以你可以转告国内朋友,

只要自己在胡同9登记注册,有了自己的胡同网名和Password,就可以自己来原创区发表大作。

当然,跟所有的其他网站一样, 为了九号胡同网站的完善和发展,促进和维护胡同会员自由交流,九号胡同提倡维护中华统一,会员间自由平等、语言文明、百花齐放、求同存异、海纳百川,己所不欲,勿施于人。详见

九号胡同言行规范
http://www.hutong9.net/forum.php ... &extra=page%3D1
回复 鲜花 鸡蛋

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

手机版|小黑屋|www.hutong9.net

GMT-5, 2024-3-29 06:36 AM , Processed in 0.048735 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表