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

来源：学生作业帮编辑：神马作文网作业帮分类：数学作业时间：2024/11/11 06:17:30

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页：行星绕太阳运动的轨道是圆还是椭圆?怎样论证?

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

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