tsql – 如何使用T-SQL生成Mandelbrot？

学习一点T-sql,并认为一个有趣的练习就是用它生成一个Mandelbrot集.

原来已经有人(最近出现了).我会让其他人发布它作为答案,但我很好奇可以做出哪些优化.

或者,您将如何使代码更具可读性？

我将选择最可读(但相当紧凑)的版本作为已接受的答案(太糟糕了,我们还没有代表奖励！)除非有人真的带来了很好的优化.

奖金指向那些教我一些关于T-sql的答案.

-亚当

解决方法

Create PROCEDURE dbo.mandlebrot
@left float,@right float,@Top float,@Bottom float,@Res float,@MaxIterations Integer = 500
As
Set NoCount On

Declare @Grid Table (
    X float Not Null,Y float Not Null,InSet Bit
   Primary Key (X,Y))

Declare @Xo float,@Yo float,@Abs float
Declare @PtX Float,@PtY Float
Declare @Iteration Integer Set @Iteration = 0
Select @Xo = @Left,@Yo = @Bottom

While @Yo <= @Top Begin
    While @Xo <= @Right Begin
        Select @PtX = @Xo,@PtY = @Yo
        While @Iteration < @MaxIterations 
            And (Square(@PtX) + Square(@PtY)) < 4.0 Begin
            Select @PtX = Square(@PtX) - Square(@PtY) + @Xo,@PtY = 2* @PtX * @PtY + @Yo
            Select @Iteration,@PtX,@PtY
            Set @Iteration = @Iteration + 1
        End
        Insert @Grid(X,Y,InSet) 
        Values(@Xo,@Yo,Case 
            When @Iteration < @MaxIterations
                    Then 1 Else 0 End)
        Set @Xo = @Xo + @res
        Set @Iteration = 0
    End
    Select @Xo = @Left,@Yo = @Yo + @Res
End

Select * From @Grid