Question

我假设对我的问题有一个非常简单的解决方案，其中我有一个表示极角（即1到360度）的向量。

function doWork() {
    return new Promise(function(resolve) {
        console.log('Promise executed');
        resolve(1);
    });
}

setTimeout(function() {
    console.log(new Date());
    doWork().then(function() {
        console.log('All done');
        console.log(new Date());
    });
}, 1000);

我需要找到最接近y的x的值，

x<-seq(300,340)

在此示例中，我需要从x返回340 我知道DescTools包中的Closest函数，该函数将从x返回300。我敢肯定，答案可能很简单，但这使我难以理解。

欢迎思想

Answer 1

这是您想要的吗？

x <- 300:340
y <- 30

polardist <- sapply(x,function(x){min((y-x)%%360,(x-y)%%360)})
ans <- x[polardist==min(polardist)] #Will have length>1 if there are ties

从极坐标向量中找到最接近的值

1 个答案: