Wolfram CodeCards

DensityPlot[Module[{z = -x + I y, i = 0}, While[i < 100 && Abs[z] < 1, z = z^1.5 + -.2; i++]; i], {y, -.2, .2}, {x, .35, .75}, PlotPoints -> 150, Frame -> False]

ContourPlot3D[
(x^2 + y^2 + z^2)^2 - 2 (x^2 - y^2 - z^2),
{x, -2, 2}, {y, -2, 2}, {z, -2, 2}]

MatrixPlot[
Table[(a + b)/((b^2 + a^2 - 2)^3 + b^2 a^3),
{a, -2.5, 2, 0.01}, {b, -2.25, 2.25, 0.01}]]

Graphics3D[{Red, Table[Rotate[Cuboid[
{-0.9^k, -0.9^k, .05 k}, {0.9^k, 0.9^k, .05 (k + 1)}],
k 0.1, {0, 0, 1}], {k, 0, 60}]}]

a = ImageData[EntityValue [Entity ["Person", "ElvisPresley::2kzg4"], "Image"]]; Grid[Partition [Image /@ Table[a = Rescale[a - GradientFilter[a, 3]], {71}][[31 ;; 1 ;; -10]], 2]]

SmoothHistogram[Legended[First /@ StringPosition[ExampleData@{"Text", "AliceInWonderland"}, #], #] & /@ {"Alice", "Queen"}, Filling -> Axis]

With[{aj = Cases[EntityValue[EntityValue[Entity["PopularCurve", "ApplejackCurve"], "Image"]], Line[x_], Infinity]}, Graphics[Table[{Hue[0, 1, .9], Rotate[aj, x Degree, {0, 600}]}, {x,1, 360, 360/5}]]]

DiscretizeRegion[ImplicitRegion[(x^2 + 3 y^2 + z^2 - 1)^3 - x^2 z^3 - y^2 z^3/10 == 0, {x, y, z}]]

ArrayPlot[CellularAutomaton[{Mod[Total[#]/2.96, 1] &, {}, 1}, {{1}, 0}, {{1000, 1300}, {-90, 90}}]]

Graphics3D[{Red, Specularity[White, 20], KnotData[{8, 3}, "ImageData"]}, Boxed -> False, ViewPoint -> {0, 0.1, 5}]

Grid[Partition[Table[GeoGraphics[GeoDisk[Entity["City",{"LasVegas", "Nevada", "UnitedStates"}], Quantity[10^(3 + n), "Meters"]], GeoProjection -> "Bonne"], {n, 4}], 2]]

c = EntityValue[CityData[{Large, "France"}], "Position"]; GeoGraphics[{Red, Thick, Line@c[[Last[FindShortestTour[c]]]]}]

ContourPlot[Evaluate[Re[Product[x + I y - (a + I b), {a, -5, 5}, {b, -5, 5}]]], {x, -5, 5}, {y, -5, 5}, ColorFunction -> "SolarColors"]

Print@Dynamic[Image[a]]; a = DiskMatrix[10, 300]; Do[Image[a = Rescale[a - GradientFilter[a, 3]]], {1000}];