[math-fun] Exact satanic staircase

Unboundedly declivitous near the Cantor set: http://gosper.org/satan.png SS[t_, a_: 1, b_: 0] := Module[{u = t*3, h}, If[1 <= u <= 2, 1 - t, SS[t, x_: 0, y_: 0] = (SS[t, s1_: 1, s0_: 0] = (b - s0)/(s1 - a); h = Floor[u/2]/3; SS[u - 6*h, a*2/3, b + a*h]*2/3 + h)]] Monitor[Plot[SS[x], {x, 0, 1}], Row[{ProgressIndicator[x, {0, 1}], x}]] (You can watch Plot skipping the smooth parts on the refinement passes.) --rwg Texture morphed Triadic dragon (sampled at beating frequency): http://gosper.org/morphdrag.png Self avoiding z-zerpents: http://gosper.org/sazz.png Julian redid http://gosper.org/Inverted%20Sierpinski%20Triangle%20thick.png