diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1760/CH8 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1760/CH8')
48 files changed, 482 insertions, 0 deletions
diff --git a/1760/CH8/EX8.1/EX8_1.sce b/1760/CH8/EX8.1/EX8_1.sce new file mode 100755 index 000000000..da64c8db4 --- /dev/null +++ b/1760/CH8/EX8.1/EX8_1.sce @@ -0,0 +1,21 @@ + //EXAMPLE 8-1 PG N0-510
+L=0.02; //INDUCTANCE
+C=4*10^-6; //CAPACITOR
+Z=200;
+Fc=1/(%pi*(L*C)^0.5);
+Z0=(L/C)^0.5;
+Z1=(%i*2)*%pi*Z*L;
+Z2=1/(%i*2*%pi*Z*C);
+Z0*(%pi)=[(4*Z1*Z2*Z2)/(Z1+4*Z2)]^0.5
+F1=2000;
+Z11=%i*%pi*F1*L;
+Z22=1/(%i*%pi*F1*C);
+Z01=[(4*Z11*Z22*Z22)/(Z1+4*Z22)]^0.5;
+disp('ii) POWER (Pmax) is = '+string ([Z1]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z2]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z0*(%pi)]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z11]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z22]) +' W ');
+disp('ii) POWER (Pmax) is = '+string ([Z01]) +' W ');
+
+
diff --git a/1760/CH8/EX8.10/EX8_10.sce b/1760/CH8/EX8.10/EX8_10.sce new file mode 100755 index 000000000..f5732c57e --- /dev/null +++ b/1760/CH8/EX8.10/EX8_10.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-10 PG NO- 529
+Ro=100;
+Fc=1000;
+L=Ro/Fc*%pi;
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
+C=1/(%pi*Ro*Fc)
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.11/EX8_11.sce b/1760/CH8/EX8.11/EX8_11.sce new file mode 100755 index 000000000..e3976e765 --- /dev/null +++ b/1760/CH8/EX8.11/EX8_11.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-11 PG NO-529-530
+Ro=500;
+Fc=1000;
+L=Ro/(%pi*Fc);
+disp('ii) INDUCTANCE (L) is = '+string (L) +' H ')
+C=1/(%pi*Ro*Fc);
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.12/EX8_12.sce b/1760/CH8/EX8.12/EX8_12.sce new file mode 100755 index 000000000..5a15890c3 --- /dev/null +++ b/1760/CH8/EX8.12/EX8_12.sce @@ -0,0 +1,5 @@ + //EXAMPLE 8-12 PG NO-530
+Fc=1000;
+C=0.05*10^-6;
+L=1/(%pi*%pi*Fc*Fc*C)
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
diff --git a/1760/CH8/EX8.13/EX8_13.sce b/1760/CH8/EX8.13/EX8_13.sce new file mode 100755 index 000000000..8388f8054 --- /dev/null +++ b/1760/CH8/EX8.13/EX8_13.sce @@ -0,0 +1,5 @@ + //EXAMPLE 8-13 PG NO-530
+Fc=2000;
+L=0.05;
+C=1/(16*%pi*%pi*Fc*Fc*L)
+disp('i) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.14/EX8_14.sce b/1760/CH8/EX8.14/EX8_14.sce new file mode 100755 index 000000000..e5b50be1a --- /dev/null +++ b/1760/CH8/EX8.14/EX8_14.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-14 PG NO-530
+Ro=600;
+Fc=20000;
+L=Ro/(4*%pi*Fc);
+C=1/(4*%pi*Ro*Fc);
+disp('i) INDUCTANCE (L) is = '+string (L) +' H ')
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.15/EX8_15.sce b/1760/CH8/EX8.15/EX8_15.sce new file mode 100755 index 000000000..89c2adaaa --- /dev/null +++ b/1760/CH8/EX8.15/EX8_15.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-15 PG NO-531
+L=50*10^-3;
+C=0.2*10^-6;
+Ro=(L/C)^0.5;
+Fc=1/[%pi*(L*C)^0.5];
+disp('i) RESISTANCE (Ro) is = '+string (Ro) +' ohm ')
+disp('ii) FREQUENCY (Fc) is = '+string (Fc) +' Hz ')
diff --git a/1760/CH8/EX8.16/EX8_16.sce b/1760/CH8/EX8.16/EX8_16.sce new file mode 100755 index 000000000..315ad0b4a --- /dev/null +++ b/1760/CH8/EX8.16/EX8_16.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-16 PG NO-531
+C=0.2*10^-6;
+L=50*10^-3;
+Ro=(L/C)^0.5;
+Fc=1/[4*%pi*(L*C)];
+disp('Hi) RESISTANCE (Ro) is = '+string (Ro) +' ohm ')
+disp('Hi) FREQUENCY (Fc) is = '+string (Fc) +' Hz ')
diff --git a/1760/CH8/EX8.17/EX8_17.sce b/1760/CH8/EX8.17/EX8_17.sce new file mode 100755 index 000000000..bf9168a89 --- /dev/null +++ b/1760/CH8/EX8.17/EX8_17.sce @@ -0,0 +1,9 @@ + //EXAMPLE 8-18 PG NO-533-534
+Z1=%i*413.05; //Impedance
+Z2=%i*334.45; //Impedance
+Zoc=(Z1/2)-Z2;
+disp('i) Impedance(Zoc) is = '+string ([Zoc]) +' ohm ');
+Zsc=(Z1/2)+[((Z1*-Z2)/2)/(-Z2+(Z1/2))];
+disp('ii) Impedance (Zsc) is = '+string ([Zsc]) +' ohm ');
+Zo=(Zoc*Zsc)^0.5;
+disp('ii) Impedance (Zo) is = '+string ([Zo]) +' ohm ');
diff --git a/1760/CH8/EX8.18/EX8_18.sce b/1760/CH8/EX8.18/EX8_18.sce new file mode 100755 index 000000000..9a22a500c --- /dev/null +++ b/1760/CH8/EX8.18/EX8_18.sce @@ -0,0 +1,22 @@ + //EXAMPLE 8-18 PG NO-533
+Ro=600;
+Fc=1000;
+L1=Ro/(%pi*Fc);
+C2=1/(%pi*Ro*Fc);
+Fo=1050;
+m=[1-(Fc/Fo)]^0.5;
+X=(0.5*m*L1);
+Y=[(1-m*m)/4*m]*L1;
+Z=m*C2;
+A=(m*L1)/2;
+B=[(1-m*m)/(2*m)]*L1;
+C=(m*C2)/2;
+disp('i) INDUCTAR (L1) is = '+string (L1) +' H ')
+disp('ii) CAPACITOR (C2) is = '+string (C2) +' F ')
+disp('iii) CONSTANT (m) is = '+string (m') +' ')
+disp('iv) (X) is = '+string (X) +' H ')
+disp('v) (y) is = '+string (Y) +' H ')
+disp('vi) (Z) is = '+string (Z) +' F ')
+disp('vii) (A) is = '+string (A) +' H ')
+disp('viii) (B) is = '+string (B) +' H ')
+disp('x) (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.19/EX8_19.sce b/1760/CH8/EX8.19/EX8_19.sce new file mode 100755 index 000000000..8768e78a4 --- /dev/null +++ b/1760/CH8/EX8.19/EX8_19.sce @@ -0,0 +1,21 @@ + //EXAMPLE 8-19 PG NO-534-535
+Ro=600; //characteristics Impedance
+Fc=1000; //cutt of frequency
+L=Ro/(4*%pi*Fc);
+disp('i) Inductance is = '+string ([L]) +' H ');
+C=1/[4*%pi*Fc*Ro];
+disp('ii) Capacitance is = '+string ([C]) +' F ');
+m=0.2;
+X=(2*C)/m; //X=2C/m;
+disp('iii) X is = '+string ([X]) +' F ');
+Y=L/m; Y=L/m;
+disp('iv) Y is = '+string ([Y]) +' H ');
+Z=(4*m*C)/[1-m^2];
+disp('v) Z is = '+string ([Z]) +' F ');
+m1=0.6;
+X1=(2*C)/m1; //X=2C/m;
+disp('iii) X is = '+string ([X1]) +' F ');
+Y1=(2*L)/m1; Y1=L/m1;
+disp('iv) Y is = '+string ([Y1]) +' H ');
+Z1=(2*m1*C)/[1-m1^2];
+disp('v) Z is = '+string ([Z1]) +' F ');
diff --git a/1760/CH8/EX8.2/EX8_2.sce b/1760/CH8/EX8.2/EX8_2.sce new file mode 100755 index 000000000..f5ea0b8ad --- /dev/null +++ b/1760/CH8/EX8.2/EX8_2.sce @@ -0,0 +1,7 @@ + //example 8-2 pg no -511
+Ro=600;
+Fc=940;
+L=Ro/(%pi*Fc);
+C=1/(%pi*Ro*Fc);
+disp('ii) INDUCTANCE (L) is = '+string ([L]) +' H ')
+disp('ii) CAPACITOR (C) is = '+string ([C]) +' F ')
diff --git a/1760/CH8/EX8.20/EX8_20.sce b/1760/CH8/EX8.20/EX8_20.sce new file mode 100755 index 000000000..1218b4568 --- /dev/null +++ b/1760/CH8/EX8.20/EX8_20.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-20 PG NO-535
+Ro=450;
+Fc=20000;
+L=Ro/(4*%pi*Fc);
+C=1/(4*%pi*Fc*Ro);
+Z1=Ro/(2*%pi*Fc);
+disp('i) IMPEDANCE (Z1) is = '+string (Z1) +' ');
diff --git a/1760/CH8/EX8.21/EX8_21.sce b/1760/CH8/EX8.21/EX8_21.sce new file mode 100755 index 000000000..0875575f6 --- /dev/null +++ b/1760/CH8/EX8.21/EX8_21.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-21 PG NO-536-537
+Ro=600; //RESISTANCE
+Fc=10000; //FREQUENCY
+F=25000;
+L=Ro/(4*%pi*Fc);
+C=1/(4*%pi*Fc*Ro);
+Z=Ro*[1-(Fc/F)^2]^0.5;
+Zo=Ro/[1-(Fc/F)^2]^0.5;
+disp('i) INDUCTAR (L) is = '+string (L) +' H ')
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
+disp('i) IMPEDANCE (Z) is = '+string (Z) +' ohm ')
+disp('ii) IMPEDANCE (Zo) is = '+string (Zo) +' ohm ')
+
diff --git a/1760/CH8/EX8.22/EX8_22.sce b/1760/CH8/EX8.22/EX8_22.sce new file mode 100755 index 000000000..414bf6203 --- /dev/null +++ b/1760/CH8/EX8.22/EX8_22.sce @@ -0,0 +1,12 @@ + //EXAMPLE 8-22 PG NO-537-538
+L=60*10^-3;
+C=150*10^-9;
+Fo=1/[2*%pi*(L*C)^0.5];
+disp('ii) FREQUENCY (Fo) is = '+string (Fo) +' Hz ')
+R=670;
+B.W=R/L;
+disp('ii) BAND WIDTH (B.W) is = '+string (B.W) +' rad/sec ')
+FL=Fo-(1777.22/2);
+disp('ii) Lower Cut of Frequency (FL) is = '+string (FL) +' Hz ')
+Fu=Fo+(1777.22/2);
+disp('ii) Upper Cut of Frequency (Fu) is = '+string (Fu) +' Hz ')
diff --git a/1760/CH8/EX8.23/EX8_23.sce b/1760/CH8/EX8.23/EX8_23.sce new file mode 100755 index 000000000..c7ce1d15b --- /dev/null +++ b/1760/CH8/EX8.23/EX8_23.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-23 PG NO-538
+L=160*10^-3;
+C=0.022*10^-6;
+Fc=1/[%pi*(L*C)^0.5];
+Zo=(L/C)^0.5;
+disp('ii) Cut of Frequency (Fc) is = '+string (Fc) +' Hz ')
+disp('ii) IMPEDANCE (Zo) is = '+string (Zo) +' ohm ')
diff --git a/1760/CH8/EX8.24/EX8_24.sce b/1760/CH8/EX8.24/EX8_24.sce new file mode 100755 index 000000000..7cd2f2f52 --- /dev/null +++ b/1760/CH8/EX8.24/EX8_24.sce @@ -0,0 +1,11 @@ + //EXAMPLE 8-24 PG NO-541-542
+Avf=1.56
+Vo=2.262*10^-3;
+R=15*10^3;
+F=0.707;
+C=0.002*10^-6;
+Fc=1/(2*%pi*R*C);
+disp('ii) Cut of Frequency (Fc) is = '+string (Fc) +' Hz ')
+Vo1=F*Vo;
+A=20*log(1.56);
+disp('ii) Out Put Voltage (Vo1) is = '+string (Vo1) +' V ')
diff --git a/1760/CH8/EX8.25/EX8_25.sce b/1760/CH8/EX8.25/EX8_25.sce new file mode 100755 index 000000000..6cc936ffd --- /dev/null +++ b/1760/CH8/EX8.25/EX8_25.sce @@ -0,0 +1,9 @@ + //EXAMPLE 8-25 PG NO-542
+Fc=4000;
+R=10*10^3;
+C=1/[2*%pi*Fc*R];
+disp('i) CAPACITOR (C) is = '+string (C) +' F ')
+Avf=1.586;
+R1=15000
+R2=[Avf-1]*R1;
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ')
diff --git a/1760/CH8/EX8.26/EX8_26.sce b/1760/CH8/EX8.26/EX8_26.sce new file mode 100755 index 000000000..3e5e9ae1b --- /dev/null +++ b/1760/CH8/EX8.26/EX8_26.sce @@ -0,0 +1,5 @@ + //EXAMPLE-8-26 PG NO-543
+R=15.86;
+R1=10;
+MA=R/R1;
+disp('i) mid band gain = '+string (MA)+' ');
diff --git a/1760/CH8/EX8.27/EX8_27.sce b/1760/CH8/EX8.27/EX8_27.sce new file mode 100755 index 000000000..59bbfc78b --- /dev/null +++ b/1760/CH8/EX8.27/EX8_27.sce @@ -0,0 +1,11 @@ + //EXAMPLE 8-27 PG NO-545
+R2=0.586;
+M.G=1+0.586; //MID BAND GAIN
+R=10^3;
+C=0.02*10^-6;
+Fc=1/(2*%pi*R*C); //Cut OFF Frequency
+G.Fc=0.707*M.G;
+M.B.O=M.G*1.4;
+disp('ii) Cut off Frequency (Fc) is = '+string (Fc) +' ')
+disp('ii) Gain at cutt of frequency (G.Fc) is = '+string (G.Fc) +' ')
+disp('ii) Mid band out Put (M.B.O) is = '+string (M.B.O) +' mV ')
diff --git a/1760/CH8/EX8.28/EX8_28.sce b/1760/CH8/EX8.28/EX8_28.sce new file mode 100755 index 000000000..47db5c9b5 --- /dev/null +++ b/1760/CH8/EX8.28/EX8_28.sce @@ -0,0 +1,9 @@ + //EXAMPLE-8-28 PG NO-545-546
+Avf=1.586;
+R1=10;
+R2=[Avf-1]*R1;
+Fc=5000;
+R=2000;
+C=1/[2*%pi*R*Fc]
+disp('ii) Resistance (R2) is = '+string (R2) +' Kohm ')
+disp('ii) CAPACITOR (C) is = '+string (C) +' F ')
diff --git a/1760/CH8/EX8.29/EX8_29.sce b/1760/CH8/EX8.29/EX8_29.sce new file mode 100755 index 000000000..913d874a3 --- /dev/null +++ b/1760/CH8/EX8.29/EX8_29.sce @@ -0,0 +1,12 @@ + //EXAMPLE 8-29 PG NO-547-548
+R1=10000;
+Fc1=8000;
+C1=1/[2*%pi*R1*Fc1];
+R4=15;
+R3=8.79;
+Fc2=4000;
+R2=20000;
+C2=1/[2*%pi*R2*Fc2];
+disp('ii) CAPACITOR (C1) is = '+string (C1) +' F ')
+disp('ii) CAPACITOR (C2) is = '+string (C2) +' F ')
+
diff --git a/1760/CH8/EX8.3/EX8_3.sce b/1760/CH8/EX8.3/EX8_3.sce new file mode 100755 index 000000000..0a67bd9aa --- /dev/null +++ b/1760/CH8/EX8.3/EX8_3.sce @@ -0,0 +1,18 @@ +L=0.015; //INDUCTANCE
+C=0.5*10^-6; //CAPACITOR
+Z=200;
+Fc=1/(4*%pi*(L*C)^0.5);
+Z0=(L/C)^0.5;
+Z2=(%i*2)*%pi*Z*L;
+Z1=1/(%i*2*%pi*Z*C);
+F1=2000;
+Z01=[(Z1*Z2)/(1+(Z1/(4*Z2)))]^0.5;
+A=8.147;
+disp('ii) Impedance (ZO) is = '+string ([Z0]) +' W ');
+disp('ii) FREQUENCY is = '+string ([Fc]) +' HZ ');
+disp('ii) Impedance(Z1) is = '+string ([Z1]) +' W ');
+disp('ii) Impedance(Z2) is = '+string ([Z2]) +' W ');
+disp('ii) Impedance(Z01) is = '+string ([Z01]) +' W ');
+disp('ii) ALPHA is = '+string ([A]) +' ');
+
+
diff --git a/1760/CH8/EX8.30/EX8_30.sce b/1760/CH8/EX8.30/EX8_30.sce new file mode 100755 index 000000000..c2b07ead7 --- /dev/null +++ b/1760/CH8/EX8.30/EX8_30.sce @@ -0,0 +1,9 @@ + //EXAMPLE 8-30 PG NO-548
+R1=10000;
+Fc1=40000 ;
+C1=1/[R1*Fc1*2*%pi];
+disp('ii) CAPACITOR (C1) is = '+string (C1) +' F ');
+Fc2=8000;
+R2=5000;
+C2=1/[R2*Fc2*2*%pi];
+disp('ii) CAPACITOR (C2) is = '+string (C2) +' F ');
diff --git a/1760/CH8/EX8.31/EX8_31.sce b/1760/CH8/EX8.31/EX8_31.sce new file mode 100755 index 000000000..02b262880 --- /dev/null +++ b/1760/CH8/EX8.31/EX8_31.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-31 PG NO-550
+N=100;
+Ro=450;
+R1=Ro*[(N-1)/(N+1)];
+R2=Ro*[2*N/{N^2-1}];
+disp('ii) Resistance (R1) is = '+string (R1) +' ohm ');
+disp('ii) Resistance(r2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.32/EX8_32.sce b/1760/CH8/EX8.32/EX8_32.sce new file mode 100755 index 000000000..d0c40df16 --- /dev/null +++ b/1760/CH8/EX8.32/EX8_32.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-32 PG NO-550
+Zoc=200;
+Zsc=187.5;
+Zo=[Zoc*Zsc]^0.5;
+R1=50;
+R2=150;
+R3=193.65;
+N=[R1+R2+R3]/R1;
+D=20*log10(N)
+disp('ii) IMPEDANCE (Zo) is = '+string (Zo) +' ohm ');
+disp('ii) (N) is = '+string (N) +' ');
+disp('ii) (D) is = '+string (D) +' dB ');
+
diff --git a/1760/CH8/EX8.33/EX8_34.sce b/1760/CH8/EX8.33/EX8_34.sce new file mode 100755 index 000000000..c550360aa --- /dev/null +++ b/1760/CH8/EX8.33/EX8_34.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-34 PG NO-551
+N=2.985;
+Ro=175;
+R1=Ro*[(N-1)/(N+1)];
+R2=Ro*[(2*N)/(N^2-1)];
+disp('ii) Resistance (R1) is = '+string (R1) +' ohm ');
+disp('ii) Resistance (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.34/EX8_34.sce b/1760/CH8/EX8.34/EX8_34.sce new file mode 100755 index 000000000..c550360aa --- /dev/null +++ b/1760/CH8/EX8.34/EX8_34.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-34 PG NO-551
+N=2.985;
+Ro=175;
+R1=Ro*[(N-1)/(N+1)];
+R2=Ro*[(2*N)/(N^2-1)];
+disp('ii) Resistance (R1) is = '+string (R1) +' ohm ');
+disp('ii) Resistance (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.35/EX8_35.sce b/1760/CH8/EX8.35/EX8_35.sce new file mode 100755 index 000000000..236ebf043 --- /dev/null +++ b/1760/CH8/EX8.35/EX8_35.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-35 PG NO-552
+R1=200;
+R2=200;
+R3=100;
+Zoc=[R1*(R2+R3)/(R1+R2+R3)];
+disp('i) IMPEDANCE (Zoc) is = '+string (Zoc) +' ohm ');
+Zsc=(R1*R3)/(R1+R3);
+disp('ii) IMPEDANCE (Zsc) is = '+string (Zsc) +' ohm ');
+Zo=[Zoc*Zsc]^0.5;
+disp('iii) IMPEDANCE (Zo) is = '+string (Zo) +' ohm ');
+N=2.618;
+D=20*log10(N)
+disp('ii) (D) is = '+string (D) +' dB ');
diff --git a/1760/CH8/EX8.36/EX8_36.sce b/1760/CH8/EX8.36/EX8_36.sce new file mode 100755 index 000000000..4dfbab30e --- /dev/null +++ b/1760/CH8/EX8.36/EX8_36.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-36 PG NO-552-553
+N=31.622;
+Ro=700;
+R1=Ro*[(N^2-1)/(2*N)];
+R2=Ro*[(N+1)/(N-1)];
+disp('i) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohms ');
diff --git a/1760/CH8/EX8.37/EX8_37.sce b/1760/CH8/EX8.37/EX8_37.sce new file mode 100755 index 000000000..359389b9a --- /dev/null +++ b/1760/CH8/EX8.37/EX8_37.sce @@ -0,0 +1,11 @@ + //EXAMPLE 8-37 PG NO-553
+R1=657.08;
+R2=44.316;
+Zoc=R1+R2;
+Zsc=R1+[(R1*R2)/(R1+R2)];
+Zo=[Zoc*Zsc]^0.5;
+N=[R2+R1+Zo]/R2;
+disp('i) impedance (Zoc) is = '+string (Zoc) +' ohm ');
+disp('ii) impedance (Zsc) is = '+string (Zsc) +' ohm ');
+disp('iii)impedance (Zo) is = '+string (Zo) +' ohm ');
+disp('iv) (N) is = '+string (N) +' ');
diff --git a/1760/CH8/EX8.38/EX8_38.sce b/1760/CH8/EX8.38/EX8_38.sce new file mode 100755 index 000000000..148ed7c65 --- /dev/null +++ b/1760/CH8/EX8.38/EX8_38.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-38 PG NO-554
+N=5.6234;
+Ro=450;
+R1=Ro*[(N^2-1)/(2*N)];
+R2=Ro*[(N+1)/(N-1)];
+disp('i) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.39/EX8_39.sce b/1760/CH8/EX8.39/EX8_39.sce new file mode 100755 index 000000000..f1f958896 --- /dev/null +++ b/1760/CH8/EX8.39/EX8_39.sce @@ -0,0 +1,10 @@ + //EXAMPLE 8-39 PG NO-554
+R1=250;
+R2=750;
+Zoc=[R1*(R1+R2)]/{R1+R2+R1};
+Zsc=[(R1*R2)/(R1+R2)];
+Zo=[Zoc*Zsc]^0.5;
+disp('i) impedance (Zoc) is = '+string (Zoc) +' ohm ');
+disp('ii) impedance (Zsc) is = '+string (Zsc) +' ohm ');
+disp('iii)impedance (Zo) is = '+string (Zo) +' ohm ');
+
diff --git a/1760/CH8/EX8.4/EX8_4.sce b/1760/CH8/EX8.4/EX8_4.sce new file mode 100755 index 000000000..f46909357 --- /dev/null +++ b/1760/CH8/EX8.4/EX8_4.sce @@ -0,0 +1,7 @@ + //EXAMPLE -8-4 PG NO-514-515
+Ro=3000;
+Fc=2000;
+L=Ro/(4*%pi*Fc);
+C=1/(4*%pi*Fc*Ro);
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
+disp('ii) CAPACITOR (C) is = '+string ([C]) +' F ')
diff --git a/1760/CH8/EX8.40/EX8_40.sce b/1760/CH8/EX8.40/EX8_40.sce new file mode 100755 index 000000000..4e7a421e6 --- /dev/null +++ b/1760/CH8/EX8.40/EX8_40.sce @@ -0,0 +1,10 @@ + //EXAMPLE 8-40 PG NO-554-555
+R1=459.089;
+R2=22500';
+Zoc=[R1*(R1+R2)]/{R1+R2+R1};
+Zsc=[(R1*R2)/(R1+R2)];
+Zo=[Zoc*Zsc]^0.5;
+disp('i) impedance (Zoc) is = '+string (Zoc) +' ohm ');
+disp('ii) impedance (Zsc) is = '+string (Zsc) +' ohm ');
+disp('iii)impedance (Zo) is = '+string (Zo) +' ohm ');
+
diff --git a/1760/CH8/EX8.41/EX8_41.sce b/1760/CH8/EX8.41/EX8_41.sce new file mode 100755 index 000000000..179610775 --- /dev/null +++ b/1760/CH8/EX8.41/EX8_41.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-41 PG NO-557
+N=7.943;
+Z=300; //IMPEDANCE
+R1=[(N-1)/N]*Z;
+R2=Z/(N-1);
+disp('i) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.42/EX8_42.sce b/1760/CH8/EX8.42/EX8_42.sce new file mode 100755 index 000000000..30ef097fa --- /dev/null +++ b/1760/CH8/EX8.42/EX8_42.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-43 PG NO-557
+Z1=450;
+Z2=300;
+R1=[Z1*(Z1-Z2)]^0.5;
+R2=[(Z1*Z2*Z2)/(Z1-Z2)]^0.5;
+disp('ii) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.43/EX8_43.sce b/1760/CH8/EX8.43/EX8_43.sce new file mode 100755 index 000000000..30ef097fa --- /dev/null +++ b/1760/CH8/EX8.43/EX8_43.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-43 PG NO-557
+Z1=450;
+Z2=300;
+R1=[Z1*(Z1-Z2)]^0.5;
+R2=[(Z1*Z2*Z2)/(Z1-Z2)]^0.5;
+disp('ii) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.45/EX8_45.sce b/1760/CH8/EX8.45/EX8_45.sce new file mode 100755 index 000000000..38c62de72 --- /dev/null +++ b/1760/CH8/EX8.45/EX8_45.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-45 PG NO-559-560
+N=5.6234;
+R1=500;
+R2=R1/(N-1);
+R3=R1*(N-1);
+disp('i) RESISTANCE (R2) is = '+string (R2) +' ohm ');
+disp('ii) RESISTANCE (R3) is = '+string (R3) +' ohm ');
diff --git a/1760/CH8/EX8.46/EX8_46.sce b/1760/CH8/EX8.46/EX8_46.sce new file mode 100755 index 000000000..b0c18c465 --- /dev/null +++ b/1760/CH8/EX8.46/EX8_46.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-46 PG NO-560-561
+N=7.0795;
+Z1=450;
+R1=Z1*[(N-1)/(N+1)];
+R2=Z1*[(N+1)/(N-1)];
+disp('ii) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.47/EX8_47.sce b/1760/CH8/EX8.47/EX8_47.sce new file mode 100755 index 000000000..d2c7cfcb5 --- /dev/null +++ b/1760/CH8/EX8.47/EX8_47.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-47 PG NO-561
+R1=175;
+R2=350;
+Zoc=R1+R2;
+Zsc=R1+[(R1*R2)/(R1+R2)];
+Zo=[Zoc*Zsc]^0.5;
+N=[R1+R2+Zo]/R2;
+AT=20*log10(2.618);
+disp('i) impedance (Zoc) is = '+string (Zoc) +' ohm ');
+disp('ii) impedance (Zsc) is = '+string (Zsc) +' ohm ');
+disp('iii)impedance (Zo) is = '+string (Zo) +' ohm ');
+disp('iv) (N) is = '+string (N) +' ')
+disp('v)attenuation (AT) is = '+string (AT) +' dB ')
diff --git a/1760/CH8/EX8.48/EX8_48.sce b/1760/CH8/EX8.48/EX8_48.sce new file mode 100755 index 000000000..0ffe78005 --- /dev/null +++ b/1760/CH8/EX8.48/EX8_48.sce @@ -0,0 +1,7 @@ + //EXAMPLE 8-48 PG NO-561
+R=300;
+N=31.62;
+R1=[(N-1)/N]*R;
+R2=R/(N-1);
+disp('i) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.49/EX8_49.sce b/1760/CH8/EX8.49/EX8_49.sce new file mode 100755 index 000000000..694eca513 --- /dev/null +++ b/1760/CH8/EX8.49/EX8_49.sce @@ -0,0 +1,11 @@ + //EXAMPLE 8-49 PG NO-562
+Ro=500;
+N=10;
+RA=Ro*[(N-1)/(N+1)];
+RB=Ro*[(N+1)/(N-1)];
+R1=Ro*[(N-1)/(N+1)];
+R2=Ro*[(2*N)/(N^2-1)];
+disp('ii) RESISTANCE (RA) is = '+string (RA) +' ohm ');
+disp('ii) RESISTANCE (RB) is = '+string (RB) +' ohm ');
+disp('ii) RESISTANCE (R1) is = '+string (R1) +' ohm ');
+disp('ii) RESISTANCE (R2) is = '+string (R2) +' ohm ');
diff --git a/1760/CH8/EX8.5/EX8_5.sce b/1760/CH8/EX8.5/EX8_5.sce new file mode 100755 index 000000000..d3f308c7f --- /dev/null +++ b/1760/CH8/EX8.5/EX8_5.sce @@ -0,0 +1,6 @@ + //EXAMPLE 8-5 PG NO-517
+C1=1;
+C2=50;
+X=1000; //X=1/(2*%pi*(L1*C1)^0.5)
+Y=X*2*(C1/C2)^0.5; //Y=(Fc2-Fc1)
+disp('ii) Frequency (Fc2-Fc1) is = '+string ([Y]) +' Hz ')
diff --git a/1760/CH8/EX8.6/EX8_6.sce b/1760/CH8/EX8.6/EX8_6.sce new file mode 100755 index 000000000..5a8e688be --- /dev/null +++ b/1760/CH8/EX8.6/EX8_6.sce @@ -0,0 +1,13 @@ + //EXAMPLE 8-7 PG NO-519
+Ro=100;
+Fc2=5000;
+Fc1=500;
+L1=Ro/[2*%pi*(Fc2-Fc1)];
+disp('ii) INDUCTANCE (L1/2) is = '+string ([L1/2]) +' H ')
+C1=(Fc2-Fc1)/(2*%pi*Ro*Fc1*Fc2)
+disp('ii) CAPACITOR (2*C1) is = '+string ([2*C1]) +' F ')
+L2=[Ro*(Fc2-Fc1)]/(4*%pi*Fc1*Fc2);
+disp('ii) INDUCTANCE (L2) is = '+string ([L2]) +' H ')
+C2=1/(%pi*(Fc2-Fc1));
+disp('ii) CAPACITOR (C2) is = '+string ([C2]) +' F ')
+
diff --git a/1760/CH8/EX8.7/EX8_7.sce b/1760/CH8/EX8.7/EX8_7.sce new file mode 100755 index 000000000..3adfa5870 --- /dev/null +++ b/1760/CH8/EX8.7/EX8_7.sce @@ -0,0 +1,12 @@ + //EXAMPLE 8-7 PG NO-519
+Fc1=1000;
+Fc2=3000;
+Ro=100;
+L1=[(Ro*(Fc2-Fc1))/(2*%pi*Fc2*Fc1)]
+disp('i) INDUCTANCE (L1/2) is = '+string ([L1]) +' H ')
+C1=1/[2*%pi*(Fc2-Fc1)];
+disp('ii) CAPACITOR (C1) is = '+string (C1) +' F ')
+L2=Ro/[4*%pi*(Fc2-Fc1)];
+disp('iii) INDUCTANCE (L2) is = '+string ([L2]) +' H ')
+C2=(Fc2-Fc1)/(%pi*Ro*Fc1*Fc2)
+disp('ii) CAPACITOR (C2) is = '+string ([C2]) +' F ')
diff --git a/1760/CH8/EX8.8/EX8_8.sce b/1760/CH8/EX8.8/EX8_8.sce new file mode 100755 index 000000000..f23993985 --- /dev/null +++ b/1760/CH8/EX8.8/EX8_8.sce @@ -0,0 +1,16 @@ + // EXAMPLE 8-8 PG NO-523
+Ro=600;
+Fc=2500;
+L=Ro/(%pi*Fc);
+C=1/(%pi*Ro*Fc);
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
+disp('ii) CAPACITOR (C) is = '+string ([C]) +' F ')
+Fo=2600;
+m=sqrt(1-(Fc/Fo)^2)
+disp('iii) (m) is = '+string (m) +' ')
+L1=[(1-m*m)/4*m]*L;
+disp('iv) INDUCTANCE (L1) is = '+string ([L1]) +' H ')
+L2=0.5*m*L;
+disp('ii) INDUCTANCE (L2) is = '+string ([L2]) +' H ')
+C1=m*C;
+disp('ii) CAPACITOR (C1) is = '+string (C1) +' F ')
diff --git a/1760/CH8/EX8.9/EX8_9.sce b/1760/CH8/EX8.9/EX8_9.sce new file mode 100755 index 000000000..97c9a3c90 --- /dev/null +++ b/1760/CH8/EX8.9/EX8_9.sce @@ -0,0 +1,22 @@ + //EXAMPLE 8-9 PG NO-525
+Ro=600;
+Fc=3000;
+L=Ro/(4*%pi*Fc);
+disp('i) INDUCTANCE (L) is = '+string ([L]) +' H ')
+C=1/(4*%pi*Fc*Ro);
+disp('ii) CAPACITOR (C) is = '+string ([C]) +' F ')
+Fo=2700;
+m=sqrt(1-(Fo/Fc)^2);
+disp('iii) (m) is = '+string ([m]) +' ');
+X=(2*C)/m;
+disp('iv) X (X) is = '+string ([X]) +' F ');
+Y=L/m;
+disp('v) Y is = '+string ([Y]) +' H ');
+Z=(4*m*C)/(1-m^2); //Z=4mC/1-m^2
+disp('vi) Z (Z) is = '+string ([Z]) +' F ');
+Z1=(4*m*L)/(1-m^2); //Z1=4mL/1-m^2
+disp('vii) (Z1) is = '+string ([Z1]) +' H ')
+X1=(2*L)/m;
+disp('viii) X1 (X1) is = '+string ([X1]) +' H ')
+Y1=C/m;
+disp('ix) Y1 is = '+string ([Y1]) +' F ')
|