找回密码
 注册
关于网站域名变更的通知
查看: 372|回复: 2
打印 上一主题 下一主题

一维抛物有限元编程,检查半天也不知道哪错了,大家可以帮忙看看吗,谢谢了

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2020-9-11 14:12 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
function L2=lunwen(N,M)
- a& x7 A" n  Q# K8 y6 llx=0;rx=1;lt=0;rt=1;; p& Z+ l  k& E
h=(rx-lx)/N;
. l2 {6 Q0 ]! M7 h, T, q9 N0 bth=(rt-lt)/M;5 g: j6 G+ a! N" F
x=0:h:1;
. d% F" j0 m6 rt=0:th:1;
3 j8 D& L4 |4 O. o# e  ~/ ?A=zeros(N+1,N+1);3 o' Y8 e& a& J, Y4 u* R
B=zeros(N+1,N+1);/ `8 a* A" D( r( Q% T* Y5 M& q
D=zeros(N+1,N+1);# M; r/ m" W0 P/ O# A% M
E=zeros(2*N+2,2*N+2);
8 ]6 C- h. z% Q" AF=zeros(N+1,1);
  M1 i3 {. q: s; y8 zu3=zeros(N+1,1);- y. p, d" k! R
P=zeros(2*N+2,1);
# f3 w8 y' ?/ q7 n  V* R( S4 MX=zeros(2*N+2,1);' X# p& u7 A, m. v# n& u
X1=zeros(2*N+2,1);
. m7 w7 V) {2 N( z$ u3 h, h2 JX2=zeros(2*N+2,M+1);
) M: c1 m* P1 H5 ffor i=0:N
7 o6 v- G, P6 G  y    u3(i+1,1)=sin(pi*i*h);
* u  A' D% n5 z0 Q7 r" oend
7 h6 ?! {& e9 w! x  BX(N+2:2*N+2,1)=u3(1:N+1,1);2 b  W8 l1 o8 A2 s" p$ Z/ ?
for i=1:N
5 v3 Y- T# T: E. W0 [! U   e=[x(i),x(i+1)];0 q6 t' n2 T8 ^. X2 r4 D
    A([i,i+1],[i,i+1])=A([i,i+1],[i,i+1])+ganddu1(e);5 k) G( W/ ]  X$ `
    B([i,i+1],[i,i+1])=B([i,i+1],[i,i+1])+gangdu22(e);. V  q$ M4 e0 Q8 D) L  g
    D([i,i+1],[i,i+1])=D([i,i+1],[i,i+1])+gangdu33(e);% k# _5 A: W: z
end
+ Z4 m( B3 [+ l( Z% E(1:N+1,1:N+1)=A;! K& \) J. P+ Y6 {7 r7 N
% E(1:N+1,N+2:2*N+2)=-B;- c% q) i$ p. e3 t
% E(N+2:2*N+2,1:N+1)=-th*B;4 ~: r1 Y/ P( Z: W" B# V3 ^
% E(N+2:2*N+2,N+2:2*N+2)=B-th*B+th*D;: o  r, l! k- V
E=[A,-B;-th.*B,B-th.*B+th.*D];
! r" D9 }' X" C3 y: {for j=1:M0 A& t* F- A6 b& R
    F=zeros(N+1,1); %%记得归零
. W! j/ E( F$ X  W. b: b6 B5 X. q    y=exp(-t(j+1));( s7 C" `4 m# l+ e2 q
    for i=1:N
3 a8 ^' [2 p+ s        e=[x(i),x(i+1)];
( s: S* d! `4 e/ r9 C9 Z# V4 f        F([i,i+1],1)=F([i,i+1],1)+y*Hezai3(e);
& T( R. Z1 X  T( [$ |- }# R8 v% R    end
' G& R) t# c# Z/ ^/ m: p    X(1:2.*N+2,j+1)=E\[zeros(N+1,1);-th.*F+B.*X(N+2:2.*N+2,j)];! _* T4 M9 @6 M
end
' A. p" m* e( [; A6 vX1=[A\B*X(N+2:2*N+2,1);X(N+2:2*N+2,1)];' A# C7 @9 q: j  Q
X2=[X1;X];
4 [* S! a- ^6 \& {错误使用 vertcat
7 G2 t: o  t% ^. F, G要串联的数组的维度不一致。% F2 a$ \7 h. {
+ v- v$ l7 K' `; J3 k: v
出错 lunwen (line 39)
6 ~% u. D( S4 S) Y# ?- {- v: l9 f    X(1:2.*N+2,j+1)=E\[zeros(N+1,1);-th.*F+B.*X(N+2:2.*N+2,j)];# w# u+ F( A! i8 C0 R8 x
检查半天也不知道哪错了
9 C8 R. X  f9 u1 |; U2 l  y1 n+ G% |3 P2 s1 @( Z1 `* U

" S, w* n  _+ P( u
  • TA的每日心情
    开心
    2022-12-27 15:46
  • 签到天数: 4 天

    [LV.2]偶尔看看I

    2#
    发表于 2020-9-11 15:11 | 只看该作者
    你的程序没传完吧
  • TA的每日心情
    开心
    2023-1-11 15:38
  • 签到天数: 1 天

    [LV.1]初来乍到

    3#
    发表于 2020-9-11 16:35 | 只看该作者
    程序好像没传完
    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    推荐内容上一条 /1 下一条

    EDA365公众号

    关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

    GMT+8, 2025-11-24 12:24 , Processed in 0.156250 second(s), 23 queries , Gzip On.

    深圳市墨知创新科技有限公司

    地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

    快速回复 返回顶部 返回列表