Formed in 2009, the Archive Team (not to be confused with the archive.org Archive-It Team) is a rogue archivist collective dedicated to saving copies of rapidly dying or deleted websites for the sake of history and digital heritage. The group is 100% composed of volunteers and interested parties, and has expanded into a large amount of related projects for saving online and digital history.
![ListLinePlot[Abs[Table[2 - Cos[x]*x^2, {x, -100, 100, 2}]], ColorFunction -> "DeepSeaColors"]
https://twitter.com/wolframtap/status/1661929336071438337](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/f61ae164d7d04db84c41f9810031c96a/7177c6f3137604ef-ca/s640x960/d649c800b09e9c8dfbb3188a095a39eeb100803d.png)
ListLinePlot[Abs[Table[2 - Cos[x]*x^2, {x, -100, 100, 2}]],
ColorFunction -> "DeepSeaColors"]
![ListLinePlot[data = Table[2 - Cos[x]*x^2, {x, -100, 100}], ColorFunction -> "DarkRainbow"]
https://twitter.com/wolframtap/status/1661925754278486017](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/743315d36d5de561a043120c56b97c30/de0f410fe06af6aa-b8/s640x960/3ecd1ff780a747dcccddb8b3ee4b1d3380ed1177.png)
ListLinePlot[data = Table[2 - Cos[x]*x^2, {x, -100, 100}],
ColorFunction -> "DarkRainbow"]
![ListPlot[Table[x^2 + 3 x + 2 - Cos[x], {x, -100, 100}], ColorFunction -> Hue]
https://twitter.com/wolframtap/status/1661919614484217856](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/e7dc27a29007f6a354bfe5fb947cbb3a/0db4140187f9b956-83/s640x960/03348c9409a8ec9ae4815912371371880fdd6b6d.png)
ListPlot[Table[x^2 + 3 x + 2 - Cos[x], {x, -100, 100}],
ColorFunction -> Hue]
![Graphics[Table[{RandomColor[], Thickness[RandomChoice[{Tiny, Small, Medium, Large}]], Circle[RandomInteger[50, 2], RandomInteger[10]]}, 100]]
https://twitter.com/wolframtap/status/1658215612579979296](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/5d3d778428ee0af3c8c8e551a4f79a80/7138fca8f8003e7e-e3/s640x960/4aafd3cd38d847ce3a9e271199994d3840fc4184.png)
Graphics[Table[{RandomColor[], Thickness[RandomChoice[{Tiny, Small, Medium, Large}]], Circle[RandomInteger[50, 2], RandomInteger[10]]}, 100]]
![Graphics[Table[{RandomColor[], Circle[RandomInteger[50, 2], RandomInteger[10]]}, 100]]
https://twitter.com/wolframtap/status/1658215100807782414](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/08df89f7d695cd2b791c551061e430a5/b0d3a1fd41ab6181-70/s640x960/28b1326463f70136ad76e9a4b27a26ca1871b456.png)
Graphics[Table[{RandomColor[], Circle[RandomInteger[50, 2], RandomInteger[10]]}, 100]]
![ResourceFunction["RiemannSurfacePlot3D"][w == (1 - z^3)^(1/2), Im[w], {z, w}]
https://twitter.com/wolframtap/status/1657700614808240128](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/e79cad5051c894f07e44becf7f1d50fe/e4e0df83d7507edb-92/s1280x1920/98f4bc40149bfe395b551207583e303dd9db96b7.jpg)
ResourceFunction["RiemannSurfacePlot3D"][w == (1 - z^3)^(1/2), Im[w], {z, w}]
![NestList[Subsuperscript[#,#,#]&, o, 6]
https://twitter.com/wolframtap/status/1653100533354225679](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/5bffb90541090419055673947ceb2d81/024d27e72a8b7171-7a/s640x960/19bcf9cc8d77a7675985d05bca3515562d47572c.png)
NestList[Subsuperscript[#,#,#]&, o, 6]
![th=1;s=Sqrt[2];dt=.01;tm=5;t=Range[0,tm,dt];U[a_,mu_,x0_]:=Module[{x=ConstantArray[0,Length[t]]},x[[1]]=x0;Do[x[[i]]=x[[i-1]]+th(mu-x[[i-1]])dt+s...](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/faa194959068d4adbe2a22f9c041e002/8fb07a648b47eb57-a3/s640x960/5d6dafa0c49235f21008edea54ab49c6944d2af8.png)
th=1;s=Sqrt[2];dt=.01;tm=5;t=Range[0,tm,dt];U[a_,mu_,x0_]:=Module[{x=ConstantArray[0,Length[t]]},x[[1]]=x0;Do[x[[i]]=x[[i-1]]+th(mu-x[[i-1]])dt+s Sqrt[dt]RandomVariate[NormalDistribution[]],{i,2,Length[t]}];x];ListLinePlot[{U[9,0,9],U[0,0,0],U[-9,0,-9],U[0,-9,0]}]
![p=NestList[Function[x,c=x+RandomReal[NormalDistribution[]];If[PDF[CauchyDistribution[],c]/PDF[CauchyDistribution[],x]>RandomReal[],c,x]],RandomReal[{-8,8}],600];...](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/fc58e7e7716f3dbd3d9ee99490b2d04c/529628ba75e31da2-4d/s640x960/5a3e151fa73db86b2e563abec2564ec21d19a6c3.png)
p=NestList[Function[x,c=x+RandomReal[NormalDistribution[]];If[PDF[CauchyDistribution[],c]/PDF[CauchyDistribution[],x]>RandomReal[],c,x]],RandomReal[{-8,8}],600]; Show[Histogram[p,193,"PDF"],Plot[PDF[CauchyDistribution[],x],{x,-9,9},PlotRange->All]]
![n=1000;θ=1;σ=1;μ=0;ou=ConstantArray[0,{5,n+1}];Do[Do[ou[[j,i+1]]=ou[[j,i]]+θ(0.01(μ-ou[[j,i]]))+σ Sqrt[0.01]RandomReal[NormalDistribution[]],{i,n}],{j,5}];ListLinePlot[ou,PlotRange->All]
https://twitter.com/wolframtap/status/1637214698952163331](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/0315c423ac3259ab615544599933d1d0/1023064fdcf30739-94/s640x960/31502fd201d14a0f2df20e17149589529a64d0b7.png)
n=1000;θ=1;σ=1;μ=0;ou=ConstantArray[0,{5,n+1}];Do[Do[ou[[j,i+1]]=ou[[j,i]]+θ(0.01(μ-ou[[j,i]]))+σ Sqrt[0.01]RandomReal[NormalDistribution[]],{i,n}],{j,5}];ListLinePlot[ou,PlotRange->All]
![Plot3D[Skewness[NoncentralChiSquareDistribution[\[Nu], \[Lambda]]], {\[Nu], 0, 10}, {\[Lambda], 0, 10}, MeshFunctions -> {#3 &}, MeshShading -> ColorData[35, "ColorList"], AxesLabel -> Automatic, ViewPoint -> {10, -8,...](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/8e73235f8013288060b02819ee63bc19/dbeb01e9c76f08c8-ce/s640x960/831a8a6e89340393ac3d6f0c04d39ad982c6c672.png)
Plot3D[Skewness[NoncentralChiSquareDistribution[\[Nu], \[Lambda]]], {\[Nu], 0, 10}, {\[Lambda], 0, 10}, MeshFunctions -> {#3 &}, MeshShading -> ColorData[35, "ColorList"], AxesLabel -> Automatic, ViewPoint -> {10, -8, 5}]
![Table[Arrow[{{0, 0}, RandomVariate[NormalDistribution[], 2]}], {100}] // Graphics
https://twitter.com/wolframtap/status/1635905395003740162](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/fbff2bec85d2753000803a568df3e97a/2f7c7e737f55ecfa-e6/s640x960/e61b17eb24215030b87aae910b86ec4d4c21e746.png)
Table[Arrow[{{0, 0}, RandomVariate[NormalDistribution[], 2]}], {100}] // Graphics
![s = RandomVariate[\[ScriptD]=MultivariateHypergeometricDistribution[10, {12, 7}], 10^4]; {Histogram3D[s, {-0.5, 10.5, 1}, "PDF", ColorFunction -> "Rainbow"], DiscretePlot3D[PDF[\[ScriptD], {x, y}], {x, 0, 10},{y, 0, 10},ColorFunction -> "Rainbow",...](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/0ad1cd420cd69d547d94792131c782d7/1317c458128cf3e8-f8/s640x960/f4dc916ec85a89630f7ebf93189c5f82b4e8840d.png)
s = RandomVariate[\[ScriptD]=MultivariateHypergeometricDistribution[10, {12, 7}], 10^4]; {Histogram3D[s, {-0.5, 10.5, 1}, "PDF", ColorFunction -> "Rainbow"], DiscretePlot3D[PDF[\[ScriptD], {x, y}], {x, 0, 10},{y, 0, 10},ColorFunction -> "Rainbow", ExtentSize -> 1]}
![DiscretePlot3D[CovarianceFunction[BernoulliProcess[.3], s, t], {s, 1, 10}, {t, 1, 10}, ExtentSize -> 1/2, ColorFunction -> "Rainbow"]
https://twitter.com/wolframtap/status/1635900018501582849](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/9139c5be05b1c5955822ac27ecdeb671/a2dbcd9a7839e079-d8/s640x960/dffb6d2708ed657c71cd5f651c0d6154350799ae.png)
DiscretePlot3D[CovarianceFunction[BernoulliProcess[.3], s, t], {s, 1, 10}, {t, 1, 10}, ExtentSize -> 1/2, ColorFunction -> "Rainbow"]
![m = Molecule["tetramethylammonium"]; Show[MoleculePlot3D[m], Graphics3D[{Opacity[0.3], Lookup[m["SymmetryElements"], "SymmetryPlane", Nothing]}]]
https://twitter.com/wolframtap/status/1635148267754225664](/Code-https-web.archive.org/web/20240115061425/https://64.media.tumblr.com/9c713b49924a9babd09fe18590b97a08/0b090568665777f0-cd/s640x960/8eaf85bd46aca673c91cb6ecd769b9dc1147dce1.png)
m = Molecule["tetramethylammonium"]; Show[MoleculePlot3D[m],
Graphics3D[{Opacity[0.3],
Lookup[m["SymmetryElements"], "SymmetryPlane", Nothing]}]]
1 of 145
Sorry, No More Posts
Loading...