summaryrefslogtreecommitdiff
path: root/1628/CH7
diff options
context:
space:
mode:
Diffstat (limited to '1628/CH7')
-rwxr-xr-x1628/CH7/EX7.1/Ex7_1.sce13
-rwxr-xr-x1628/CH7/EX7.10/Ex7_10.sce21
-rwxr-xr-x1628/CH7/EX7.11/Ex7_11.sce29
-rwxr-xr-x1628/CH7/EX7.12/Ex7_12.sce20
-rwxr-xr-x1628/CH7/EX7.2/Ex7_2.sce18
-rwxr-xr-x1628/CH7/EX7.3/Ex7_3.sce18
-rwxr-xr-x1628/CH7/EX7.4/Ex7_4.sce18
-rwxr-xr-x1628/CH7/EX7.5/Ex7_5.sce27
-rwxr-xr-x1628/CH7/EX7.6/Ex7_6.sce16
-rwxr-xr-x1628/CH7/EX7.7/Ex7_7.sce20
-rwxr-xr-x1628/CH7/EX7.8/Ex7_8.sce20
-rwxr-xr-x1628/CH7/EX7.9/Ex7_9.sce28
12 files changed, 248 insertions, 0 deletions
diff --git a/1628/CH7/EX7.1/Ex7_1.sce b/1628/CH7/EX7.1/Ex7_1.sce
new file mode 100755
index 000000000..be6018790
--- /dev/null
+++ b/1628/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,13 @@
+
+
+ // Example 7.1
+
+L=4; // Induction of a Coil
+di=10-4; // Decrease in Current
+dt=0.1; // time Required to Decrease Current
+e=L*(di/dt); // Formula of Self induction
+disp(' emf induced in a Coil is = '+string(e)+' Volt');
+
+
+
+ // p 228 7.1
diff --git a/1628/CH7/EX7.10/Ex7_10.sce b/1628/CH7/EX7.10/Ex7_10.sce
new file mode 100755
index 000000000..8ad44d304
--- /dev/null
+++ b/1628/CH7/EX7.10/Ex7_10.sce
@@ -0,0 +1,21 @@
+
+
+ // Example 7.10
+
+La=1.4; // Inductance of 2 Similar Coupled Coil in Series
+Lo=0.6; // Inductance of 2 Similar Coupled Coil in Opposing
+M=(La-Lo)/4; // Formula for (Mutual Inductance of Coils)
+disp('(a) Mutual induction of a Coil = '+string(M)+' mH');
+
+ // Since La= L1+L2+2M but (M=0.2 mH)
+ // there for L1= L2= 5 mh
+
+L1=0.5*10^-3; // Self Inductance of Coil 1
+L2=0.5*10^-3; // Self Inductance of Coil 2
+k=(M*10^-3)/sqrt(L1*L2); // Mutual Inductance of Coil 1 & 2
+disp('(b) Coefficient of Coupling between the Coils = '+string(k));
+
+
+
+
+ // p136 7.10 \ No newline at end of file
diff --git a/1628/CH7/EX7.11/Ex7_11.sce b/1628/CH7/EX7.11/Ex7_11.sce
new file mode 100755
index 000000000..82a58d3c0
--- /dev/null
+++ b/1628/CH7/EX7.11/Ex7_11.sce
@@ -0,0 +1,29 @@
+
+
+ // Example 7.11
+
+ // Net Induction When in Same Direction i.e 1.8= L1+L2+2M
+ // Net Induction When in Opposite i.e 0.8= L1+L2-2M
+ // by Solving 2 equation we get M= 0.25
+k=0.6;
+M=0.25;
+disp('(a) Mutual induction of a Coil = '+string(M)+' H');
+ // by Adding Eq 1 & 2 will get L1+L2= 1.3 H
+ // we know that k= M/(L1*L2)
+L1L2=M^2/k^2; // using above Formula
+ // By using L1L2 & L1+L2
+L12=1.3; // L1+L2
+L1_L2=sqrt(L12^2-4*L1L2); // Value of L1-L2
+
+ // by using L1+L2 & L1-L2 will get
+
+L1=1.149;
+L2=0.151;
+disp('(b.1) Self Induction of a Coil 1 = '+string(L1)+' H');
+disp('(b.2) Self Induction of a Coil 2 = '+string(L2)+' H');
+
+
+
+ // p 237 7.11
+
+ \ No newline at end of file
diff --git a/1628/CH7/EX7.12/Ex7_12.sce b/1628/CH7/EX7.12/Ex7_12.sce
new file mode 100755
index 000000000..e40802aa8
--- /dev/null
+++ b/1628/CH7/EX7.12/Ex7_12.sce
@@ -0,0 +1,20 @@
+
+
+ // Example 7.12
+
+k=0.433; // Coefficient of Coupling Constant
+L1=8; //Self Inductance of Coil 1
+L2=6; //Self Inductance of Coil 2
+M=k*sqrt(L1*L2); // Mutual Inductance of Coil 1 & 2
+
+Lpa=(L1*L2-M^2)/(L1+L2-2*M); // Mutual Induction assists Self Induction
+disp('(a) Mutual Induction assists Self Induction = '+string(Lpa)+' H');
+
+Lpo=(L1*L2-M^2)/(L1+L2+2*M); // Mutual Induction Opposes Self Induction
+disp('(b) Mutual Induction Opposes Self Induction = '+string(Lpo)+' H');
+
+
+
+
+
+ // p 239 7.12 \ No newline at end of file
diff --git a/1628/CH7/EX7.2/Ex7_2.sce b/1628/CH7/EX7.2/Ex7_2.sce
new file mode 100755
index 000000000..8f9ab29b7
--- /dev/null
+++ b/1628/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,18 @@
+
+
+
+ // Example 7.2
+
+N=150; // turns of Coil
+Q=0.01; // Flux of Coil
+I=10; // Current in Coil
+L=N*(Q/I); // Induction of a Coil
+di=10-(-10); // Decrease in Current
+dt=0.01; // time Required to Decrease Current
+e=L*(di/dt); // Formula of Self induction
+disp(' Induction of a Coil = '+string(L)+' H');
+disp(' emf induced in a Coil is = '+string(e)+' Volt');
+
+
+
+ // p 228 7.2
diff --git a/1628/CH7/EX7.3/Ex7_3.sce b/1628/CH7/EX7.3/Ex7_3.sce
new file mode 100755
index 000000000..065cbe97b
--- /dev/null
+++ b/1628/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,18 @@
+
+
+
+
+ // Example 7.3
+
+N=100; // turns of Coil
+dQ=0.4-(-0.4); // Flux of Coil
+di=10-(-10); // Decrease in Current
+L=N*(dQ/di)*10^-3; // Induction of a Coil
+disp(' (a) induction of a Coil is = '+string(L)+' H');
+dt=0.01; // time Required to Decrease Current
+e=L*(di/dt); // Formula of emf (using Self induction)
+disp('(b) emf induced in a Coil is = '+string(e)+' Volt');
+
+
+
+ // p 229 7.3
diff --git a/1628/CH7/EX7.4/Ex7_4.sce b/1628/CH7/EX7.4/Ex7_4.sce
new file mode 100755
index 000000000..8e6515acd
--- /dev/null
+++ b/1628/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,18 @@
+
+
+ // Example 7.4
+
+r=0.75*10^-2; // Radius of Solenoid
+A=%pi*r*r; // area of Solenoid
+N=900; // No,of turns
+l=0.3; // Length of Solenoid
+mo=4*%pi*10^-7; // Permeability of free Space
+L=(N*N*mo*A)/l; // Formula of Induction of a Coil
+I=5; // Current of Coil
+disp(' Induction of a Coil = '+string(L)+' H');
+w=0.5*L*I*I; // Energy Store
+disp(' Energy Stored is = '+string(w)+' J');
+
+
+
+ // p 229 7.4
diff --git a/1628/CH7/EX7.5/Ex7_5.sce b/1628/CH7/EX7.5/Ex7_5.sce
new file mode 100755
index 000000000..2fb2041a7
--- /dev/null
+++ b/1628/CH7/EX7.5/Ex7_5.sce
@@ -0,0 +1,27 @@
+
+ // Example 7.5
+
+r=1*10^-2; // Radius of rod
+A=%pi*r*r; // area of rod
+N=3000; // No.of turns
+I=0.5; // Current in the rod
+l=0.2; // Diameter of rod
+B=1.2; // Megnetic Flux Density
+H=(N*I)/l; // Megnetic Field Strength
+m=B/H; // Permeability of rod
+disp(' (a) Permeability of iron = '+string(m)+' Tm/A');
+mo=4*%pi*10^-7; // Permeability of free Space
+mr=m/mo; // relative Permeability
+disp(' (b) Relative Permeability of iron = '+string(round(mr)));
+Q=B*A; // Flux
+dQ=Q*0.9; // Chenge in Flux
+L=(N*Q)/I; // Formula of Induction of a Coil
+disp(' (c) Induction of a Coil = '+string(L)+' H');
+di=0.01;
+e=N*(dQ/di) // Formula of emf (using Self induction)
+disp(' (d) Voltage in a Coil = '+string(e)+' Volt');
+
+
+
+ // p 229 7.5
+
diff --git a/1628/CH7/EX7.6/Ex7_6.sce b/1628/CH7/EX7.6/Ex7_6.sce
new file mode 100755
index 000000000..ac665f39e
--- /dev/null
+++ b/1628/CH7/EX7.6/Ex7_6.sce
@@ -0,0 +1,16 @@
+
+
+ // Example 7.6
+
+i=1; // Current in A Coil
+R=3; // R of Coil
+L=0.1*10^-3; // Inductance of Coil
+di=10000; // Decrease in Current
+dt=1; // time Required to Decrease Current
+V=(i*R)+L*(di/dt); // Formula Of Potential Diffrence
+disp(' Potential Diffrence Across the Terminal is = '+string(V)+' Volt');
+
+
+
+
+ // p 230 7.6 \ No newline at end of file
diff --git a/1628/CH7/EX7.7/Ex7_7.sce b/1628/CH7/EX7.7/Ex7_7.sce
new file mode 100755
index 000000000..1c3ba780b
--- /dev/null
+++ b/1628/CH7/EX7.7/Ex7_7.sce
@@ -0,0 +1,20 @@
+
+ // Example 7.7
+
+k=1; // Constant
+N1=2000; // turns of Solenoid
+N2=500; // turns of Coil
+mo=4*%pi*10^-7; // Permeability of free Space
+A=30*10^-4; // Area of aCoil
+l=0.7; // Length of Solenoid
+z=k*N1*N2*mo*A; // alphabet for simplicity
+M=z/l; // Formula of Mutual Inductance
+disp('(a) Mutual induction of a Coil = '+string(M)+' H');
+dit=260; // Rate of Chenge of Current
+e=M*dit; // Formula of emf (using Mutual induction)
+disp('(b) emf induced in a Coil is = '+string(e)+' Volt')
+
+
+
+
+ // p232 7.7
diff --git a/1628/CH7/EX7.8/Ex7_8.sce b/1628/CH7/EX7.8/Ex7_8.sce
new file mode 100755
index 000000000..2f4ebce2d
--- /dev/null
+++ b/1628/CH7/EX7.8/Ex7_8.sce
@@ -0,0 +1,20 @@
+
+ // Example 7.8
+
+N2=1700; // turns of Coil 1
+Q2=0.8*10^-3; // total Megnetic Flux
+I2=6; // Current in A Coil 2
+L2=N2*(Q2/I2); // Formula for (Self Inductance of Coil 1)
+disp('(a) Self Induction of a Coil 2 = '+string(L2)+' H');
+N1=600; // turns of Coil 2
+L1=L2*(N1^2/N2^2); // Formula for(Self Inductance of Coil 2)
+disp('(b) Self Induction of a Coil 1 = '+string(L1)+' H');
+Q21=0.5*10^-3; // Megnetic Flux in 1st Coil
+k=Q21/Q2; // Constant
+disp( '(c) Perposnality Constant (k) = '+string(k));
+M=k*sqrt(L1*L2); // Mutual Inductance of Coil 1 & 2
+disp('(d) Mutual induction of a Coil = '+string(M)+' H');
+
+
+
+ // p 233 7.8 \ No newline at end of file
diff --git a/1628/CH7/EX7.9/Ex7_9.sce b/1628/CH7/EX7.9/Ex7_9.sce
new file mode 100755
index 000000000..1a1b83cf7
--- /dev/null
+++ b/1628/CH7/EX7.9/Ex7_9.sce
@@ -0,0 +1,28 @@
+
+
+ // Example 7.9
+
+N2=800; // turns of Coil 2
+N1=1200; // turns of Coil 1
+Q2=0.15*10^-3; // Megnetic Flux in Coil 2
+Q1=0.25*10^-3; // Megnetic Flux in Coil 1
+I2=5; // Current in A Coil 2
+I1=5; // Current in A Coil 1
+
+L1=N1*(Q1/I1); // Formula for (Self Inductance of Coil 1)
+disp('(a) Self Induction of a Coil 1 = '+string(L1)+' H');
+
+L2=N2*(Q2/I2); // Formula for (Self Inductance of Coil 2)
+disp('(b) Self Induction of a Coil 2 = '+string(L2)+' H');
+
+k=0.6; // Coefficient of Coupling Constant
+Q12=k*Q1; // Formula for (Megnetic Flux in 2nd Coil)
+M=N2*(Q2/I1); // Formula for (Mutual Inductance of Coils)
+disp('(c) Mutual induction of a Coil = '+string(M)+' H');
+
+k1=M/sqrt(L1*L2); // Mutual Inductance of Coil 1 & 2
+disp('(d) Coefficient of Coupling between the Coil = '+string(k1)+' H');
+
+
+
+ // p 233 7.9 \ No newline at end of file
generated by cgit (git 2.34.1) at 2025-03-12 01:11:36 +0000