Tag Info

New answers tagged

3

Please first take a look at http://reference.wolfram.com/language/tutorial/ExactAndApproximateResults.html Eigenvalues uses entirely different methods when working with exact or inexact quantities. mat = {{1, 1/2, 4}, {2, 1, 2}, {1/4, 1/2, 1}}; First notice that the eigenvalues are the same and returned in the same order in the two cases: ...


0

ListPlot3D[data, PlotRange -> {Min[data], Max[data]}]


1

Use NumberForm[]. This will display number 1.2345678 with 3 precise digits and 4 digits to the right of the decimal: NumberForm[1.2345678, {3, 4}] 1.2300 You can adjust the second argument to suit your needs. Maybe like this: NumberForm[1.2345678, {99, 5}] 1.23457 7 is at the end instead of 6 because of rounding.


2

Must be a version issue: $Version "10.0 for Mac OS X x86 (64-bit) (September 10, 2014)" SeedRandom[10]; delta = 0.00001; data = Block[{ x = RandomReal[], y = RandomReal[]}, Table[{ x + RandomReal[] delta, y + RandomReal[] delta, RandomInteger[100]}, {i, 1, 100}]]; ListPlot3D[data, PlotRange -> All]


1

Your results are converted to MachinePrecision because you divide by the machine precision number Pi/2.0. You can get exact solutions with Integrate and use N. This will be more accurate than NIntegrate. Block[{m = 4}, p = Table[ Integrate[f[t]*Tn[t]*wt[t], {t, 0, 1}]/(Pi/2), {j, 0, m - 1}]; ] p[[1]] = p[[1]]/2; p (* {-BesselJ[0, π], 0, 2 ...



Top 50 recent answers are included