exe.m

对电容层析成象的ECT断层图象 进行3维显示

I=[0     0     0     0     0     0     0     0     0     0
     0     0     0    0     0     0     0     0     0     0
     0     0     0     0     0     0     0     0     0     0
     0     0     0     0     0    0    0     0     0     0
     0     1     1     0     0     0     0     0     0     0
     1     1     1     0     0     0     1     1     1     0
     1     1     1     0     0     0     1     1     1     0
     0     1     0     0     0     0     1     1     1     0
     0     0     0     0     0     0     0     1     0     0
     0     0     0     0     0     0     0     0     0     0];
bw=Contour(I,1);

[U,V,R,Info]=BSpline_1(bw,1);


BSpline_2(Info,U,V,R);
%bw