Mathematica Tips
-
- いいね！2
Mathematica Tips
@MathematicaTip
Flip through the first 25 1D cellular automata behaviors: FlipView[Table[ArrayPlot[CellularAutomaton[i, {{1}, 0}, {25, All}]], {i, 25}]]
2014-05-28 23:30:11
Mathematica Tips
@MathematicaTip
Find a Pythagorean triple: Reduce[x^2 + y^2 == 5^2 && y > x > 0, {x, y}, Integers]
2014-05-28 00:45:00
Mathematica Tips
@MathematicaTip
Form a polynomial from monomials: Total[{x^2, 3 x^3, 1}]
2014-05-23 00:45:14
Mathematica Tips
@MathematicaTip
Iteratively join a string to its reverse: NestList[# <> StringReverse[#] &, "AB", 5]
2014-05-22 02:03:39
Mathematica Tips
@MathematicaTip
The 20 amphichiral knots having 10 or fewer crossings: KnotData["Amphichiral"]
2014-05-20 00:39:51
Mathematica Tips
@MathematicaTip
Make a Celsius-to-Fahrenheit conversion table: Table[{x, Rescale[x, {-40, 100}, {-40, 212}]}, {x, -40, 100, 10}] // Grid
2014-05-17 01:43:18
Mathematica Tips
@MathematicaTip
Generate a Collatz-like sequence: ListLogPlot[NestList[If[EvenQ[#], 5 #/2, (# + 1)/2] &, 6, 100]]
2014-05-16 00:57:09
Mathematica Tips
@MathematicaTip
Walk corresponding to the binary digits of pi: ListLinePlot[Accumulate[(-1)^First[RealDigits[Pi, 2, 200]]]]
2014-05-15 00:00:30
Mathematica Tips
@MathematicaTip
A complete binary tree: TreeForm[Nest[{#, #} &, x, 4]]
2014-05-14 00:44:32
Mathematica Tips
@MathematicaTip
A "droopy" Slider: DynamicModule[{x = 1}, {Slider[Dynamic[x]], Dynamic[x = Max[0, x - 0.01]]}]
2014-05-12 23:37:24
Mathematica Tips
@MathematicaTip
Make a log plot of the distribution of lengths of human chromosomes: ListLogPlot[Table[GenomeData[i, "SequenceLength"], {i, 22}]]
2014-05-10 01:37:54
Mathematica Tips
@MathematicaTip
Compute 100-day moving average of financial time series: ListLinePlot[MovingAverage[FinancialData["GE", "Jan. 1, 2000", "Value"], 100]]
2014-05-08 22:29:00
Mathematica Tips
@MathematicaTip
Show a discrete mappings collection: GraphicsGrid[Table[GraphPlot[Table[i -> Mod[i^p, m], {i, m}]], {m, 30, 33}, {p, 2, 5}], Frame -> All]
2014-05-07 23:15:09
Mathematica Tips
@MathematicaTip
Approximate solutions of a polynomial equation: NSolve[x^3 + 2 x^2 + 3 x + 4 == 0, x]
2014-05-07 00:00:25
Mathematica Tips
@MathematicaTip
Plot inverse of a matrix, shading according to absolute value: ArrayPlot[Inverse[Table[(1 + Mod[i j, 19])/(i + j), {i, 20}, {j, 20}]]]
2014-05-06 02:04:59
Mathematica Tips
@MathematicaTip
Animate plotting: DynamicModule[{n}, {Animator[Dynamic[n], AnimationRunning -> False], Dynamic[Plot[Sin[n x], {x, 0, 6}, PlotRange -> 1]]}]
2014-05-03 00:40:08
Mathematica Tips
@MathematicaTip
Quadrupole moment versus spin: ListPlot[{IsotopeData[#,"Spin"],IsotopeData[#,"QuadrupoleMoment"]}&/@ IsotopeData[]]
2014-05-02 02:30:40
Mathematica Tips
@MathematicaTip
All printable ASCII characters: FromCharacterCode[Range[32,126]]
2014-05-01 01:00:36
Mathematica Tips
@MathematicaTip
Use tubes in 3D graphics: Graphics3D[{Tube[BSplineCurve[RandomReal[.1,{15,3,3}]],.004]}]
2014-04-30 02:07:16
Mathematica Tips
@MathematicaTip
Polynomials with a finite number of common roots: GroebnerBasis[{x^2+y^2+z^2-1,x y-z+2,z^2-2x+3y},{x,y,z}]
2014-04-29 03:44:24
Mathematica Tips
@MathematicaTip
Use tooltips to show part numbers of subexpressions: MapIndexed[Tooltip,Integrate[1/(x^4-1),x],Infinity]
2014-04-26 00:03:38
Mathematica Tips
@MathematicaTip
Lots of Pi: Manipulate[Style[N[Pi,n],Small],{n,10^2,10^4,10^2}]
2014-04-25 00:28:21
Mathematica Tips
@MathematicaTip
Log distribution of daily returns for the S&P 500: ListLinePlot[Log[1+BinCounts[FinancialData["SP500","Return",All,"Value"],0.001]]]
2014-04-24 00:52:35
Mathematica Tips
@MathematicaTip
Compute the mode of a distribution from its PDF: Plot[PDF[ProbabilityDistribution[6/125(-x^2+x+6),{x,-2,3}],x],{x,-4,5},Filling->Axis]
2014-04-22 22:59:25
Mathematica Tips
@MathematicaTip
Repeated scalings: Graphics[FoldList[GeometricTransformation[#,ScalingMatrix[.75,#2]]&,Circle[],Table[{Cos[u],Sin[u]},{u,0,2Pi,2 Pi/25.}]]]
2014-04-22 06:24:16