3793/CH10/EX10.3/exp_10_3.sce


1
2
3
4
5
6
7
8
9
10

clear;
clc;
Zabc=[4 1 1;1 4 1;1 1 4];
a=complex(-.5,.866);
A=[1 1 1;1 a^2 a;1 a a^2];
Z012=inv(A)*Zabc*A;
mprintf("Sequence impedence matrix\n");
disp(Z012);