summaryrefslogtreecommitdiff
path: root/1802/CH10/EX10.10/Exa10_10.sce
blob: 0c98e6f46ca7bf343967bbd1ccd64c0f8d9b2a53 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Exa 10.10
clc;
clear;
close;
//Given Data :
format('v',7);
P=1500;//in KW
cosfi_1=0.75;//powerfactor
tanfi_1=tand(acosd(cosfi_1));//unitless
Pr1=P*tanfi_1;//in KVAR
Pm=150;//in KW
P=P+Pm;//in KW
cosfi_2=0.9;//unitless
tanfi_2=tand(acosd(cosfi_2));//unitless
Pr=P*tanfi_2;//in KVAR
Prm=Pr-Pr1;//in KVAR
Pam=sqrt(Pm^2+Prm^2)
cosfi=Pm/Pam;//leading PF
disp(cosfi,"P.F. of synchronous motor(leading) :");