1 files changed, 18 insertions, 0 deletions
diff --git a/3809/CH6/EX6.7/EX6_7.sce b/3809/CH6/EX6.7/EX6_7.sce
new file mode 100644
index 000000000..fba76de47
--- /dev/null
+++ b/3809/CH6/EX6.7/EX6_7.sce
@@ -0,0 +1,18 @@
+//Chapter 6, Example 6.7
+clc
+//Initialisation
+pi=3.14                       //pi
+f=50                          //frequency in hertz
+L=400*10**-3                  //inductance in hemry
+C=50*10**-6                   //capacitance in farad
+R=200                         //resistance in ohm
+
+//Calculation
+w=2*pi*f                       //angular frequency
+Xl=w*L                         //inductive reactance
+Xc=1/(w*C)                     //Capacitive Reactance
+X=Xl-Xc                         //Complex part
+
+//Results
+printf("Complex Impedance = %d + j %d Ohm",R, round(X))
+