具有多个 IF[] 条件的 Mathematica 函数

Question

我这里有一段复杂的代码，既不漂亮也不容易理解，但它代表了我正在使用的大量代码的简化。我是一名 Mathematica 新手，已经从 stackoverflow 获得了有关此问题的一些帮助，但它仍然无法解决我的问题。这是我希望您能够遵循的代码并假设我正在尝试让它做什么。感谢各位编程高手的帮助。

a[b_, c_] = -3*b + 2*c + d + e + f;

g[b_, c_] := If[a[b, c] < 0, -3*a[b, c], a[b, c]];

h[T_, b_, c_] = (T/g[b, c]);

i[h_, T_, b_, c_] := If[h[T, b, c] > 0, 4*h[T, b, c], -5*h[T, b, c]];

j[b_, c_] := If[a[b, c] < 0, 5*a[b, c], 20*a[b, c]];

XYZ[h_, T_, i_, g_, j_, b_, c_] = T*i[h, T, b, c]*g[b, c] + j[b, c]

rules = {a -> 1, b -> 2, c -> 3, d -> 4, e -> 5, f -> 6, T -> 10};

XYZ[h, T, i, g, j, b, c] //. rules

Answer 1

尽可能多地保留代码，只需进行一些更改即可工作：

a[b_, c_] := -3*b + 2*c + d + e + f;

g[b_, c_] := If[# < 0, -3 #, #] & @ a[b, c]

h[T_, b_, c_] := T / g[b, c]

i[h_, T_, b_, c_] := If[# > 0, 4 #, -5 #] & @ h[T, b, c]

j[b_, c_] := If[# < 0, 5 #, 20 #] & @ a[b, c]

XYZ[h_, T_, i_, g_, j_, b_, c_] := T*i[h, T, b, c]*g[b, c] + j[b, c]

rules = {a -> 1, b -> 2, c -> 3, d -> 4, e -> 5, f -> 6, T -> 10};

XYZ[h, T, i, g, j, b, c] /. rules

(* Out= 700 *)

1. If 语句再次外部化，如上一个问题。

2. 作为良好实践，所有定义均使用 SetDelayed (:=) 进行。

3. 您的规则中的假定错误T - 10已更正为T -> 10

再次注意，ReplaceRepeated (//.) 不再需要，改为 /.

我们仍然有一个无意义的规则a -> 1 但它不会导致失败。