2 files changed, 29 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