关于迭代、宏的求助

手头项目需要反复迭代，目前考虑的流程如下：

1. %macro P1(x=,y=);
   
2. ....
   
3. myValue=...;
   
4. call symputx('myFunc',myValue);
   
5. %mend;
   
6. 
   
7. %macro check;
   
8. data D0;
   
9. /*初始化数据*/
   
10. ...
    
11. call execute('%P1(x=x0,y=y0)');
    
12. run;
    
13. 
    
14. %do i=1 %to 1000;/*迭代1000次。因call execute必须在data步结束后才能生效，只能每调用一次宏就建个数据集？*/
    
15.         data PSO_&i;
    
16.         set PSO_%eval(&i-1);
    
17.         tmpV=symgetn('myFunc');
    
18.         ...
    
19.         计算后调整x,y的值返回给macro P1:
    
20.         call execute('%P1(x=x1,y=y1)');
    
21.         ...
    
22. %end;
    
23. 
    
24. run;
    
25. %mend;
    
26. %check;

复制代码

每次迭代都要建个数据集，似乎很不合理。不知道有什么解决办法？盼指点

freetiger 发表于 2015-2-28 18:25
看例子，NLP是直接对显式函数进行处理。我现在面临的问题是，目标函数是在数据集运算后的结果。

在一个数据步中，定义一个或多个多维数组存储原始数据和计算结果。　当数据步运行到set语句中数据集的最后一条记录时用do－loop做其他计算.  retain 数组中的数据.

1. %macro P1(x=,y=);
   
2. ....
   
3. myValue=...;
   
4. call symputx('myFunc',myValue);
   
5. %mend;
   
6. 
   
7. %macro check;
   
8. data D0;
   
9. /*初始化数据*/
   
10. ...
    
11. * call execute('P1(x=x0,y=y0)');
    
12.   call execute('%P1(x=' || x0 || ', ' ||'y=' || y0 ||')');   
    
13. run;
    
14. 
    
15. %do i=1 %to 1000;/*迭代1000次。因call execute必须在data步结束后才能生效，只能每调用一次宏就建个数据集？*/
    
16.       *  data PSO_&i;
    
17.       *  set PSO_%eval(&i-1);
    
18.         data temp;
    
19.           set PSO_0  
    
20.         tmpV=symgetn('myFunc');
    
21.         ...
    
22.         计算后调整x,y的值返回给macro P1:
    
23.       * call execute('%P1(x=x1,y=y1)');
    
24.         call execute('%P1(x=' || x1 || ', ' || 'y=' || y1 || ')');
    
25.         ...
    
26.         run;
    
27. 
    
28.         data PSO_0;
    
29.           set temp;
    
30.         run;
    
31. %end;
    
32. 
    
33. * run;
    
34. %mend;
    
35. %check;

复制代码

谢谢楼上解答！很管用，获益匪浅。
运行时间有所减少，但和NLP相比还是慢了很多。不知道思路上需要做什么改进？

freetiger 发表于 2015-2-26 14:32
谢谢楼上解答！很管用，获益匪浅。
运行时间有所减少，但和NLP相比还是慢了很多。不知道思路上需要做什么改 ...

感觉NLP procedure 不用 open／close 数据集很多次。如果你的问题可以用nlp procedure 解决，也许可以在一个数据步中用temp－variable， do－loop，if， goto 等语句完成.

坛中有很多大神，但是没有数据和清楚的目的,大神会游过的.

yongyitian 发表于 2015-2-27 22:48
感觉NLP procedure 不用 open／close 数据集很多次。如果你的问题可以用nlp procedure 解决，也许可以在一 ...

尝试在一个data步内生成所需的中间数据集，如果是生成宏变量的话，生成那种带循环变量的宏变量

yongyitian 发表于 2015-2-27 22:48
感觉NLP procedure 不用 open／close 数据集很多次。如果你的问题可以用nlp procedure 解决，也许可以在一 ...

看例子，NLP是直接对显式函数进行处理。我现在面临的问题是，目标函数是在数据集运算后的结果。