summaryrefslogtreecommitdiff
path: root/2294/CH3/EX3.25/EX3_25.sce
blob: 5e1a4212556df8d7b09b51e80b677746c19964c1 (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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
//Example 3.25<i>
//Find whether the system is causal and stable.
clear all;
 clc ;
 n = -5:5;
 for i =1: length (n)
 if(n(i) <=0)
 h(i)=  2^n(i);
 else
 h(i)=0;
 end
 end
 causal =%t;
 for i =1: length (n)
 if n(i) <0 & h(i) ~=0 then
 causal =%f;
 end
 end
 disp (causal,'The statement that the system is causal is:');
  n =0:100000;
 for i =1: length (n)
 if(n(i) <=0)
 h(i)=  2^n(i);
 else
 h(i)=0;
 end
 end
 bibo =sum(h);
 if (bibo < %inf ) then
 disp (" system is bibo stable ");
 else
 disp (" systes not stable ");
end
//Example 3.25<ii>
//Find whether the system is causal and stable.
clear all;
 clc ;
 n = -5:5;
 for i =1: length (n)
 if(n(i) >=1)
 h(i)=  exp(2*n(i));
 else
 h(i)=0;
 end
 end
 causal =%t;
 for i =1: length (n)
 if n(i) <0 & h(i) ~=0 then
 causal =%f;
 end
 end
 disp (causal,'The statement that the system is causal is:');
  n =0:100000;
 for i =1: length (n)
 if(n(i) >=1)
 h(i)=  exp(2*n(i));
 else
 h(i)=0;
 end
 end
 bibo =sum(h);
 if (bibo < %inf ) then
 disp (" system is bibo stable ");
 else
 disp (" system not stable ");
 end
//Example 3.25<iii>
//Find whether the system is causal and stable.
clear all;
 clc ;
 n = -5:5;
 for i =1: length (n)
 if(n(i) <=3)
 h(i)=  (5*n(i));
 else
 h(i)=0;
 end
 end
 causal =%t;
 for i =1: length (n)
 if n(i) <0 & h(i) ~=0 then
 causal =%f;
 end
 end
 disp (causal,'The statement that the system is causal is:');
  n =0:100000;
 for i =1: length (n)
 if(n(i) <=1)
 h(i)=  (5*n(i));
 else
 h(i)=0;
 end
 end
 bibo =sum(h);
 if (bibo < %inf ) then
 disp (" system is bibo stable ");
 else
 disp (" system not stable ");
 end
//Example 3.2<iv>
//Find whether the system is causal and stable.
clear all;
 clc ;
 n = -5:5;
 for i =1: length (n)
 h(i)=  exp(-6*abs(n(i)));
 end
 causal =%t;
 for i =1: length (n)
 if n(i) <0 & h(i) ~=0 then
 causal =%f;
 end
 end
 disp (causal,'The statement that the system is causal is:');
  n =0:100000;
 for i =1: length (n)
 h(i)= exp(-6*abs(n(i)));
 end
 bibo =sum(h);
 if (bibo < %inf ) then
 disp (" system is bibo stable ");
 else
 disp (" system not stable ");
 end