谁能帮我把下面的程序中 yy变成容易看的形式:
syms er
y=[0.162936345 0.139659921 0.0658347 0.00551692 0.00062984 9.36509E-06 7.83179E-06 7.95103E-06 7.41275E-06]; %实验测定值
h=0.03; %床层高度
ri=[0 0.003 0.006 0.009 0.012 0.015 0.02 0.025 0.03]; %径向上测验点的距离
ai=[3.832 7.016 10.173 13.324 16.471 19.616 22.760 25.904 29.047 32.1897]; % 1阶bessel函数的正根
r0=0.036; %床层半径
uz=0.001474; %床层内液速
zc=1/180; %示踪剂与水流量之比
x=ri/r0;
%er=2.22856425*1.0e-8; %径向扩散系数Er,给定初值
b1=besselj(0,ai*x(1)); %求b
b2=besselj(0,ai*x(2));
b3=besselj(0,ai*x(3));
b4=besselj(0,ai*x(4));
b5=besselj(0,ai*x(5));
b6=besselj(0,ai*x(6));
b7=besselj(0,ai*x(7));
b8=besselj(0,ai*x(8));
b9=besselj(0,ai*x(9));
j0=besselj(0,ai); % 0阶bessel函数
w=zc./j0.^2;
e=(uz*r0^2-(uz^2*r0^4+4*er^2*ai.^2).^0.5)*h/2/er;
g1=w.*b1.*exp(e);
g2=w.*b2.*exp(e);
g3=w.*b3.*exp(e);
g4=w.*b4.*exp(e);
g5=w.*b5.*exp(e);
g6=w.*b6.*exp(e);
g7=w.*b7.*exp(e);
g8=w.*b8.*exp(e);
g9=w.*b9.*exp(e);
y1=zc+sum(g1); %求y
y2=zc+sum(g2);
y3=zc+sum(g3);
y4=zc+sum(g4);
y5=zc+sum(g5);
y6=zc+sum(g6);
y7=zc+sum(g7);
y8=zc+sum(g8);
y9=zc+sum(g9);
yn=[y1 y2 y3 y4 y5 y6 y7 y8 y9]
yn1=diff(yn);
yy=sum((yn-y).*yn1) |