MathGroup Archive 2008

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

Search the Archive

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


Hi,

IsConstantsIn[lst_List] := Complement[lst, Variables[lst]] === {}

??

Regards
   Jens


Aya 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 ];
> 			]
> 


  • Prev by Date: Re: eliminate values while caculating Mean[data]
  • Next by Date: Re: A interesting case
  • Previous by thread: 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