poem_gpt4.ipynb

{
 "cells": [
  {
   "cell_type": "code",
   "execution_count": 1,
   "id": "7a50bd85",
   "metadata": {},
   "outputs": [],
   "source": [
    "\n",
    "from openai import OpenAI\n",
    "client=OpenAI(\n",
    "   # your OpenAI api here\n",
    ")\n",
    "\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "id": "868e39b6",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "夜读红楼\n",
      "五言绝句：\n",
      "夜读红楼\n",
      "\n",
      "灯下卷页翻飞絮，漫随文字入幽谷。\n",
      "宝钗黛玉情何深，夜深人静泪先熟。\n",
      "新世纪春望\n",
      "七言律诗：\n",
      "新世纪春望\n",
      "\n",
      "春光照耀数码屏，世纪更迭意正浓。\n",
      "万国云连新梦织，一心花放旧枝丛。\n",
      " 碧蓝天际飞机度，金色田野轧歌风。\n",
      "望穿时空思未了，人间何处不芳中。\n",
      "过五丈原\n",
      "七言绝句：\n",
      "过五丈原\n",
      "\n",
      "独行踏石径，鸟语断人烟。\n",
      "五丈原上色，暮云生远川。\n",
      "古木森巍巍，风声如旧年。\n",
      "行人心自远，一望愁千篇。\n",
      "代孔明哭先主\n",
      "七言绝句：\n",
      "代孔明哭先主\n",
      "\n",
      "空座泣衣冠，悲风绕树梢。\n",
      "君去臣心碎，明灯照孤高。\n",
      "白帝城头月，孤舟泪满袍。\n",
      "三顾频烦天下计，两朝开济老臣劳。\n",
      "咏榴花\n",
      "五言绝句：\n",
      "咏榴花\n",
      "\n",
      "炎夏挂火球，繁花似烟霞。\n",
      "皮囊藏珍宝，榴裂见丹华。\n",
      "七言绝句：\n",
      "咏榴花\n",
      "\n",
      "荔枝初夏后，榴花独傲霞。\n",
      "壁立千重瓣，珠圆一颗颗。\n",
      "阳台遗艳影，丹彩醉游蜂。\n",
      "响应烈日祷，鲜姿笑风中。\n",
      "与海牛划船\n",
      "七言律诗：\n",
      "与海牛划船\n",
      "\n",
      "碧波铺锦织轻舟，与海牛边划边游。\n",
      "尽日风清波不起，浅唱悠扬水云秋。\n",
      "\n",
      "橹声随浪共悠扬，海牛憨态映日光。\n",
      "长空万里无人迹，相伴耕波乐悠长。\n",
      "观粉色盐湖\n",
      "七言绝句：\n",
      "粉霞涨绮水，湖天一色中。\n",
      "鸟影穿云去，风声带盐风。\n",
      "异彩令人醉，此景伴我梦。\n",
      "心旷神怡久，遥愁尽洗空。\n",
      "断筝\n",
      "七言绝句：\n",
      "断筝终古咽，独坐凝思绪。\n",
      "残弦何足恸，相思成空谷。\n",
      "弦歌不复闻，心事谁与语？\n",
      "月落风千里，断肠人在何处？\n",
      "枕上秋潮\n",
      "五言绝句：\n",
      "枕上秋潮\n",
      "\n",
      "梦回秋水共潮生，\n",
      "枕边波动影成双。\n",
      "月冷霜凝夜未央，\n",
      "一声寒蝉泪满裳。\n",
      "山亭对弈\n",
      "五言律诗：\n",
      "山亭对弈\n",
      "\n",
      "青山隐隐翠微间，\n",
      "古亭幽处两棋牵。\n",
      "清风徐来云悠扬，\n",
      "泉声细碎入心弦。\n",
      "\n",
      "对局不知时日远，\n",
      "指落轻轻随策变。\n",
      "江湖慢慢人渐老，\n",
      "棋中有味是长年。\n",
      "偶逢故人\n",
      "七言绝句：\n",
      "杨柳依依市南门，偶逢故人怀古情。\n",
      "乍谈旧事心仍旧，转眼风尘面已成。\n",
      "狸奴冰上行\n",
      "五言绝句：\n",
      "狸奴冰上行\n",
      "\n",
      "絮袍狸奴出，寒气上青冥。\n",
      "冰裂声响细，步履惊心听。\n",
      "迎风摇尾立，独赏雪中景。\n",
      "沐月归林去，余谓是精灵。\n",
      "浮生若梦\n",
      "七言绝句：\n",
      "浮生若梦\n",
      "\n",
      "红尘客梦随波逐，归帆何处是停舟。\n",
      "闲坐孤灯惊岁月，尽是人间离合愁。\n",
      "烟波江上寻常事，世态炎凉几人休。\n",
      "无奈浮生如梦幻，一樽还酹江月流。\n",
      "酒中赏月\n",
      "七言绝句：\n",
      "酒中赏月\n",
      "\n",
      "明月几时有，把酒问青天。\n",
      "不知天上宫阙，今夕是何年。\n",
      "\n",
      "我欲乘风归去，又恐琼楼玉宇，\n",
      "高处不胜寒。起舞弄清影，何似在人间。\n",
      "\n",
      "转朱阁，低绮户，照无眠。\n",
      "不应有恨，何事长向别时圆。\n",
      "\n",
      "人有悲欢离合，月有阴晴圆缺，\n",
      "此事古难全。但愿人长久，千里共婵娟。\n",
      "不入凡尘\n",
      "七言律诗：\n",
      "不入凡尘\n",
      "\n",
      "羽衣轻拂瑶台月，留影水心不染尘。\n",
      "道合天机隐云海，凡心未洗问真仙。\n",
      "松风吟过空山寂，花影摇曳舞翩跹。\n",
      "仙途遥远几人寻，碧落黄泉路两分。\n",
      "人世无愁\n",
      "五言绝句：\n",
      "春风拂面皆欢笑，柳絮轻飘似雪飘。\n",
      "红尘若梦非真愁，举杯邀月醉东风。\n",
      "老翁自嘲\n",
      "七言绝句：\n",
      "白发三千丈，缘愁似个丝。\n",
      "镜中看古翁，笑问少年谁。\n",
      "追梦\n",
      "七言绝句：\n",
      "晨光初照梦初醒，梦随云散入天明。\n",
      "不畏浮云遮望眼，自有翱翔撷星行。\n",
      "品清幽\n",
      "七言绝句：\n",
      "品清幽\n",
      "\n",
      "山静霭晚翠，溪明泉自流。\n",
      "松间闻研墨，石上识琴秋。\n",
      "无事添茶饴，忙中觅逸游。\n",
      "闲心常向此，品味得清幽。\n",
      "慨叹人生\n",
      "七言绝句：\n",
      "白发新添乱世愁，春光不与老人留。\n",
      "半生漂泊思归路，一梦江湖慨人生。\n",
      "天宫客\n",
      "七言绝句：\n",
      "天宫客\n",
      "\n",
      "夜穿银汉冷清秋，\n",
      "玉兔金乌共御舟。\n",
      "星桥悬设归路远，\n",
      "一望乡心泪沾袖。\n",
      "韵悠长\n",
      "七言律诗：\n",
      "韵悠长\n",
      "\n",
      "清风弄笛韵悠长，夜深人静月婵娟。\n",
      "松间露重琼珠落，竹外云轻绮阁寒。\n",
      "浮生若梦难留驻，古道西风唤旧年。\n",
      "展卷忆君情已远，独怀诗兴对斜川。\n",
      "打扑克\n",
      "七言绝句：\n",
      "金花散落桌如秋，笑语盈盈乐意浓。\n",
      "出手如风皆算计，一局输赢决胜空。\n",
      "翻牌间，诡谲多，人生舞台一局棋。\n",
      "豪杰客，聚又散，留得桌前几人知。\n",
      "原子弹\n",
      "七言绝句：\n",
      "人智开天地，力竭神鬼惊。\n",
      "分子裂幽暗，光球夜中明。\n",
      "生灵涂炭色，世界静寂声。\n",
      "念此伤悲者，原子警钟鸣。\n",
      "特朗普卷土重来\n",
      "七言绝句：\n",
      "金发主再起风波，举国论战意未和。\n",
      "铁幕重启旧山河，世界凝眸待后过。\n",
      "甄嬛\n",
      "七言绝句：\n",
      "宫墙柳色新，甄嬛步轻尘。\n",
      "春风十里柔，不及娘娘温。\n",
      "独赏花前月，谁知心事频？\n",
      "笑藏刀影下，泪湿罗衣巾。\n",
      "比特币\n",
      "七言绝句：\n",
      "电网漫捕梦，比特谜绘金。\n",
      "虚拟矿山中，算力拓寻踪。\n",
      "波动如山海，豪赌一线封。\n",
      "谁持密钥去，开启数字凤。\n",
      "暴富后作\n",
      "七言绝句：\n",
      "金堆满室光闪闪，人生何处不花钱。\n",
      "夜半钟声至富巷，梦回仍是布衣天。\n",
      "第三孩\n",
      "七言律诗：\n",
      "田家炊烟起，喜报第三子。\n",
      "乍闻儿女笑，回首两鬓丝。\n",
      "生计虽难继，添丁更觉馨。\n",
      "愿教桑海稳，共赴未来程。\n",
      "女装\n",
      "七言律诗：\n",
      "女装\n",
      "\n",
      "绫罗轻染翠云间，\n",
      "纤手轻织女红闲。\n",
      "罗带轻缠绕腰细，\n",
      "金钗斜插翠鬟环。\n",
      "\n",
      "镜前倚粉添花颜，\n",
      "笑语妖娆似水仙。\n",
      "如梦如幻舞春风，\n",
      "婉约东篱折芳年。\n",
      "原神\n",
      "七言绝句：\n",
      "怀古寻幽梦原神，\n",
      "瑶池异境展眼庭。\n",
      "雷鸣风语传神意，\n",
      "岩壑云涛酿幽音。\n",
      "游者心随旷野转，\n",
      "神游恍若入画深。\n",
      "焚香一拜求真隐，\n",
      "原意何在问苍穹。\n",
      "嘉然\n",
      "五言绝句：\n",
      "嘉然初现月微明，\n",
      "梨花带雨静中鸣。\n",
      "红颜未老风先觉，\n",
      "娇姿犹如春梦生。\n",
      "自从得了精神病整个人都精神多了\n",
      "七言绝句：\n",
      "自从得了精神病整个人都精神多了\n",
      "\n",
      "幽居病来身似脱，凡尘俗事倍添疏。\n",
      "笑谈宇宙皆浮影，得失荣枯一梦初。\n",
      "心遁形随闲境里，影随心动演纷扰。\n",
      "自从疯癫更精神，笑看人间戏一场。\n",
      "人机耦合\n",
      "七言绝句：\n",
      "织梦机心跨古今，人工智能入骨深。\n",
      "电脉孕育思想花，灵魂何处是归宁？\n",
      "静观时代潮起落，神算共舞笔墨林。\n",
      "恍若星河凝眸中，人机耦合画新音。\n",
      "工藤新一与毛利兰\n",
      "五言绝句：\n",
      "名侦探探案迷，\n",
      "蓝色爱悠揽梦系。\n",
      "细语暖风春意密，\n",
      "共赏樱花笑语溪。\n",
      "自君之出矣\n",
      "七言绝句：\n",
      "自君之出矣\n",
      "\n",
      "自君之出矣，无复桑梓情。\n",
      "空庭闻叶落，孤枕梦归程。\n",
      "月白风清夜，思君不可胜。\n",
      "却寻旧时影，独立泪沾衿。\n",
      "过颐和园\n",
      "七言绝句：\n",
      "过颐和园\n",
      "\n",
      "往事如烟水面寒，\n",
      "古柳垂丝拂翠滩。\n",
      "昆明波涌游人少，\n",
      "皇家旧苑草纷繁。\n",
      "窗竹\n",
      "五言绝句：\n",
      "窗外斜竹绘青翠，微风轻扫画栏横。\n",
      "夜深人静影独舞，月照清风竹间声。\n",
      "高考四周年即事\n",
      "七言绝句：\n",
      "纸舟载梦浮四载，笔尖舞出青春咏。\n",
      "试卷锁定流年影，墨池深处悟人生。\n",
      "旧友新知皆是客，孤灯夜读映堂明。\n",
      "桥头回首年华瘦，高考四春意尤盈。\n",
      "春运\n",
      "七言绝句：\n",
      "春运\n",
      "\n",
      "千里迢迢归路长，春风解冻雪初霜。\n",
      "车流如织人如潮，心怀故土梦难忘。\n",
      "旅途辛苦情愈切，归家一笑泪光光。\n",
      "年年此景如相问，何日携手度春光？\n",
      "重过长沙车站\n",
      "七言绝句：\n",
      "重过长沙车站\n",
      "\n",
      "霜雾净无烟，长沙驿道旁。\n",
      "重逢往日地，故事叙离殇。\n",
      "行人匆如梭，车轮响隆隆。\n",
      "又过旧时站，千思万绪中。\n",
      "母亲节见东苑石榴\n",
      "七言绝句：\n",
      "东苑映朝阳，石榴裂缤纷。\n",
      "露珠如珍珠，映日赛红云。\n",
      "母爱如园丰，子心似果温。\n",
      "母节感恩深，献诗表敬频。\n"
     ]
    }
   ],
   "source": [
    "w=open(\"titles.txt\",'r',encoding='utf-8')\n",
    "lines=w.readlines()\n",
    "w.close()\n",
    "\n",
    "outfile=open(\"gpt-4.txt\",'w',encoding='utf-8')\n",
    "for line in lines:\n",
    "    if len(line.strip())>1:\n",
    "        lst=line.strip()\n",
    "        completion = client.chat.completions.create(\n",
    "          model=\"gpt-4-1106-preview\",\n",
    "          messages=[\n",
    "            {\"role\": \"system\", \"content\": \"你是一名大诗人。请根据给定的标题创作格律诗。以下是一些示例：\\n 五言绝句：\\n 静夜思 \\n 床上明月光，疑是地上霜。\\n 举头望明月，低头思故乡。\\n 五言律诗：\\n 赋得古原草送别 \\n离离原上草，一岁一枯荣。\\n 野火烧不尽，春风吹又生。\\n 远芳侵古道，晴翠接荒城。\\n 又送王孙去，萋萋满别情。\\n七言绝句：\\n 望庐山瀑布 \\n 日照香炉生紫烟，遥看瀑布挂前川。\\n 飞流直下三千尺，疑是银河落九天。\\n 七言律诗：\\n黄鹤楼 \\n 故人西辞黄鹤楼，烟花三月下扬州。\\n 黄鹤一去不复返，白云千载空悠悠。\\n晴川历历汉阳树，芳草萋萋鹦鹉洲。\\n 日暮乡关何处是，烟波江上使人愁。\"},\n",
    "            {\"role\": \"user\", \"content\": \"请选择一种体裁，以标题“\"+lst+\"”创作一首格律诗。\"}\n",
    "          ]\n",
    "        )\n",
    "        print(lst,file=outfile)\n",
    "        print(lst)\n",
    "        print(completion.choices[0].message.content)\n",
    "        print(completion.choices[0].message.content,file=outfile)\n",
    "outfile.close()"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 18,
   "id": "d2202ec3",
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "['夜读红楼', '新世纪春望', '过五丈原', '代孔明哭先主', '咏榴花', '与海牛划船', '观粉色盐湖', '断筝', '枕上秋潮', '山亭对弈', '偶逢故人', '狸奴冰上行', '浮生若梦', '酒中赏月', '不入凡尘', '人世无愁', '老翁自嘲', '追梦', '品清幽', '慨叹人生', '天宫客', '韵悠长', '打扑克', '原子弹', '特朗普卷土重来', '甄嬛', '比特币', '暴富后作', '第三孩', '女装', '原神', '嘉然', '自从得了精神病整个人都精神多了', '人机耦合', '工藤新一与毛利兰', '自君之出矣', '过颐和园', '窗竹', '高考四周年即事', '春运', '重过长沙车站', '母亲节见东苑石榴'] ['夜读红楼', '新世纪春望', '过五丈原', '代孔明哭先主', '咏榴花', '与海牛划船', '观粉色盐湖', '断筝', '枕上秋潮', '山亭对弈', '偶逢故人', '狸奴冰上行', '浮生若梦', '不入凡尘', '人世无愁', '老翁自嘲', '追梦', '品清幽', '慨叹人生', '天宫客', '韵悠长', '打扑克', '原子弹', '特朗普卷土重来', '甄嬛', '比特币', '暴富后作', '第三孩', '女装', '原神', '嘉然', '自从得了精神病整个人都精神多了', '人机耦合', '自君之出矣', '过颐和园', '窗竹', '高考四周年即事', '春运', '重过长沙车站', '母亲节见东苑石榴']\n",
      "酒中赏月\n",
      "七言绝句：\n",
      "酒中赏月\n",
      "\n",
      "金波淡彩酒中浮，举杯邀月对青楼。\n",
      "银轮挂野清辉冷，一醉解忧天地柔。\n",
      "透半帘风传影动，醉乡何处不相逢。\n",
      "玉盘高悬诗意在，流光易逝醉梦留。\n",
      "工藤新一与毛利兰\n",
      "七言绝句：\n",
      "侦探少年案牵连，智慧勇敢绎真缘。\n",
      "黑夜斗恶光如炬，并肩闯关情未悬。\n",
      "工藤新一心有灵，兰姬守候爱深牵。\n",
      "案终情定共天涯，英雄佳人话未完。\n"
     ]
    }
   ],
   "source": [
    "f=open(\"gpt-4.txt\",'r',encoding='utf-8')\n",
    "q=f.readlines()\n",
    "f.close()\n",
    "f2=open(\"gpt-4-round2.txt\",'w',encoding='utf-8')\n",
    "w=open(\"titles.txt\",'r',encoding='utf-8')\n",
    "alltitles=w.readlines()  \n",
    "w.close()\n",
    "#print(alltitles)\n",
    "for i in range(len(alltitles)):\n",
    "    alltitles[i]=alltitles[i].strip()\n",
    "\n",
    "composed_titles=[]\n",
    "for i in range(len(q)):\n",
    "    line=q[i].strip()\n",
    "    print(line,file=f2)\n",
    "    if not('，' in line) and not('。' in line):\n",
    "        if len(line)>0:\n",
    "            composed_titles.append(line)\n",
    "\n",
    "print(alltitles,composed_titles)\n",
    "for item in alltitles:\n",
    "    if not(item in composed_titles):\n",
    "        completion = client.chat.completions.create(\n",
    "          model=\"gpt-4-1106-preview\",\n",
    "          messages=[\n",
    "            {\"role\": \"system\", \"content\": \"你是一名大诗人。请根据给定的标题创作格律诗。以下是一些示例：\\n 五言绝句：\\n 静夜思 \\n 床上明月光，疑是地上霜。\\n 举头望明月，低头思故乡。\\n 五言律诗：\\n 赋得古原草送别 \\n离离原上草，一岁一枯荣。\\n 野火烧不尽，春风吹又生。\\n 远芳侵古道，晴翠接荒城。\\n 又送王孙去，萋萋满别情。\\n七言绝句：\\n 望庐山瀑布 \\n 日照香炉生紫烟，遥看瀑布挂前川。\\n 飞流直下三千尺，疑是银河落九天。\\n 七言律诗：\\n黄鹤楼 \\n 故人西辞黄鹤楼，烟花三月下扬州。\\n 黄鹤一去不复返，白云千载空悠悠。\\n晴川历历汉阳树，芳草萋萋鹦鹉洲。\\n 日暮乡关何处是，烟波江上使人愁。\"},\n",
    "            {\"role\": \"user\", \"content\": \"请选择一种体裁，以标题“\"+item+\"”创作一首格律诗。\"}\n",
    "          ]\n",
    "        )\n",
    "        print(item,file=f2)\n",
    "        print(item)\n",
    "        print(completion.choices[0].message.content)\n",
    "        print(completion.choices[0].message.content,file=f2)\n",
    "f2.close()\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "id": "7981bbe6",
   "metadata": {},
   "outputs": [],
   "source": []
  }
 ],
 "metadata": {
  "kernelspec": {
   "display_name": "Python 3 (ipykernel)",
   "language": "python",
   "name": "python3"
  },
  "language_info": {
   "codemirror_mode": {
    "name": "ipython",
    "version": 3
   },
   "file_extension": ".py",
   "mimetype": "text/x-python",
   "name": "python",
   "nbconvert_exporter": "python",
   "pygments_lexer": "ipython3",
   "version": "3.11.4"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 5
}