| 查看: 1227 | 回复: 7 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
5点差分格式解边值问题。。。求大神帮忙 已有1人参与
|
||
有没有类似的程序，哪位大神给我发一下，或者帮我写以下程序。 IMG_20151229_193059.jpg |
回复此楼» 猜你喜欢
FileCode能看出啥？
已经有23人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有36人回复
-
关于Filecode分析方法
已经有9人回复
-
2019年青年基金涵评意见，大家看看几个A，几个B?
已经有10人回复
-
不应该看fileCode
已经有6人回复
-
好奇怪的filecode
已经有6人回复
-
长年满屏的广告，版主太不责任了。基金也等的急
已经有4人回复
-
filecode
已经有15人回复
-
职称评审，求友友推荐见刊最快的期刊
已经有4人回复
-
奇怪，两个人的filecode固定段从头到尾一模一样
已经有10人回复
8楼2015-12-31 08:56:58
米米米BO
金虫 (初入文坛)
- 应助: 6 (幼儿园)
- 金币: 2065.3
- 红花: 4
- 帖子: 48
- 在线: 12.5小时
- 虫号: 2814649
- 注册: 2013-11-20
- 性别: GG
- 专业: 土壤学
2楼2015-12-29 19:55:20
|
下面别人的程序，我该如何利用我的问题里面的边值条件呢？ 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
- 专业: 土壤学
4楼2015-12-30 00:13:43
