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
* Показатель расхождения
	(по книге Karl and Alma Taeuber, Negroes in Cities (1965), стр. 236).
	(см. также, например, http://en.wikipedia.org/wiki/Index_of_Dissimilarity - А.Б.)

* Синтаксис подразумевает, что две популяции уже рассортированы (агрегированы)
	по географическим зонам.
* Автор: rlevesque@videotron.ca, 14.09.2001.

DATA LIST LIST /cat PopA PopB.
BEGIN DATA
1 .15 .12
2 .15 .17
3 .10 .12
4 .12 .12
5 .18 .11
6 .20 .2
7 .1 .16
END DATA.
LIST.

COMPUTE index=ABS(PopA-PopB)*.5.
VARIABLE LABEL index 'Показатель расхождения'.
SUMMARIZE
  /TABLES=popa popb index
  /FORMAT=NOLIST TOTAL
  /TITLE='Показатель расхождения'
  /MISSING=VARIABLE
  /CELLS=SUM.