开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1979|回复: 34
打印 上一主题 下一主题
收起左侧

[易源码分享] ai写的

[复制链接]
结帖率:100% (105/105)
跳转到指定楼层
楼主
发表于 2025-2-24 23:01:37 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式   浙江省温州市
分享源码
界面截图:
是否带模块: -
备注说明: -
ai哪里整来的例子不过不完整 自己改动了下 底下的小船不知道怎么改 来个大能玩一把我改的半成品-没有小船

111.e (924.3 KB, 下载次数: 7)
原始代码

  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
小船X整数型  
云朵X整数型  
海浪位移整数型  
帧数整数型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
' 窗口设置
宽度 = 800
高度 = 600
背景颜色 = #白色
时钟1.时钟周期 = 100  ' 10帧/秒(6秒共60帧)

' 初始位置
小船X = 700
云朵X = 100
海浪位移 = 0
子程序名返回值类型公开备 注
_时钟1_周期事件  
' 清除画布
画板1.清除 (, , , )
' ---- 绘制天空 ----
画板1.刷子颜色 = #天蓝
画板1.填充矩形 (0, 0, 800, 300)
' ---- 绘制太阳 ----
画板1.刷子颜色 = #黄色
画板1.画椭圆 (650, 50, 700, 100)
' ---- 绘制云朵 ----
画板1.刷子颜色 = #白色
画板1.画椭圆 (云朵X, 80, 云朵X + 100, 130)
画板1.画椭圆 (云朵X + 30, 70, 云朵X + 130, 120)
云朵X = 云朵X - 5  ' 云向左飘动
如果真 (云朵X < -150)
云朵X = 800  ' 循环移动

' ---- 绘制海洋 ----
画板1.刷子颜色 = #深蓝
画板1.填充矩形 (0, 300, 800, 600)
' ---- 绘制海浪 ----
画板1.画笔颜色 = #淡蓝
变量循环首 (0, 800, 50, i)
画板1.画曲线 (i - 海浪位移, 300 + 取随机数 (0, 5), i + 50 - 海浪位移, 300 + 取随机数 (5, 10))
变量循环尾 ()
海浪位移 = 海浪位移 + 3
如果真 (海浪位移 > 50)
海浪位移 = 0

' ---- 绘制小船 ----
画板1.刷子颜色 = #棕色
画板1.画多边形 ({{小船X, 400}, {小船X + 50, 400}, {小船X + 40, 380}})
小船X = 小船X - 8  ' 船向左移动
如果真 (小船X < -50)
小船X = 800  ' 循环移动

' 记录帧数
帧数 = 帧数 + 1
如果真 (帧数 ≥ 60)  ' 6秒后停止
时钟1.时钟周期 = 0


评分

参与人数 3好评 +1 精币 +2 收起 理由
多多帅吧 + 1 很赞同,谢谢!
萧楚楠 + 1 唯见长江天际流
笨来无一悟 + 1 孤帆远影碧空尽

查看全部评分


结帖率:100% (105/105)

签到天数: 13 天

沙发
 楼主| 发表于 2025-2-24 23:02:20 | 只看该作者   浙江省温州市
[PHP] 纯文本查看 复制代码
import numpy as np
import matplotlib.pyplot as plt
from matplotlib.animation import FuncAnimation

# 初始化画布
fig, ax = plt.subplots(figsize=(8, 5))
ax.set_xlim(0, 10)
ax.set_ylim(0, 6)
ax.axis('off')

# 初始化元素
sky = ax.fill_between([0, 10], [6, 6], [6, 6], color='skyblue')  # 天空
sun = plt.Circle((8, 5), 0.6, color='gold', alpha=0.8)           # 太阳
sea = ax.fill_between([], [], color='dodgerblue')                # 海洋
wave_line, = ax.plot([], [], 'white', lw=2)                      # 海浪线
boat = plt.Polygon([[4,1.5], [5,1.5], [4.8,1.3]], color='saddlebrown')  # 小船
cloud = plt.Circle((2, 5), 0.8, color='white', alpha=0.9)        # 云朵

ax.add_patch(sun)
ax.add_patch(boat)
ax.add_patch(cloud)

# 动画参数
total_frames = 60  # 6秒*10帧/秒
wave_amplitude = 0.3
boat_speed = 0.08
cloud_speed = 0.05

def animate(frame):
    # 海浪波动
    x = np.linspace(0, 10, 100)
    y_sea = 2 + wave_amplitude * np.sin(0.8*x + 0.1*frame)
    sea[0].set_xy(np.column_stack([x, y_sea]))
    wave_line.set_data(x, y_sea + 0.1)
    
    # 小船移动
    boat.set_xy([[4+boat_speed*frame,1.5], 
                [5+boat_speed*frame,1.5], 
                [4.8+boat_speed*frame,1.3]])
    
    # 云朵飘动
    cloud.center = (2 + cloud_speed*frame, 5 + 0.1*np.sin(0.1*frame))
    
    # 阳光闪烁效果
    sun.set_alpha(0.7 + 0.1*np.sin(0.3*frame))
    
    return sea, wave_line, boat, cloud, sun

# 生成动画
ani = FuncAnimation(fig, animate, frames=total_frames, blit=True, interval=100)
ani.save('sea_scene.mp4', writer='ffmpeg', fps=10, dpi=100)

print("视频已生成:sea_scene.mp4")
回复 支持 反对

使用道具 举报

结帖率:100% (3/3)

签到天数: 14 天

板凳
发表于 2025-2-24 23:15:55 | 只看该作者   贵州省毕节市
孤帆远影碧空尽
回复 支持 反对

使用道具 举报

签到天数: 5 天

地板
发表于 2025-2-24 23:21:07 | 只看该作者   河北省张家口市
唯见长江天际流
回复 支持 反对

使用道具 举报

结帖率:50% (2/4)

签到天数: 6 天

地下
发表于 2025-2-24 23:28:29 | 只看该作者   浙江省杭州市
欢迎参加2025易语言AI代码大赛
回复 支持 反对

使用道具 举报

结帖率:100% (3/3)

签到天数: 17 天

6
发表于 2025-2-25 01:57:07 | 只看该作者   广东省深圳市
学习一下
回复 支持 反对

使用道具 举报

7
发表于 2025-2-25 06:33:57 | 只看该作者   河南省安阳市
感谢分享
回复 支持 反对

使用道具 举报

结帖率:60% (3/5)
8
发表于 2025-2-25 07:25:02 | 只看该作者   吉林省松原市
想要那个AI
回复 支持 反对

使用道具 举报

结帖率:96% (53/55)

签到天数: 16 天

9
发表于 2025-2-25 07:27:23 | 只看该作者   山东省青岛市
感谢发布原创作品,精易因你更精彩!6666666666666
回复 支持 反对

使用道具 举报

结帖率:98% (111/113)

签到天数: 19 天

10
发表于 2025-2-25 07:31:36 | 只看该作者   山东省青岛市
全都是大佬~
回复 支持 反对

使用道具 举报

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

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:[email protected]
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

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