summaryrefslogtreecommitdiff
path: root/3760/CH1/EX1.25/Ex1_25.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3760/CH1/EX1.25/Ex1_25.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3760/CH1/EX1.25/Ex1_25.sce')
-rw-r--r--3760/CH1/EX1.25/Ex1_25.sce15
1 files changed, 15 insertions, 0 deletions
diff --git a/3760/CH1/EX1.25/Ex1_25.sce b/3760/CH1/EX1.25/Ex1_25.sce
new file mode 100644
index 000000000..3db00e075
--- /dev/null
+++ b/3760/CH1/EX1.25/Ex1_25.sce
@@ -0,0 +1,15 @@
+
+clc;
+// subscripts 1 and 2 are used the quantities referred to 60 hz and 50 hz frequency respectively
+v1=220; // rated voltage at 60 hz
+f1=60; // operating frequency
+ph1=340; // hysteresis loss at 60 hz
+pe1=120; // eddy current loss at 60 hz
+v2=230; // rated voltage at 50 hz
+f2=50; // operating frequency
+s=1.6; // Steinmetz's constant
+B=(f1/f2)*(v2/v1); // ratio of flux densities Bm2/Bm1
+ph2=ceil(ph1*(50/60)*B^s); // hysteresis loss at 50 hz
+pe2=pe1*(f2/f1)^2*(B)^2;// eddy current loss at 50 hz
+pc=ph2+pe2;
+printf('Total core loss at 50 hz is %f W',pc);