summaryrefslogtreecommitdiff
path: root/1319/CH1/EX1.2/1_2.sce
blob: 505ac5e0dd9cfc09b0b8b86fb902eaaa2b469191 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
// To find the current and power

clc;
clear;

Z=10+20*%i;

V=120;

I=V/Z;

theta=atand(imag(I)/real(I));

P=V*abs(I)*cosd(theta);

disp('A',I,'The current flowing through the given impedance =')
disp('watt',P,'The real power delivered to the impedance =')