注册    登录
今天看啥  ›  专栏  ›  完美Excel

使用VBA模拟球的反弹轨迹

完美Excel  · 公众号  · Excel  · 2024-06-29 06:51
学习Excel技术，关注微信公众号：excelperfect标签：VBA使用三角法，可以计算物体撞击闭合矩形区域内壁时的路径。代码如下：Dim x!(1 To 3), y!(1 To 3), deg, rad!, tg!, res(), rig As Boolean, _down As Boolean, tp, bt, lf, rg, fx, fyConst maxx = 20, maxy = 10Sub Main() ReDim tp(1 To 4), bt(1 To 4), lf(1 To 4), rg(1 To 4), res(1 To 2) Dim i%, keep(1 To 2), s As Series, co As Shape, ns% tp(1) = 0: tp(2) = maxy: tp(3) = maxx: tp(4) = maxy     ' 上边线 bt(1) = 0: bt(2) = 0: bt(3) = maxx: bt(4) = 0           ' 下边线 lf(1) = 0: lf(2) = 0: lf(3) = 0: lf(4) = maxy           ' 左边线 rg(1) = maxx: rg(2) = 0: rg(3) = maxx: rg(4) = maxy     ' 右边线 rig = True ns = 23 ReDim fx(1 To ns), fy(1 To ns) down = False x(1) = 1: y(1) = 3 ' 起始点 res(1) = x(1): res(2) = y(1) x(2) ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  快速破解Excel工作表保护
16 小时前
Excel之家ExcelHome  ·  从身份证号码中提取出生日期
4 天前
Excel之家ExcelHome  ·  Power BI数据建模快速入门应用
4 天前
完美Excel  ·  使用VBA模拟球的反弹轨迹
4 天前
完美Excel  ·  在Excel中实现精准查找
1 周前
简书  ·  原生家庭之殇：每个选择不回家的人，都有一个回不去的家
10 月前
经济观察网  ·  环球度假区漫游卡“杀猪盘”：滋生于团购，诈骗金额数千万
1 年前
胡诌施佬  ·  F-5E战机的“座椅账”：要钱还是要脸？
3 年前
宜宾发布  ·  【#十一假期火车票今日开抢# 】30天后，十一假期将开启，今日起-20200902092656
3 年前
国家金融与发展实验室  ·  每周监管资讯（2020年第22期）
4 年前
关于   移动版   ·   Py中国   ·   RSS之家   ·   codingpro   ·   Code   ·   link之家   ·   卧龙AI搜索   ·   藏经阁   ·   小百科
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号