Strang's Strange Figures

Author

Eric W. Weisstein
November 30, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/NumberTheory/StrangsStrangeFigures.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/StrangsStrangeFigures.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Initialization

<<Graphics`Colors`

Strang[f_,{n_,k_},opts___]:=Module[{},
ListPlot[Table[f,{n,k}],
opts,
PlotStyle->Red,
AxesLabel->TraditionalForm/@{n,f}]]

Plots

Sin

Show[GraphicsArray[
Partition[
Strang[Sin[n],{n,#},DisplayFunction->Identity]&/@{100,500,1000,10000},
2,2,{1,1},{}]
],ImageSize->500]

Show[GraphicsArray[Partition[Table[ListPlot[Table[Sin[k n],{n,1000}],
DisplayFunction->Identity,
PlotStyle->Red
],{k,9}],3,3,{1,1},{}]],
ImageSize->500]

<<Graphics`MultipleListPlot`

MultipleListPlot[Transpose[Table[Sin[#n]&/@{44,157,333},{n,1000}]],
SymbolShape->{Point,Point,Point},SymbolStyle->{Red,Green,Blue}]

With[{p=44,q=7},
ListPlot[Flatten[Table[{x,Sin[(p-2π q)x/p+2π q k/p]},{k,0,p-1},{x,100}],1]]
]

ListPlot[Table[Sin[k+44]-Sin[k],{k,1000}]]

Cos

Show[GraphicsArray[
Partition[
Strang[Cos[n],{n,#},DisplayFunction->Identity]&/@{100,500,1000,10000},
2,2,{1,1},{}]
],ImageSize->500]

Tan

Show[GraphicsArray[
Partition[
Strang[Tan[n],{n,#},DisplayFunction->Identity]&/@{100,500,1000,10000},
2,2,{1,1},{}]
],ImageSize->500]

Cot

Show[GraphicsArray[
Partition[
Strang[Cot[n],{n,#},DisplayFunction->Identity]&/@{100,500,1000,10000},
2,2,{1,1},{}]
],ImageSize->500]

Csc

Show[GraphicsArray[
Partition[
Strang[Csc[n],{n,#},DisplayFunction->Identity]&/@{100,500,1000,10000},
2,2,{1,1},{}]
],ImageSize->500]

Sec

Show[GraphicsArray[
Partition[
Strang[Sec[n],{n,#},DisplayFunction->Identity]&/@{100,500,1000,10000},
2,2,{1,1},{}]
],ImageSize->500]