summaryrefslogtreecommitdiff
path: root/1118/CH26/EX26.3/eg26_3.sce
blob: f009c338c45920705959f7a8c7a1fd55017f848f (plain)
1
2
3
4
5
6
7
8
9
10
11
clear;
//clc();

p=750/3;
v=400;
q1=acosd(0.7);
q2=acosd(0.95);
qcp=p*(tand(q1)-tand(q2));
printf("The kVAr is:%.3f kVAr\n",qcp);
cap=qcp*1000/(v*v*2*(%pi)*50);
printf("The capacitance is:%.0f uF\n",cap*1000000);