Добавил:
debilX2
t.me
Фулл всегда есть! А если нет, то Вы плохо его ищите! ИиКГ, СКДИКТ, ОКИТПЭС и тд https://t.me/whitedevil752rn Так же веду разработку КД (конструкторской документации) согласно ГОСТ. Имеется опыт работы при производстве на одном из ведущих в области радиэлектроники предприятии. Пишите)
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:pr2
.m clear all
close all
clc
Pt=10;
Gt=0.316;
r=1*10^3:100:50*10^3;
e=4.4;
sigma=0.001;
f=[5*10^6 20*10^6 45*10^6];
E0=sqrt(120*Pt*Gt)./r;
E0sv=sqrt(60*Pt*Gt)./r*10^6;
for i=1:3
ee=e-i*60*sigma.*(3*10^8./f(i));
p(i,:)=pi.*r/(3*10^8./f(i)*abs(ee));
for b=1:length(r)
fun = @(x) exp(x.^2);
V3m(i,b)=abs(1-j.*sqrt(pi*p(i,b)).*exp(-p(i,b))-2.*exp(-p(i,b)).*sqrt(p(i,b)).*integral(fun, 0, sqrt(p(i,b))));
end
E(i,:)=E0.*V3m(i,:).*10^6;
end
figure(1)
semilogy(r,E(1,:),r,E0sv)
grid
title('График напряженности от расстояния при частоте f1')
legend('E','Esv');
xlabel('r'), ylabel('E')
figure(2)
semilogy(r,E(2,:),r,E0sv)
grid
title('График напряженности от расстояния при частоте f2')
legend('E','Esv');
xlabel('r'), ylabel('E')
figure(3)
semilogy(r,E(3,:),r,E0sv)
grid
title('График напряженности от расстояния при частоте f3')
legend('E','Esv');
xlabel('r'), ylabel('E')
close all
clc
Pt=10;
Gt=0.316;
r=1*10^3:100:50*10^3;
e=4.4;
sigma=0.001;
f=[5*10^6 20*10^6 45*10^6];
E0=sqrt(120*Pt*Gt)./r;
E0sv=sqrt(60*Pt*Gt)./r*10^6;
for i=1:3
ee=e-i*60*sigma.*(3*10^8./f(i));
p(i,:)=pi.*r/(3*10^8./f(i)*abs(ee));
for b=1:length(r)
fun = @(x) exp(x.^2);
V3m(i,b)=abs(1-j.*sqrt(pi*p(i,b)).*exp(-p(i,b))-2.*exp(-p(i,b)).*sqrt(p(i,b)).*integral(fun, 0, sqrt(p(i,b))));
end
E(i,:)=E0.*V3m(i,:).*10^6;
end
figure(1)
semilogy(r,E(1,:),r,E0sv)
grid
title('График напряженности от расстояния при частоте f1')
legend('E','Esv');
xlabel('r'), ylabel('E')
figure(2)
semilogy(r,E(2,:),r,E0sv)
grid
title('График напряженности от расстояния при частоте f2')
legend('E','Esv');
xlabel('r'), ylabel('E')
figure(3)
semilogy(r,E(3,:),r,E0sv)
grid
title('График напряженности от расстояния при частоте f3')
legend('E','Esv');
xlabel('r'), ylabel('E')
Соседние файлы в предмете Моделирование и проектирование радиотехнических систем и устройств