Mathematica Tips 2
Corkscrewing spherical shells: Graphics3D[Table[{Opacity[.5, Hue[i/20]], SphericalShell[{2 Cos[i*Pi/5], 2 Sin[i*Pi/5], i}, 1]}, {i, 1, 20}]]
2015-10-03 00:18:24Plot a function over a ball: DensityPlot3D[Sin[x] Cos[y] Sin[z], {x, y, z} \[Element] Ball[{0, 0, 0}, 5], PlotTheme -> "Marketing"]
2015-10-01 23:52:08Steps in a 2D substitution system: ArrayPlot /@ SubstitutionSystem[{1 -> {{1, 0}, {1, 1}}, 0 -> {{0, 0}, {0, 0}}}, {{1}}, 4]
2015-10-01 00:45:41Return people after whom the RiemannSiegelTheta function is named: WolframLanguageData["RiemannSiegelTheta", "EponymousPeople"]
2015-09-29 00:04:24Push text, links, files & images to mobile devices & desktop computers equipped with Pushbullet: bit.ly/1NYGVcl
2015-09-26 01:07:50Create a search index from all files and subfolders in a folder: index2 = CreateSearchIndex["ExampleData/Text"]
2015-09-25 01:19:55Authenticate against a particular cloud: CloudConnect[CloudBase -> "wolframcloud.com"]
2015-09-24 00:16:41Bandpass filter vector: data=Table[Sin[i^2+i]+RandomReal[{-.2,.3}],{i,0,Pi,0.01}];ListLinePlot/@{data,BandpassFilter[data,{.01,.02}]}
2015-09-23 00:03:12A family of stadiums: Graphics[Table[{Hue[t/30, 1, .9, .3], StadiumShape[{{0, 0}, {3 Cos[2 Pi t/30], 3 Sin[2 Pi t/30]}}, 1]}, {t, 30}]]
2015-09-21 23:48:30Plot a dataset: SmoothHistogram[RandomVariate[ExponentialDistribution[1/2], 500]]
2015-09-19 00:34:43Paths at diff angles based on Thue–Morse sequences: Table[Graphics[Line[AnglePath[Array[ThueMorse, 1024] \[Theta]]]], {\[Theta],0,2 Pi,.5}]
2015-09-18 01:14:21Find the last sublist of an arbitrary partition of a list: FoldPair[TakeDrop, {a, b, c, d, e, f}, {1, 3, 2}]
2015-09-17 02:09:49Find the words in a sentence: TextCases["The quick brown fox jumps over the lazy dog.", "Word"]
2015-09-15 23:37:17Share cloud objects with particular users using the CloudShare function: bit.ly/1UPv1pc
2015-09-14 23:53:31TimeObjectQ tests whether an expression is a TimeObject with valid arguments: TimeObjectQ[TimeObject[]]
2015-09-11 23:47:25Transform an HDR image so small luminance variations are visible with ColorToneMapping: bit.ly/1MXyQRc
2015-09-11 00:48:06A HalfSpace in 2D: Graphics[HalfSpace[{2, 1}, {0, 0}]]
2015-09-10 00:00:06Generate a 3D histogram for a list of pairs: Histogram3D[RandomVariate[NormalDistribution[0, 1], {500, 2}]]
2015-09-08 23:57:37Find a fit and visualize the fitted function with the data using FindFormula: bit.ly/1JBnqQB
2015-09-04 00:42:35Test whether an expression represents a "failure": FailureQ[5]
2015-09-02 23:52:19Connect to MailChimp to get detailed information about email campaigns and subscription lists: bit.ly/1JA0LpU
2015-09-02 00:11:40Control how function name translations are displayed with TranslationOptions: bit.ly/1JwHiGI
2015-08-31 23:53:01Submit an asynchronous task to a particular cloud: CloudSubmit[1 + 1, CloudBase -> "wolframcloud.com"]
2015-08-29 01:03:21Julian date in days since November 24, 4714 BCE: JulianDate[]
2015-08-27 23:53:34Corkscrewing spherical shells: Graphics3D[Table[{Opacity[.5, Hue[i/20]], SphericalShell[{2 Cos[i*Pi/5], 2 Sin[i*Pi/5], i}, 1]}, {i, 1, 20}]]
2015-08-27 00:19:09