7,514 reputation
11746
bio website
location
age
visits member for 2 years, 8 months
seen 1 hour ago

4h
comment Curve fitting of a list
Why not just analytically evaluate the integral? integral[x_] := Evaluate@Integrate[x^3/(Exp[x] - 1), x]; iop[zt_] := Evaluate[integral[35.5843/zt] - integral[25.967/zt]];
4h
comment Curve fitting of a list
For any particular analytical form, you can use FindFit to find the parameters that best fit it to the data. But if you don't know what the analytical form should be in the first place, I don't think there is any functionality in Mathematica to help you discover it.
1d
comment How can we plot the complex roots of an equation?
The roots of a random 150-degree polynomial with real coefficients would be symmetric about the real axis. I believe what you've plotted there is one root each of 150 random 150-degree polynomials. You could do something like expr = With[{coeffs = RandomInteger[{1, 10}, 150]}, Sum[coeffs[[k]] #^k, {k, 150}] &]; instead to get the correct plot.
1d
revised DumpsterDoofus's captivating generative art
added link to post
1d
comment Using FindFit to return a list of possible best fits
Can you elaborate of what sort of a "set of best fits" you're looking for? Right now it sounds like you're asking for the best fit and a bunch of worse fits, and I don't see why you would want that.
1d
comment Hilbert transform of density of states
There's already a previous question on implementing the Hilbert transform that this may be a duplicate of (if it's not off-topic for not being about Mathematica).
1d
comment Compute the average distance from the base of a rectangular pyramid to its apex
NIntegrate[EuclideanDistance[{x, y, 0}, {0, 0, 12}], {x, -15, 15}, {y, -4, 4}]/(30 8)
1d
comment Phase portrait on a cylinder
Are you sure this answers the question ("I found examples on the site how to put a texture on a cylinder, but cannot figure out how to make it transparent")?
2d
revised Drawing a graph with specified edge lengths
made code easier to copy-paste, see http://meta.mathematica.stackexchange.com/a/1028/484
2d
comment Can telescoping Nicomachus' triangle down to the number line by using `Graph` be done?
The question is hard to understand, but since you ask "How can we set this Edge size?" perhaps you want to draw a graph with specified edge lengths?
Oct
28
comment ContourPlot of an ImplicitRegion defined by the intersecton of equality and inequality
RegionPlot+ImplicitRegion works for me. i.stack.imgur.com/e4C9m.png
Oct
26
comment Poets of the 19th century
If I were you I'd just put the name of the person on the bar itself.
Oct
25
awarded  Enlightened
Oct
25
awarded  Nice Answer
Oct
25
revised Finding the surface area of a 3D convex hull
deleted 5 characters in body
Oct
25
comment Solving puzzles with Mathematica
FindInstance is a black box full of elves as far as I'm concerned, so no.
Oct
25
comment Solving puzzles with Mathematica
This seems to work: pred[a_, b_, c_, d_] := And @@ {FromDigits@{a, b, c, d} ∈ Primes, a != b != c != d, a b == c d, a > 3}; Select[Range[1000, 9999], pred @@ IntegerDigits[#] &]
Oct
24
revised HDF5 and complex numbers
edited tags
Oct
24
comment ListPointPlot 3D without function
1. Why do you have a registered trademark symbol ® instead of an arrow -> in your ListPointPlot3D? 2. Since you have a list instead of a function you need to use ListDensityPlot, not DensityPlot.
Oct
23
comment Find the nearest locations for multiple points
Also, -> works when constructing the graph, but not when pattern matching afterwards; it gets converted into \[DirectedEdge].