1 files changed, 22 insertions, 0 deletions
diff --git a/1319/CH1/EX1.9/1_9.sce b/1319/CH1/EX1.9/1_9.sce
new file mode 100644
index 000000000..716cc9de9
--- /dev/null
+++ b/1319/CH1/EX1.9/1_9.sce
@@ -0,0 +1,22 @@
+// Maximum current and frequncy at which it occurs and respective voltages
+
+clc;
+clear;
+
+R=5;
+L=4*(10^-3);
+C=0.1*(10^-6);
+V=10;
+
+w0=1/(sqrt(L*C));
+
+Ir=V/R;
+
+Vl=w0*L*Ir;
+
+Vc=Ir/(w0*C);
+
+mprintf('The Maximum Current at resonance = %f A \n',Ir)
+mprintf('The frequency for resonance = %f rad/sec \n',w0)
+mprintf('The voltage magnitude across the inductor = %f V \n',Vl)
+mprintf('The voltage magnitude across the capacitor = %f V \n',Vc)