免费R。
程序如下，非常简单
x= -1
inc=.01;
k= 0
while (x<=1 ) {
y= -1
while (y<=1 ) {
if ((.25*x*x+y*y-.5*x <=.75) &
(x*x+.25*y*y-.5*y<=.75) &
(-x*x+y*y <=.25) &
(x+y<=1)
)
{
k=k+1;
dx[k,] <- c(x,y)
}
y=y+inc;
}
x=x+inc;
}

锟斤拷锟洁辑时锟斤拷: 2023-05-19 13:09:19