hanlonr's articles:

Items(516) /52 Next >> Last >|

Re: Nested List Abs[] 0 33 (8/24/2011 11:50:51 AM) comp.soft-sys.math.mathematica data = RandomReal[{0, 2}, {100, 2}]; data2 = Select[data, Abs[#[[1]] - #[[2]]] wrote: ============= I have a list, and each element of the list is a sublist with two integers. How do I delete from t... Bob

Re: ? #8 0 33 (8/11/2011 7:27:48 AM) comp.soft-sys.math.mathematica http://reference.wolfram.com/mathematica/tutorial/SolvingEquations.html ---- David Kirkby wrote: ============= The output of FindRoot[] when trying to find a root is like: {x -> 0.49454545} How... Bob

Re: Roots of a Jacobi polynomial #2 0 44 (8/1/2011 10:58:40 AM) comp.soft-sys.math.mathematica Restart Mathematica eqlist = Rationalize[{ 101.74 == a + ((0.055/(479248/c))*(352343 + ((479248/c)*a) - (158194*b/c))), 47205 + ((158194/c)*a) - ((61842/c)*b) == 68043.98 + (299.73*b), ... Bob

Re: special iterator 0 38 (8/1/2011 3:36:44 AM) comp.soft-sys.math.mathematica I think that you mean this Table[f[i], {i, DeleteCases[Range[10], 3 | 4]}] {f[1], f[2], f[5], f[6], f[7], f[8], f[9], f[10]} Bob Hanlon ---- "andre.robin3" wrote: ============= If you use the... Bob

Re: work the way I want it to. 0 42 (7/27/2011 10:18:40 AM) comp.soft-sys.math.mathematica Input it as a List, i.e., include the List brackets: {1,2,3,4,5} Bob Hanlon ---- JonSilverman wrote: ============= When prompted for an input by Input[], I want to input a list of numbers. But w... Bob

Re: Roots of a Jacobi polynomial 1 62 (7/27/2011 10:18:10 AM) comp.soft-sys.math.mathematica Don't use machine precision eqn1 = JacobiP[25, -1/2, -1/2, x] == 0; soln1 = NSolve[eqn1, x, WorkingPrecision -> 15]; Length[soln1] 25 And @@ (eqn1 /. soln1) True And @@ (-1 15]; soln1... Bob

Re: Bug in Sum? #6 0 45 (7/6/2011 12:29:43 PM) comp.soft-sys.math.mathematica You can also try summing the parts Sum[#, {n, 1, M}] & /@ Apart[1/(n (1 + n)) 1/((1 - x)^4), n] // FullSimplify M/((1 + M) (-1 + x)^4) Bob Hanlon ---- Dario wrote: ============= Tha... Bob

Re: can't Solve[1 - x == x^r, x]? 0 34 (7/1/2011 12:43:36 AM) comp.soft-sys.math.mathematica I don't think that this can be solved for x[r]; however, you can also use ContourPlot to plot it. ContourPlot[1 - x == x^r, {r, 0, 1}, {x, 0, 1/2}, AspectRatio -> 1/GoldenRatio, FrameLabel -> {r, x}] ... Bob

Re: How to find the difference between two lists (opposite of union[]?) #2 #2 0 37 (6/29/2011 9:46:02 PM) comp.soft-sys.math.mathematica data = RandomInteger[{1, 1000}, 1000]; compl = Complement[r = Range[1000], Union[data]]; Union[data, compl] === r True Bob Hanlon ---- "McHale wrote: ============= I have been working th... Bob

Re: Meshshading #2 0 42 (6/21/2011 12:25:19 PM) comp.soft-sys.math.mathematica Partition[ParametricPlot[{(v + u) Cos[u], (v + u) Sin[u]}, {u, 0, 4 Pi}, {v, 0, 5}, ColorFunction -> Function[{x, y, u, v}, Hue[#]], MeshFunctions -> {#3 &}, Axes -> False] & /@ {x, y,... Bob

hanlonr's replies:

Items(1696) /170 Next >> Last >|

Simplifying Bessel Functions #5 1 40 (9/13/2011 11:21:17 AM) comp.soft-sys.math.mathematica Hi, As a follow up, when I try 1/(2 rho) (6 - (3 BesselJ[2, BesselJZero[0, 1]] BesselJZero[0, 1])/ BesselJ[1, BesselJZero[0, 1]] + BesselJZero[0, 1]^2) // FullSimplify I don't get 1/2 Bess... sam.takoy (37)

complex functions handling in M8 1 50 (9/13/2011 11:25:53 AM) comp.soft-sys.math.mathematica I wish to generate curves from a 3-variable complex function under Mathematica 8. The results (shape of the curves) I get do not reflect expectations. I am a rather old mathematica user and used this program ... amdikande (1)

Linear combination of Bessel functions 2 35 (9/13/2011 11:30:29 AM) comp.soft-sys.math.mathematica Hi, Suppose I have an expression that's a linear combination of Bessel function. Kind of like this r^2 + Cos[r] BesselJ[0, rho r] + 3 Sin[r] BesselJ[1, rho r] + Log[r] BesselJ[2, rho r] Is there a wa... sam.takoy (37)

Table->Value 3 33 (9/14/2011 9:21:58 AM) comp.soft-sys.math.mathematica Hi to everyone, I've got a problem that seem stupid, but is a lost of time to me. I've generate a table with solutions of a series of equations pfugacita = v = Table[ NSolve[pressioni[[1, i]] - (R tempe... mariano.pierantozzi (7)

Defining the labels to display in ContourLabels 2 131 (9/15/2011 8:48:41 AM) comp.soft-sys.math.mathematica Hi there. Assuming: ContourPlot[Cos[x*y]/Exp[x^2 + y^2], {x, -2, 2}, {y, -2, 2}, ContourLabels -> All, Contours -> 9] I would like to keep the number of contours (9) and to label only those of values 0.... lmelo (8)

output forms 5 36 (9/17/2011 10:28:50 AM) comp.soft-sys.math.mathematica Hello, I need Matheamtica to do the following: in: a=1; b=2; c=3; d=a+b*c out: d=1+2*3 and so on... previously I was using another system, but I found that this kind of stuff is impossible ... kitas11 (1)

String Deletion 7 43 (9/17/2011 10:30:53 AM) comp.soft-sys.math.mathematica Given a simple list of strings: list = List["Z:XBREG","Z:XBREH","Z:XBREI","Z:ZZ6P","Z:ZZ6Q","aye"] how does one delete all the strings with a colon (:) anywhere in the string? DeleteCases[list, ___:__... donabc (55)

Calculus and InterpolatingFunction 3 27 (9/21/2011 9:36:33 AM) comp.soft-sys.math.mathematica I'm trying to get a definite integral for an InterpolatingFunction. It works if it is the function by itself, but not for some reason arithmetically combining the InterpolatingFunction with another function m... forpeopleidontknow (9)

help with integration #2 3 53 (9/23/2011 7:45:20 AM) comp.soft-sys.math.mathematica I am trying to do the following integration: Integrate[r^2*ArcCos[x/r] - x*Sqrt[r^2 - x^2], {x, Sqrt[3] y, Sqrt[r^2 - y^2]} ] When I try, Mathematica comes back to be with a very long conditional expressi... dsalman969335 (2)

1-liner wanted 5 33 (9/23/2011 7:45:50 AM) comp.soft-sys.math.mathematica Let's assume we have a list of elements of the type {x,y,z} for x, y and z integers. And, if needed we assume x < y < z. We also assume that the list contains at least 3 such triples. Can Mathematica easily ... KHO (13)