本人最近力作（浅析模型火箭轨道）

可以算作EUP理论研究的前沿了吧……
![1.jpg][1]
![2.jpg][2]
![3.jpg][3]
![4.jpg][4]
![5.jpg][5]
![6.jpg][6]
![7.jpg][7]
![8.jpg][8]
![9.jpg][9]
![10.jpg][10]
![11.jpg][11]
![12.jpg][12]
![13.jpg][13]
![14.jpg][14]
![15.jpg][15]
·参考主体源码（所用语言为visual basic 2005）

Imports System.Math

Dim ft, m0, g, p, da, d, tg As Double

Dim mt, a, tz As Double

Dim tj, x, y, v0x, v0y, m, fjf, ax, ay, vmx, vmy, xz, yz, fy As Double  '定义

'在此省略数据正确性的检验

x = 0

y = 0

tj = 0

v0x = 0

v0y = 0  '初始化

Do While tj <= tg

ft = ft

m = (mt - m0) / tg * tj + m0

fjf = (-m * m * m * m + sqrt(m * m * m * m + 2 * p * da * d * tj * tj * ft * m * m)) / (p * da * d * tj * tj)

ax = (fjf * cos(a)) / m

ay = (fjf * sin(a) - m * g) / m

vmx = ax * tj

vmy = ay * tj

xz = vox * tj + 1 / 2 * ax * tj * tj

yz = voy * tj + 1 / 2 * ay * tj * tj

x = x + xz

y = y + yz

list.text=tj & ","& x &","y

If y < 0 Then End

elseif

tj = tj + tz

v0x = vmx

v0y = vmy

End If

Loop

Do While tj > tg

a = atan(v0y / v0x)

fx = 1 / 2 * p * da * d * v0x * v0x * cos(a)

fy = 1 / 2 * p * da * d * vmy * vmy * sin(a)

ax = ft / mt

ay = (fy + m * g) / mt

xz = v0x * (tj - tg) + 1 / 2 * ax * (tj - tg)(tj - tg)

yz = v0y * (tj - tg) + 1 / 2 * ay * (tj - tg)(tj - tg)

x = x + xz

y = y + yz

lisy.text=tj&","&x%","&y

If y <= 0 Then End

else

tj = tj + tz

vox = vox - abs(ax * (tj - tg))

voy = voy - abs(ay * (tj - tg))

Loop

End

End Class

相关程序目前仍在编写，测试中……

·展望

基于本文所构建的基础理论，所编写出的程序可以说只是一个基础平台，今后还可以在此基础上继续增加变量。例如推力参数更为复杂，将火箭外形考虑进去等等（当然这样会使计算量成几何级数上升，逻辑的复杂程度也已远远超出我的处理范围）或者加入可视化控件（例如3D模拟，地形模拟等）假如无线电，单片机，电脑编程技术更为成熟的话，还可以通过建立地面基站，实时输入风力参数，计算间隔也可以继续减小等等。

当然，随着我学习的不断深入，基础理论也会不断完善，不断地向最真实的轨道逼近……

2009年2月28日

下载地址：http://www.namipan.com/d/f96c710325999e53f30e89566d91a53f91ce80b2d96b0300

另外两个好东西：http://www.namipan.com/d/b65489a104934ac4f718dbcf5377929f2c32e126d4671e00

http://www.namipan.com/d/4224ca8cee8282616bf47c1a4b88c1136fe5bfa8dcea0400

[1]: https://xxxsola.org/blog/usr/uploads/2019/04/2155070666.jpg
  [2]: https://xxxsola.org/blog/usr/uploads/2019/04/2892513009.jpg
  [3]: https://xxxsola.org/blog/usr/uploads/2019/04/1984693220.jpg
  [4]: https://xxxsola.org/blog/usr/uploads/2019/04/3307441220.jpg
  [5]: https://xxxsola.org/blog/usr/uploads/2019/04/2883894094.jpg
  [6]: https://xxxsola.org/blog/usr/uploads/2019/04/3892135723.jpg
  [7]: https://xxxsola.org/blog/usr/uploads/2019/04/220279828.jpg
  [8]: https://xxxsola.org/blog/usr/uploads/2019/04/2389923192.jpg
  [9]: https://xxxsola.org/blog/usr/uploads/2019/04/4182263470.jpg
  [10]: https://xxxsola.org/blog/usr/uploads/2019/04/645928580.jpg
  [11]: https://xxxsola.org/blog/usr/uploads/2019/04/113745778.jpg
  [12]: https://xxxsola.org/blog/usr/uploads/2019/04/2790325206.jpg
  [13]: https://xxxsola.org/blog/usr/uploads/2019/04/3695965449.jpg
  [14]: https://xxxsola.org/blog/usr/uploads/2019/04/69547876.jpg
  [15]: https://xxxsola.org/blog/usr/uploads/2019/04/2948792599.jpg

本人最近力作（浅析模型火箭轨道）

添加新评论

最近回复

分类

标签

功能