
免费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
所跟帖: 赛昆 : “轮廓”相似。 2023-05-19 00:26:10
x:y按1:1重画。像条内裤。2023-05-19 12:07:34 [点击:1157]
[点击: 1084]
(1462872)[点击: 1077]
(1462875)