summaryrefslogtreecommitdiff
path: root/2642/CH1/EX1.12/Ex1_12.sce
blob: 9d0089b02258cc2d3a2e365e71a9b0e9df993672 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
// FUNDAMENTALS OF ELECTICAL MACHINES 
// M.A.SALAM 
// NAROSA PUBLISHING HOUSE 
// SECOND EDITION

// Chapter 1 : REVIEW OF ELECRTIC CIRCUITS  
// Example : 1.12

clc;clear; // clears the console and command history 


// Given data
P = 120        // total power in kW
cos_teta = 0.6 // power factor 

// caclulations 
teta = acosd(0.6)           // power factor angle
P_1 = tand(teta)*P/sqrt(3)
P_2 = (P_1+P)/2           // second wattmeter reading in kW

// display the result 
disp("Example 1.12 solution");
printf(" \n Second wattmeter reading \n P_2= %.1f kW \n", P_2);