求助：关于分块矩阵的还原，为什么实行不了

舒米牛牛

%运用Jacobi迭代拟合出来的u关于x和y的矩阵
function J=jac(A,b,u0,eps)
if nargin==3
1 s9 z( W0 e2 X. f9 s' t    eps=1.0e-8
  P! _" P5 ]  }  x0 belseif nargin<3
    'error'
0 D, V8 i& H, W- W    return
end
! M8 Q9 u! f5 G' k
%定义内部节点矩阵u0
h=1;k=1;
1 s; U) }0 B, l3 x3 jx=0:h:17;y=0:k:10;
- {& X  P4 e' |7 n) V# N2 ce=length(x)-2;f=length(y)-2;
+ n# S& e; V6 [! w8 ?0 m+ lu=zeros(e,f);
u0=u;

%定义外部节点p
5 t6 P& K( S9 U3 R; xp=zeros(e+2,e+2);
p(1,1:f+2)=0;p(e+2,1:f+2)=0;      
p(1:e+2,1)=100;p(1:e+2,f+2)=100;

%定义系数矩阵A
' x/ i. n* a) y  n! `A=zeros(e*f,e*f);
% n4 t: m2 }+ b3 D8 o# r, WB=mat2cell(A,ones(e*f/e,1)*e,ones(e*f/e,1)*e);
d1=ones(e,1);d2=ones(e-1,1);
M=4*diag(d1)-diag(d2,1)-diag(d2,-1);
" H) A, ~$ H; {% T( rN=-eye(e);
$ x- b% w4 X0 j% l& S# S" q: ]7 VB{1,1}=M;B{e,e}=M
* w) M: B; J: b( jfor i=2:e-1
    B{i,i}=M;B{i-1,i}=N;B{i+1,i}=N
end
A=cell2mat(B);  
这里总是显示
/ v/ }$ h0 Q0 |7 M* r* u* x+ ~9 e9 r??? function J=jac(A,b,u0,eps)
5 T0 ^1 t' J  Y) `  [    |
, t" {. y& x* F7 x9 oError: Function definitions are not permitted at the prompt or in scripts.
7 B! R2 q/ L- N! l  f9 L1 N
) ~$ }) @, q8 s%定义b
% P, l' r6 U9 F- Bb=ones(e*f,1);
% W1 T5 P  [  Y. r. Sfor i=1:e
( s; {# r, R+ B6 I8 w# \    for j=1:f
# i* [( d+ w. P        b(i+j)=p(i,j+1)+p(i+1,j)+p(i+2,j+1)+p(i+1,j+2)
; [7 a* H% U4 x7 s; R3 m( ]    end
end
%运用Jacobi迭代法计算
! h( Z$ S9 E: c. J9 R0 hD=diag(diag(A));
3 J3 c, y, {6 S$ g, tD=inv(D);
, l: p. }8 [2 ]# LL=tril(A,-1);
U=triu(A,1);
$ S* Q  `$ j% |0 [+ ~+ \9 xB=-D*(L+U);
f=D*b;
' T0 K6 V, ^: o1 n/ c, ~9 ^J=B*u0+f;
; j  T, U+ O1 y9 D* Zwhile norm(J-u0)>=eps
  l; E1 L8 F( v5 j1 S: H4 px0=J;
0 h/ {8 K2 _7 n. e/ Z" y2 M' GJ=B*u0+f;
" n+ v9 h8 Y. G  R8 Q: W6 _end
return

madio

你是不是函数的定义没有放在M文件中？

BenCam

对不起,我也不知道,帮不了忙!

舒米牛牛

自己顶一下，拜托哪位高手指点一下，纠结这个矩阵的还原，想了好多方法还是不行~~实在想不出哪里出错了