24小时热门版块排行榜

返回列表

liuzhuanling

铁虫 (初入文坛)

应助: 0 (幼儿园)
金币: 16.3
帖子: 15
在线: 15.5小时
虫号: 223807
注册: 2006-03-21
专业: 数学物理

[交流] 【求助】maple计算过程的问题

> eq1 := diff(u(x, t), `$`(t, 2))-(diff(u(x, t), `$`(x, 2)))+alpha*u(x, y)-beta*u(x, y)^3 = 0;
print(`output redirected...`); # input placeholder
/ d  / d       \\ / d  / d       \\                            3
|--- |--- u(x, t)|| - |--- |--- u(x, t)|| + alpha u(x, y) - beta u(x, y)  = 0
\ dt \ dt       // \ dx \ dx       //
> eq2 := algsubs(u(x, t) = phi(xi)*exp(i*(k2*x+`ϖ2`*t)), eq1);
print(`output redirected...`); # input placeholder
      2       2
phi(xi) i  ϖ2  exp(i (k2 x + ϖ2 t))

            2 2                                                       3
- phi(xi) i  k2  exp(i (k2 x + ϖ2 t)) + alpha u(x, y) - beta u(x, y)  =

  0
> eq3 := algsubs(xi = k1*x+omega1*t, eq2);
print(`output redirected...`); # input placeholder
                                 eq2
> collect(eq3, [diff(phi(xi), `$`(xi, 2)), diff(phi(xi), xi), phi(xi), phi(xi)^3], eq3);
print(`output redirected...`); # input placeholder
                              eq2(eq2)
>

本应做两次变换，u(x, t) = phi(xi)*exp(i*(k2*x+`ϖ2`*t))，xi = k1*x+omega1*t，怎样化简eq1呢？多谢1

回复此楼

» 猜你喜欢

1楼 2011-03-20 22:35:47

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 liuzhuanling 的主题更新

返回列表