Explore Exampledata Text, Rule Partition, and more!

Explore related topics

GraphPlot[Rule@@@Partition[ToLowerCase /@ ExampleData[{"Text", "GettysburgAddress"}, "Words"], 2, 1], VertexLabeling -> True]

GraphPlot[Rule@@@Partition[ToLowerCase /@ ExampleData[{"Text", "GettysburgAddress"}, "Words"], 2, 1], VertexLabeling -> True]

WordCloud[DeleteStopwords[ExampleData[{"Text", "AliceInWonderland"}]]]

WordCloud[DeleteStopwords[ExampleData[{"Text", "AliceInWonderland"}]]]

BarChart[Length[DictionaryLookup[#~~___]]&/@#,ChartLabels->#,PlotLabel->"Words start on"]&@CharacterRange["a","z"]

BarChart[Length[DictionaryLookup[#~~___]]&/@#,ChartLabels->#,PlotLabel->"Words start on"]&@CharacterRange["a","z"]

NumberLinePlot[  Table[Cos[y^4 - y^2] <= Sin[x], {y, -5, 10, .2}], {x, -10, 20}]

NumberLinePlot[ Table[Cos[y^4 - y^2] <= Sin[x], {y, -5, 10, .2}], {x, -10, 20}]

ContourPlot[{27(x+10)^2==(9-y)y^2,(y-Abs[x+6]/2)^2+(x+6)^2==4,y-2Abs[x+2]*Boole[0>x>-4]==-2,x^3+8y^3==4x y},{x,-12,2},{y,-2,12}]

ContourPlot[{27(x+10)^2==(9-y)y^2,(y-Abs[x+6]/2)^2+(x+6)^2==4,y-2Abs[x+2]*Boole[0>x>-4]==-2,x^3+8y^3==4x y},{x,-12,2},{y,-2,12}]

Grid[{#, FormulaData[#]} & /@ FormulaLookup["moment of inertia", 20],   Frame -> All, Background -> {{Gray, None}}]

Grid[{#, FormulaData[#]} & /@ FormulaLookup["moment of inertia", 20], Frame -> All, Background -> {{Gray, None}}]

w = "[Wolf]"; Graphics[  Inset[Style[w, 15], #] & /@    PixelValuePositions[Binarize[Rasterize[w, ImageSize -> 35]], Black],   ImageSize -> 35*15]

w = "[Wolf]"; Graphics[ Inset[Style[w, 15], #] & /@ PixelValuePositions[Binarize[Rasterize[w, ImageSize -> 35]], Black], ImageSize -> 35*15]

WordCloud@DeleteStopwords@WikipediaData["New Year"]

WordCloud@DeleteStopwords@WikipediaData["New Year"]

m=41;a[n_]:=Ceiling[Sqrt@n]^2-n;Graph[Table[n->a[a[n m]],{n,0,m}],VertexLabels->"Name"]

m=41;a[n_]:=Ceiling[Sqrt@n]^2-n;Graph[Table[n->a[a[n m]],{n,0,m}],VertexLabels->"Name"]

(*maze*) Rasterize@FindSpanningTree[GridGraph[{16,16}],EdgeWeight->RandomReal[1,480],VertexCoordinates->Tuples[Range@16, {2}]]

(*maze*) Rasterize@FindSpanningTree[GridGraph[{16,16}],EdgeWeight->RandomReal[1,480],VertexCoordinates->Tuples[Range@16, {2}]]

Pinterest • The world’s catalog of ideas
Search