1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
| clear all
clc;
a=22.9e-3;
b=10.16e-3 ;
w=a/9;
a1=6.8e-3;
a2=a1+w;
a3=a-(a1+a2)
nu0=4*pi*1e-7;
f=1e9;
e0=1/(36*pi)*1e-9;
c=1/sqrt(e0*nu0);
omega=2*pi*f;
k0=omega/c
P=10;
M=2;
xx=[0:0.1e-3:22.9e-3];
for s=1:length(xx)
x=xx(s);
for m=2:M
for p=1:P
A(p,1)=sqrt(2/a*b)*quad(@(x)sin(pi*x/a).*sin(p*pi*x/a1),0,a1)+sqrt(2/a*b)*quad(@(x)sin(pi*x/a).*sin(p*pi*(x-a2)/(a-a2)),a2,a);
Fm0_gp(p,1)= sqrt(2/a*b)*quad(@(x)sin(m*pi*x/a).*sin(p*pi*x/a1),0,a1)+sqrt(2/a*b)*quad(@(x)sin(m*pi*x/a).*sin(p*pi*(x-a2)/(a-a2)),a2,a);
end
ZTE=1i*nu0*omega/(sqrt((m*pi/a)^2-k0^2));
B= Fm0_gp*ZTE* Fm0_gp';
xp(1,s)=inv(B)*A;
X(1,s)=x;
s
end
end
plot(X,abs(xp),'.');
grid on
ylabel('xp');
xlabel('X'); |
Partager