summaryrefslogtreecommitdiff
path: root/620/CH15/EX15.4/example15_4.sce
blob: 3747dcd46d7c77326c542f786d97396d9f947f4b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
r=25;
vm=50;
w=800*%pi;
disp("Part a");
im=vm/r;
pm=im^2*r;
disp("Peak power dissipated (in W) in the resistoris"); disp(pm);
disp("Part b");
f=w/(2*%pi);
disp("the frequency (in Hz) of power variation is"); disp(2*f);
disp("Part c");
pavg=pm/2;
disp("the average power (in W) dissipated in the resistor is"); disp(pavg);