从一个集合中提取出满足条件的元素

tiesuoqiao 发表于 2020-8-28 09:48
上边的所有代码都不行
楼主要求的是所有组合
比如b

你说的是对的。
假设x1<x2<x3，则y1和y2最大为x1 - 1，y3最大为x2 - 1。所以这个题目不用解方程组了，只需判断出较小的两个x以及相应约束的y，就可以找到y的最大值。
至于要列出集合中的元素，需要枚举y的组合并判断是否约束。

library(data.table)
x1=7
x2=10
x3=15

A=as.data.table(expand.grid(y1=seq(1, min(x1,x2)-1),
                            y2=seq(1, min(x1,x3)-1),
                            y3=seq(1, min(x2,x3)-1)))
B=A[(y1+y2<=x1) & (y1+y3<=x2) & (y2+y3<=x3)]

tiesuoqiao 发表于 2020-8-28 10:52
library(data.table)
x1=7
x2=10

谢谢啊

1. x <- c(7, 8, 9)
   
2. y1 <- c(1:floor((x[1]+x[2]-x[3])/2))
   
3. y2 <- c(1:floor((x[1]+x[3]-x[2])/2))
   
4. y3 <- c(1:floor((x[2]+x[3]-x[1])/2))
   
5. # A <- c(y1, y2, y3) %>%
   
6. #  unique()
   
7. A <- expand.grid(y1, y2, y3)

复制代码

那就组合下咯