Hot answers tagged

11

My offering: And @@ Or @@@ Outer[Equal, {x, y, z, m}, {2, 3, 4}]


4

expr = (-1 + (E^(w[1, 0] - 1.55432 w[1, 1]) - E^(-w[1, 0] + 1.55432 w[1, 1]))^2 / (E^(w[1, 0] - 1.55432 w[1, 1]) + E^(-w[1, 0] + 1.55432 w[1, 1]))^2) expr /. Power[E, Plus[x_, y__]] :> Inactive[Times][Power[E, x], Power[E, y]]/. {Power[E, Times[c_, w[i_, j_], ___]] :> Power[T[i, j], Sign[c]], Power[E, w[i_, j_]] ...


1

A set solution. cond = {{x}, {y}, {z}, {m}} ∈ Interval[{2, 4}] && {x, y, z, m} ∈ Integers Set x, y, z, and m to be Integers on the Interval 2 to 4. We can use cond to be certain it is defined as expected. Solve[x + y + z + m == 8 && cond, {x, y, z, m}] (* {{x -> 2, y -> 2, z -> 2, m -> 2}} *) This gives the expected result. ...



Only top voted, non community-wiki answers of a minimum length are eligible