1 files changed, 12 insertions, 0 deletions
diff --git a/3673/CH8/EX8.a.9/Example_a_8_9.sce b/3673/CH8/EX8.a.9/Example_a_8_9.sce
new file mode 100644
index 000000000..2de36d08c
--- /dev/null
+++ b/3673/CH8/EX8.a.9/Example_a_8_9.sce
@@ -0,0 +1,12 @@
+//Example_a_8_9 page no:331
+clc;
+V=20;
+omega_r=500;
+C=20*10^-6;
+Xl=1/(omega_r^2*C);
+C=30*10^-6;
+R=((omega_r*Xl)-(1/(omega_r*C)));
+Q=(omega_r*Xl)/R;
+disp(Xl,"the value of inductance is (in H)");
+disp(R,"the value of resistance is (in ohm)");
+disp(Q,"the quality factor is ");