这个推导过程如何在Mathemathtica中实现？

lakewater

本人菜鸟，请问附件中的这段推导过程如何在Mathematica当中实现呢？

FreddyMusic

把公式输入进去，然后根据边界条件，求微分方程。就这么简单。
这样的 Mathematica 教材很多，找本翻翻例题就学会了。

TBE_Legend

1# lakewater

maple用的时间不长，可能是错的，呵呵。

有空我再想想复合函数求导怎么搞到ode中。

1. 
   
2. #----------------------------------------------
   
3. restart;
   
4. eq1:=diff(x(p),p)^2+diff(z(p),p)^2=1;
   
5. 
   
6. eq3:=T*diff(z(p),p)=Fx-mg*s;
   
7. eq2:=T*diff(x(p),p)=Fx;
   
8. sol:=dsolve({eq1,eq2,eq3},{x(p),z(p),T});
   
9. eq5:=simplify(subs(sol[1,2],op(sol[3])));
   
10. 
    
11. eq4:=T=E*A*(diff(p(s),s)-1);
    
12. dsolve(rhs(eq4)=rhs(eq5),p(s));
    
13. 
    

复制代码

smarten

你的结果不完全对。方程3.7比M@的推导要好一些，不过结果是类似的。
FM 能让M@一直找到很优美的结果吗？
我还是用M@用得不太好。

FreddyMusic

还是让楼主自己寻找他期待的答案吧。

软件只是工具，用软件的人如何理解数学并解决问题才是关键。

smarten, 你的蜜月度完了？

smarten

还没开始。上海的12号开始。

lakewater

M@的确接触不长,正在学习中,感谢ls各位的帮助.