2012年数学建模关于葡萄酒的问题，利用sas软件宏可以快速解决。
%macro base;
proc sql;
create table quan.f( meanscore int,stdscore int);
quit;
%do i=1 %to 28;
proc import datafile="f:\sas\A\hpta&i..txt" out=ptja&i
dbms=tab replace;
    getnames=no ;
run;
data ptja&i;
set ptja&i;
  rename var1-var10=q1-q10;
run;
proc transpose data=ptja&i out=ptja1&i(drop= _name_);
var q1-q10;
run;
data score&i;
set ptja1&i;
  score=sum(of col1-col10 );
run;
proc means data=score&i;
var score;
  output out=c mean=meanscore std=stdscore;
proc datasets;
  append base=quan.f data=c force;
run;
%end;
%mend;

%base;
大家一起探讨更简单的方法。