summaryrefslogtreecommitdiff
path: root/2360/CH6/EX6.38/ex6_38.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2360/CH6/EX6.38/ex6_38.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 '2360/CH6/EX6.38/ex6_38.sce')
-rwxr-xr-x2360/CH6/EX6.38/ex6_38.sce21
1 files changed, 21 insertions, 0 deletions
diff --git a/2360/CH6/EX6.38/ex6_38.sce b/2360/CH6/EX6.38/ex6_38.sce
new file mode 100755
index 000000000..586fdfd38
--- /dev/null
+++ b/2360/CH6/EX6.38/ex6_38.sce
@@ -0,0 +1,21 @@
+// Exa 6.38
+format('v',7);clc;clear;close;
+// Given data
+f=500;//frequency in Hz
+R2 = 2410;//resistance in ohm
+R3 = 750;//resistance in ohm
+R4 = 64.5;//resistance in ohm
+R_C4 = 0.4;//resistance in ohm
+C4 = 0.35;//capacitance in µF
+C4 = C4 * 10^-6;// in F
+XC4= 1/(2*%pi*f*C4);// in Ω
+Z4= R4+R_C4-%i*XC4;// in Ω
+Z2= R2;// in Ω
+Z3= R3;// in Ω
+Z1= Z2*Z3/Z4;// in Ω
+R1= real(Z1);//resistance of choke coil in Ω
+XL1= imag(Z1);// in Ω
+L1= XL1/(2*%pi*f);//inductance of choke coil in H
+disp(R1,"The resistance of choke coil in Ω is : ")
+disp(L1,"The inductance of choke coil in H is : ")
+