Re: Plot several graphs generated by Table
- To: mathgroup at smc.vnet.net
- Subject: [mg36457] Re: Plot several graphs generated by Table
- From: muhnochwaaa at yahoo.com (muh nochwaaa)
- Date: Sat, 7 Sep 2002 02:54:43 -0400 (EDT)
- References: <al9lbf$b2b$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
I made a mistake in the definition of the question.
The function is correctly defined as
myfunc[n_,pthreshold_] := Module[{t},
t=Max[Cases[myArray, {n, k_, p_} /; (p >= pthreshold) -> k, 2]];
If[t>=0,t,-1]]
Please note that inserting Evaluate before Table does not work
correctly either, because evaluating myfunc[n,p] when p is not a
number, gives -1.
Thank you for all your help.
> Plot[Table[myfunc[n,p],{n,1,21}],{p,0.0,1.0}]
>
> because the Table gets evaluated to numeric value (-1) before Plot is
> invoked.
> How could I accomplish this? Thanks in advance for all your helps.