1 files changed, 18 insertions, 0 deletions
diff --git a/3673/CH5/EX5.a.2/Example_a_5_2.sce b/3673/CH5/EX5.a.2/Example_a_5_2.sce
new file mode 100644
index 000000000..5eedb0901
--- /dev/null
+++ b/3673/CH5/EX5.a.2/Example_a_5_2.sce
@@ -0,0 +1,18 @@
+//Example_a_5_2 page no:202
+clc;
+V=10;
+Z=100+(((125.66*%i)*(314.15*%i))/((125.66*%i)+(314.15*%i)));
+Zmag=sqrt(real(Z)^2+imag(Z)^2);
+Zang=atand(imag(Z)/real(Z));
+disp(Zmag,"the magnitude of impedence is (in ohm)");
+disp(Zang,"the angle of impedence is (in degree)");
+Imag=V/Zmag;
+Iang=0-Zang;
+disp(Imag,"the magnitude of current is (in A)");
+disp(Iang,"the angle of current is (in degree)");
+//inductance value is doubled
+Z=100+(%i*179.7);
+Zmag=sqrt(real(Z)^2+imag(Z)^2);
+Zang=atand(imag(Z)/real(Z));
+disp(Zmag,"the magnitude of impedence is (in ohm)");
+disp(Zang,"the angle of impedence is (in degree)");