19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
PROCEDURE $1_input(VAR mttu : InputVector;
mttt : REAL;
mttx : StateVector;
mtty : OutputVector);
{Created by MTT on $date for standard input to simulation}
VAR t : REAL;
BEGIN{$1_input}
read(t); { Read, and discard, first column (time) }
FOR mtti:=1 TO $Nu DO {Read the inputs}
read(mttu[mtti]);
|
|
>
>
>
>
>
>
>
>
|
>
|
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
|
PROCEDURE $1_input(VAR mttu : InputVector;
mttt : REAL;
mttx : StateVector;
mtty : OutputVector);
{Created by MTT on $date for standard input to simulation}
VAR t : REAL; ch: char;
BEGIN{$1_input}
{Zap comments}
REPEAT
read(ch);
IF ch="#" THEN
readln;
UNTIL NOT (ch="#");
read(t); { Read, and discard, first column (time) }
FOR mtti:=1 TO $Nu DO {Read the inputs}
read(mttu[mtti]);
readln; {Next line}
END{$1_input};
EOF
|