方便大家查看 把运算过程复制下来 楼主如果觉得不妥 可以删掉哈
/N_BREAK=N.
EXECUTE.
get file='f:\rwgout.sav'.
COMPUTE varx1=j.1_sd * x1_sd.
EXECUTE
COMPUTE varx2=x2_sd * x2_sd.
EXECUTE.
COMPUTE varx3=x3_sd * x3_sd.
EXECUTE.
COMPUTE varx4=x4_sd * x4_sd.
EXECUTE.
COMPUTE varx5=x5_sd * x5_sd.
EXECUTE.
compute mvar=mean (varx1,varx2,varx3,varx4,varx5).
EXECUTE.
compute scale=7.
EXECUTE.
compute dim_num=5.
execute.
compute Qeq=(scale*scale-1)/12.
execute.
compute Rwg_item=(dim_num*(1-(mvar/Qeq)))/(dim_num*(1-(mvar/Qeq))+(mvar/Qeq)).
execute.
|