- avg[a_, b_, c_, u_, v_, w_] := (a u + b v + c w)/(a + b + c);
- bary[f_, u_, v_, w_] := avg[f[u,v,w], f[v,w,u], f[w,u,v], u, v, w];
- f[u_, v_, w_] := 1/((u-v).(u-w));
- center4[u_, v_, w_] := bary[f, u, v, w];
- Algebra = {t -> {tx, ty}, u -> {ux, uy}, v -> {vx, vy}, w -> {wx, wy}};
- FourVariable[c_] := c[c[t,u,v], c[t,u,w], u] == c[c[t,u,v], c[t,v,w], v];
- FourVariable[center4] /. Algebra // Simplify
Copy the Code 结果为True |