summaryrefslogtreecommitdiff
path: root/1964/CH5/EX5.19/ex5_19.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1964/CH5/EX5.19/ex5_19.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1964/CH5/EX5.19/ex5_19.sce')
-rwxr-xr-x1964/CH5/EX5.19/ex5_19.sce26
1 files changed, 26 insertions, 0 deletions
diff --git a/1964/CH5/EX5.19/ex5_19.sce b/1964/CH5/EX5.19/ex5_19.sce
new file mode 100755
index 000000000..27200868d
--- /dev/null
+++ b/1964/CH5/EX5.19/ex5_19.sce
@@ -0,0 +1,26 @@
+//Chapter-5, Example 5.19, Page 178
+//=============================================================================
+clc
+clear
+//v=350*cos(3000*t-20)
+//i=15*cos(3000*t-60)
+//INPUT DATA
+L=0.5;//inductance in Henry
+phi=-40;//phase difference between applied voltage and current
+//Xl>Xc(P.f is lagging)
+w=3000;//freq in hz
+Vm=350;//peak voltage in volts
+Im=15;//peak current in amps
+//CALCULATIONS
+Z=Vm/Im;//total impedance in ohms
+//Xl-Xc=0.839*R=X
+//Z=sqrt((R)^2+(X)^2)
+//Z=1.305*R
+R=Z/1.305;//resistance in ohms
+X=0.839*R;//
+//X=Xl-Xc
+Xl=w*L;//reactive inductance in ohms
+Xc=Xl-X;//capacitive reactance in ohms
+C=1/(w*Xc);//capacitance in uf
+mprintf("Thus resistance and capacitance are %2.2f ohms and %g F respectively,",R,C);
+//=================================END OF PROGRAM======================================================================================================