summaryrefslogtreecommitdiff
path: root/1094/CH2/EX2.3.3/EX2_3_3.sce
blob: acf4c03a16192e621d44d00aec813bc2f9784f53 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Exa:2.3.3
clc;
clear;
close;
P=10000;//in watts
I=60;//in amperes
V=400;//in volts
//When the coil is connected between phase A and Neutral;
theta=acosd(P/(V*I/sqrt(3)));//in degrees
alpha=90-theta;//in degrees
W=V*I*cosd(alpha)/1000;
disp(W,'Wattmeter Reading (in watts)=')