* Проранжировать значения переменной var1 номерами заданного числа интервалов равной ширины между минимальным и максимальным значением переменной var1. * (Код не тестировался на отрицательных значениях минимума). * Автор: rlevesque@videotron.ca. DATA LIST FREE /var1(F8). BEGIN DATA. 0 15 31 91 17 24 29 98 57 90 6 7 100 24 74 21 END DATA. LIST. COMPUTE dummy=1. AGGREGATE /OUTFILE='min_max.SAV' /BREAK=dummy /var1_min = MIN(var1) /var1_max = MAX(var1). MATCH FILES /FILE=* /TABLE='min_max.SAV' /BY dummy. *Допустим, желаем разбить значения на 8 интервалов. COMPUTE #delta=(var1_max - var1_min)/8. COMPUTE inter=MIN(TRUNC(var1/#delta)+1,8). EXECUTE. *Краткая техническая справка: *Интервалы закрыты слева. *inter=1 - когда var1 в интервале [var1_min, var1_min + 1*#delta) *inter=2 - когда var1 в интервале [var1_min+1*delta, var1_min + 2*#delta) *... *inter=8 - когда var1 в интервале [var1_min+7*delta, var1_min + 8*#delta) *inter=9 - когда var1= var1_max. * Сложная запись последней инструкции COMPUTE обусловлена потребностью поместить значения var1=var1_max * в 8-й интервал. Другими словами, последний (8-й) интервал должен получиться закрытым и справа тоже: * [var1_min+7*delta, var1_min + 8*#delta]. * Без подобных поправок можно было бы обойтись, выбрав #delta следующим образом: COMPUTE #delta=1.000001*(var1_max - var1_min)/8. * Хотя это, конечно, и не идеальное решение.