Tremor-Untersuchunge.. - Jochen Fahrenberg

- 107 -
if motion le 9 then motion = 0; /* motion */
if posture in ( 5, 6, 7) then postur = 1; /* posture Liegen */
if posture in ( 1, 2, 3) then postur = 2; /* posture Sitzen */
if posture in ( 4, 10) then postur = 3; /* posture Stehen */
if postur = 1 and lieg1 in (6,7) then hierarch= lieg1; /* Liegen */
if postur = 1 and lieg1 not in (6,7) then hierarch= lieg2; /* Liegen */
if postur = 2 then hierarch= sitz ; /* Sitzen */
if postur = 3 and motion ne 0 then hierarch= 10 ; /* Gehen */
if postur = 3 and motion = 0 then hierarch= 4 ; /* Stehen */
if hierarch=8 then hierarch=schlaf-nl_z;
if hierarch=9 then hierarch=ruhe -nl_z;
condi2=con(kat);
condi3=con(hierarch);
gleich="=";
keep ph_nr kat condi2 hierarch condi3 gleich
vp_nr seca--HR_FF_ sit_nr;
output;
end;
run;
/*******************************************************************/
/* Laborsituationen an den Anfang */
data pomokat; set pomokat;
array x _numeric_;
do over x; if x=. then x=0; end;
ph_nr = sit_nr;
if ph_nr in (101,102,103,104,105,106) then ph_nr=ph_nr-100;
run;
proc sort;
by vp_nr ph_nr;
run;
/* drucken */
proc printto print=
"C:\FRITZ\STUDIEN\ST97\s97_&nr..pom" new; run;
options pagesize=93;
proc print data=pomokat noobs label double;
format stunde--sekunde 3.0;
var ph_nr stunde--sekunde kat gleich condi2 hierarch gleich condi3;
run;
options pagesize=105;
proc printto; run;
title;
/* Laden KAMPF-File */
data _NULL_; set pomokat;
file
"C:\FRITZ\STUDIEN\ST97\s97_&nr..kam"
linesize=80;
if ph_nr not in (14,15); /* individuelle Lagen */
if ph_nr > 15 then ph_nr=ph_nr-2;
if kat = 10 then kat=8;
if hierarch= 10 then hierarch=8;
put (vp_nr ph_nr)
(f4.0)
(seca)
(f6.0)
(laenge--sekunde) (f4.0)
(st_v_g st_q_g st_h_g) (f10.5)
(ha_r_g -- st_v__dc) (f10.5)
(st_q__ac st_q__dc) (f10.5)