Re: Compile

*To*: mathgroup at smc.vnet.net*Subject*: [mg45338] Re: Compile*From*: Maxim <dontsendhere@.>*Date*: Thu, 1 Jan 2004 05:54:31 -0500 (EST)*References*: <bsu1ai$8gm$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Bill Rowe wrote: > On 12/30/03 at 4:14 AM, dontsendhere@. (Maxim) wrote: > > > I don't see any problem with Plot[Random[],{x,0,1},Compiled->True] either, it was just an > > illustration (if you don't like Random[], you can insert A Very > > Complicated Expression instead). But you have to read the thread from the beginning, the problem is > > with > > > > Module[{y := If[NumericQ[x], x, 1]}, > > Plot[x y, {x, 0, 1}, Compiled -> True] > > ] > > But this too works as should be expected from the documentation. In order for the expression x y to be Compiled it must be evaluated and this must happen before Plot assigns values to any portion of the expression. Consequently, when it is evaluated x is not numeric so y evaluates to 1 and the product evaluates to x. Hence, with Compiled->True a line with slope = 1 results. > > OTOH, with Compiled->False, Plot supplies a numeric value to x then evaluates the expression. Since x is now numeric, y evalutes to x and the product evaluates to x^2. The resulting plot is a parabola. > > -- > To reply via email subtract one hundred and four My congratulations, now we're starting the second lap. Here you should re-read the previous messages in this thread about inserting Evaluate and comparing the results. If you tried to actually do some testing -- Module[{y := If[Print[x];NumericQ[x], x, 1]}, Plot[x y, {x, 0, 1}, Compiled -> True] ] you would notice that y is evaluated for each step Plot takes and it prints symbol x. And of course, Compile doesn't evaluate its second argument -- do you really think that to execute Compile[{}, Print[x]] Print[x] should be evaluated? Maxim Rytin m.r at prontomail.com