Mathematica Tips
-
- いいね！2
Mathematica Tips
@MathematicaTip
New in 10: A volume mesh region in 3D from DelaunayMesh: DelaunayMesh[RandomReal[1, {50, 3}]]
2014-07-10 04:35:23
Mathematica Tips
@MathematicaTip
Check for serial correlation in data: ListLinePlot@CorrelationFunction[RandomFunction[ARProcess[{.8},1],{1000}],{100}]
2014-07-09 02:21:03
Mathematica Tips
@MathematicaTip
Split a list into sublists according to a specified function: GatherBy[{1, 2, 3, 4, 5, 6, 7, 8}, PrimeQ]
2014-07-08 03:51:44
Mathematica Tips
@MathematicaTip
Make a list of all the steps taken in evaluating FindRoot: Reap[FindRoot[Cos[x] == x, {x, 1}, StepMonitor :> Sow[x]]]
2014-07-01 23:58:40
Mathematica Tips
@MathematicaTip
Use plot functions to create 3D graphics from different data types: Plot3D[Sin[x y], {x,0,3}, {y,0,3}, ColorFunction->"Rainbow", Mesh->None]
2014-06-30 23:43:26
Mathematica Tips
@MathematicaTip
Thumbnails of all gradients: Grid[Partition[Show[ColorData[#,"Image"],ImageSize->110] & /@ColorData["Gradients"], 4, 4, 1, {}],Spacings->.5]
2014-06-28 00:03:42
Mathematica Tips
@MathematicaTip
Fourier spectrum of "white noise": ListLinePlot[Abs[Fourier[RandomReal[1, 200]]]^2]
2014-06-26 23:57:07
Mathematica Tips
@MathematicaTip
Play averaged random noise: ListPlay[MovingAverage[RandomReal[1, {5000}], 200]]
2014-06-26 00:22:27
Mathematica Tips
@MathematicaTip
Check the quality of a result: Precision[Sin[1000`20] + 1`22]
2014-06-25 00:14:26
Mathematica Tips
@MathematicaTip
Search for Mersenne primes: Parallelize[Select[Range[9000, 10000], PrimeQ[2^# - 1] &], Method -> "FinestGrained"]
2014-06-24 00:12:46
Mathematica Tips
@MathematicaTip
Make a 3D graphic from a test image: ListPlot3D[ExampleData[{"TestImage", "Clock"}, "GrayLevels"], PlotStyle -> Yellow, Mesh -> None]
2014-06-20 00:10:21
Mathematica Tips
@MathematicaTip
Make a dynamically updating clock: Dynamic[Refresh[DateString[], UpdateInterval -> 1]]
2014-06-18 23:04:19
Mathematica Tips
@MathematicaTip
Show that there are only 5 regular polyhedrons: Show[PolyhedronData[#], ImageSize -> Tiny] & /@ PolyhedronData["Platonic"]
2014-06-17 23:49:12
Mathematica Tips
@MathematicaTip
Plot Abs at Gaussian integers: ArrayPlot[ Table[Mod[Round[Abs[x + I y]], 2], {x, -36, 36}, {y, -36, 36}]]
2014-06-16 23:44:34
Mathematica Tips
@MathematicaTip
Compute the GCD of two numbers: {a, b} = {27, 6}; While[b = 0, {a, b} = {b, Mod[a, b]}]; a
2014-06-13 23:59:11
Mathematica Tips
@MathematicaTip
Selecting the nth prime: DynamicModule[{n=1000},{Slider[Dynamic[n], {1,10^5,1}], Subscript[p,Dynamic[n]]\[LongRightArrow]Dynamic[Prime[n]]}]
2014-06-13 04:16:07
Mathematica Tips
@MathematicaTip
Find log distribution of daily returns for S&P 500: ListLinePlot[Log[1+BinCounts[FinancialData["SP500", "Return",All,"Value"],0.001]]]
2014-06-11 23:33:33
Mathematica Tips
@MathematicaTip
Create a list of array plots: Table[ArrayPlot[Table[Mod[Binomial[i, j], n], {i, 30}, {j, 30}]], {n, 2, 5}]
2014-06-11 05:51:29
Mathematica Tips
@MathematicaTip
Cluster string data using Hamming distance: FindClusters[{"abc", "xyz", "bca", "xyw"}, DistanceFunction -> HammingDistance]
2014-06-09 22:30:20
Mathematica Tips
@MathematicaTip
Find how deeply nested results from integrals are: Table[Depth[Integrate[1/(x^n - 1), x]], {n, 10}]
2014-06-06 00:24:40
Mathematica Tips
@MathematicaTip
Plot any function: Panel[DynamicModule[{f = Sin[x]}, Column[{InputField[Dynamic[f]], Dynamic[Plot[f, {x, -5, 5}]]}]]]
2014-06-04 23:23:14
Mathematica Tips
@MathematicaTip
Generate an array of Cayley graphs: GraphicsGrid[Partition[GraphData /@ SortBy[GraphData["Cayley", ;; 10], GraphData[#, "V"] &], 7]]
2014-06-04 00:38:42
Mathematica Tips
@MathematicaTip
Construct a surface from random heights: ListPlot3D[Log[RandomReal[1, {50, 50}]]]
2014-06-03 00:22:17
Mathematica Tips
@MathematicaTip
Find the ways to make change for 156 cents with 10 or fewer standard coins: IntegerPartitions[156, 10, {1, 5, 10, 25}]
2014-05-31 00:19:27
Mathematica Tips
@MathematicaTip
Divide eigenvectors by their corresponding eigenvalues: Eigensystem[{{1, 3}, {2, 7}}]
2014-05-30 00:52:18