Mathematica Tips

@MathematicaTip のツイートをまとめました。数式処理プログラム Mathematica を使う人にとって便利な Tips が満載! 新しいツイートはこちら http://togetter.com/li/757785 続きを読む
3
前へ 1 ・・ 4 5 ・・ 393 次へ
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
前へ 1 ・・ 4 5 ・・ 393 次へ