1 files changed, 15 insertions, 0 deletions
diff --git a/2384/CH3/EX3.9/ex3_9.sce b/2384/CH3/EX3.9/ex3_9.sce
new file mode 100755
index 000000000..c0622fefa
--- /dev/null
+++ b/2384/CH3/EX3.9/ex3_9.sce
@@ -0,0 +1,15 @@
+// Exa 3.9
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+Vm = 100;// in V
+phi = %pi/6;// in degree
+Vrms = Vm/(sqrt(2));// in V
+// Rectangular form of the voltage 
+RectForm= Vrms*expm(%i*phi)
+disp(RectForm,"Rectangular form of the voltage in V is : ")
+disp("Polar form of the voltage :")
+disp("Magnitude of voltage in V is : "+string(abs(RectForm))+" V")
+disp("Angle is : "+string(atand(imag(RectForm),real(RectForm)))+" °")