level 3
victor22
楼主
问题:
方程为弦自由振动方程,方程中含有有一参数w,但在用Manipulate时只在t=0时有一直线,t=其他值时无图像,若在解方程时把w用1替换则无显示问题,请问应该如何显示w变化对图像的影响?
代码:
weqn = D[u[x, t], {t, 2}] == D[u[x, t], {x, 2}];
ic = {u[x, 0] == 0,
Derivative[0, 1][u][x, 0] == -Sin[\[Omega]x]/
Sin[\[Omega]\[Pi]/
2]};(*\[Omega]/=n\[Pi]a/l,n=1,2,3...,a=1,l=\[Pi]/2,\[Omega]=1*)
bc = {u[0, t] == 0, u[\[Pi]/2, t] == 0};
sol = DSolve[{weqn, bc, ic}, u[x, t], {x, t}];
asol[x_, t_] = u[x, t] /. sol[[1]] /. {\[Infinity] -> 4} // Activate;
Manipulate[
Plot[asol[x, t], {x, 0, \[Pi]}, PlotRange -> {-1, 1}], {t, 0,
2 Pi}, {\[Omega], 1, 2}, SaveDefinitions -> True];
2019年05月04日 15点05分
1
方程为弦自由振动方程,方程中含有有一参数w,但在用Manipulate时只在t=0时有一直线,t=其他值时无图像,若在解方程时把w用1替换则无显示问题,请问应该如何显示w变化对图像的影响?
代码:
weqn = D[u[x, t], {t, 2}] == D[u[x, t], {x, 2}];
ic = {u[x, 0] == 0,
Derivative[0, 1][u][x, 0] == -Sin[\[Omega]x]/
Sin[\[Omega]\[Pi]/
2]};(*\[Omega]/=n\[Pi]a/l,n=1,2,3...,a=1,l=\[Pi]/2,\[Omega]=1*)
bc = {u[0, t] == 0, u[\[Pi]/2, t] == 0};
sol = DSolve[{weqn, bc, ic}, u[x, t], {x, t}];
asol[x_, t_] = u[x, t] /. sol[[1]] /. {\[Infinity] -> 4} // Activate;
Manipulate[
Plot[asol[x, t], {x, 0, \[Pi]}, PlotRange -> {-1, 1}], {t, 0,
2 Pi}, {\[Omega], 1, 2}, SaveDefinitions -> True];