• View
• Edit
• History
• Print

AnASCII-artMandelbrotSetGeneratorInT-SQL2005

(As seen at http://thedailywtf.com/)

You can: WITH XGEN... SELECT CAST(-2.2 AS FLOAT) -- -2.2 is the Starting X coordinate SELECT CAST(X + 0.031 AS FLOAT) -- -2.2 is the X increment per "pixel"

So if your coords are MinX = -2.2 and MaxX = 0.9 then your increment is (MaxX - MinX) / 100 or (0.9 - -2.2) / 100, or 0.031

Same with YGEN.

-- ORIGINAL AUTHOR: GRAEME JOB

-- ORIGINALLY CREATED: 12-OCT-2008

-- ADAPTED BY: STEVE KASS

-- BECAUSE: IT'S EVEN SHORTER AND FASTER

WITH GEN(V, IV) AS ( -- DIM GENERATOR

  SELECT CAST(0 AS FLOAT) AS V, 0 AS IV UNION ALL

  SELECT CAST(V + 0.031 AS FLOAT) AS V, IV + 1 AS IV

  FROM GEN

  WHERE IV < 100

),XGEN(X, IX) AS ( -- X DIM GENERATOR

  SELECT -2.2+V AS X, IV AS IX FROM GEN

),YGEN(Y, IY) AS ( -- Y DIM GENERATOR

  SELECT -1.5+V AS Y, IV AS IY FROM GEN

), Z(IX, IY, CX, CY, X, Y, I) AS ( -- Z POINT ITERATOR

  SELECT IX, IY, X, Y, X, Y, 0

  FROM XGEN, YGEN   

  UNION ALL

  SELECT IX, IY, CX, CY, X * X - Y * Y + CX, Y * X * 2 + CY, I + 1 

  FROM Z

  WHERE I < 26

  AND X * X + Y * Y < 16

), ZR(IX, IY, C, R) AS (

  SELECT

    IX, IY, CASE WHEN I > 25 THEN ' ' ELSE SUBSTRING(' .,,,-----++++###',I,1) END,

    ROW_NUMBER() OVER (PARTITION BY IX, IY ORDER BY I DESC)

  FROM Z

)

  SELECT

    [0]+[1]+[2]+[3]+[4]+[5]+[6]+[7]+[8]+[9]+[10]+[11]+[12]+[13]+[14]+[15]+[16]+[17]+[18]+[19]+

    [20]+[21]+[22]+[23]+[24]+[25]+[26]+[27]+[28]+[29]+[30]+[31]+[32]+[33]+[34]+[35]+[36]+[37]+[38]+[39]+

    [40]+[41]+[42]+[43]+[44]+[45]+[46]+[47]+[48]+[49]+[50]+[51]+[52]+[53]+[54]+[55]+[56]+[57]+[58]+[59]+

    [60]+[61]+[62]+[63]+[64]+[65]+[66]+[67]+[68]+[69]+[70]+[71]+[72]+[73]+[74]+[75]+[76]+[77]+[78]+[79]+

    [80]+[81]+[82]+[83]+[84]+[85]+[86]+[87]+[88]+[89]+[90]+[91]+[92]+[93]+[94]+[95]+[96]+[97]+[98]+[99]+[100]

  FROM (

    SELECT IX, IY, C FROM ZR WHERE R = 1

  ) AS P(IX,IY,C) PIVOT (MAX(C) FOR IX IN (

    [0],[1],[2],[3],[4],[5],[6],[7],[8],[9],[10],[11],[12],[13],[14],[15],[16],[17],[18],[19],

    [20],[21],[22],[23],[24],[25],[26],[27],[28],[29],[30],[31],[32],[33],[34],[35],[36],[37],[38],[39],

    [40],[41],[42],[43],[44],[45],[46],[47],[48],[49],[50],[51],[52],[53],[54],[55],[56],[57],[58],[59],

    [60],[61],[62],[63],[64],[65],[66],[67],[68],[69],[70],[71],[72],[73],[74],[75],[76],[77],[78],[79],

    [80],[81],[82],[83],[84],[85],[86],[87],[88],[89],[90],[91],[92],[93],[94],[95],[96],[97],[98],[99],[100])

) AS Piv