各位GGJJ，如何使用sas宏计算多组参数呢~

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位GGJJ，小妹有个地方不懂诶。小妹用sas编了个宏程序，想做点参数运算的。但是数据量太大，做起来比较麻烦。目前我是把一组参数输入之后运行一遍后再计算另一组参数，再运行一遍。各位GGJJ有什么办法可以一次性把参数全部输入，然后得出所有的结果呢？谢谢指点哦，感激不尽呢~~^_^
我的程序大概是：

%macro a(a,b,c,sigma,d,mu);

data paper;

xx；

xx；

put a= b= c= sigma= d= mu= v1= v2=;

%mend a;

%a(20,15,0.02,0.1,0.5,0.1);

run;

   

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：GGJJ SAS宏 如何使用 Sigma Macro sigma 计算 如何 程序

自己顶一下~嗯~

把这些参数输入到一个数据集中，然后通过循环一条一条记录的把参数传给宏调用就可以了。。。

你可以参照这个例子试试

1. data a;
   
2. input group $ number point;
   
3. cards;
   
4. A 1 85
   
5. A 2 66
   
6. B 1 69
   
7. C 3 55
   
8. D 4 33
   
9. ;
   
10. run;
    
11. 
    
12. %macro macro_name(group,number,point);
    
13. data out_&group.;
    
14. group="&group";
    
15. number=&number.;
    
16. point=&point.;
    
17. run;
    
18. %mend;
    
19. 
    
20. %macro test;
    
21. *打开存放参数的数据集;
    
22. %let dsid=%sysfunc(open(work.a,i));
    
23. %put &dsid;        *%put是在日志输出改宏变量的值;
    
24. *fetch是为了判断是否读取完数据集记录，若已读完，则返回-1，否则返回0，赋给宏变量rc;
    
25. %let rc=%sysfunc(fetch(&dsid));
    
26.         %do %while(&rc=0);
    
27.             *trim是去掉字符右边的空格，left是去掉字符左边的空格，getvarc(&dsid,1)是读取数据集的第一列，
    
28.                 读取第二列则为getvarc(&dsid,2),getvarc是针对字符，若该列是数值型的则为getvarn(&dsid,2);
    
29.                 %let group=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarc(&dsid,1))))));
    
30.                 %let number=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarn(&dsid,2))))));
    
31.                 %let point=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarn(&dsid,3))))));
    
32.                 %put &group;     %put &number;     %put &point;
    
33. 
    
34.                 %macro_name(&group,&number,&point);*将参数传给调用你所需要运行的宏macro_name;
    
35. 
    
36.                 %let rc=%sysfunc(fetch(&dsid));        *同上fetch;
    
37.                 %put &rc;
    
38.         %end;
    
39.                 %let rc=%sysfunc(close(&dsid));        *关闭数据集;
    
40.                 %put &rc;
    
41. %mend;
    
42. 
    
43. %test;

复制代码

可~乐 发表于 2012-3-26 00:22
你可以参照这个例子试试

太牛了，谢谢啦