Maple理论力学课件作者李银山第五部分A第18章节.pptVIP

eq3:=m*DDz1=-m*g-2*m*(-omega*cos(phi)*Dx1): #质点相对地球运动微分方程在 投影。 eq1:=simplify(eq1/m): #化简。 eq2:=simplify(eq2/m): #化简。 eq3:=simplify(eq3/m): #化简。 eq10:=subs(omega=0,DDx1=diff(x1(t),t$2),eq1): #取 ,方程(1)的零次近似方程。 eq20:=subs(omega=0,DDy1=diff(y1(t),t$2),eq2): #取 ,方程(2)的零次近似方程。 eq30:=subs(omega=0,DDz1=diff(z1(t),t$2),eq3): #取 ,方程(3)的零次近似方程。 dsolve({eq10,eq20,eq30,x1(0)=0,y1(0)=0,z1(0)=0,D(x1)(0)=0, D(y1)(0)=0,D(z1)(0)=0},{x1(t),y1(t),z1(t)