summaryrefslogtreecommitdiff
path: root/2303/CH3/EX3.4/EX_3_4.sce
blob: 565cdf091468d48bdca20ba5dbd9a202c237ecc5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
//Ex.3.4

clc ;
clear;
close;

//Test for shift-variance
k =2;
N =10;
for n =1: N
x(n)=n;
y(n)=x(1);
end
inputshift =x(N-k);
outputshift =y(N-k);
if( inputshift == outputshift )
    disp ( 'THE GIVEN SYSTEM IS SHIFT INVARIANT ' )
else
    disp ( 'THE GIVEN SYSTEM IS SHIFT VARIANT ' );
end

//Test for linearity
x1=[1 2 3 4];         //assume
x2=[1 2 1 2];         //assume
a=1;
b=1;
y=[1 1 1 1];          //y(n)=x(1) for all x

        //Test for homogeneity
k=2;
hom=0;
for n=1: length (x1)
    if (k*y(n)==k*x1(n))
        hom=hom+1;
    end
end

        //Test for additivity
for n =1: length (x1)
    x3(n)=a*x1(n)+b*x2(n)
end
for n =1: length (x1)
    y1(n)=x(1);
    y2(n)=x(1);
    y3(n)=x(1);
end
for n =1: length (y1)
    z(n)=a*y1(n)+b*y2(n);
end
count =0;
for n =1: length (y1)
    if(y3(n)==z(n))
    count = count +1;
    end
end
if( count == length (y3) & (hom==length(y)))
    disp ( 'It satisfies the homogeneity and additivity principle' );
    disp ( 'THE GIVEN SYSTEM IS LINEAR ' );
else
    disp ( 'It does not satisfy the homogeneity and additivity principle' );
    disp ( 'THE GIVEN SYSTEM IS NON LINEAR ' );