summaryrefslogtreecommitdiff
path: root/2240/CH20
diff options
context:
space:
mode:
Diffstat (limited to '2240/CH20')
-rwxr-xr-x2240/CH20/EX19.1/EX19_1.sce13
-rwxr-xr-x2240/CH20/EX19.10/EX19_10.sce16
-rwxr-xr-x2240/CH20/EX19.11/EX19_11.sce18
-rwxr-xr-x2240/CH20/EX19.12/EX19_12.sce17
-rwxr-xr-x2240/CH20/EX19.13/EX19_13.sce17
-rwxr-xr-x2240/CH20/EX19.14/EX19_14.sce18
-rwxr-xr-x2240/CH20/EX19.15/EX19_15.sce15
-rwxr-xr-x2240/CH20/EX19.16/EX19_16.sce26
-rwxr-xr-x2240/CH20/EX19.17/EX19_17.sce18
-rwxr-xr-x2240/CH20/EX19.18/EX19_18.sce14
-rwxr-xr-x2240/CH20/EX19.19/EX19_19.sce17
-rwxr-xr-x2240/CH20/EX19.2/EX19_2.sce13
-rwxr-xr-x2240/CH20/EX19.20/EX19_20.sce21
-rwxr-xr-x2240/CH20/EX19.21/EX19_21.sce13
-rwxr-xr-x2240/CH20/EX19.3/EX19_3.sce13
-rwxr-xr-x2240/CH20/EX19.4/EX19_4.sce17
-rwxr-xr-x2240/CH20/EX19.5/EX19_5.sce13
-rwxr-xr-x2240/CH20/EX19.6/EX19_6.sce17
-rwxr-xr-x2240/CH20/EX19.7/EX19_7.sce13
-rwxr-xr-x2240/CH20/EX19.8/EX19_8.sce13
-rwxr-xr-x2240/CH20/EX19.9/EX19_9.sce15
21 files changed, 337 insertions, 0 deletions
diff --git a/2240/CH20/EX19.1/EX19_1.sce b/2240/CH20/EX19.1/EX19_1.sce
new file mode 100755
index 000000000..8bc3fba6a
--- /dev/null
+++ b/2240/CH20/EX19.1/EX19_1.sce
@@ -0,0 +1,13 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_1
+clc; clear;
+// The current in an inductor changes from 12 to 16 A in 1s. How much is the di/dt rate of current change in amperes per second?
+
+// Given data
+
+di = 4; // Differential current=16-12=4 Amps
+dt = 1; // Differential time=1 sec
+
+A = di/dt;
+disp (A,'The di/dt Rate of Current change in A/s')
diff --git a/2240/CH20/EX19.10/EX19_10.sce b/2240/CH20/EX19.10/EX19_10.sce
new file mode 100755
index 000000000..49bfef27e
--- /dev/null
+++ b/2240/CH20/EX19.10/EX19_10.sce
@@ -0,0 +1,16 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_10
+clc; clear;
+// If the two coils had a mutual inductance LM of 40 mH, how much would k be?
+
+// Given data
+
+L1 = 400*10^-3; // Coil Inductance 1=400 mH
+L2 = 400*10^-3; // Coil Inductance 2=400 mH
+Lm = 40*10^-3; // Mutual inductance=40 mH
+
+lt = sqrt(L1*L2);
+
+k = Lm/lt;
+disp (k,'The Coupling Coefficient k is')
diff --git a/2240/CH20/EX19.11/EX19_11.sce b/2240/CH20/EX19.11/EX19_11.sce
new file mode 100755
index 000000000..0e9fd74ac
--- /dev/null
+++ b/2240/CH20/EX19.11/EX19_11.sce
@@ -0,0 +1,18 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_11
+clc; clear;
+// A power transformer has 100 turns for Np and 600 turns for Ns. What is the turns ratio? How much is the secondary voltage Vs if the primary voltage Vp is 120 V?
+
+// Given data
+
+np = 100; // Turns in primary coil=100
+ns = 600; // Turns in secondary coil=600
+vp = 120; // Primary voltage=120 Volts
+
+Tr = np/ns;
+disp (Tr,'The Turns Ratio is')
+disp ('OR 1:6')
+
+vs = vp*(ns/np);
+disp (vs,'The Secondary Voltage in Volts')
diff --git a/2240/CH20/EX19.12/EX19_12.sce b/2240/CH20/EX19.12/EX19_12.sce
new file mode 100755
index 000000000..3aff4795f
--- /dev/null
+++ b/2240/CH20/EX19.12/EX19_12.sce
@@ -0,0 +1,17 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_12
+clc; clear;
+// A power transformer has 100 turns for Np and 5 turns for Ns. What is the turns ratio? How much is the secondary voltage Vs with a primary voltage of 120 V?
+
+// Given data
+
+np = 100; // Turns in primary coil=100
+ns = 5; // Turns in secondary coil=5
+vp = 120; // Primary voltage=120 Volts
+
+Tr = np/ns;
+disp (Tr,'The Turns Ratio 20:1 or')
+
+vs = vp*(ns/np);
+disp (vs,'The Secondary Voltage in Volts')
diff --git a/2240/CH20/EX19.13/EX19_13.sce b/2240/CH20/EX19.13/EX19_13.sce
new file mode 100755
index 000000000..ab4788582
--- /dev/null
+++ b/2240/CH20/EX19.13/EX19_13.sce
@@ -0,0 +1,17 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_13
+clc; clear;
+// A transformer with a 1:6 turns ratio has 720 V across 7200 Ohms in the secondary. (a) How much is Is? (b) Calculate the value of Ip.
+
+// Given data
+
+vs = 720; // Secondary voltage=720 Volts
+Rl = 7200; // Secondary load=7200 Ohms
+tr = 1/6; // Turns ratio=1:6
+
+Is = vs/Rl;
+disp (Is,'The Secondary Current in Amps')
+
+Ip = Is/tr;
+disp (Ip,'The Primary Current in Amps')
diff --git a/2240/CH20/EX19.14/EX19_14.sce b/2240/CH20/EX19.14/EX19_14.sce
new file mode 100755
index 000000000..7e78379de
--- /dev/null
+++ b/2240/CH20/EX19.14/EX19_14.sce
@@ -0,0 +1,18 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_14
+clc; clear;
+// A transformer with a 20:1 voltage step-down ratio has 6 V across 0.6  in the secondary. (a) How much is Is? (b) How much is Ip?
+
+// Given data
+
+vs = 6; // Secondary voltage=6 Volts
+Rl = 0.6; // Secondary load=0.6 Ohms
+tr = 20/1; // Turns ratio=20:1
+
+Is = vs/Rl;
+disp (Is,'The Secondary Current in Amps')
+
+Ip = Is/tr;
+disp (Ip,'The Primary Current in Amps')
+
diff --git a/2240/CH20/EX19.15/EX19_15.sce b/2240/CH20/EX19.15/EX19_15.sce
new file mode 100755
index 000000000..7ef6b60e0
--- /dev/null
+++ b/2240/CH20/EX19.15/EX19_15.sce
@@ -0,0 +1,15 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_15
+clc; clear;
+// Calculate the primary current I P if the secondary current Is equals its rated value of 2 A.
+
+// Given data
+
+vs = 25.2; // Secondary voltage=25.2 Volts
+vp = 120; // Primary voltage=120 Volts
+Is = 2; // Secondary current=2 Amps
+
+Ip = Is*(vs/vp);
+disp (Ip,'The Primary current in Amps')
+disp ('OR 420 mAmps')
diff --git a/2240/CH20/EX19.16/EX19_16.sce b/2240/CH20/EX19.16/EX19_16.sce
new file mode 100755
index 000000000..aee1669d5
--- /dev/null
+++ b/2240/CH20/EX19.16/EX19_16.sce
@@ -0,0 +1,26 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_16
+clc; clear;
+// Determine the Primary Impedence Zo
+
+// Method 1
+// Given data
+
+Vp = 32; // Primary Voltage = 32 Volts
+Rl = 8; // Load Resistance = 8 Ohms
+TR = 4; // Turns Ratio Np/Ns = 4/1
+
+Vs = Vp/TR;
+
+Is = Vs/Rl;
+
+Ip = ((Vs/Vp)*Is);
+
+Zp = Vp/Ip;
+disp (Zp,'Primary Impedence in Ohms by Method 1');
+
+// Method 2
+
+Zp = TR*TR*Rl;
+disp (Zp,'Primary Impedence in Ohms by Method 2');
diff --git a/2240/CH20/EX19.17/EX19_17.sce b/2240/CH20/EX19.17/EX19_17.sce
new file mode 100755
index 000000000..24939106e
--- /dev/null
+++ b/2240/CH20/EX19.17/EX19_17.sce
@@ -0,0 +1,18 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_17
+clc; clear;
+// Calculate the turns ratio Np/Ns that will produce a reflected primary impedance Zp of (a) 75 Ohms; (b) 600 Ohms.
+
+// Given data
+
+Zs = 300; // Secondary impedence=300 Ohms
+Zp1 = 75; // Primary impedence=75 Ohms
+Zp2 = 600; // Primary impedence=600 Ohms
+
+tra = sqrt (Zp1/Zs);
+disp (tra,'The Turns ratio Np/Ns is')
+disp ('OR 1/2')
+
+trb = sqrt (Zp2/Zs);
+disp (trb,'The Turns ratio Np/Ns is 1.414/1 or')
diff --git a/2240/CH20/EX19.18/EX19_18.sce b/2240/CH20/EX19.18/EX19_18.sce
new file mode 100755
index 000000000..25ce7b895
--- /dev/null
+++ b/2240/CH20/EX19.18/EX19_18.sce
@@ -0,0 +1,14 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_18
+clc; clear;
+// Inductance L1 is 5 mH and L2 is 10 mH. How much is Lt?
+
+// Given data
+
+l1 = 5*10^-3; // Inductor 1=5 mH
+l2 = 10*10^-3; // Inductor 2=10 mH
+
+Lt = l1+l2;
+disp (Lt,'The Total Inductance in Henry')
+disp ('i.e 15 mH')
diff --git a/2240/CH20/EX19.19/EX19_19.sce b/2240/CH20/EX19.19/EX19_19.sce
new file mode 100755
index 000000000..0ceb3eb81
--- /dev/null
+++ b/2240/CH20/EX19.19/EX19_19.sce
@@ -0,0 +1,17 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_19
+clc; clear;
+// Inductances L1 and L2 are each 8 mH. How much is Leq?
+
+// Given data
+
+l1 = 8*10^-3; // Inductor 1=8 mH
+l2 = 8*10^-3; // Inductor 2=8 mH
+
+a = 1/l1;
+b = 1/l2;
+
+Leq = 1/(a+b);
+disp(Leq,'The Equivalent Inductance in Henry')
+disp ('i.e 4 mH')
diff --git a/2240/CH20/EX19.2/EX19_2.sce b/2240/CH20/EX19.2/EX19_2.sce
new file mode 100755
index 000000000..efd16a50e
--- /dev/null
+++ b/2240/CH20/EX19.2/EX19_2.sce
@@ -0,0 +1,13 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_2
+clc; clear;
+// The current in an inductor changes by 50 mA in 2 us. How much is the di/dt rate of current change in amperes per second?
+
+// Given data
+
+di = 50*10^-3; // Differential current=50 mAmps
+dt = 2*10^-6; // Differential time=2 usec
+
+A = di/dt;
+disp (A,'The di/dt Rate of Current change in A/s')
diff --git a/2240/CH20/EX19.20/EX19_20.sce b/2240/CH20/EX19.20/EX19_20.sce
new file mode 100755
index 000000000..c6667f2cd
--- /dev/null
+++ b/2240/CH20/EX19.20/EX19_20.sce
@@ -0,0 +1,21 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_20
+clc; clear;
+// Two series coils, each with an L of 250 uH, have a total inductance of 550 uH connected series-aiding and 450 uH series-opposing. (a) How much is the mutual inductance Lm between the two coils? (b) How much is the coupling coefficient k?
+
+// Given data
+
+l1 = 250*10^-6; // Coil Inductance 1=250 uH
+l2 = 250*10^-6; // Coil Inductance 2=250 uH
+Lts = 550*10^-6; // Inductance series-aiding=550 uH
+Lto = 450*10^-6; // Inductance series-opposing=450 uH
+
+Lm = (Lts-Lto)/4
+disp (Lm,'The Mutual Inductance in Henry')
+disp ('i.e 25 uH')
+
+lt = sqrt(l1*l2);
+
+k = Lm/lt;
+disp (k,'The Coupling coefficient k is')
diff --git a/2240/CH20/EX19.21/EX19_21.sce b/2240/CH20/EX19.21/EX19_21.sce
new file mode 100755
index 000000000..8ace7ddb7
--- /dev/null
+++ b/2240/CH20/EX19.21/EX19_21.sce
@@ -0,0 +1,13 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_21
+clc; clear;
+// A current of 1.2 A flows in a coil with an inductance of 0.4 H. How much energy is stored in the magnetic field?
+
+// Given data
+
+l1 = 0.4; // Coil Inductance 1=0.4 H
+I = 1.2; // Current=1.2 Amps
+
+E = (l1*I*I)/2;
+disp (E,'The Energy Stored in the Magnetic Field in Joules')
diff --git a/2240/CH20/EX19.3/EX19_3.sce b/2240/CH20/EX19.3/EX19_3.sce
new file mode 100755
index 000000000..393daa62f
--- /dev/null
+++ b/2240/CH20/EX19.3/EX19_3.sce
@@ -0,0 +1,13 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_3
+clc; clear;
+// How much is the inductance of a coil that induces 40 V when its current changes at the rate of 4 A/s?
+
+// Given data
+
+Vl = 40; // Induced voltage=40 Volts
+R = 4 // Current changing rate=di/dt=4 A/s
+
+L = Vl/R;
+disp (L,'The Value of Inductance in Henry')
diff --git a/2240/CH20/EX19.4/EX19_4.sce b/2240/CH20/EX19.4/EX19_4.sce
new file mode 100755
index 000000000..1c3698e22
--- /dev/null
+++ b/2240/CH20/EX19.4/EX19_4.sce
@@ -0,0 +1,17 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_4
+clc; clear;
+// How much is the inductance of a coil that induces 1000 V when its current changes at the rate of 50 mA in 2us?
+
+// Given data
+
+Vl = 1000; // Induced voltage=1000 Volts
+di = 50*10^-3; // differential current=50 mAmps
+dt = 2*10^-6; // differential time=2 usec
+
+A = di/dt;
+
+L = Vl/A;
+disp (L,'The Value of Inductance in Henry')
+disp ('OR 40 mH')
diff --git a/2240/CH20/EX19.5/EX19_5.sce b/2240/CH20/EX19.5/EX19_5.sce
new file mode 100755
index 000000000..e0eae1dec
--- /dev/null
+++ b/2240/CH20/EX19.5/EX19_5.sce
@@ -0,0 +1,13 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_5
+clc; clear;
+// How much is the self-induced voltage across a 4-H inductance produced by a current change of 12 A/s?
+
+// Given data
+
+L = 4; // Inductor=4 H
+R = 12; // current change=di/dt=12 A/s
+
+Vl = L*R;
+disp (Vl,'The Value of Self-Induced Voltage in Volts')
diff --git a/2240/CH20/EX19.6/EX19_6.sce b/2240/CH20/EX19.6/EX19_6.sce
new file mode 100755
index 000000000..4d3c122bb
--- /dev/null
+++ b/2240/CH20/EX19.6/EX19_6.sce
@@ -0,0 +1,17 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_6
+clc; clear;
+// The current through a 200-mH L changes from 0 to 100 mA in 2 us. How much is Vl ?
+
+// Given data
+
+L = 200*10^-3; // Inductor=200 mH
+di = 100*10^-3; // differential current=100 mAmps
+dt = 2*10^-6; // differectial time=2 usec
+
+A = di/dt;
+
+Vl = L*A;
+disp (Vl,'The Value of Self-Induced Voltage in Volts')
+disp ('OR 10 kVolts')
diff --git a/2240/CH20/EX19.7/EX19_7.sce b/2240/CH20/EX19.7/EX19_7.sce
new file mode 100755
index 000000000..353bbc604
--- /dev/null
+++ b/2240/CH20/EX19.7/EX19_7.sce
@@ -0,0 +1,13 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_7
+clc; clear;
+// A coil L1 produces 80 uWb of magnetic flux. Of this total flux, 60 uWb arelinked with L2. How much is k between L1 and L2?
+
+// Given data
+
+lf1 = 80*10^-6; // Magnetic flux of coil L1=80 uWb
+lf2 = 60*10^-6; // Magnetic flux of coil L2=60 uWb
+
+k = lf2/lf1;
+disp (k,'The Coefficient of Coupling k between Coil L1 and Coil L2 is')
diff --git a/2240/CH20/EX19.8/EX19_8.sce b/2240/CH20/EX19.8/EX19_8.sce
new file mode 100755
index 000000000..23cafe6b4
--- /dev/null
+++ b/2240/CH20/EX19.8/EX19_8.sce
@@ -0,0 +1,13 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_8
+clc; clear;
+// A 10-H inductance L1 on an iron core produces 4 Wb of magnetic flux. Another coil L2 is on the same core. How much is k between L1 and L2?
+
+// Given data
+
+lf1 = 4; // Magnetic flux of coil L1=4 Wb
+lf2 = 4; // Magnetic flux of coil L2=4 Wb
+
+k = lf2/lf1;
+disp (k,'The Coefficient of Coupling k between Coil L1 and Coil L2 is')
diff --git a/2240/CH20/EX19.9/EX19_9.sce b/2240/CH20/EX19.9/EX19_9.sce
new file mode 100755
index 000000000..a3824477e
--- /dev/null
+++ b/2240/CH20/EX19.9/EX19_9.sce
@@ -0,0 +1,15 @@
+// Grob's Basic Electronics 11e
+// Chapter No. 19
+// Example No. 19_9
+clc; clear;
+// Two 400-mH coils L1 and L2 have a coefficient of coupling k equal to 0.2. Calculate Lm.
+
+// Given data
+
+L1 = 400*10^-3; // L1=400 mH
+L2 = 400*10^-3; // L2=400 mH
+k = 0.2; // Coupling coefficient=0.2
+
+Lm = k*sqrt(L1*L2);
+disp (Lm,'The mutual inductance in Henry')
+disp ('i.e 80*10^-3 H OR 80 mH')
generated by cgit (git 2.34.1) at 2024-12-20 16:20:12 +0000