一种比较取巧的方法，用概率来近似面积。

data w;

retain seed 0;

retain counter 0;

do i=1 to 10000;

a=uniform(seed);

b=uniform(seed);/*产生两个随机数*/

if b< a**3   /*此处函数可自己设置*/

then counter=counter+1;

s=counter/10000;/*用概率来求面积*/

output;

end;

proc print;

run;