1 files changed, 15 insertions, 0 deletions
diff --git a/3809/CH6/EX6.3/EX6_3.sce b/3809/CH6/EX6.3/EX6_3.sce
new file mode 100644
index 000000000..95a436f95
--- /dev/null
+++ b/3809/CH6/EX6.3/EX6_3.sce
@@ -0,0 +1,15 @@
+//Chapter 6, Example 6.3
+clc
+//Initialisation
+pi=3.14                       //pi
+f=100                          //frequency in hertz
+L=25*10**-3                    //inductance in henry
+vl=5                           //peak voltage
+
+//Calculation
+w=2*pi*f                       //angular frequency
+Xl=w*L                         //inductive reactance
+il=vl/Xl                       //peak current
+
+//Results
+printf("Peak Current, IL = %d mA",il*1000)