COMPGROUPS.NET | Search | Post Question | Groups | Stream | About | Register
hanlonr (2281) 516 Articles, 1764 Replies, 2281 Points

Since 5/22/2012 10:15:14 PM, hanlonr has written 516 articles and participated in 1764 conversations.
hanlonr signature:
hanlonr

hanlonr's articles:
 Items(516) /52 Next >> Last >| Re: Nested List Abs[] 0 52 (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 43 (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 58 (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 51 (8/1/2011 3:36:44 AM) comp.soft-sys.math.mathematicaI 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 63 (7/27/2011 10:18:40 AM) comp.soft-sys.math.mathematicaInput 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 119 (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 60 (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 45 (7/1/2011 12:43:36 AM) comp.soft-sys.math.mathematicaI 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 51 (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 56 (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 61 (9/13/2011 11:21:17 AM) comp.soft-sys.math.mathematicaHi, 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 (41) complex functions handling in M8 1 68 (9/13/2011 11:25:53 AM) comp.soft-sys.math.mathematicaI 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 54 (9/13/2011 11:30:29 AM) comp.soft-sys.math.mathematicaHi, 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 (41) Table->Value 3 48 (9/14/2011 9:21:58 AM) comp.soft-sys.math.mathematicaHi 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... Defining the labels to display in ContourLabels 2 187 (9/15/2011 8:48:41 AM) comp.soft-sys.math.mathematicaHi 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 48 (9/17/2011 10:28:50 AM) comp.soft-sys.math.mathematicaHello, 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 56 (9/17/2011 10:30:53 AM) comp.soft-sys.math.mathematicaGiven 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 41 (9/21/2011 9:36:33 AM) comp.soft-sys.math.mathematicaI'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... help with integration #2 3 70 (9/23/2011 7:45:20 AM) comp.soft-sys.math.mathematicaI 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... 1-liner wanted 5 49 (9/23/2011 7:45:50 AM) comp.soft-sys.math.mathematicaLet'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)