Re: how to test where a list contains constant(s) or not
- To: mathgroup at smc.vnet.net
- Subject: [mg91987] Re: [mg91965] how to test where a list contains constant(s) or not
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Tue, 16 Sep 2008 19:22:55 -0400 (EDT)
- Reply-to: hanlonr at cox.net
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