Mathematica Tips 2

Mathematica Tips @MathematicaTip

Test whether "x" is a key in the association: KeyMemberQ[<|"x" -> 1|>, "x"]

Mathematica Tips @MathematicaTip

Apply GenerateHTTPResponse to Delayed to locally simulate a cloud server: GenerateHTTPResponse[Delayed[2 + 2]]; %["Body"]

Mathematica Tips @MathematicaTip

Median of a shifted Gompertz distribution: Median[ShiftedGompertzDistribution[\[Lambda], \[Xi]]]

Mathematica Tips @MathematicaTip

Generate a single pseudorandom matrix: RandomVariate[WishartMatrixDistribution[10, {{1, 1/3}, {1/3, 1}}]]

Mathematica Tips @MathematicaTip

Compute the area of a geo disk centered at your geo location: GeoArea[GeoDisk[Here, Quantity[100, "Miles"]]]

Mathematica Tips @MathematicaTip

Six random adjectives selected from known words: RandomWord[{"KnownWords", "Adjective"}, 6]

Mathematica Tips @MathematicaTip

Find probabilities of dying at particular age: MortalityData[<|"Age"->Quantity[70,"Years"], "Gender"->"Female"|>,"DeathProbabilityBefore"]

Mathematica Tips @MathematicaTip

Search for palindromic primes: Select[Array[Prime, 100], PalindromeQ]

Mathematica Tips @MathematicaTip

Use FormPage to continuously interact with a web page: CloudDeploy[FormPage["country" -> "Country", GeoGraphics[#country] &]]

Mathematica Tips @MathematicaTip

Generate a pseudorandom matrix: RandomVariate[WishartMatrixDistribution[10, {{1, 1/3}, {1/3, 1}}]]

Mathematica Tips @MathematicaTip

Generate a Cornu spiral: DSolve[{x'[s] == Cos[t[s]], y'[s] == Sin[t[s]], t'[s] == s, x[0] == 0, y[0] == 0, t[0] == 0}, {x, y, t}, s]

Mathematica Tips @MathematicaTip

Estimate travel time: TravelTime[{Entity["City", {"Miami","Florida","UnitedStates"}], Entity["City", {"NewYork","NewYork","UnitedStates"}]}]

Mathematica Tips @MathematicaTip

Transliterate from one writing system to another: Transliterate["しんばし", "Hiragana" -> "Hebrew"]

Mathematica Tips @MathematicaTip

Find a 3D model of an anatomical structure: Entity["AnatomicalStructure", "LeftFemur"]["Graphics3D"]

Mathematica Tips @MathematicaTip

Put a frame around every element: TextGrid[{{"First row:", "a line"}, {"Second row:", "another line"}}, Frame -> All]

Mathematica Tips @MathematicaTip

Mathematica 10.3 was recently released. Browse the summary of new features here: bit.ly/1NkfGWY

Mathematica Tips @MathematicaTip

Random unit capsules: Graphics3D[Table[{EdgeForm[Opacity[.3]], Hue[RandomReal[]], CapsuleShape[RandomReal[10, {2, 3}], 1]}, {20}]]

Mathematica Tips @MathematicaTip

Plot a density histogram for a dataset: DensityHistogram[RandomVariate[BinormalDistribution[.5], 500]]

Mathematica Tips @MathematicaTip

Generate a path based on the Rudin–Shapiro sequence: Graphics[Line[AnglePath[Array[RudinShapiro, 4096] 2 Pi/5]]]

Mathematica Tips @MathematicaTip

Replace an element of a list with Nothing to remove it: {a, b, c, d} /. c -> Nothing

Mathematica Tips @MathematicaTip

Connect to SeatGeek using the Wolfram Language to search for event tickets: bit.ly/1PpWGbJ

Mathematica Tips @MathematicaTip

Generate a search report for the string "dog" in an example document source: TextSearchReport["ExampleData/Text", "dog"]

Mathematica Tips @MathematicaTip

Deploy a mail receiver that sends custom responses back to the sender: bit.ly/1WPyz8u

Mathematica Tips @MathematicaTip

Differentiate a unit step signal: DifferentiatorFilter[{0., 0., 0., 0., 1., 1., 1., 1.}, .5]

Mathematica Tips @MathematicaTip

Retouch a crack in a photograph with Inpaint: bit.ly/1VB4JCd