|
![](/i/fill.gif) |
Courtasy of one of the SQL MVPs (and reposted with his permission)
Here's the Mandelbrot set in T-SQL.
Why? Because we can....
-- 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
Requires SQL 2005 or higher.
Post a reply to this message
|
![](/i/fill.gif) |