Tremor-Untersuchunge.. - Jochen Fahrenberg

- 104 -
if first.vp_nr then r(1)=0;
if first.vp_nr then r(2)=0;
ph_nr=ph_nr-nl_z;
r(2)=r(2)+1;
if ph_nr le 9 then do; st_vf_fr=0; st_vf_am=0; end; /* Schrittfrequenz */
if ph_nr = 10 then r(5)=st_vf_am*0.25;
if sit_nr> 16 and st_vf_am < r(5) then do; st_vf_fr=.; st_vf_am=.; end;
if st_vf_fr = . then st_vf_fr=0;
if st_vf_am = . then st_vf_am=0;
if ph_nr le 9 then do; st_hf_fr=0; st_hf_am=0; end;
if ph_nr = 10 then r(6)=st_hf_am*0.25;
if sit_nr> 16 and st_hf_am < r(6) then do; st_hf_fr=.; st_hf_am=.; end;
if st_hf_fr = . then st_hf_fr=0;
if st_hf_am = . then st_hf_am=0;
nv=DIM(x);
nc_last=10;
if r(2) le nc_last then do;
con(r(2))=condi;
kat=ph_nr;
condi2=condi;
hierarch=ph_nr;
condi3=condi;
gleich="=";
keep ph_nr kat condi2 kat hierarch condi3 gleich
vp_nr seca--HR_FF_;
output;
end;
/* Standardisierungs-Faktoren */
if ph_nr in (1,2,3,4,5,6,7,8,9,10) then do; /* Auswahl St.Cond. */
r(1)=r(1)+1;
nc=r(1);
do i=1 to nv;
y(nc,i)=x(i);
end;
end;
nc=r(1);
if ph_nr = nc_last then do i=1 to nv;
s(i)=0;
sp(i)=0;
do j=2 to nc;
do k=1 to j-1;
s(i)=s(i)+abs(y(j,i)-y(k,i)); /* alle */
if j in (1,2,3,5,6,7,8,9) and /* Sitzen+Liegen */
k in(1,2,3,5,6,7,8) then
sp(i)=sp(i)+abs(y(j,i)-y(k,i));
end;
end;
end;
/* Kategorisierungen */
if ph_nr > nc_last or sit_nr in (101,102,103,104,105,106) then do;
/* Kategorisierung 1: total */
nv_g=18;
do j=1 to nc;
dif=0;
do i= 1 to nv_g;