急求有限差分方法編寫一維波動方程的程式（Fortran程式

1樓：流年與留戀春天

請問您有有限差分法求解一維波動方程的程式嗎？

c語言差分法求解波動方程程式 80

2樓：挪威的森林徐浩

第二個邊界條件ux（1，t）=exp（-t) 是不是寫錯了？應該是u（1，t）=exp（-t)吧。。

如何理解一維波動方程的所有三類邊界條件

3樓：匿名使用者

不同邊界條件來對應不同的狀態，源第二bai類邊界條件就是邊界上自由振du動，沒zhi有約束限制水dao平方向的位移，所以u對x偏導為0。第三類就是加了個彈性支撐，也就是約束，那就肯定有應力等於外支撐給得力.

所謂邊界條件就是在邊界處單元狀態，如果邊界不受力根據平衡那個地方的內力肯定也為0。

你問的不是很清楚,如果想問的話可以問的詳細點，邊界條件實在不知道怎麼說。可以好好把波動方程一點點推一下。你可以把波動方程所描述的弦當成一個細杆，可能會好理解點。

二維波動方程的有限差分程式(詳細的matlab或者fortran程式) 15

4樓：鬥破了啊

^dx=8000;

dy=4000;

ix=400;

iy=80;

nx=dx/ix+1;

ny=dy/iy+1;

vel=1500*ones(ny,nx);

vel((fix(ny/3)):(fix(2*ny/3)))=1500;

vel((fix(2*ny/3)):ny)=1700;

fre=80;

it=0.01;

u_0=zeros(ny,nx);

u_1=zeros(ny,nx);

for i=1:nx;

for j=1:ny;

u_1(1,i)=-(it)^2*sin(2*pi*fre*it)*exp(-2*pi*fre*(it));

endend

u_1(1,1) = u_1(1,2);

u_1(1,nx) = u_1(1,(nx-1));

for k=2:n-1

for j=1:ny

for i=2:nx-1

if j=1

u_2(j,i) = ((it*vel(j,i))^2)/(ix^2)*(u_1(j,(i-1))+u_1(j,(i+1))-2*u_1(j,i)) + ((it*vel(j,i))^2)/(iy^2)*(u_1((j-1),i)+u_1((j+1),i)-2*u_1(j,i)) + 2*u_1(j,i) - u_0(j,i);

endu_2(1,i)= ((it*vel(1,i))^2)/(ix^2)*(u_1(1,(i+1))+u_1(1,(i-1))-2*u_1(j,j)+ ((it*vel(1,i))^2)/(iy^2)*2*(u_1(2,i)-u_1(1,i))+ 2*u_1(1,i)-u_0(1,i)- (it)^2*sin(2*pi*fre*k*it)*exp(-2*pi*fre*(it*k));

endelseif j=ny

u_2(i,j-1)=u_1(i,j)end

二維波動方程怎麼用差分法求解？就是把位移場或者波動場用波動方程表示出來，急求啊。 32

5樓：阿三五三四

若那個t=0的點為0.05則方程為 0.1cos(4π/5t+2π/5x-1π/30)單位自己腦補lhrd

一維波動方程解得問題 30

6樓：柯南or金田一

這個問題是一個數理方程（或偏微分方程）問題。

只有當邊界條件u（x,0）=h(x),ut(x,0)=0時，(ut表示u對t求一階偏導)，解的形式可以表示為：u（x，t）=(1/2)*(h(x-at)+h(x+at))，當ut(x,0)=p(x)是一個關於x的函式時（非0），解的形式就會有不同了，後面會加一個一項：p（z）從x-at到x+at的一個對z的一個積分項，這個積分項還要乘以一個2a分之一的係數項。

具體的證明過程，你可以參看任何一本關於數理方程的教材中講行波法與積分變換的這一章，裡面應該會給與詳細的證明過程及一些例題的。

希望這些能給你些幫助。

急求有限差分方法編寫一維波動方程的程式（Fortran程式

一進遊戲就花屏宕機，200分急求

求一首告白詩急給20分，求一首表白詩。

五分之四和三分之一的和乘他們的差是多少急

急求有限差分方法編寫一維波動方程的程式（Fortran程式

一進遊戲就花屏 宕機，200分急求

求一首告白詩急給20分，求一首表白詩。

五分之四和三分之一的和乘他們的差是多少急

相關推薦

一進遊戲就花屏宕機，200分急求