作业帮 > 数学 > 作业

VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为：

来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/07/14 08:31:04
VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为：
x=rx*cos(alfa),y=ry*sin(alfa)
其中,rx为椭圆x轴上的半径,ry为y 轴上的半径,alfa为圆心角.
希望高手帮忙解答,高分
Const PI = 3.14159
Dim alfa As Single
Dim x As Single, y As Single, rx As Single, ry As Single
Dim cenx As Single, ceny As Single
Private Sub Form_Load()
cenx = 2000 '绘图中心
ceny = 1600
alfa = 0
rx = 1500 'x轴半径
ry = 900 'y轴半径
Do
alfa = alfa + 0.1
x = rx * Cos(alfa)
y = ry * Sin(alfa)
Me.PSet (x + cenx, y + ceny) '点绘
Loop Until alfa >= 2 * PI
Me.Picture = Me.Image
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
alfa = alfa + 0.1
If alfa >= 2 * PI Then alfa = 0
x = rx * Cos(alfa)
y = ry * Sin(alfa)
Me.Cls
Me.Circle (x + cenx, y + ceny), 120
Me.PSet (x + cenx, y + ceny)

End Su
VB程序 设计程序模拟行星运动.太阳和行星轨道用Circle语句完成,行星在轨道上运动的椭圆方程为： 行星绕太阳在椭圆轨道上运行时,太阳对行星的引力一定做功 所有太阳系中的行星围绕太阳运动的轨道都是椭圆,太阳处在所有椭圆的一个焦点上, 英语翻译通过平方反比定律和牛顿第二定律,我们完成了对行星运动轨道公式的推导,证明了行星绕太阳运动的轨道是椭圆的,并通过数 行星绕太阳作椭圆轨道运动,假设轨道不变,则行星在绕太阳运动过程中动量 不守恒 ；角动量 守恒 (填守恒或不守恒). 为什么行星的运动轨道是椭圆的? 某行星绕太阳运动的轨迹为椭圆,太阳位于椭圆的一个焦点上,求行星在最近和最远处的速率之比 开普勒行星运动定律告诉我们：所有行星绕太阳运动的轨道都是（　　） 不同行星绕太阳运动的椭圆轨道的半长轴是否相同 不同的行星、饶太阳运动的轨道不同? 太阳系中行星都是绕太阳做椭圆轨道运动的,己知有两个行星的运动轨道的半长轴之比 114页：行星绕太阳运动的轨道是圆还是椭圆?怎样论证?