The function
fun[x_, y_,
z_] = (4 y^2 - x^2 Cos[1/2 Sqrt[-x^2 + 4 y^2] z] -
x Sqrt[-x^2 + 4 y^2]
Sin[1/2 Sqrt[-x^2 + 4 y^2] z])/(\[Sqrt](2 x^2 y^2 + 16 y^4 -
8 x^2 y^2 Cos[1/2 Sqrt[-x^2 + 4 y^2] z] +
x^2 (x^2 - 2 y^2) Cos[Sqrt[-x^2 + 4 y^2] z] -
8 x y^2 Sqrt[-x^2 + 4 y^2] Sin[1/2 Sqrt[-x^2 + 4 y^2] z] +
x^3 Sqrt[-x^2 + 4 y^2] Sin[Sqrt[-x^2 + 4 y^2] z]));
when checked for different values of x,y,z
always comes out to be 1
, say fun[0.1, 0.2, 0.3]=1
. However, Mathematica is not able to show this in the first place!
Simplify[fun[x, y, z]]
Out[25]= (4 y^2 - x^2 Cos[1/2 Sqrt[-x^2 + 4 y^2] z] -
x Sqrt[-x^2 + 4 y^2]
Sin[1/2 Sqrt[-x^2 + 4 y^2] z])/(\[Sqrt](2 x^2 y^2 + 16 y^4 -
8 x^2 y^2 Cos[1/2 Sqrt[-x^2 + 4 y^2] z] +
x^2 (x^2 - 2 y^2) Cos[Sqrt[-x^2 + 4 y^2] z] -
8 x y^2 Sqrt[-x^2 + 4 y^2] Sin[1/2 Sqrt[-x^2 + 4 y^2] z] +
x^3 Sqrt[-x^2 + 4 y^2] Sin[Sqrt[-x^2 + 4 y^2] z]))
x
,y
, andz
? Mathematica won't know about those unless you specify them. $\endgroup$