Mathematica Tips 2
Create a plot that stays level until the next point: ListStepPlot[{1, 1, 2, 3, 5, 8, 13, 21}]
2015-08-26 01:24:14The permanent of a square matrix of all ones is the factorial of the dimension: Table[Permanent[ConstantArray[1, {n, n}]], {n, 10}]
2015-08-25 00:02:18Cluster data using BinaryDistance: FindClusters[{{2, 3}, {5, 10}, {4, 5}, {2, 3}}, DistanceFunction -> BinaryDistance]
2015-08-22 00:35:21Connect to Open Library using the Wolfram Language to retrieve information about books: bit.ly/1gYF1tQ
2015-08-21 00:09:12Look up character name using character code: CharacterName[1234, "CommonName"]
2015-08-20 00:15:37Specify how long a web page should be cached so it is fast to view with CachePersistence: bit.ly/1hlEByD
2015-08-18 23:59:15Apply a moving harmonic mean filter to a vector: HarmonicMeanFilter[ {0, 1, 2, 3, 4}, 1]
2015-08-17 23:21:03Pad images on all sides with a specified number of background pixels using ImagePad: bit.ly/1h63X3i
2015-08-13 23:52:58Discretize 2D embedded region and restrict to the first quadrant: DiscretizeRegion[Disk[], {{0, 1}, {0, 1}}]
2015-08-12 23:45:05Generate a histogram for a list of values: Histogram[RandomVariate[NormalDistribution[0, 1], 200]]
2015-08-12 00:27:45Find a Hamiltonian path through vertices in a graph: g = PolyhedronData["Dodecahedron","SkeletonGraph"]; FindHamiltonianPath[g]
2015-08-11 01:00:06Apply a function to all non-overlapping, length-2 sublists: BlockMap[f, Range[10], 2]
2015-08-08 00:18:20Import the contents of a JSON file: Import["ExampleData/temperatures.json", "RawJSON"]
2015-08-07 00:38:06Show a snippet of text contained in a ContentObject: doc = ContentObject[ExampleData[{"Text", "AliceInWonderland"}]]
2015-08-06 04:17:55Force DateString to dynamically update every second: Dynamic[Refresh[DateString[], UpdateInterval -> 1]]
2015-08-04 22:59:50Perform a test for multivariate normality: data = RandomVariate[BinormalDistribution[1/2], 1000]; BaringhausHenzeTest[data]
2015-08-03 23:56:35Discover the new function ColorToneMapping: bit.ly/1MXyQRc
2015-07-31 23:57:15A family of annuli: Graphics[Table[{Hue[t/30, 1, .9, .3], Annulus[{Cos[2 Pi t/30], Sin[2 Pi t/30]}, 1]}, {t, 30}]]
2015-07-31 00:19:22Plot a vector field over a surface: SliceVectorPlot3D[{y, -x, z}, "CenterPlanes", {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]
2015-07-29 23:41:35Find the 4 smallest eigenvalues of the Laplacian operator on [0, π]: NDEigenvalues[-Laplacian[u[x], {x}], u[x], {x, 0, \[Pi]}, 4]
2015-07-29 06:34:40Return a list of sample Wolfram Language symbols: WolframLanguageData["SampleEntities"]
2015-07-27 22:54:03Find a sample of 5 "Volcano" entities: RandomEntity["Volcano", 5]
2015-07-25 02:33:43Get the alphabets for specific languages: Alphabet["Polish"]
2015-07-24 02:15:37Get a summary of cloud object activity: CloudLoggingData[]
2015-07-23 00:06:06Bandpass filtering of a unit step signal: BandpassFilter[{0., 0., 0., 0., 1., 1., 1., 1.}, {1, 2}]
2015-07-22 00:09:01