Mathematica Tips
-
- いいね！2
Mathematica Tips
@MathematicaTip
Specify the color of graphics primitives with opacity: Graphics3D[{XYZColor[1, 0, 1], Sphere[]}]
2014-12-11 01:15:59
Mathematica Tips
@MathematicaTip
Pattern resembling Pascal's triangle: NestList[Differences, Normal[SparseArray[10 -> 1, 21]], 11]
2014-12-10 01:23:02
Mathematica Tips
@MathematicaTip
XMLTemplate turns into a TemplateObject: XMLTemplate[""]
2014-12-09 01:24:32
Mathematica Tips
@MathematicaTip
Get the user information from a generic URL: URLParse["ssh://user:pass@host:port/base2?par1=val1#fragment", "User"]
2014-12-05 01:07:31
Mathematica Tips
@MathematicaTip
The curvature, tangent, and normal for a circle in two dimensions: FrenetSerretSystem[{Cos[t], Sin[t]}, t]
2014-12-04 01:44:33
Mathematica Tips
@MathematicaTip
Compute a matrix kernel for quadratic interpolation over a window of radius 5: SavitzkyGolayMatrix[5, 2] // MatrixPlot
2014-12-03 00:56:36
Mathematica Tips
@MathematicaTip
Make a graphic of solar system orbit paths: Graphics3D[PlanetData[PlanetData[], "OrbitPath"]]
2014-12-02 00:35:12
Mathematica Tips
@MathematicaTip
The visible region from geostationary orbit: GeoGraphics[GeoVisibleRegion[{0, 0, Quantity[35786, "Kilometers"]}], GeoRange -> "World"]
2014-11-26 01:08:53
Mathematica Tips
@MathematicaTip
Estimate the correlation function at lag 2: CorrelationFunction[{2, 3, 4, 3}, 2]
2014-11-25 02:17:52
Mathematica Tips
@MathematicaTip
A random collection of lines: Graphics3D[Table[{Hue[RandomReal[]], InfiniteLine[RandomReal[1, {2, 3}]]}, {100}], BoxRatios -> 1]
2014-11-22 00:52:01
Mathematica Tips
@MathematicaTip
Distance between two colors: ColorDistance[Red, Blue]
2014-11-21 04:15:43
Mathematica Tips
@MathematicaTip
Find the shortest tour in a graph: g = PolyhedronData["Dodecahedron", "SkeletonGraph"]; FindShortestTour[g]
2014-11-20 00:45:04
Mathematica Tips
@MathematicaTip
Interpret phone numbers: Interpreter["PhoneNumber"]["+1 (202) 456-1111"]
2014-11-19 03:08:30
Mathematica Tips
@MathematicaTip
3D infinite line: Graphics3D[InfiniteLine[{0, 0, 0}, {1, 2, 3}]]
2014-11-18 00:58:40
Mathematica Tips
@MathematicaTip
Use diffuse surface color: Graphics3D[{LUVColor[1, -.5, 1], Sphere[]}]
2014-11-15 02:12:30
Mathematica Tips
@MathematicaTip
Specify currency value at specific date: CurrencyConvert[Quantity[1, DatedUnit["USDollars", {2009,5,1}]], DatedUnit["Euros", {2009,5,1}]]
2014-11-14 01:17:05
Mathematica Tips
@MathematicaTip
Reorder the keys of all associations: KeyUnion[{<|a -> 1, b -> 2, c -> 3|>, <|c -> z, a -> x, b -> y|>}]
2014-11-13 02:00:42
Mathematica Tips
@MathematicaTip
Decode percent-encoded string using specified encoding: URLDecode["E%9Atv%9As+Lor%87nd+University", CharacterEncoding -> "MacintoshRoman"]
2014-11-12 04:19:17
Mathematica Tips
@MathematicaTip
View the traditional form of the Cantor staircase function: CantorStaircase[x] // TraditionalForm
2014-11-11 02:23:18
Mathematica Tips
@MathematicaTip
G7 country collage by population: ImageCollage[Rule @@ CountryData[#, {"Population", "Flag"}] & /@ CountryData["G7"], ImagePadding -> 3]
2014-11-08 02:49:12
Mathematica Tips
@MathematicaTip
Particle lifetime rank plot showing no time quantization evidence: ListLogPlot[Reverse[Sort[ParticleData[#,"Lifetime"]& /@ ParticleData[]]]]
2014-11-07 02:19:51
Mathematica Tips
@MathematicaTip
Use the "Albers" projection with default parameters: GeoGraphics[GeoRange -> "World", GeoProjection -> "Albers"]
2014-11-06 01:32:18
Mathematica Tips
@MathematicaTip
Get a list of US Congressional Districts: EntityList["USCongressionalDistrict"]
2014-11-05 00:56:18
Mathematica Tips
@MathematicaTip
Diagonals of Pascal's triangle: Transpose[NestList[Accumulate, Range[5], 5]]
2014-11-04 01:39:35
Mathematica Tips
@MathematicaTip
Find positions of elements in an association: PositionIndex[<|1 -> a, 2 -> b, 3 -> c, 4 -> d, 5 -> c, 6 -> a|>]
2014-11-01 00:34:38