Student Support Forum: 'The message:GreaterEqual::"nord" :' topicStudent Support Forum > General > Archives > "The message:GreaterEqual::"nord" :"

 Next Comment > Help | Reply To Topic
 Author Comment/Response Sinval Santos 04/03/04 11:37am I build a small program for radicals: rad[ex_, lista_] := Module[{ex1, ex2}, ex1 = ex //. {(x_ /; Simplify[x /. lista] >= 0)^(Rational[p_, n_]) :> Abs[x]^(p/n), (x_ /; Simplify[x /. lista] < 0)^(Rational[p_ /; OddQ[p], n_ /; OddQ[n]]) :> -Abs[x]^(p/n), (x_ /; Simplify[x /. lista] < 0)^ (Rational[p_ /; EvenQ[p], n_ /; OddQ[n]]) :> Abs[x]^(p/n), (x_ /; Simplify[x /. lista] < 0)^(Rational [p_ /; OddQ[p], n_ /; EvenQ[n]]) :> Abs[x]^(p/n)*E^((I*Pi*p)/n)}; ex2 = ex1 //. (x_ /; Simplify[Im[x //. lista]] != 0)^(Rational[p_, n_]) :> Sqrt[Abs[Simplify[ComplexExpand[Im[x]^2 + Re[x]^2]]]^(p/n)]* E^(((I*p)/n)*Arg[x]); Return[ex2]] Be: as = I/Sqrt[1 - I/Sqrt[a - 2]]; When I use the program they appear the messages below: as1 = rad[as, {a -> 3}] From In[341]:= GreaterEqual::nord: Invalid comparison with 1-\[ImaginaryI] attempted. From In[341]:= Less::nord: Invalid comparison with 1-\[ImaginaryI] attempted. From In[341]:= Less::nord: Invalid comparison with 1-\[ImaginaryI] attempted. From In[341]:= Less::nord: Invalid comparison with 1-\[ImaginaryI] attempted. From In[341]:= General::stop: Further output of Less::nord will be suppressed during \ this calculation. From In[341]:= GreaterEqual::nord: Invalid comparison with 1-\[ImaginaryI] attempted. I/(E^((1/2)*I*Arg[1 - I/Sqrt[Abs[-2 + a]]])*Abs[1 + 1/Abs[-2 + a]]^(1/4)) I only get to avoid, doing: Off[GreaterEqual::"nord", Less::"nord"] Does other way exist for not coming back?.Placing some command in the program rad ? Thank you URL: ,

 Subject (listing for 'The message:GreaterEqual::"nord" :') Author Date Posted The message:GreaterEqual::"nord" : Sinval Santos 04/03/04 11:37am Re: The message:GreaterEqual:: Henry Lamb 04/10/04 01:55am
 Next Comment > Help | Reply To Topic