问题再度来袭
mathematica吧
全部回复
仅看楼主
level 11
ZCNwant 楼主
各位,我想问一下
e^(-itw)*θ''[s]/C5-e^(-itw)*C5^2*θ'''[s]+e^(-itw)*C5*θ''''[s]==
e^(-itw)*i^2*w^2*ρ(w[s]-2/3*C4*C5*w'[s]-C5^2*w''[s])
其中,C4、C5表示数,’表示求几阶导,我的难题是怎么将θ[s]用其他未知数表示出来,未知数包括i,t,w,w[s]。其中w和w[s]为不同变量。
2013年05月20日 14点05分 1
吧务
level 15
你起码也有Mathematica语句写吧,你这e是自然对数底还是啥,i是复数单位还是啥,你不说别人怎么知道。
2013年05月21日 06点05分 2
不好意思,我不是很懂。e是自然对数,i是复数,t是时间
2013年05月21日 08点05分
回复 ZCNwant :应该是解不了。你看看DSolve的帮助。
2013年05月21日 08点05分
回复 ZCNwant :我错了,运行了七八分钟之后,Mathematica奇迹般的把它解出来了……具体见下楼。
2013年05月21日 09点05分
吧务
level 15
All hail Mathematica!
2013年05月21日 09点05分 3
谢谢
2013年05月21日 09点05分
回复 ZCNwant :[哈哈]
2013年05月21日 09点05分
回复 ZCNwant :你也要多看看帮助啊。
2013年05月21日 09点05分
吧务
level 15
又经历了一次奇迹般的DSolve求解,我看就把它附在这个地方好了:
http://zhidao.baidu.com/question/2010002031348585108.html?oldq=1
事实上,后来我又蛋疼了一把,用两个边界条件试了一下:
DSolve[{2 a t[x] t'[x] + c t''[x] + a t[x]^2 t''[x] == 0 ,t[f]==b,t[
d]==e}, t[x], x] // AbsoluteTiming
结果又出现了同样的警告信息,同时解中出现了一个常量,看样子这个方程不能使用这种边界条件求解啊:
于是继续蛋疼地求了一次通解:
DSolve[{2 a t[x] t'[x] + c t''[x] + a t[x]^2 t''[x] == 0
}, t[x], x] // AbsoluteTiming
总之……All hail Mathematica!
2013年11月30日 05点11分 4
我这里直接复制代码,第一个300多秒,第二个200多秒就有结果了而且一模一样,你这个为什么这么慢。测试一下mma9,mma10都是如此。
2014年05月03日 07点05分
回复 asd321fgh678 :[啊!]可是版本8的64位版本就是算了这么久啊
2014年05月03日 07点05分
1