Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'The message:GreaterEqual::"nord" :' topicStudent Support Forum > General > "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