10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
# Inform user
echo Creating $1_ssk.r -- NOTE this is for SISO systems only.
# Remove the old log file
|
>
>
>
|
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 1998/01/22 13:16:16 peterg
## Initial revision
##
###############################################################
# Inform user
echo Creating $1_ssk.r -- NOTE this is for SISO systems only.
# Remove the old log file
|
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
alpha_c(6,1) := alpha_c6;
alpha_c(7,1) := alpha_c7;
alpha_c(8,1) := alpha_c8;
alpha_c(9,1) := alpha_c9;
for i := 1:MTTNx do
MTTk_c(1,i) := alpha_c(i,1) - MTTA_c(1,i);
% Gain in physical form
MTTk := MTTk_c*MTTT_c;
%Create the output file
OUT "$1_ssk.r";
|
|
|
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
alpha_c(6,1) := alpha_c6;
alpha_c(7,1) := alpha_c7;
alpha_c(8,1) := alpha_c8;
alpha_c(9,1) := alpha_c9;
for i := 1:MTTNx do
MTTk_c(1,i) := alpha_c(i,1) + MTTA_c(1,i);
% Gain in physical form
MTTk := MTTk_c*MTTT_c;
%Create the output file
OUT "$1_ssk.r";
|