1 files changed, 17 insertions, 0 deletions
diff --git a/3673/CH7/EX7.a.1/Example_a_7_1.sce b/3673/CH7/EX7.a.1/Example_a_7_1.sce
new file mode 100644
index 000000000..6baf8504d
--- /dev/null
+++ b/3673/CH7/EX7.a.1/Example_a_7_1.sce
@@ -0,0 +1,17 @@
+//Example_a_7_1 page no:269
+clc;
+R=2;
+C=-2*%i;
+L1=8*%i;
+L2=6*%i;
+V=5/(0.5+(1/L1)+(1/(4*%i)));
+Vmag=sqrt(real(V)^2+imag(V)^2);
+Vang=atand(imag(V)/real(V));
+Vabmag=Vmag*6/4;
+Vabang=Vang;
+disp(Vabmag,"the magnitude of voltage across AB is (in V)");
+disp(Vabang,"the angle of voltage across AB is (in degree)");
+Iamag=Vmag/2;
+Iaang=Vang-(-90);
+disp(Iamag,"the magnitude of short circuited current through terminals AB is (in A)");
+disp(Iaang,"the angle of short circuited current through terminals AB is (in degree)");