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 | * Автор этого синтаксиса - Neila Nessa (neilanessa@email.msn.com)
* 10.01.2000, comp.soft-sys.stat.spss.
new file.
set mprint=on /printback=on.
INPUT PROGRAM .
NUMERIC #EOF .
VECTOR NodeI_(25) NodeJ_(25) WT_(25).
LOOP .
** ИНИЦИАЛИЗИРУЕМ ОЧЕРЕДНОЕ НАБЛЮДЕНИЕ ** .
- LOOP # = 1 TO 25.
- DO REPEAT V = NodeI_ NodeJ_ WT_ .
- COMPUTE V(#) = $SYSMIS .
- END REPEAT .
- END LOOP.
** ПРОПУСКАЕМ ЗАГОЛОВОЧНУЮ ЧАСТЬ ** .
- LOOP #=1 TO 2 .
- DATA LIST END=#EOF / #JUNK (A50).
- PRINT /"JUNK" # #JUNK .
- END LOOP.
** ЧИТАЕМ ЧИСЛО ССЫЛОК (LINKS) ** .
* Файл данных примера содержит некую техническую информацию,
* предположительно, об узлах некоторой сети и взаимодействиях между
* ними (количеством ссылок друг на друга) - примеч. пер.
- DATA LIST / #LINKS (F3) .
- PRINT /"LINKS" # #LINKS .
** ПРОПУСКАЕМ ПРОЧУЮ НЕНУЖНУЮ ИНФОРМАЦИЮ ** .
- LOOP #=1 TO 4 .
- DATA LIST / #JUNK (A50).
- PRINT / "JUNK" # #JUNK .
- END LOOP.
** ЧИТАЕМ НЕПОСРЕДСТВЕННО ДАННЫЕ ** .
- LOOP #=1 TO #LINKS .
- DATA LIST LIST / #Ni #Nj #WT .
- COMPUTE NodeI_(#) = #Ni .
- COMPUTE NodeJ_(#) = #Nj .
- COMPUTE WT_(#) = #WT .
- PRINT /# #Ni #Nj #WT .
- LEAVE NodeI_1 TO NodeI_25 NodeJ_1 To NodeJ_25 WT_1 To WT_25 .
- END LOOP.
** ЗАКОНЧИЛИ С ОЧЕРЕДНЫМ НАБЛЮДЕНИЕМ! *.
- END CASE.
END LOOP IF #EOF .
END FILE.
END INPUT PROGRAM.
BEGIN DATA
PFNET D:\\SHARON\\PCKNOT\\DD\\M19A.PRX
16 узлов
19 ссылок
1 минимальный вес ссылки
3 максимальный вес ссылки
сыылки:
узел1 узел2 вес тип
1 2 1 x
1 10 1 x
2 5 1 x
2 7 1 x
2 16 1 x
3 13 3 x
4 9 2 x
4 10 2 x
4 16 2 x
5 7 1 x
5 11 2 x
5 15 1 x
6 8 3 x
7 11 2 x
8 12 2 x
9 14 2 x
11 15 2 x
12 13 2 x
13 14 2 x
PFNET D:\\SHARON\\PCKNOT\\DD\\M19B.PRX
16 узлов
15 ссылок
1 минимальный вес ссылки
3 максимальный вес ссылки
ссылки:
узел1 узел2 вес тип
1 2 1 x
2 10 1 x
3 5 1 x
3 7 1 x
3 16 1 x
4 13 3 x
5 9 2 x
5 10 2 x
6 7 1 x
7 8 3 x
8 11 2 x
9 12 2 x
10 14 2 x
12 15 2 x
13 14 2 x
END DATA.
EXE .
|