dedekind flower (remix v6, visual basic 1.0) ft. godel

' Define a structure to hold the Dedekind cuts Type DedekindCut L() As Double R() As Double End Type ' Initialize Dedekind cuts between 11 and 13 Sub Main() Dim cuts(3) As DedekindCut ' First cut: Simple representation ReDim cuts(0).L(1) cuts(0).L(0) = 11 cuts(0).L(1) = 12 ' Second cut: More detailed representation ReDim cuts(1).L(0) cuts(1).L(0) = 11 ReDim cuts(1).R(0) cuts(1).R(0) = 12 ' Third cut: Intermediate values ReDim cuts(2).L(10) cuts(2).L(0) = 11 cuts(2).L(1) = 11.1 cuts(2).L(2) = 11.2 cuts(2).L(3) = 11.3 cuts(2).L(4) = 11.4 cuts(2).L(5) = 11.5 cuts(2).L(6) = 11.6 cuts(2).L(7) = 11.7 cuts(2).L(8) = 11.8 cuts(2).L(9) = 11.9 cuts(2).L(10) = 12 ReDim cuts(2).R(9) cuts(2).R(6) = 12.7 cuts(2).R(7) = 12.8 cuts(2).R(8) = 12.9 cuts(2).R(9) = 13 ' Fourth cut: Finer cuts ReDim cuts(3).L(13) cuts(3).L(0) = 11 cuts(3).L(1) = 11.1 cuts(3).L(2) = 11.2 ReDim cuts(3).R(15) cuts(3).R(0) = 12 cuts(3).R(1) = 12.01 ' Fifth cut: Detailed around specific values Dim specificCut As DedekindCut ReDim specificCut.L(5) specificCut.L(0) = 11 ' Define a structure to hold the Dedekind cuts Type DedekindCut L() As Double R() As Double End Type ' Initialize Dedekind cuts between 11 and 13 Sub Main() Dim cuts(3) As DedekindCut ' First cut: Simple representation ReDim cuts(0).L(1) cuts(0).L(0) = 11 cuts(0).L(1) = 12 ' Second cut: More detailed representation ReDim cuts(1).L(0) cuts(1).L(0) = 11 ReDim cuts(1).R(0) cuts(1).R(0) = 12 ' Third cut: Intermediate values ReDim cuts(2).L(10) cuts(2).L(0) = 11 cuts(2).L(1) = 11.1 cuts(2).L(2) = 11.2 cuts(2).L(3) = 11.3 cuts(2).L(4) = 11.4 cuts(2).L(5) = 11.5 cuts(2).L(6) = 11.6 cuts(2).L(7) = 11.7 cuts(2).L(8) = 11.8 cuts(2).L(9) = 11.9 cuts(2).L(10) = 12 ReDim cuts(2).R(9) cuts(2).R(6) = 12.7 cuts(2).R(7) = 12.8 cuts(2).R(8) = 12.9 cuts(2).R(9) = 13 ' Fourth cut: Finer cuts ReDim cuts(3).L(13) cuts(3).L(0) = 11 cuts(3).L(1) = 11.1 cuts(3).L(2) = 11.2 ReDim cuts(3).R(15) cuts(3).R(0) = 12 cuts(3).R(1) = 12.01 ' Fifth cut: Detailed around specific values Dim specificCut As DedekindCut ReDim specificCut.L(5) specificCut.L(0) = 11 ' Define a structure to hold the Dedekind cuts Type DedekindCut L() As Double R() As Double End Type ' Initialize Dedekind cuts between 11 and 13 Sub Main() Dim cuts(3) As DedekindCut ' First cut: Simple representation ReDim cuts(0).L(1) cuts(0).L(0) = 11 cuts(0).L(1) = 12 ' Second cut: More detailed representation ReDim cuts(1).L(0) cuts(1).L(0) = 11 ReDim cuts(1).R(0) cuts(1).R(0) = 12 ' Third cut: Intermediate values ReDim cuts(2).L(10) cuts(2).L(0) = 11 cuts(2).L(1) = 11.1 cuts(2).L(2) = 11.2 cuts(2).L(3) = 11.3 cuts(2).L(4) = 11.4 cuts(2).L(5) = 11.5 cuts(2).L(6) = 11.6 cuts(2).L(7) = 11.7 cuts(2).L(8) = 11.8 cuts(2).L(9) = 11.9 cuts(2).L(10) = 12 ReDim cuts(2).R(9) cuts(2).R(6) = 12.7 cuts(2).R(7) = 12.8 cuts(2).R(8) = 12.9 cuts(2).R(9) = 13 ' Fourth cut: Finer cuts ReDim cuts(3).L(13) cuts(3).L(0) = 11 cuts(3).L(1) = 11.1 cuts(3).L(2) = 11.2 ReDim cuts(3).R(15) cuts(3).R(0) = 12 cuts(3).R(1) = 12.01 ' Fifth cut: Detailed around specific values Dim specificCut As DedekindCut ReDim specificCut.L(5) specificCut.L(0) = 11