* В каждом наблюдении есть несколько значений. Нужно найти 3 наибольших в каждом наблюдении. * Автор: David Marso; размещено в comp.syst-soft.stat.spss 24.03.1998. data list free / x1 to x10. begin data. 13 54 23 54 25 12 52 3 51 23 15 41 23 15 42 31 23 12 15 12 51 43 51 36 12 53 6 12 53 12 63 51 23 51 73 51 35 12 35 35 end data. ** ПРЕДПОЛОЖИМ, ЧТО ВСЕ ЗНАЧЕНИЯ ПОЛОЖИТЕЛЬНЫ **. VECTOR WHAT (3). loop #=1 to 3. COMPUTE WHAT(#)=MAX(X1 TO X10). * Помечаем одинаковые максимальные значения *. COMPUTE #FOUND=0. DO REPEAT X=X1 to X10 . DO IF X=WHAT(#) AND NOT #FOUND. * Небольшая хитрость чтобы убрать уже раз найденный максимум из поля зрения. COMPUTE X=-X. * Таким образом, мы не теряем информацию о повторяющихся максимальных значениях. COMPUTE #FOUND=1. END IF. END REPEAT. END LOOP. DO REPEAT X=X1 TO X10. IF X < 0 X=-X. END REPEAT. FORMATS ALL (F2.0). LIST. ** ДРУГОЙ СПОСОБ ** . data list free / x1 to x10. begin data. 13 54 23 54 25 12 52 3 51 23 15 41 23 15 42 31 23 12 15 12 51 43 51 36 12 53 6 12 53 12 63 51 23 51 73 51 35 12 35 35 end data. * СЧИТАЕМ, ЧТО НУЖНЫЕ ПЕРЕМЕННЫЕ РАСПОЛОЖЕНЫ ВПРИТЫК ДРУГ К ДРУГУ, НО НЕ ОБЯЗАТЕЛЬНО СОДЕРЖАТ ПОЛОЖИТЕЛЬНЫЕ ЗНАЧЕНИЯ *. VECTOR X=X1 TO X10 / #(10) / WHAT (3). LOOP ##=1 TO 10. + COMPUTE #(##)=X(##). END LOOP. loop #=1 to 3. + COMPUTE WHAT(#)=MAX(X1 TO X10). + COMPUTE #FOUND=0. + LOOP ##= 1 to 10. + DO IF X(##)=WHAT(#). + COMPUTE X(##)=$SYSMIS. + COMPUTE #FOUND=1. + END IF. + END LOOP IF #FOUND. END LOOP . LOOP ##=1 TO 10. + COMPUTE X(##)=#(##). END LOOP. LIST. ** ЧТОБЫ ИЗВЛЕЧЬ МАКСИМУМЫ И ИХ РАСПОЛОЖЕНИЕ ** . *Снова полагаем ,что данные положительны - примеч. перев. VECTOR WHAT (3) / WHERE(3). /*Суть имён переменных: WHAT - что, WHERE - где, - примеч. перев.*/ loop #=1 to 3. COMPUTE WHAT(#)=MAX(X1 TO X10). COMPUTE #FOUND=0. DO REPEAT X=X1 to X10 / Ind = 1 TO 10. DO IF X=WHAT(#) AND NOT #FOUND. COMPUTE WHERE(#)=Ind. COMPUTE X=-X. COMPUTE #FOUND=1. END IF. END REPEAT. END LOOP. DO REPEAT X=X1 TO X10. IF X < 0 X=-X. END REPEAT. FORMATS ALL (F2.0). LIST.