Re: how to check for NumericQ arbitrary data structure
- To: mathgroup at smc.vnet.net
- Subject: [mg126216] Re: how to check for NumericQ arbitrary data structure
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Wed, 25 Apr 2012 00:36:55 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201204201144.HAA21808@smc.vnet.net>
myNumericQ[data_] := VectorQ[Flatten[data], NumericQ]
data = {a, {b, c}, {d, {e, f}, {g}}};
sub = Thread[{a, b, c, d, e, f, g} -> Hold[RandomInteger[{0, 9}]]] //
ReleaseHold
{a -> 6, b -> 9, c -> 1, d -> 5, e -> 1, f -> 1, g -> 4}
data // myNumericQ
False
data /. sub // myNumericQ
True
Bob Hanlon
On Tue, Apr 24, 2012 at 5:32 AM, Ted Sariyski <tsariysk at craft-tech.com> wrote:
> Hi,
> I have a data structure e.g. {a,{b,c},{d,{e,f},{g}}}, which I want to
> check for NumericQ. For vectors and matrices I can use
> VectorQ[x,NumericQ] or MatrixQ[x,NumericQ]. Is there a way to check an
> arbitrary data structure that all elements are NumericQ or I have to
> construct a function for each data structure?
> Thanks in advance,
> --Ted
>
- References:
- Find all roots with FindRoot
- From: Sam Takoy <sam.takoy@yahoo.com>
- Find all roots with FindRoot