10 files changed, 146 insertions, 0 deletions
diff --git a/3850/CH39/EX39.1/Ex39_1.sce b/3850/CH39/EX39.1/Ex39_1.sce
new file mode 100644
index 000000000..ae298e3f7
--- /dev/null
+++ b/3850/CH39/EX39.1/Ex39_1.sce
@@ -0,0 +1,22 @@
+
+//To Calculate the rms value of Current and time required to reach the Peak Value
+
+//Example 39.1
+
+clear;
+
+clc;
+
+i0=5;//Peak Value of Alternating Current in Amperes
+
+Irms=i0/sqrt(2);//RMS Value of Alternating Current in Amperes
+
+f=60;//Frequency of Alternating Current in Hz
+
+T=1/f;//Time period of Alternating Current in seconds
+
+t=T/4;//Time required to reach the Peak Value of Current in seconds
+
+printf("RMS Value of the Alternating Current = %.1f A",Irms);
+
+printf("\n Time required to reach the Peak Value of Current = %f s",t);
diff --git a/3850/CH39/EX39.1/Ex39_1.txt b/3850/CH39/EX39.1/Ex39_1.txt
new file mode 100644
index 000000000..710cb7800
--- /dev/null
+++ b/3850/CH39/EX39.1/Ex39_1.txt
@@ -0,0 +1,3 @@
+
+ RMS Value of the Alternating Current = 3.5 A
+ Time required to reach the Peak Value of Current = 0.004167 s
+\ No newline at end of file
diff --git a/3850/CH39/EX39.2/Ex39_2.sce b/3850/CH39/EX39.2/Ex39_2.sce
new file mode 100644
index 000000000..2dd0b42e4
--- /dev/null
+++ b/3850/CH39/EX39.2/Ex39_2.sce
@@ -0,0 +1,28 @@
+
+//To Calculate the Reactance of Capacitor for different frequencies of Alternating Currents
+
+//Example 39.2
+
+clear;
+
+clc;
+
+C=200*10^-6;//Capacitance of the Capacitor in Faraday
+
+f1=10;//Frequency of first AC source in Hz
+
+f2=50;//Frequency of Second AC Source in Hz
+
+f3=500;//Frequency of Third AC Source in Hz
+
+Xc1=1/(2*%pi*f1*C);//Reactance of the Capacitor when connected to 10 Hz AC source
+
+printf("(a) Reactance of capacitor for 10 hz source = %.0f ohms",Xc1);
+
+Xc2=1/(2*%pi*f2*C);//Reactance of the Capacitor when connected to 50 Hz AC source
+
+printf("\n (b) Reactance of capacitor for 15 hz source= %.0f ohms",Xc2);
+
+Xc3=1/(2*%pi*f3*C);//Reactance of the Capacitor when connected to 500 Hz AC source
+
+printf("\n (c) Reactance of capacitor for 500 hz source = %.1f ohms",Xc3);
diff --git a/3850/CH39/EX39.2/Ex39_2.txt b/3850/CH39/EX39.2/Ex39_2.txt
new file mode 100644
index 000000000..347f31005
--- /dev/null
+++ b/3850/CH39/EX39.2/Ex39_2.txt
@@ -0,0 +1,4 @@
+
+ (a) Reactance of capacitor for 10 hz source = 80 ohms
+ (b) Reactance of capacitor for 15 hz source= 16 ohms
+ (c) Reactance of capacitor for 500 hz source = 1.6 ohms
+\ No newline at end of file
diff --git a/3850/CH39/EX39.3/Ex39_3.sce b/3850/CH39/EX39.3/Ex39_3.sce
new file mode 100644
index 000000000..d989ae8b3
--- /dev/null
+++ b/3850/CH39/EX39.3/Ex39_3.sce
@@ -0,0 +1,30 @@
+
+//To Find the Peak Value of Current and the Instantaneous Voltage of the source when the current is at its peak value
+
+//Example 39.3
+
+clear;
+
+clc;
+
+f=50;//Frequency of AC source in Hz
+
+L=200*10^-3;//Self Inductance of Inductor in Henry
+
+Xl=2*%pi*f*L;//Reactance of the Inductor in ohms
+
+E0=210;//Peak EMF Value of AC source in Volts
+
+i0=E0/Xl;//Peak Value of Current in Amperes
+
+printf("Peak Value of current = %.1f A",i0);
+
+i=i0;//Instantaneous Value of Current when current attains its peak value
+
+phi=-%pi/2;//Phase Difference in Radians for a purely Inductive Circuit
+
+t=(asin(i/i0)-phi)/(2*%pi*f);//Time at which current attains its peak value
+
+E=E0*sin(2*%pi*f*t);//Instantaneous Voltage for a purely inductive circuit
+
+printf("\n Instantaneous voltage at peak value of Current = %.0f V",E);
diff --git a/3850/CH39/EX39.3/Ex39_3.txt b/3850/CH39/EX39.3/Ex39_3.txt
new file mode 100644
index 000000000..3403ecab7
--- /dev/null
+++ b/3850/CH39/EX39.3/Ex39_3.txt
@@ -0,0 +1,3 @@
+
+ Peak Value of current = 3.3 A
+ Instantaneous voltage at peak value of Current = 0 V
+\ No newline at end of file
diff --git a/3850/CH39/EX39.4/Ex39_4.sce b/3850/CH39/EX39.4/Ex39_4.sce
new file mode 100644
index 000000000..49c4fa758
--- /dev/null
+++ b/3850/CH39/EX39.4/Ex39_4.sce
@@ -0,0 +1,32 @@
+
+//To find the Impedance the Peak Current and Resonant Frequency of the LCR Series Circuit
+
+//Example 39.4
+
+clear;
+
+clc;
+
+L=100*10^-3;//Self Inductance of Inductor inHenry
+
+C=100*10^-6;//Capacitance of Capacitor in Farads
+
+R=120;//Resitance of Resistor in ohms
+
+E0=30;//Peak Value of EMF  of AC source in Volts
+
+w=100;//Angular Frequency of the AC source
+
+X=(1/(w*C))-(w*L);//Reactance of the Circuit in ohms
+
+Z=sqrt(R^2+X^2);//Total Impedance of the Circuit
+
+printf("Impedance of the LCR Series Circuit = %.0f ohms",Z);
+
+i0=E0/Z;//Peak Value of Current in Amperes
+
+printf("\n Peak current Value of the LCR Series Circuit = %.1f A",i0);
+
+f=(1/(2*%pi))*sqrt(1/(L*C));//Resonant Frequency of the Circuit
+
+printf("\n Resonant Frequency of the LCR Series Circuit = %.0f Hz",f);
diff --git a/3850/CH39/EX39.4/Ex39_4.txt b/3850/CH39/EX39.4/Ex39_4.txt
new file mode 100644
index 000000000..c5362f787
--- /dev/null
+++ b/3850/CH39/EX39.4/Ex39_4.txt
@@ -0,0 +1,4 @@
+
+ Impedance of the LCR Series Circuit = 150 ohms
+ Peak current Value of the LCR Series Circuit = 0.2 A
+ Resonant Frequency of the LCR Series Circuit = 50 Hz
+\ No newline at end of file
diff --git a/3850/CH39/EX39.5/Ex39_5.sce b/3850/CH39/EX39.5/Ex39_5.sce
new file mode 100644
index 000000000..67e2193d3
--- /dev/null
+++ b/3850/CH39/EX39.5/Ex39_5.sce
@@ -0,0 +1,18 @@
+
+//To Calculate the Number of Turns in the Primary Coil
+
+//Example 39.5
+
+clear;
+
+clc;
+
+E1=220;//Input Voltage to the Transformer in Volts
+
+E2=6;//Output Voltage by the Transformer in Volts
+
+N2=18;//Number of Turns in the Secondary Coil
+
+N1=(E1/E2)*N2;//Number of Turns in the Primary Coil
+
+printf("Number of turns in the primary coil = %.0f",N1);
diff --git a/3850/CH39/EX39.5/Ex39_5.txt b/3850/CH39/EX39.5/Ex39_5.txt
new file mode 100644
index 000000000..53637a9d1
--- /dev/null
+++ b/3850/CH39/EX39.5/Ex39_5.txt
@@ -0,0 +1,2 @@
+
+ Number of turns in the primary coil = 660
+\ No newline at end of file