7 files changed, 136 insertions, 0 deletions
diff --git a/752/CH1/EX1.10.1/1_10_1.sce b/752/CH1/EX1.10.1/1_10_1.sce
new file mode 100755
index 000000000..223ec73d0
--- /dev/null
+++ b/752/CH1/EX1.10.1/1_10_1.sce
@@ -0,0 +1,32 @@
+clc;
+// page no 34
+// prob no 1_10_1
+//From the ckt of fig. 1.10.1(a)
+C1=70*10^-12
+C2=150*10^-12
+Rl=200
+Q=150
+f=27*10^6
+r=40000
+//Determination of common resonant freq
+wo=2*3.14*f;
+disp('Mrad/sec',wo/(10^6),+'The value of common resonant freq is');
+//Determination of Gl
+Gl=1/Rl;
+disp('mSec',Gl*(10^3),+'The value of Gl is');
+//Checking the approxiamtion in denominator
+ap=((wo*(C1+C2))/(Gl))^2
+alpha=(C1+C2)/C1;
+disp(alpha,'The value of alpha is ')
+//Determination of effective load
+Reff=((alpha)^2)*Rl;
+disp('kohm',Reff/(10^3),+'The value of effective load is');
+//If effective load is much less than internal resistance hence tuning capacitance then
+Cs=C1*C2/(C1+C2);
+disp('pF',Cs*(10^12),+'The value of tuning capacitance is');       
+//Determination of Rd
+Rd=Q/(wo*Cs);
+disp('kohm',Rd/(10^3),+'The value of Rd is'); 
+//If Rd is much greater than Reff then -3dB bandwidth is given by
+B=1/(2*3.14*C2*alpha*Rl);
+disp('MHz',B/(10^6),+'The value of -3dB BW is');
+\ No newline at end of file
diff --git a/752/CH1/EX1.2.2/1_2_2.sce b/752/CH1/EX1.2.2/1_2_2.sce
new file mode 100755
index 000000000..d1d4abf62
--- /dev/null
+++ b/752/CH1/EX1.2.2/1_2_2.sce
@@ -0,0 +1,14 @@
+clc;
+// page no 5
+// prob no 1_2_2
+//T-type attenuator provide 6-dB insertion loss
+//All resistance are in ohm
+Ro=50
+ILdB=6
+IL=10^-(ILdB/20)
+//Determination of R 
+R=Ro*(1-IL)/(1+IL)
+disp('ohm',R,+'The value of resistance R is')
+//Determination of R3
+R3=(2*Ro*IL)/(1-(0.5)^2)
+disp('ohm',R3,+'The value of resistance R3 is')
+\ No newline at end of file
diff --git a/752/CH1/EX1.2.3/1_2_3.sce b/752/CH1/EX1.2.3/1_2_3.sce
new file mode 100755
index 000000000..d849528b4
--- /dev/null
+++ b/752/CH1/EX1.2.3/1_2_3.sce
@@ -0,0 +1,15 @@
+clc;
+// page no 7
+// prob no 1_2_3
+//pi-attenuator with 6 dB insertion loss
+//output resistance is Ro=50 ohm
+//All resistance are in ohm
+Ro=50
+ILdB=6
+IL=10^-(ILdB/20)
+//Determination of RA and RB
+RA=Ro*(1+IL)/(1-IL);
+disp('ohm',RA,+'The value of resistance RA and RB is')
+//Determination of RC
+RC=Ro*(1-(IL)^2)/(2*IL);
+disp('ohm',RC,+'The value of resistance RC is')
+\ No newline at end of file
diff --git a/752/CH1/EX1.2.4/1_2_4.sce b/752/CH1/EX1.2.4/1_2_4.sce
new file mode 100755
index 000000000..50d2069ea
--- /dev/null
+++ b/752/CH1/EX1.2.4/1_2_4.sce
@@ -0,0 +1,15 @@
+clc;
+// page no 9
+// prob no 1_2_4
+//As given in fig. 1.2.4 L-attenuator with source resistance Rs=75 ohm and load resistance Rl=50 ohm
+Rs=75; Rl=50;
+//Determination of R1
+R1=(Rs*(Rs-Rl))^(1/2);
+disp('ohm',R1,+'The value of resistance R1 is');
+//Determination of R3
+R3=((Rs^2)-(R1^2))/R1;
+disp('ohm',R3,+'The value of resistance R3 is');
+//Determination of insertion loss
+IL=(R3*(Rs+R1))/((Rs+R1+R3)*(R3+R1)-(R3)^2)
+ILdB=-20*log10(IL);//convertion of power in decibels
+disp('dB',ILdB,+'The value of insertion loss is');
+\ No newline at end of file
diff --git a/752/CH1/EX1.2.5/1_2_5.sce b/752/CH1/EX1.2.5/1_2_5.sce
new file mode 100755
index 000000000..ce1570096
--- /dev/null
+++ b/752/CH1/EX1.2.5/1_2_5.sce
@@ -0,0 +1,15 @@
+clc;
+// page no 10
+// prob no 1_2_5
+//As given in fig. 1.2.4 L-attenuator with source resistance Rs=10 ohm and load resistance Rl=50 ohm
+Rs=10; Rl=50;
+//Determination of R2
+R2=(Rl*(Rl-Rs))^(1/2);
+disp('ohm',R2,+'The value of resistance R2 is');
+//Determination of R3
+R3=((Rl^2)-(R2^2))/R2;
+disp('ohm',R3,+'The value of resistance R3 is');
+//Determination of insertion loss
+IL=(R3*(Rs+Rl))/((Rs+R3)*(R3+R2+Rl)-(R3)^2)
+ILdB=-20*log10(IL);//convertion of power in decibels
+disp('dB',ILdB,+'The value of insertion loss is');
+\ No newline at end of file
diff --git a/752/CH1/EX1.5.1/1_5_1.sce b/752/CH1/EX1.5.1/1_5_1.sce
new file mode 100755
index 000000000..ea644d99b
--- /dev/null
+++ b/752/CH1/EX1.5.1/1_5_1.sce
@@ -0,0 +1,18 @@
+clc;
+// page no 21
+// prob no 1_5_1
+//Series tuned resonant ckt is given which is tuned at 25 MHz with 
+//series resistance 5 ohm self capacitance 7 pF and inductance 1 uH 
+C=7*10^-12;R=5;L=10^-6;f=25*10^6;
+//Determination of self resonant freq of coil denoted as Fsr
+Fsr=1/(2*3.14*(L*C)^0.5);
+disp('MHz',Fsr/(10^6),+'The value of self resonant freq is');
+//Determination of Q-factor of coil,excluding self-capacitive effects
+Q=(2*3.14*f*L)/R;
+disp(Q,'The value of Q-factor is');
+//Determination of effective inductance
+Leff=L/(1-(f/Fsr)^2);
+disp('uH',Leff*(10^6),+'The value of effective inductance is');
+//Determination of effective Q-factor
+Qeff=Q*(1-(f/Fsr)^2);
+disp(Qeff,'The value of effective Q-factor is');
+\ No newline at end of file
diff --git a/752/CH1/EX1.8.1/1_8_1.sce b/752/CH1/EX1.8.1/1_8_1.sce
new file mode 100755
index 000000000..557bffb39
--- /dev/null
+++ b/752/CH1/EX1.8.1/1_8_1.sce
@@ -0,0 +1,27 @@
+clc;
+// page no 26
+// prob no 1_8_1
+//High frequency transformer with identical primary and secondary circuits
+Lp=150*10^-6;
+Ls=150*10^-6;
+Cp=470*10^-12;
+Cs=470*10^-12;
+//Lp=Ls=150 uH,Cp=Cs=470 pF
+Q=85//Q-factor for each ckt is 85
+c=0.01//Coeff of coupling is 0.01
+Rl=5000//Load resistance Rl=5000 ohm
+r=75000//Constant current source with internal resistance r=75 kohm
+//Determination of common resonant frequency
+wo=1/((Lp*Cp)^(1/2));
+//disp('Mrad/sec',wo/(10^6),+'The value of common resonant freq is');
+p=3.77*10^6;
+Z2=Rl/(1+(p*%i*Cs*Rl));
+Z1=r/(1+(p*%i*Cp*r));
+// At resonance Zs=Zp=Z
+Z=wo*Ls*(1/Q +%i);
+Zm=%i*p*c*Lp;
+// Determination of denominator
+Dr=((Z+Z1)*(Z+Z2))-(Zm^2)
+// Hence transfer impedance is given as
+Zr= (Z1*Z2*Zm)/Dr;
+disp('ohm',Zr,'The transfer impedance is');
+\ No newline at end of file