24小时热门版块排行榜    

查看: 1218  |  回复: 4

陈成龙

木虫 (小有名气)

[求助] 100BB急求matlab编程中的问题解决,如何修改这个程序呢?

首先谢谢大家的关照!
下面是matlab编程的主文件代码:(贴出来大家看看)
clear all
global basemesh
global disp
xnod=[0 1 1 0]';ynod=[0,0,1 1]';
nodes=[1 2 3 4];
for i=1:1
        [nodes,xnod,ynod]=refine(nodes,xnod,ynod);
end
hangnode=[]; % No hanging nodes on the first mesh
icase=2; % 1 for volume load, 2 for boundary tractions

[ux,uy]=solve(icase,nodes,xnod,ynod,hangnode);

tol=1e-5;err=1e9;stopp=1;effp=[];iite=0;mite=20;
while(err>stopp & iite < mite)
    iite=iite+1;
        [err,stopp,ellist,eff,epsx,epsy,epsxy]=errcal(icase,ux,uy,nodes,xnod,ynod,hangnode,tol);
        effp=[effp,eff];
        eps=1;
    ppp=epsx.*epsx+epsy.*epsy+epsxy.*epsxy/2;
         figure(1),clf,patch(xnod(nodes')+eps*ux(nodes'),ynod(nodes')+eps*uy(nodes'),'w'),hold on
     plot([0.8,1.5],eps*[disp,disp],'k-'),plot([0.8,0.8],[-0.4,eps*disp],'k-'),drawnow
        if(err     [nodes,xnod,ynod,hangnode]=refine_local(nodes,xnod,ynod,ellist);
        [ux,uy]=solve(icase,nodes,xnod,ynod,hangnode);minuy=min(uy)
end
%figure(2),plot(effp,'-o'),axis([1 length(effp) 0 1.5])


其他的.m文件在附件中,运行主文件之后的结果如下:

我想把:

中标出的正方形变成(修改成)圆,或者是三维的球体。

麻烦大家指点迷津!
其他的完整的文件在附件里面。
谢谢啦![ Last edited by 陈成龙 on 2011-8-13 at 08:32 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

一个热爱书籍的孩子,欢迎加入小木虫读书群:202871828【民间组织,非诚勿扰】
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Rick_w

金虫 (小有名气)

不懂...
帮顶
2楼2011-08-14 17:16:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Rick_w

金虫 (小有名气)

【答案】应助回帖

陈成龙(金币+5): 感谢提醒!我的账号老久没用了 2011-08-14 18:28:22
对了
我想到了
不过我是不太明白
给你指点个方向吧
去这个论坛
http://www.ilovematlab.cn/index.php
人气很旺的
高手也很多
小木虫的话 资源和化学那块比较不错吧
对不住了  俺是小小虫 大二的而已  哈哈
3楼2011-08-14 17:18:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

陈成龙

木虫 (小有名气)

引用回帖:
2楼: Originally posted by Rick_w at 2011-08-14 17:16:11:
不懂...
帮顶

谢谢!
一个热爱书籍的孩子,欢迎加入小木虫读书群:202871828【民间组织,非诚勿扰】
4楼2011-08-14 18:27:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

陈成龙

木虫 (小有名气)

引用回帖:
3楼: Originally posted by Rick_w at 2011-08-14 17:18:06:
对了
我想到了
不过我是不太明白
给你指点个方向吧
去这个论坛
http://www.ilovematlab.cn/index.php
人气很旺的
高手也很多
小木虫的话 资源和化学那块比较不错吧
对不住了  俺是小小虫 大二 ...

谢谢!
一个热爱书籍的孩子,欢迎加入小木虫读书群:202871828【民间组织,非诚勿扰】
5楼2011-08-14 18:27:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 陈成龙 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售T0P一区SCI文章,我:8O5.51.O.54,科目齐全,可+急 +3 68gx6bh3ei 2026-07-09 3/150 2026-07-10 06:33 by pbuc7it0i8
[硕博家园] 售T0P一区SCI文章,我:8O5.51.O.54,科目齐全,可+急 +3 ph7bxbho8f 2026-07-09 3/150 2026-07-10 05:53 by j4frgf6zcw
[教师之家] 售T0P一区SCI文章,我:8O5.51.O.54,科目齐全,可+急 +3 al9t2f50x3 2026-07-09 4/200 2026-07-10 05:33 by j4frgf6zcw
[考研] 售T0P一区SCI文章,我:8O5.51.O.54,科目齐全,可+急 +4 al9t2f50x3 2026-07-09 4/200 2026-07-10 05:33 by j4frgf6zcw
[基金申请] b口会评 +6 当空照 2026-07-08 6/300 2026-07-09 20:49 by tonyliu0401
[基金申请] 信息学部会评时间 +3 xuel2011 2026-07-06 3/150 2026-07-09 19:05 by mollyzhang_2003
[基金申请] 祈祷青基必中 50+3 hadengry 2026-07-09 9/450 2026-07-09 17:37 by 文杰猪猪
[考研] 在职考研 +6 wu5d 2026-07-08 7/350 2026-07-09 16:40 by 化工小霸王呀
[论文投稿] MSER送审了还被拒稿 +3 S778950906 2026-07-08 5/250 2026-07-09 15:46 by S778950906
[基金申请] 关于如何从代码看上不上会 +11 且听虎啸 2026-07-09 14/700 2026-07-09 15:27 by libeny
[有机交流] 硝基还原 20+3 暮年飞雪 2026-07-07 5/250 2026-07-09 13:30 by tfang
[基金申请] 化学口会评?应用基础研究和基础研究,希望能分开 +3 Tide man 2026-07-08 3/150 2026-07-09 11:36 by dede5556
[基金申请] 今年E04面上 +15 布布和一二 2026-07-05 21/1050 2026-07-09 10:25 by 学员fOzRO9
[硕博家园] 大龄残疾硕士的一点执念 +14 3776737374 2026-07-06 22/1100 2026-07-09 06:07 by lovechizi
[基金申请] 生命口会评 +4 wuke100666 2026-07-07 4/200 2026-07-08 16:38 by 逍遥不够自在
[教师之家] 网络举报学术不端成为了男女之间情杀的手段了,真荒唐。。。 +3 zju2000 2026-07-04 3/150 2026-07-07 21:00 by hyx552200
[有机交流] Suzuki偶联中硼酸酯原料掉下的硼酸酯是否可以自身偶联,生成B2Pin2杂质 500+3 天下大同 2026-07-06 3/150 2026-07-07 10:31 by martyr_oyx
[论文投稿] 刑法学论文投稿求助 +3 高源678 2026-07-04 5/250 2026-07-06 12:20 by 平天尺
[论文投稿] Journal of Environmental Chemical Engineering +3 雪花天涯 2026-07-05 3/150 2026-07-06 09:00 by bobvan
[基金申请] 最后一年,祈求好运 +3 pyw1992 2026-07-06 3/150 2026-07-06 08:53 by 苏_frp
信息提示
请填处理意见