Prev: File Stamp on Plots?
Next: A question about a sphere
From: Osman Tuna on 1 Feb 2010 06:11
I try to generate random text and compare this with real text, but my computer can't evaluate my code, can you inform me whether your computer evaluates it or not? And do you have any suggestions which can help me with generating this code in my computer?

Best...

Osman Tuna

ListLogLogPlot[{Reverse[
Sort[Last /@
Tally[StringCases[
StringJoin[
RandomChoice[{N[
Length[StringCases[
ExampleData[{"Text", "OriginOfSpecies"},
"String"], {" "}]]/
Length[StringCases[
ExampleData[{"Text", "OriginOfSpecies"},
"String"], _?LetterQ]], 5], 1} -> {" ", #}] & /@
RandomChoice[CharacterRange["a", "z"],
Length[StringCases[
ExampleData[{"Text", "OriginOfSpecies"}, "String"], _?
LetterQ]]]], CharacterRange["a", "z"] ..]]]],
Reverse[Sort[
Last /@ Tally[
ToLowerCase[
StringCases[ExampleData[{"Text", "OriginOfSpecies"}, "String"],
WordCharacter ..]]]]]}, Joined -> True, PlotRange -> All,
Frame -> True]

 | 
Pages: 1
Prev: File Stamp on Plots?
Next: A question about a sphere