%macro fxndxs;
/*说明：本数据表中有t1-t9共九个变量，代表第一题至第九题，其中第一至八题满分为10，第九题满分为20分*/
proc import out=work.cscore datafile='D:\spss\syntax\score.xlsx'
replace;
run;
/*导入数据表*/

proc sql;
create table score as
select *,t1+t2+t3+t4+t5+t6+t7+t8+t9 as t10
from cscore;  
quit;
/*计算总分*/
proc univariate data=work.score ;/*描述分析*/
var t1-t10;
output out=nandu mean=t1-t10;
run;
/*以上输出变量*/
proc sql;
create table ndxs as
select t1/10 as nt1,t2/10 as nt2,t3/10 as nt3,t4/10 as nt4,t5/10 as nt5,t6/10 as nt6,t7/10 as nt7,t8/10 as nt8,t9/20  as nt9
,t10/100 as nt10 from nandu;/*计算难度系数*/
run;
quit;
proc print data=ndxs;
run;
/*输出难度系数值*/
%mend fxndxs;
%fxndxs