1 files changed, 15 insertions, 0 deletions
diff --git a/1991/CH8/EX8.19/19.sce b/1991/CH8/EX8.19/19.sce
new file mode 100755
index 000000000..57b788d7d
--- /dev/null
+++ b/1991/CH8/EX8.19/19.sce
@@ -0,0 +1,15 @@
+clc
+clear
+//input
+v=14 //voltage
+f=90 //frequency
+i=0.4 //current
+t=55 //phase
+//calculation
+r=v/(i*sqrt(1+tand(t)^2))// value of resistance
+l=r*tand(t)/(2*f*%pi)//value of inductance
+c=1/(4*%pi*%pi*f*f*l)//value of capacitance for resonance to occur
+//output
+printf("the value of resistance is %3.3f ohm",r)
+printf("\nthe value of inductance is %3.3f H",l)
+printf("\nthe value of capacitor is %3.3e F",c)