MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: how to test where a list contains constant(s) or not


IsConstantsIn[list_] := Or @@ (NumericQ /@ list)

IsConstantsIn /@
 {{a, b, c, Pi}, {a, b, c, 0.0001}, {a, b, c, 
   2 + Pi I}, {a, b, c}}

{True,True,True,False}


Bob Hanlon

---- Aya <sh_liuhuashan at 163.com> wrote: 

=============
case1: { a, b, c, Pi }   gives true because of Pi
case2: { a, b, c, 0.0001} gives true because of 0.0001
case3: { a, b, c,  2 + Pi I } gives ture becase of 2 + Pi I
case4: { a, b, c} gives false

is this function right ?

ComplexQ[z_] := NumericQ[ z ] || ( NumericQ[ z ] && SameQ[ Head[ z ],
Complex] )
IsConstantsIn[ lstList_ ] :=
		Module[ { intLength },
			intLength = Length@Select[ lstList, ComplexQ[ # ]& ];
			If[ intLength > 0, Return[ True ], Return[ False ] ];
			Return[ False ];
			]


--

Bob Hanlon



  • Prev by Date: Re: A interesting case
  • Next by Date: Re: how to test where a list contains constant(s) or not
  • Previous by thread: Re: how to test where a list contains constant(s) or not
  • Next by thread: Re: how to test where a list contains constant(s) or not