Re: Re: GraphPlot display anomaly

*To*: mathgroup at smc.vnet.net*Subject*: [mg72449] Re: [mg72417] Re: GraphPlot display anomaly*From*: Andrzej Kozlowski <akoz at mimuw.edu.pl>*Date*: Thu, 28 Dec 2006 05:19:56 -0500 (EST)*References*: <200612231114.GAA20908@smc.vnet.net><emlenp$9rn$1@smc.vnet.net> <200612271027.FAA20299@smc.vnet.net>

You were right about the double picture; there seems to be indeed an error in the package. (I failed to see this because once I saw the syntax of your program was wrong I did not pay any attention to its semantics). Anyway, the problem can be overcome with a simple application of Block: In[1]:= Needs["DiscreteMath`GraphPlot`"]; In[2]:= Show[Block[{$DisplayFunction=Identity},GraphPlot[{1 -> 2}, ImageSize -> {50, 50}]]] works fine, at least on my system. Andrzej Kozlowski On 27 Dec 2006, at 19:27, zac wrote: > Well, not quite self-evident, since your answer only explains the > question concerning the necessity of Evaluate. I do accept that I've > left out the parenthesis, but this does not explain why there are two > outputs in the notebook. Actually, as Chris wrote, it must be > something > with a Block in the package. Does anyone know a method to overcome > this > Block-problem? > > istvan > > > Andrzej Kozlowski wrote: >> >> The only problem is with your code. The correct way to do this is: >> >> >> Needs["DiscreteMath`GraphPlot`"]; >> >> >> GraphPlot[{1 -> 2}, >> ImageSize -> {50, 50}, >> DisplayFunction -> (Display[$Display, #] &) >> ]; >> >> Note the crucial parentheses missing from original code. >> I think the answers to all your questions should now be self-evident. >> >> Andrzej Kozlowski >> Tokyo, Japan >

**References**:**GraphPlot display anomaly***From:*"zac" <replicatorzed@gmail.com>

**Re: GraphPlot display anomaly***From:*"zac" <replicatorzed@gmail.com>