* Автор этого синтаксиса - 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 .