COMPGROUPS.NET | Search | Post Question | Groups | Stream | About | Register
Articles (28166) |<First << Prev /2817
 Re: format Text in graphics #3 0 39 (6/27/2003 10:52:57 AM) One more tip for anyone seriously into formulas in graphics: if TraditionalForm does not arrange your formula exactly as you have in mind, and you are willing to spend some time to get it right, then you m...gorni (13)

 Mesh in ListDensityPlot 3 46 (6/26/2003 9:38:17 AM) Hi, I'm using ListDensityPlot to display a 2880 by 200 matrix of real values. If I set Mesh->True the result is completely dominated by black mesh lines. Does anyone know an easy way of displaying a subset...C.J.Walden (1)

 Re: Re: Minimization 0 41 (6/27/2003 10:43:28 AM) That's beautiful! This is nice case study. Since Carl Woll and I were using essentially the same approach, let's see what happens as my clumsy code morphs into Carl's elegant code. pts = Table[{Random...selwynh (53)

 SparseArray problem 0 49 (6/27/2003 10:42:25 AM) This works (3-dimensional array with a few elements assigned) f[i_, j_, k_] := Abs[i - j] + Abs[i - k] + Abs[j - k]; a3 = SparseArray[{i_, j_, k_} /; f[i, j, k] 1, {10, 10, 10}] but this hangs (4-...Steve

 Re: format Text in graphics #2 0 40 (6/27/2003 10:35:08 AM) If you want "sin x" instead of "sin(x)", you can do it this way: Format[myEqual[x_, y_], TraditionalForm] := DisplayForm[RowBox[{x, "=", y}]]; Plot[Sin[x], {x, 0, 2Pi}, Epilog -> {Text[ ...gorni (13)

 Re: 2D recursion relation 0 39 (6/26/2003 9:53:04 AM) Good news: RSolve in version 5 can solve partial recurrence equations (well, some of them anyway). Bad news: It can't solve this particular one, which is not really surprising since the general solution re...akoz (2414)

 RE: format Text in graphics 0 47 (6/26/2003 9:45:44 AM) Murray, Doesn't SequenceForm work here? f[x_] := x^2 Plot[f[x], {x, -1, 1}, Epilog -> {Text[ SequenceForm[TraditionalForm[y], " = ", TraditionalForm[f[x]]], {0.5, 0.5}]}];...djmp (1214)

 Re: Minimization #2 0 41 (6/26/2003 9:44:41 AM) Here's my candidate: nClosest[pts_, target_, n_] := With[{dists = (#.#)^(1/2)& /@ ((#-target &) /@ pts)}, pts[[Flatten[Position[dists,#]& /@ Sort[dists][[Range[n]]] ] ]] ] pts = Table[{Random[],Ran...selwynh (53)

 Re: Minimization 0 42 (6/26/2003 9:43:37 AM) This may help: p0={x0,y0,z0}; fivePoints=Take[Sort[l1,(#2.p0I have a list of points l1= (xi,yi, zi) and a target point (x0...cliu1 (7)

 Re: Have Equal problems whith Flat attribute? 0 41 (6/26/2003 9:39:19 AM) On Wednesday, June 25, 2003, at 06:50 PM, alvaro diaz wrote: > There is any problem if I'm do > SetAttributes[Equal,Flat]? This is, a know problem. Is > it the transitive propperty, not? > > Thanks. > ...akoz (2414)

(0.188 seconds)