- /*************程序1********************/
- %macro Qua(dat,database);
- data Optim.Q;
- set &dat;
- y1=y;t1=x1;t2=x1*x1;
- proc reg data=Optim.Q outest=&database;
- Model y1=t1-t2;
- %mend Qua;
- data _null_;
- %Qua(Optim.Reg,Optim.database);
- Quit;
- /**************程序2*****************/
- data _null_;
- a=3;
- data _null_;
- b=4+a;
- put a= b=;
- run;



雷达卡





京公网安备 11010802022788号







