求解微分方程

blueear

用mathematica5.0求解一常微分方程，方程形式见附件，但求解结果总是把输入的信息再重新显示一遍。是不是求解不出来呀？还有别的命令能求解这个方程吗？
谢谢！
file:///C:/DOCUME%7E1/ADMINI%7E1/LOCALS%7E1/Temp/moz-screenshot.jpgfile:///C:/DOCUME%7E1/ADMINI%7E1/LOCALS%7E1/Temp/moz-screenshot-1.jpgfile:///C:/DOCUME%7E1/ADMINI%7E1/LOCALS%7E1/Temp/moz-screenshot-2.jpg

smarten

Mathematica里面变量不能用下标。 你把R_0改成R0，以及alpha_0改成alpha0就好了。
不过得到的解很长，没什么意义。不利于理解结果的意义。
不如先简化以及给定一些初始值，再解方程。

blueear

试了一下还是不行。
可能是因为微分方程的系数是变量，并不是常系数的微分方程，所以无法求解。
简化的方法也找了好多，都凑不成一个常系数的微分方程的形式，
郁闷至极！

smarten

根据我说的，能算出来的，大概要3分钟的样子（Timing给的是90.609秒）。不用我在给你打一遍吧。

1. eq = Cos[\[Alpha]]^2/R - Cos[\[Alpha]0]^2/R0 -
   
2.   1/R (Cos[\[Alpha]]^2 ((
   
3.        2 Cos[\[Alpha]]^2 Cos[\[Theta]] \[Rho]'[\[Theta]])/R + (
   
4.        Sin[\[Theta]] \[Rho]''[\[Theta]])/R)) +
   
5.   P Sin[\[Alpha]] R/
   
6.    B (1 + (Sin[\[Theta]] \[Rho][\[Theta]])/R - (
   
7.      Cos[\[Alpha]]^2 Cos[\[Theta]] \[Rho]'[\[Theta]])/R)
   
8. DSolve[eq == 0, \[Rho][\[Theta]], \[Theta]] // Timing

复制代码

FreddyMusic

I think so big result is not useful at all.

It's two D equation,  " Sin[\[Theta]] \[Rho]''[\[Theta]])/R))
Check Dsolve help and guide/EquationSolving TUTORIALS

Better plot it first for understanding than hard CPU solve.

blueear

smarten，的确是解不出看来，我把结果贴上来，计算时间不到一秒钟，0.375second.是不是设置有问题，材鸟，学习中！

smarten

你的Mathematica是什么版本，我算出来了，不过就是没什么意义，除非你先给一些参数赋值。

blueear

我的版本是5.0的，pojieban。该问题属于边值问题，求解的其实是一个挠度曲线，有四个边界条件，可以确定相关参数。为什么我的版本不能求解呢？我同学装的也不能求解，很奇怪。 smarten 你的版本是多少？正版？有没有需要设置的地方？