summaryrefslogtreecommitdiff
path: root/2231/CH1/EX1.16/Ex_1_16.sce
blob: 3efc54acd65e1d681dae0f77fd2cd812d6b38453 (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
//Example 1_16
clc;
clear;close;

//Given data: 
//VT=0.9+0.02*IT;//V
//part (a)
IT=20;//A
VT=0.9+0.02*IT;//V
Pdiss=VT*IT;//W
disp(Pdiss,"(a) Mean power dissipation (in W) : ");
//part (b)
IT_mean=20;//A
IT_peak=20*%pi;//A
Pdiss=1/2/%pi*integrate('(0.9+0.02*IT_peak*sin(theta))*(IT_peak*sin(theta))','theta',0,%pi);//W
disp(Pdiss,"(b) Mean power dissipation (in W) : ");
//part (c)
IT=20;//A//for half cycle
VT=0.9+0.02*IT;//V
Pdiss=VT*IT/2;//W
disp(Pdiss,"(c) Power dissipation occur only during half cycle. Mean power dissipation (W)");
//part (d)
IT=20;//A//for half cycle
VT=0.9+0.02*IT;//V
Pdiss=VT*IT/3;//W
disp(Pdiss,"(d) Power dissipation occur only during 1/3rd period in a cycle. Mean power dissipation (W)");