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

舒米牛牛

%运用Jacobi迭代拟合出来的u关于x和y的矩阵
function J=jac(A,b,u0,eps)
8 `" o6 w% X0 I: |+ J" Qif nargin==3
& ^1 u! H4 y. p. S+ q    eps=1.0e-8
elseif nargin<3
, J+ a5 i1 b7 ]4 o" }; `    'error'
    return
; S" }# [. X; Rend

%定义内部节点矩阵u0
. {6 }0 Q- J% o3 H4 z% ph=1;k=1;
# {9 j; e9 x4 B% @& d# _. px=0:h:17;y=0:k:10;
3 n' T3 K9 q4 e% e/ |) ie=length(x)-2;f=length(y)-2;
u=zeros(e,f);
9 {* ^9 x4 `5 F+ I& y4 n! `0 du0=u;
9 }: t' @* p* U
+ ?4 M# A& Q8 I6 M. y%定义外部节点p
p=zeros(e+2,e+2);
1 X# q* D" q- dp(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;
' i: \0 |% n6 M
8 h. C1 V/ V5 B%定义系数矩阵A
A=zeros(e*f,e*f);
' o# D3 I4 ^/ g3 j3 A" dB=mat2cell(A,ones(e*f/e,1)*e,ones(e*f/e,1)*e);
( Z' Z# d6 z$ p' j5 qd1=ones(e,1);d2=ones(e-1,1);
M=4*diag(d1)-diag(d2,1)-diag(d2,-1);
( L, `* o5 f$ n) C; C4 rN=-eye(e);
B{1,1}=M;B{e,e}=M
' l5 H. s" x' d  H4 A( M$ bfor i=2:e-1
7 X; G( E8 Z# R6 ^; h    B{i,i}=M;B{i-1,i}=N;B{i+1,i}=N
. ?, x' O1 q) }1 |* d5 K( Qend
A=cell2mat(B);  
7 R7 z) O2 }; s; t  b7 Z* A+ ?这里总是显示
) b- I$ F8 Q* g) F' n??? function J=jac(A,b,u0,eps)
    |
Error: Function definitions are not permitted at the prompt or in scripts.
2 w& N  H7 r6 b# ~* [( c& ^. m
%定义b
b=ones(e*f,1);
for i=1:e
    for j=1:f
3 l! a4 i& ]' a7 d9 G$ j/ \* U% \3 {" @        b(i+j)=p(i,j+1)+p(i+1,j)+p(i+2,j+1)+p(i+1,j+2)
0 J2 v' p( \- T& j3 ~) v    end
end
% K2 }9 ^2 w' S6 x. a& t%运用Jacobi迭代法计算
D=diag(diag(A));
D=inv(D);
# w( S+ E/ C% }# i# z  TL=tril(A,-1);
3 G# J4 Z8 b+ u* X/ ^& QU=triu(A,1);
B=-D*(L+U);
; [2 k: v- \5 o7 J1 @% Kf=D*b;
J=B*u0+f;
while norm(J-u0)>=eps
x0=J;
. N% c2 S% A' l5 R4 wJ=B*u0+f;
- ~- S6 O) M: W8 A7 Cend
1 u$ I& V0 G; O* _0 C1 e* freturn

舒米牛牛

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

BenCam

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

madio

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