summaryrefslogtreecommitdiff
path: root/692/CH2/EX2.5/P2_5.sce
blob: a1a3b05cc7722606867004a04aa11a0643d9f0dd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//EXAMPLE 2.5,Conjugate-Antisymmetric & Conjugate-symmetric parts of Sequence
clc;
clear;
g=[0, 1+%i*4, -2+%i*3, 4-%i*2, -5-%i*6, -%i*2, 3];
disp(g,'g = ')
g1=conj(g);          //Conjugate of g;       
disp(g1,conj(g));
a=length(g);
for i=1:a
    g2(1,i)=g1(a-i+1);
end

gcs=(g+g2)/2        //Conjugate-Symmetric part
disp(gcs,'The Conjugate symmetric part is =');
gcas=(g-g2)/2;      //Conjugate-Antisymmetric part
disp(gcas,'The Conjugate antisymmetric part is =');