summaryrefslogtreecommitdiff
path: root/3556/CH11/EX11.7/Ex11_7.sce
blob: c98a11290c9d726e80584bdc5ff2f1e16cf9435e (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
25
26
27
28
29
30
31
clc
// Fundamental of Electric Circuit 
// Charles K. Alexander and  Matthew N.O Sadiku  
// Mc Graw Hill of New York 
// 5th Edition 

// Part 2     :  AC Circuits 
// Chapter 11 :  AC power Analysis 
// Example 11 - 7

clear; clc; close; 
//
// Given data
t0 = 0.0000; t1 = 2.0000;                
t3 = 2.0000; t4 = 4.0000;              
R  = 2.0000;                          
//
// Calculations I1
I1_rms = integrate('(5*t)^2','t',t0,t1); 
// Calculations I2
I2_rms = integrate('-10^2','t',t4,t3);   
// Calculations I_rms
I_rms  = sqrt(0.2500*(I1_rms + I2_rms)); 
// Calculations Pmax 
Pmax  = (I_rms)^2 * R;                   
//
disp("Example 11-7 Solution : ");
printf(" \n I_rms   = Current RMS                                 = %.3f A",I_rms)
printf(" \n Pmax    = Maximum Average Power Absorbed by Resistor  = %.3f Watt",Pmax)