| 查看: 1079 | 回复: 7 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
5点差分格式解边值问题。。。求大神帮忙 已有1人参与
|
|||
有没有类似的程序，哪位大神给我发一下，或者帮我写以下程序。 IMG_20151229_193059.jpg |
回复此楼» 猜你喜欢
22408 344分 求调剂 一志愿 华电计算机技术
已经有4人回复
-
材料专硕英一数二306
已经有7人回复
-
南京大学化学376求调剂
已经有6人回复
-
南昌大学材料专硕311分求调剂
已经有5人回复
-
295求调剂
已经有6人回复
-
一志愿南昌大学，327分，材料与化工085600
已经有9人回复
-
294求调剂材料与化工专硕
已经有15人回复
-
308求调剂
已经有3人回复
-
321求调剂
已经有11人回复
-
一志愿中海洋材料工程专硕330分求调剂
已经有8人回复
|
下面别人的程序，我该如何利用我的问题里面的边值条件呢？ function [ u x y k]=wudianchafenfa1(h,m,n,kmax,ep) % g-s迭代法解五点差分法问题 %kmax为最大迭代次数 %m,n为x,y方向的网格数，例如（2-0）/0.01=200;aa syms temp; u=zeros(n+1,m+1); x=-1+(0:m)*h; y=-1+(0:n)*h; for(i=1:n+1) u(i,1)=sin(3*pi/4+pi*y(i)/4); u(i,m+1)=sin(3*pi/4+pi*y(i)/4); end for(i=1:n) for(j=1:m) f(i,j)=32*u(i,j); end end t=zeros(n-1,m-1); for(k=1:kmax) for(i=2:n) for(j=2:m) temp=h*h*f(i,j)/4+(u(i,j+1)+u(i,j-1)+u(i+1,j)+u(i-1,j))/4; t(i,j)=(temp-u(i,j))*(temp-u(i,j)); u(i,j)=temp; end end t(i,j)=sqrt(t(i,j)); if(k>kmax) break; end if(max(max(t))<ep) break; end end |
3楼2015-12-29 21:42:43
米米米BO
金虫 (初入文坛)
- 应助: 6 (幼儿园)
- 金币: 2065.3
- 红花: 4
- 帖子: 48
- 在线: 12.5小时
- 虫号: 2814649
- 注册: 2013-11-20
- 性别: GG
- 专业: 土壤学
2楼2015-12-29 19:55:20
米米米BO
金虫 (初入文坛)
- 应助: 6 (幼儿园)
- 金币: 2065.3
- 红花: 4
- 帖子: 48
- 在线: 12.5小时
- 虫号: 2814649
- 注册: 2013-11-20
- 性别: GG
- 专业: 土壤学
4楼2015-12-30 00:13:43
5楼2015-12-30 07:36:59
