summaryrefslogtreecommitdiff
path: root/1319/CH1/EX1.30/1_30.sce
blob: 26198cb2971082d180d44c6c48ad6746697d67b5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Determine the resultant current for two alternating currents

clc;
clear;

ti1=30;
ti2=45;

i1=20*(expm(%i*%pi/6));
i2=40*(expm(%i*%pi/4));

i=i1+i2;

ti=atand(imag(i)/real(i));

printf('The resultant current = %g sin(314t + %g(degrees)) A\n',abs(i),ti)
printf('        Or %g/_%g A\n',abs(i),ti)