2.26引力与重力7.21.添加滑动条alpha，0∼360°，启用动画，递增，显示地球自转2.添加滑动条alpha2，0∼360°，用半圆旋转形成地球，可展开3.添加滑动条alpha3，0∼90°，表示纬度4.添加变量isStart，控制动画启、停isStart=false5.添加按钮<on/off>，添加脚本SetValue(isStart,!isStart)StartAnimation(alpha,isStart)SetCaption(button1,if(isStart,"off","on"))6.添加原点O7.添加变量R，表示地球半径R=48.添加旋转的球earth，表示地球earth=rotate(surface(circumcirculararc((0,0,-R),(R,0,0),(0,0,R)),alpha2,zAxis),alpha,zAxis) 9.添加线段，表示地轴segment((0,0,R+2),(0,0,-R-2))10.添加点A，表示地面上的点A=rotate(rotate((R+0.1,0,0),-alpha3,yAxis),alpha,zAxis)11.添加线段，连接O、Asegment(O,A)12.添加赤道圆、A与地心连线、连线与赤道平面夹角，用于讲解纬度定义{circle(O,R),segment(O,(R;alpha;0)),angle((R;alpha;0),O,A)}13.添加复选框，显示/隐藏：纬度定义14.添加自转轨道和半径、圆心{circle((0,0,z(A)),A,zAxis),segment((0,0,z(A)),A)}15.添加复选框，显示/隐藏：自转轨道16.添加变量m，表示质量m=0.3517.添加变量an，表示赤道的向心加速度an=0.033818.添加变量a，表示引力加速度a=9.78+an19.添加复选框d，决定是否缩放向心力20.添加变量scale，表示缩放向心力的系数scale=if(d,120,1)21.添加点B，表示万有引力末端A+m a unitvector(vector(A,O))22.添加点C，表示向心力末端，其中cos(alpha3)表示其他位置向心力与赤道的比C=A+m an scale cos(alpha3)unitvector(vector(A,(0,0,z(A))))23.添加点D，表示重力末端D=A+B-C24.添加矢量，表示引力vector(A,B)25.添加矢量，表示向心力vector(A,C)26.添加矢量，表示重力vector(A,D)27.添加线段列表，表示辅助线，虚线{segment(C,B),segment(D,B)}28.添加复选框，显示/隐藏：受力分析29.添加列表，表示3D区域的直线虚线坐标轴{line((0,0,0),xAxis),line((0,0,0),yAxis),line((0,0,0),zAxis)}2.27卫星轨道7.41.添加变量isStart，用于判断开始还是暂停计时isStart=false2.添加变量dt，表示时间间隔dt=0.033.添加变量t，表示时间t=04.添加滑动条speed，1∼10，增量为1，控制动画速度5.添加滑动条N，0∼1/dt，增量1，计时用，速度用滑动条speed控制SetValue(t,t+dt)6.添加《on/off》按钮，用于控制开始或暂停，添加脚本SetValue(isStart,!isStart)StartAnimation(N,isStart)SetCaption(button1,if(isStart,"off","on"))7.添加《reset》按钮，用于重置。
