R中带指示符的二次函数系数的求法

我有如下的左侧公式，我把它展开到右侧，这意味着如果

b

\u I大于

x

，它是

b\u I-x

，否则它是零。我可以像下面那样写左边公式的代码，但是怎样才能得到R中二次右边公式的系数呢

\sum{i=1}{2}a_i（b_i-x）^2{+}=\sum{i=1}{2}a_i（b_i^2 i（b_i>=x）+x^2 i（b_i>=x）-2 b_i x i（b_i>=x））

---

与其创建自己的符号语法，不如使用标准逻辑，例如

b_i x，bi_i-x，0）

？你说的

b-i

是指

b[i]

？是的，我们可以。我所说的b_是指b[i]。

      a = c(1, 2)
      b = c(10, 30)
      x = c(5, 15, 50, 100)
      > colSums(a * pmax(outer(b, x, "-"), 0)^2)
      [1] 1275  450    0    0