Chaotic Nested Sine

by Jason Cawley, Wolfram Research

The idea for this system came from user alan2here on the NKS Forum - http : // forum.wolframscience.com/showthread.php?s = & postid = 5121 # post5121

SinFract[start_,anglefactor_,angleadd_, steps_]:= NestList[Sin[#1 * anglefactor+angleadd]&,start,steps]

Manipulate[ListLinePlot[SinFract[start,anglefactor,angleadd,steps],PlotMarkers->Automatic, AxesOrigin->{0,0}, Frame->True, PlotRange->All],
{{start,0.9},-1,1},{{anglefactor,1.3},.5,6.3},{{angleadd,.1},-π/2, π/2}, {{steps,10},1,100,1}, SaveDefinitions->True]