Tremor-Untersuchunge.. - Jochen Fahrenberg

- 105 -
dif=dif+abs(x(i)-y(j,i))/s(i);
end;
if j=1 then do;
kat=j;
dif_min=dif;
end;
if j>1 then do;
if dif lt dif_min then do;
kat=j;
dif_min=dif;
end;
end;
end;
/* Kategorisierung 2: Posture */
nc_p=9;
do j=1 to nc_p;
dif=0;
do i= 1, 2, 3, 4;
dif=dif+abs(x(i)-y(j,i)); /* DC */
end;
if j=1 then do;
posture=j;
dif_min=dif;
end;
if j>1 then do;
if dif lt dif_min then do;
posture=j;
dif_min=dif;
end;
end;
end;
if posture=8 then posture=schlaf-nl_z;
if posture=9 then posture=ruhe -nl_z;
/* Kategorisierung 3: Motion */
do j=1 to nc;
dif=0;
sum=0;
sumy=0;
do i= 7, 8, 9, 10;
dif=dif+abs(x(i)-y(j,i)); /* AC */
sum=sum+ (x(i)-y(j,i));
sumy=sumy+y(j,i);
end;
if j=1 then do;
motion =j;
dif_min=dif;
end;
if j>1 then do;
if dif lt dif_min then do;
motion =j;
dif_min=dif;
end;
end;
end;
if motion=8 then motion=schlaf-nl_z;
if motion=9 then motion=ruhe -nl_z;
/* Kategorisierung 5: Liegen1 (Seite) */
do j= 5 to 7;
dif=0;
do i= 2;