Mathematica Tips
-
- いいね！2
Mathematica Tips
@MathematicaTip
Compute a matrix kernel for quadratic interpolation over a window of radius 5: SavitzkyGolayMatrix[5, 2] // MatrixPlot
2014-09-23 00:25:00
Mathematica Tips
@MathematicaTip
Perform a 3-element moving average: MovingMap[Mean,{Subscript[x,1],Subscript[x,2],Subscript[x, 3],Subscript[x,4],Subscript[x,5]},{3}]
2014-09-19 00:21:25
Mathematica Tips
@MathematicaTip
Test whether a particular point is in a region: RegionMember[Polygon[{{0, 0}, {1, 0}, {0, 1}}], {1/3, 1/3}]
2014-09-18 00:08:30
Mathematica Tips
@MathematicaTip
Plot contours of Tutte polynomial cycle graph: TuttePolynomial[CycleGraph[5], {x, y}]; ContourPlot[x+x^2+x^3+x^4+y, {x, -1, 1}, {y, -1, 1}]
2014-09-17 00:10:09
Mathematica Tips
@MathematicaTip
Interpret cities: Interpreter["City"]["Koln, Germany"]
2014-09-16 00:18:34
Mathematica Tips
@MathematicaTip
Find a period of the sine function: FunctionPeriod[Sin[x], x]
2014-09-13 00:07:54
Mathematica Tips
@MathematicaTip
Illustrate the domain of a function: FunctionDomain[Sqrt[1 - x^2], x]; NumberLinePlot[-1 <= x <= 1, x]
2014-09-12 00:06:15
Mathematica Tips
@MathematicaTip
Plot the rate of inflation over a period of time: DateListPlot[Table[{{i}, Quantity[1., DatedUnit["Yen", i]]}, {i, 1960, 2010}]]
2014-09-11 00:04:49
Mathematica Tips
@MathematicaTip
Give the default x when no even numbers are found: SelectFirst[{1, 3, 5}, EvenQ, x]
2014-09-09 23:57:26
Mathematica Tips
@MathematicaTip
Evaluate $MachineID in the cloud: CloudEvaluate[$MachineID]
2014-09-09 00:05:28
Mathematica Tips
@MathematicaTip
Answers in terms of Zeta and PolyLog derivatives: Product[(4 i - 1)^(4 i - 1), {i, n}]
2014-09-05 23:55:30
Mathematica Tips
@MathematicaTip
Map locations of Mars landers: GeoListPlot[EntityList[EntityClass["DeepSpaceProbe", "MarsLander"]], GeoRange -> All, GeoLabels -> True]
2014-09-05 00:47:55
Mathematica Tips
@MathematicaTip
Find a list of sample entities for mountains: MountainData["SampleEntities"]
2014-09-03 23:55:41
Mathematica Tips
@MathematicaTip
Lowpass filter noisy sound w/ cutoff frequency 3000 Hz: LowpassFilter[ExampleData[{"Sound","Apollo11ReturnSafely"}],Quantity[3000,"Hertz"]]
2014-09-03 01:11:49
Mathematica Tips
@MathematicaTip
Create a 2D Voronoi mesh from a set of points: VoronoiMesh[RandomReal[{-1, 1}, {25, 2}]]
2014-08-28 23:59:04
Mathematica Tips
@MathematicaTip
Determine if a graph is isomorphic: IsomorphicGraphQ[GraphData["PappusGraph"]]
2014-08-28 00:13:00
Mathematica Tips
@MathematicaTip
Generate a TemplateObject from an existing notebook: NotebookTemplate["ExampleData/BasicTemplate.nb"]
2014-08-27 00:14:46
Mathematica Tips
@MathematicaTip
Find the largest domain of definition of a real function: FunctionDomain[x/(x^4 - 1), x]
2014-08-26 00:19:20
Mathematica Tips
@MathematicaTip
Specify the output color of expressions: Style[x^2 + y^2, XYZColor[1, 0, 0]]
2014-08-23 00:39:36
Mathematica Tips
@MathematicaTip
Find the equation for a formula: FormulaData["OhmsLaw"]
2014-08-21 23:51:19
Mathematica Tips
@MathematicaTip
Get the canonical name for a list of entities: EntityList[EntityClass["Country", "GroupOf8"]]
2014-08-21 02:25:37
Mathematica Tips
@MathematicaTip
Make a cloud object that can be seen by the world: CloudPut["hello world", Permissions -> "Public"]
2014-08-20 01:02:38
Mathematica Tips
@MathematicaTip
Shorten a URL from components: URLShorten[ URLBuild[{"wolframalpha.com", "input"}, {"i" -> "100 USD in EUR"}], "Bitly"]
2014-08-19 00:48:57
Mathematica Tips
@MathematicaTip
Compute the length of a knot: ArcLength[KnotData["SolomonSeal", "SpaceCurve"][t], {t, 0, 2 Pi}]
2014-08-15 23:56:26
Mathematica Tips
@MathematicaTip
Visualize colors in the rainbow color scheme: ChromaticityPlot[Table[ColorData["Rainbow"][i], {i, 0, 1, 1/1000}]]
2014-08-15 00:19:17