8 files changed, 76 insertions, 0 deletions
diff --git a/3636/CH14/EX14.1/Ex14_1.sce b/3636/CH14/EX14.1/Ex14_1.sce
new file mode 100644
index 000000000..1455001b3
--- /dev/null
+++ b/3636/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,16 @@
+clear;
+clc;
+Vm=100 //voltage in V
+Rf=1*10^3 //resistance in series in ohm
+Rl=4*10^3 //load resistance in ohm
+
+//Calculation
+Im=Vm/(Rf+Rl)
+Idc=Im/%pi
+Irms=Im/2
+
+format("e",8)
+disp(Im,"(a)Maximum current Im is (A)= ")
+format("e",9)
+disp(Idc,"(b)dc component of current Idc is (A)=")
+disp(Irms,"(c)rms value of current Irms (A)= ")
diff --git a/3636/CH14/EX14.1/Ex14_1.txt b/3636/CH14/EX14.1/Ex14_1.txt
new file mode 100644
index 000000000..08002ccd4
--- /dev/null
+++ b/3636/CH14/EX14.1/Ex14_1.txt
@@ -0,0 +1,13 @@
+  
+ (a)Maximum current Im is (A)=    
+ 
+    2.0D-02  
+ 
+ (b)dc component of current Idc is (A)=   
+ 
+    6.37D-03  
+ 
+ (c)rms value of current Irms (A)=    
+ 
+    1.00D-02  
+ 
+\ No newline at end of file
diff --git a/3636/CH14/EX14.2/Ex14_2.sce b/3636/CH14/EX14.2/Ex14_2.sce
new file mode 100644
index 000000000..ffd94d35b
--- /dev/null
+++ b/3636/CH14/EX14.2/Ex14_2.sce
@@ -0,0 +1,16 @@
+clear;
+clc;
+Vm=200 //voltage in V
+Rf=500 //resistance in series in ohm
+Rl=1000 //load resistance in ohm
+
+//Calculation 
+Im=Vm/(Rf+Rl) 
+Idc=(2*Im)/%pi
+Irms=Im/sqrt(2)
+Y=sqrt((Irms/Idc)^2-1)
+
+mprintf("(a)Maximum current Im= %0.3f A\n",Im)
+mprintf("(b)dc component of current Idc= %1.4f A\n",Idc)
+mprintf("(c)rms value of current Irms= %1.3f A\n",Irms)
+mprintf("(d)Ripple Factor Y= %1.3f",Y) //The answers vary due to round off error
diff --git a/3636/CH14/EX14.2/Ex14_2.txt b/3636/CH14/EX14.2/Ex14_2.txt
new file mode 100644
index 000000000..0b20dc4ea
--- /dev/null
+++ b/3636/CH14/EX14.2/Ex14_2.txt
@@ -0,0 +1,4 @@
+ (a)Maximum current Im= 0.133 A
+(b)dc component of current Idc= 0.0849 A
+(c)rms value of current Irms= 0.094 A
+(d)Ripple Factor Y= 0.483 
+\ No newline at end of file
diff --git a/3636/CH14/EX14.3/Ex14_3.sce b/3636/CH14/EX14.3/Ex14_3.sce
new file mode 100644
index 000000000..232868a93
--- /dev/null
+++ b/3636/CH14/EX14.3/Ex14_3.sce
@@ -0,0 +1,13 @@
+clear;
+clc;
+RL=500 //load resistance in ohm
+C1=100*10^-6 //capacitance in F
+C2=50*10^-6 //capacitance in F
+L=5 //in H
+f=50 //frequency in Hz
+ 
+//Calculation
+Y=0.216/(RL*C1*C2*L*(2*%pi*f)^3)
+
+format("v",8)
+disp(Y,"Ripple factor Y= ") //The answers vary due to round off error
diff --git a/3636/CH14/EX14.3/Ex14_3.txt b/3636/CH14/EX14.3/Ex14_3.txt
new file mode 100644
index 000000000..8a0c52581
--- /dev/null
+++ b/3636/CH14/EX14.3/Ex14_3.txt
@@ -0,0 +1,4 @@
+  
+ Ripple factor Y=    
+ 
+    0.00056  
+\ No newline at end of file
diff --git a/3636/CH14/EX14.4/Ex14_4.sce b/3636/CH14/EX14.4/Ex14_4.sce
new file mode 100644
index 000000000..8ca483a78
--- /dev/null
+++ b/3636/CH14/EX14.4/Ex14_4.sce
@@ -0,0 +1,9 @@
+clear;
+clc;
+Iz_min=1492.5*10^-3 //Zener diode current in Ampere
+Vz=25 //Zener diode voltage in Volt
+
+//Calculation
+Pmin=Vz*Iz_min
+
+mprintf("Minimum Power Rating p= %2.1f W",Pmin)
diff --git a/3636/CH14/EX14.4/Ex14_4.txt b/3636/CH14/EX14.4/Ex14_4.txt
new file mode 100644
index 000000000..811a4a3e6
--- /dev/null
+++ b/3636/CH14/EX14.4/Ex14_4.txt
@@ -0,0 +1 @@
+ Minimum Power Rating p= 37.3 W 
+\ No newline at end of file