关于完全弹性碰撞和圆周率的关系所设计的易语言程序
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 n, 整数型
.程序集变量 m1, 整数型
.程序集变量 m2, 整数型
.程序集变量 v1, 小数型
.程序集变量 v2, 小数型
.程序集变量 v11, 小数型
.程序集变量 v22, 小数型
.子程序 _按钮1_被单击
n = 0
m1 = 到数值 (编辑框1.内容)
m2 = 1
v1 = -1
v2 = 0
.判断循环首 (v1 < v2)
v11 = (v1 × (m1 - m2) + 2 × m2 × v2) ÷ (m1 + m2)
v22 = (v2 × (m2 - m1) + 2 × m1 × v1) × (m1 + m2)
.如果 (v22 < 0)
v2 = -1 × v22
n = n + 1
.否则
v2 = v22
.如果结束
v1 = v11
n = n + 1
.判断循环尾 ()
编辑框2.内容 = 到文本 (n)
设计这个程序呢,主要是验证完全弹性碰撞和圆周率的关系,详情参见视频https://www.bilibili.com/video/av40873215/
但是我这个程序似乎不能证明.......
求大佬指明!!