| 查看: 1229 | 回复: 7 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
5点差分格式解边值问题。。。求大神帮忙 已有1人参与
|
|||
有没有类似的程序，哪位大神给我发一下，或者帮我写以下程序。 IMG_20151229_193059.jpg |
回复此楼» 猜你喜欢
不应该看fileCode
已经有8人回复
-
FileCode能看出啥？
已经有26人回复
-
关于Filecode分析方法
已经有11人回复
-
重要来源：本周末出结果
已经有9人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有14人回复
-
结合人工智能，周易传统文化，filecode打分制来了，3分以上希望很大。
已经有4人回复
-
2019年青年基金涵评意见，大家看看几个A，几个B?
已经有11人回复
-
应该是93bebmhtak前后十一个字符比较关键
已经有36人回复
-
好奇怪的filecode
已经有6人回复
-
filecode
已经有15人回复
米米米BO
金虫 (初入文坛)
- 应助: 6 (幼儿园)
- 金币: 2065.3
- 红花: 4
- 帖子: 48
- 在线: 12.5小时
- 虫号: 2814649
- 注册: 2013-11-20
- 性别: GG
- 专业: 土壤学
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
柱子234: 金币+20, ★★★★★最佳答案 2015-12-31 08:57:13
柱子234: 金币+20, ★★★★★最佳答案 2015-12-31 08:57:13
|
clear,clc; n=9; % grid number h=0.25; % step length u=zeros(n,n); u(:,1)=1; % top boundary u(:,n)=0; % bottom boundary for k=1:1000 % maximum iteration u0=u; % left boundary u(2,2:n-1)=(u(3,2:n-1)+u(2,1:n-2)+u(2,3:n)-0.5*h)/5.0; u(1,2:n-1)=u(2,2:n-1)-0.5*h; % right boundary u(n-1,2:n-1)=(u(n-2,2:n-1)+u(n-1,1:n-2)+u(n-1,3:n)-0.5*h)/5.0; u(n,2:n-1)=u(n-1,2:n-1)-0.5*h; % middle grid u(3:n-2,2:n-1)=(u(2:n-3,2:n-1)+u(4:n-1,2:n-1)+u(3:n-2,1:n-2)+u(3:n-2,3:n))/6.0; delta=max(max(abs(u-u0))); if(delta<1e-8) % precision disp(['Number of iteration: ',num2str(k)]); disp(u'); break; end end 运行下这个试试 |
6楼2015-12-30 10:13:51
米米米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
