mm-579 === Subject: Re: Pointsize in MultipleListPlot : SymbolShape -> {PlotSymbol[Box, 2], PlotSymbol[Box, 3]} instead of PlotStyle->PointSize[]. You can also use, Triangle, Star, and Diamond. > I use MultipleListPlot to put error bars to my data points. However, > using MultipleLustPlot I cannot influence the point sie of my data > points anymore using PlotStyle->PointSize[]. > Is there a way to increase the size of the data points with error bars? > best, > joerg -- Adel Elsabbagh === Subject: Re: Pointsize in MultipleListPlot Needs[Graphics`]; MultipleListPlot[{2,{1.5,3.2}, {2.5,ErrorBar[0.3]}, {{4.4,5.2},ErrorBar[{-0.5,0.3}]}, {{5.5,2.1},ErrorBar[{-0.4,0.3},{-0.2,0.5}]}}, PlotRange->All,Frame->True, SymbolStyle->{Red}, SymbolShape->{PlotSymbol[Box,4]}]; Bob Hanlon === > Subject: Pointsize in MultipleListPlot > I use MultipleListPlot to put error bars to my data points. However, > using MultipleLustPlot I cannot influence the point sie of my data > points anymore using PlotStyle->PointSize[]. > Is there a way to increase the size of the data points with error bars? > best, > joerg === Subject: Net/Link: TimeContrained call to DLL I am calling a DLL via Net/Link ? (Unfortunately I do not have the sourcecode for the DLL). Should TimeConstrained work? e.g. TimeConstrained[muNetDLLCall[etc etc]]; Peter === Subject: Re: 64-bit GraphPlot problem Sorry to post to my own post, but this morning I got the following answer from Wolfram Support: ----- your examples to our development group. Unfortunately, there are no general solutions to this problem. I appear to be specific to Mac G5. I have included your contact information so that you can be notified when this has been resolved. I am sorry for any inconvenience caused by this problem. ----- I am now wondering what else do not work with 5.2 on a G5. Unfortunately now I am stuck with this G5 for minimum 4 years. I wish Wolfram send me a version - 3, 4, 5, 5.1 or whatever - non- expiring that does not have this problem on G5. J.87nos > I am looking the GraphPlot notebook in the Add-ons & Links -> > Standard Packages -> DiscrateMath Help section and I am trying to > execute the very first two lines of the notebook: > In[1]:= > << DiscreteMath`GraphPlot` > In[2]:= > GraphPlot[{1 -> 2, 2 -> 3, > 3 -> 4, 4 -> 5, 5 -> 6, > 6 -> 7, 7 -> 8, 8 -> 1, > 1 -> 9, 2 -> 9, 3 -> 10, > 4 -> 10, 6 -> 11, > 5 -> 11, 7 -> 12, > 8 -> 12}, > EdgeStyleFunction -> > (Arrow[{#1, #2}] & )]; > Show[Graphics[{ > AbsoluteThickness[1], > AbsoluteThickness[0.5], > Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {0, -100000}, {-100000, 0}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}], > Disk[ > {190.5, 144.5}, {0.25, 0.25}], > AbsoluteThickness[2.25], > Disk[ > {190.5, 144.5}, {1.125, 1.125}], > Disk[ > {0, -100000}, {-100000, 0}], > Disk[ > {190.5, 144.5}, {1.125, 1.125}], > Disk[ > {190.5, 144.5}, {1.125, 1.125}], > Disk[ > {190.5, 144.5}, {1.125, 1.125}], > Disk[ > {190.5, 144.5}, {1.125, 1.125}], > Disk[ > {190.5, 144.5}, {1.125, 1.125}], > Disk[ > {0, -100000}, {-100000, 0}], > Disk[ > {0, -100000}, {-100000, 0}], > Disk[ > {190.5, 144.5}, {1.125, 1.125}], > Disk[ > {190.5, 144.5}, {1.125, 1.125}], > Disk[ > {190.5, 144.5}, {1.125, 1.125}] > }], AspectRatio->1, > PlotRange->{{47, 335}, {4, 292}}, > ImageSize->{288, 288}] > The output appears to me as a straight line from the middle of the > rectangle to the upper right corner. I am wondering if it is just my > machine or others can see also just a line. > In[12]:= > $Version > Out[12]= > 5.2 for Mac OS X (64 bit) > (June 20, 2005) > Hardware Overview: > Machine Name: Power Mac G5 > Machine Model: PowerMac11,2 > CPU Type: PowerPC G5 (1.0) > Number Of CPUs: 2 > CPU Speed: 2 GHz > L2 Cache (per CPU): 1 MB > Memory: 2 GB > Bus Speed: 1 GHz > Boot ROM Version: 5.2.7f1 > System Version: Mac OS X Server 10.4.6 (8I116) > J.87nos > P.S. Wolfram Support sent me another GraphPlot.m, but the result is > the same. /Above was done with new GraphPlot.m/. The machine is a > Dual Core PowerPc G5. GraphPlot used to work perfectly on my earlier > machine, a 1.25Ghz G4 with 32-bit Mathematica 5.1. ------------------------------------------------------------------- J.87nos L.9abb Yale University School of Medicine Department of Pathology 310 Cedar Street Brady-Lauder BML50E P.O.Box 208023 New Haven, CT 06520-8023 Phone: 203-737-5204 Fax: 203-785-7303 E-mail: janos.lobb@yale.edu === Subject: conditions of fit parameters I have problems with fitting with Mathematica. I use the NonLinearFit, and I define a equation. I have a table of data points that I would like to fit with my function. Since now, there is no Problem. But, when I give the initialised parameters, because of the big number of parameters, Mathematica has Problem to find a good fit. That's why I would like to give restriction of the parameters. But since now, I haven't find a possibilty to give restrictions, either before the Nonlinearregress, or in the Nonlinearregress. When somebody have seen the same problem, it can be help me. Ravi === Subject: Problem with compiled function (is this a bug?) I have a problem with the following compiled function: cpl = Compile[{x,y}, Table[Ceiling[Norm[{i, j} - Ceiling[{ x, y}/2]]], {i, 1, x}, {j, 1, y}]] When trying to use this function (for example, as idx = cpl[100,100]), I get the following error: CompiledFunction::cfte : Compiled expression 49 Sqrt[2] should be a rank 1 tensor of machine-size integers. CompiledFunction::cfex: External evaluation error at instruction 23; proceeding with uncompiled evaluation. I get the same error even if I try to specify that all variables are Reals: cpl = Compile[{{x, _Real}, {y, _Real}}, Table[Ceiling[Norm[{i, j} - Ceiling[{ x, y}/2]]], {i, 1, x}, {j, 1, y}], {{i, _Real}, {j, _Real}}] Is this a bug in Mathematica? If not, what is the right way to compile this function? Does this error occur with earlier versions than 5.2? I'd like to use this function to generate indices for a matrix whose values I want to average radially (ie. I'd like to compute the mean values in the ring around the center of the matrix). Unofrtunately this function takes more than 16 seconds on an 500x500 matrix on my machine which seems unrealistically long for such a simple function. I need to use the function interactively on many datasets, often much larger than 500x500. Szabolcs Horvat === Subject: Re: ListDensityPlot and GraphicsArray Something to add that might be interesting: Changing the code that generates the mentioned array to be compiled rather than pure Mathematica does not produce the error anymore... Peter === Subject: Re: GridBox coming back unevaluated What you need to do is wrap Range with ToExpression as follows: DisplayForm[GridBox[Partition[ToExpression[Range[9]],3], RowLines->True, ColumnLines->True]] Apparently, the output from Range in the form of boxes is not being interpreted. The function ToExpressions forces the boxes to be interpreted as a Mathematica expression. Brian > I'm perplexed by the results of the following > GridBox[Table[3i + j, {i, 0, 2}, {j, 1, 3}], RowLines -> True, > ColumnLines -> True] //DisplayForm > GridBox[Partition[Range[9], 3], RowLines -> True, ColumnLines ->True] > // DisplayForm > The first returns a nicely formatted box; the second does not. Tracing > the execution of the two shows that they both arrive, of course, at > GridBox[{{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}, RowLines -> True, > ColumnLines -> True] > but only the first proceeds from that point to returning > two-dimensional output. > Here is a minor variation: > m = {{1, 2}, {3, 4}} > ma = Append[m, {5, 6}] > mb = Append[m, Range[5, 6]] > GridBox[ma] // DisplayForm > GridBox[mb] // DisplayForm > The penultimate line returns a 2D box; the last line does not. Anyone > care to enlighten me? === Subject: Re: 64-bit GraphPlot problem I don't know if this helps but I think you may have error messages turned off. Mathematica doesn't like negative numbers (-10000) for the radius of the disk {-10000,0}. Also when an elliptical disk has a minor radius of 0 the result should be a line. The end result of the following (that I get in Mathematica - my OS is XP) is a black rectangle: << DiscreteMath`GraphPlot` GraphPlot[{1 -> 2, 2 -> 3, 3 -> 4, 4 -> 5, 5 -> 6, 6 -> 7, 7 -> 8, 8 -> 1, 1 -> 9, 2 -> 9, 3 -> 10, 4 -> 10, 6 -> 11, 5 -> 11, 7 -> 12, 8 -> 12}, EdgeStyleFunction -> (Arrow[{#1, #2}] & )]; Show[Graphics[{ AbsoluteThickness[1], AbsoluteThickness[0.5], Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{1.34218e+08, -1.34217+08}, {190.5, 144.5}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {0, 100000}, {100000, 0}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], AbsoluteThickness[2.25], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {0, 100000}, {100000, 0}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {0, 100000}, {100000, 0}], Disk[ {0, 100000}, {100000, 0}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}] }], AspectRatio->1, PlotRange->{{47, 335}, {4, 292}}, ImageSize->{288, 288}] Alan -----Original Message----- === Subject: 64-bit GraphPlot problem I am looking the GraphPlot notebook in the Add-ons & Links -> Standard Packages -> DiscrateMath Help section and I am trying to execute the very first two lines of the notebook: In[1]:= << DiscreteMath`GraphPlot` In[2]:= GraphPlot[{1 -> 2, 2 -> 3, 3 -> 4, 4 -> 5, 5 -> 6, 6 -> 7, 7 -> 8, 8 -> 1, 1 -> 9, 2 -> 9, 3 -> 10, 4 -> 10, 6 -> 11, 5 -> 11, 7 -> 12, 8 -> 12}, EdgeStyleFunction -> (Arrow[{#1, #2}] & )]; Show[Graphics[{ AbsoluteThickness[1], AbsoluteThickness[0.5], Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {0, -100000}, {-100000, 0}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{190.5, 144.5}, {1.34218e+08, -1.34217e+08}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], Line[{{1.34218e+08, -1.34217e+08}, {190.5, 144.5}}], Disk[ {190.5, 144.5}, {0.25, 0.25}], AbsoluteThickness[2.25], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {0, -100000}, {-100000, 0}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {0, -100000}, {-100000, 0}], Disk[ {0, -100000}, {-100000, 0}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}], Disk[ {190.5, 144.5}, {1.125, 1.125}] }], AspectRatio->1, PlotRange->{{47, 335}, {4, 292}}, ImageSize->{288, 288}] The output appears to me as a straight line from the middle of the rectangle to the upper right corner. I am wondering if it is just my machine or others can see also just a line. In[12]:= $Version Out[12]= 5.2 for Mac OS X (64 bit) (June 20, 2005) Hardware Overview: Machine Name: Power Mac G5 Machine Model: PowerMac11,2 CPU Type: PowerPC G5 (1.0) Number Of CPUs: 2 CPU Speed: 2 GHz L2 Cache (per CPU): 1 MB Memory: 2 GB Bus Speed: 1 GHz Boot ROM Version: 5.2.7f1 System Version: Mac OS X Server 10.4.6 (8I116) J.87nos P.S. Wolfram Support sent me another GraphPlot.m, but the result is the same. /Above was done with new GraphPlot.m/. The machine is a Dual Core PowerPc G5. GraphPlot used to work perfectly on my earlier machine, a 1.25Ghz G4 with 32-bit Mathematica 5.1. === Subject: Code problem I am trying to execute the model below in Mathematica 5.2 (student), but no matter what values I input for the initial conditions, the output values for ST and T fail to change. I wonder if anyone would be so good as to have a look at where I am going wrong with the code? Or even suggest an appropriate forum to pursue this problem. Eoin Gleeson Trinity College Dublin In[1]:= Clear[PopSize]; Clear[Wealth] Clear[Iteration]; Clear[SampleSize]; Clear[Cost]; Clear[Benefit]; Clear[Tol]; PopSize = 100; Iteration =20; SampleSize = 10; Cost = 1; Benefit = SampleSize; Tol = 8; Tol2 =3; Wealth = Table [1, {PopSize}]; Clear[Status] Status = Table [0, {PopSize}]; Clear[PopString] PopString = Table[Random[], {PopSize}]; Return[Initial Wealth] Return[Wealth] Return[Initial Status] Return[Status] Do[ {Clear[a]; a = Table[Random[Integer, {1, PopSize}], {SampleSize}]; Clear[S]; S = Table[Status[[a[[m]]]], {m, 1, SampleSize}]; Clear[ST]; SS = SampleSize*SampleSize; ST=Table[0,{ SS}]; For[i=1, iTol+Tol+2, {If[Status[[a[[i]]]].89ลส5, Status[[a[[i]]]]++], Wealth[[a[[i]]]] = Wealth[[a[[i]]]] - Cost +Benefit}, {If[Status[[a[[i]]]].89ลส -5, Status[[a[[i]]]]--]} ]}] }, {Iteration}] Return[ST] Return[ST] Return[T] Return[T] Return[Final Wealth] Return[Wealth] Return[Final Status] Return[Status] Out[20]= Return[Initial Wealth] Out[21]= Return[{1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}] Out[22]= Return[Initial Status] Out[23]= Return[{0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}] Out[25]= Return[ST] Out[26]= Return[{0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}] Out[27]= Return[T] Out[28]= Return[100] Out[29]= Return[Final Wealth] Out[30]= Return[{19,19, 1,28,1,10,1,37,10,19,19,1,28,1,10,28,1,10,1,28,10,19,19,28,10,46,55,10, 19,28,10,37,19,46,10,46,37,10, 1,28,10,28,19,19,28,10,10,19,10,37,10,28,19,28,19,19,10,28,28,1,10,10,10, 19,19,28,19,19,10,46,28,37,10,19,19,10,37,28,10,10,19,37,1,28,19,1,19, 28,19,28,19,19,10,10,1,28,19,37,1,19}] Out[31]= Return[Final Status] Out[32]= Return[{2,2,0, 3,0,1,0,4,1,2,2,0,3,0,1,3,0,1,0,3,1,2,2,3,1,5,5,1,2,3,1,4,2,5,1,5,4,1,0,3, 1,3,2,2,3,1,1,2,1,4,1,3,2,3,2,2,1,3,3,0,1,1,1,2,2,3,2,2,1,5,3,4,1,2,2,1, 4,3,1,1,2,4,0,3,2,0,2,3,2,3,2,2,1,1,0,3,2,4,0,2}]