diff options
Diffstat (limited to '3836/CH16')
| -rw-r--r-- | 3836/CH16/EX16.1/Ex16_1.sce | 20 | ||||
| -rw-r--r-- | 3836/CH16/EX16.2/Ex16_2.sce | 22 | ||||
| -rw-r--r-- | 3836/CH16/EX16.3/Ex16_3.sce | 27 |
3 files changed, 69 insertions, 0 deletions
diff --git a/3836/CH16/EX16.1/Ex16_1.sce b/3836/CH16/EX16.1/Ex16_1.sce new file mode 100644 index 000000000..694d4ca20 --- /dev/null +++ b/3836/CH16/EX16.1/Ex16_1.sce @@ -0,0 +1,20 @@ +clear +// + +//Initialisation +V=50 //Voltage +I=5 //Current in Ampere r.m.s +phase=30 //in degrees + +//Calculation +S=V*I //apparent power +pf=cos(phase*%pi/180) //power factor +apf=S*pf //active power + +//Result +printf("\n (a) Apparent power, S = %d VA",S) + +printf("\n (b) Power Factor = %.3f",pf) + +printf("\n (c) Active Power, P = %.1f",apf) + diff --git a/3836/CH16/EX16.2/Ex16_2.sce b/3836/CH16/EX16.2/Ex16_2.sce new file mode 100644 index 000000000..d0bd68319 --- /dev/null +++ b/3836/CH16/EX16.2/Ex16_2.sce @@ -0,0 +1,22 @@ +clear +// + +//Initialisation +pf=0.75 //power factor +S=2000 //apparent power in VA +V=240 //Voltage in volts + +//Calculation +apf=S*pf //active power +sin1=sqrt(1-(pf**2)) +Q=S*sin1 //Reactive Power +I=S*V**-1 //Current +//Result +printf("\n Apparent Power, P = %d W",S) + +printf("\n Active Power, P = %d W",apf) + +printf("\n Reactive Power, Q = %d var",Q) + +printf("\n Current I = %.2f A",I) + diff --git a/3836/CH16/EX16.3/Ex16_3.sce b/3836/CH16/EX16.3/Ex16_3.sce new file mode 100644 index 000000000..8acaf4d7d --- /dev/null +++ b/3836/CH16/EX16.3/Ex16_3.sce @@ -0,0 +1,27 @@ +clear +// + +//Initialisation +pf=0.75 //power factor +S=1500 //apparent power in W +V=240 //Voltage in volts +P1 = 2000 //apparent power +P2 = 1500 //active power +Q = 1322 //reactive power +I = 8.33 //current in amp +f=50 //frequency in hertz + +//Calculation +Xc=V**2/Q //reactive capacitance +C=1/(Xc*2*%pi*f) //capacitance +I=S*V**-1 //current +apf=S*pf //active power +//Result +printf("\n Apparent Power, S = %d W",S) + +printf("\n Active Power, P = %d W",apf) + +printf("\n Reactive Power, Q = %d var",Q) + +printf("\n Current I = %.2f A",I) + |