프랙탈 형태

이명욱 2010. 12. 10. 11:30

 

Apophysis 2.02 101210-1

Flame--->Adjust--->Backgroundcolor[Blue]

 
 
 

프랙탈 형태

이명욱 2010. 12. 8. 17:01

 

 

 

 

 

 

 

 

 

 

102

 

 

 

 

 
 
 

프랙탈 형태

이명욱 2010. 4. 19. 11:19

 

 

==================================================================================

 Sub abc()
    Cells.Interior.ColorIndex = 2
    Const xcell = 150
    Const ycell = 150
    Dim x, y
    For x = 1 To xcell
    For y = 1 To ycell
        If (x + y And Abs(x - y)) = 0 Then
            ActiveSheet.Cells(x, y).Interior.ColorIndex = 3
        End If
    Next
    Next
End Sub