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.