Question

Microstrip line is one of the most popular types of planar transmission lines primarily because it can be fabricated by photolithographic processes and is easily miniaturized and integrated with both passive and active microwave devices. A conductor of width W is printed on a thin, grounded dielectric substrate of thickness d and relative permittivity e,. Because some of the field lines are in the dielectric region and some are in air, the effective dielectric constant satisfies the relation Where e, is the effective dielectric constant of the microstrip line The effective dielectric constant of a microstrip line is given approximately by: Ej 0.12e Given the dimensions of the microstrip line, the characteristic impedance can be calculated as sin(- sinWT) Write one function file and one driver file to compute the values of Z, and call the function "microstrip". The driver file should have the following components Inputs 1. Vector W and vector d (same lenght), vector e, (all inputs must be greater than zero), the length of e, must be equal to 3 2. A "while" loop statement which validate the values inside W, d and e, . If one of the values of W, d and e, is less or equal than zero, the user needs to be asked again. However, if the user fails the third attempt the program must be finished

Answer 1

`Hey,

Note: Brother in case of any queries, just comment in box I would be very happy to assist all your queries

clc
clear all
W=input('Type the value of W: ');
d=input('Type the value of d: ');
Er=input('Type the value of Er: ');

counts=0;
flag=1;
while(1)
if((min(W)<=0||min(d)<=0||min(Er)<=0||length(Er)~=3)&&counts==2)
flag=0;
break;
end
if(min(W)>0&&min(d)>0&&min(Er)>0&&length(Er)==3)
flag=1;
break;
end
W=input('Type the value of W: ');
d=input('Type the value of d: ');
Er=input('Type the value of Er: ');
counts=counts+1;
  
end
z1l=[];
z2l=[];
z3l=[];
z1u=[];
z2u=[];
z3u=[];
wdnl=[];
wdnu=[];
if(flag==0)
disp('Read the manual carefully');
else
Wd=W./d;
for i=1:length(Wd)
if(Wd(i)<=1)
wdnl=[wdnl Wd(i)];
z1l=[z1l 0.12*Er(1)*sin(Wd(i))/Wd(i)];
z2l=[z2l 0.12*Er(2)*sin(Wd(i))/Wd(i)];
z3l=[z3l 0.12*Er(3)*sin(Wd(i))/Wd(i)];
else
wdnu=[wdnu Wd(i)];
z1u=[z1u 0.12*Er(1)*cos(Wd(i))/Wd(i)];
z2u=[z2u 0.12*Er(2)*cos(Wd(i))/Wd(i)];
z3u=[z3u 0.12*Er(3)*cos(Wd(i))/Wd(i)];
end
end
subplot(3,1,1)
plot(wdnl,z1l,'b');
hold on;
plot(wdnl,z2l,'r');
hold on;
plot(wdnl,z3l,'g');
hold off;
s1=sprintf('Er=%f\n',Er(1));
s2=sprintf('Er=%f\n',Er(2));
s3=sprintf('Er=%f\n',Er(3));
legend(s1,s2,s3);
xlabel('W/d');
ylabel('Z0');
title('Z vs W/d for 0<W/d<1');
subplot(3,1,2)
plot(wdnu,z1u,'b');
hold on;
plot(wdnu,z2u,'r');
hold on;
plot(wdnu,z3u,'g');
hold off;
legend(s1,s2,s3);
xlabel('W/d');
ylabel('Z0');
title('Z vs W/d for W/d>1');
subplot(3,1,3)
plot([wdnl wdnu],[z1l z1u],'b');
hold on;
plot([wdnl wdnu],[z2l z2u],'r');
hold on;
plot([wdnl wdnu],[z3l z3u],'g');
hold off;
legend(s1,s2,s3);
xlabel('W/d');
ylabel('Z0');
title('Z vs W/d for W/d>0');
end

Figure 1 File Edit View srt Iools Desktop Window Help 0.02 0.015 R 0.01 -Er:0.060000 --Er·001 2000 -Er-0.180000 0.005 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 Wid Z vs Wid for Wid 1 0.01 -Er:0.080000 Er 0.012000 Er-0.180000 0.005 -0.005 0.01 10 Wid Z vs W/d for WId>0 0.02 Er-0.060000 -Er:001 2000 Er-0.180000 0.01 -0.01 Wid O Type here to search ENG 9:57 AM US 04/02/19

Kindly revert for any queries

Thanks.