QB64.org Forum

Active Forums => Programs => Topic started by: AndyA on April 13, 2021, 11:02:30 pm

Title: Cantor Set (Rosetta Code task)
Post by: AndyA on April 13, 2021, 11:02:30 pm

https://rosettacode.org/wiki/Cantor_set (https://rosettacode.org/wiki/Cantor_set)


The task description basically says draw the Cantor Set.
It's refers to the Wikipedia page here https://en.wikipedia.org/wiki/Cantor_set (https://en.wikipedia.org/wiki/Cantor_set)

[begin edit] Had to delete timing variables not used for posting [end edit]

Code: QB64: [Select]

1. _Title "Cantor Set"
2.  
3. Const sw% = 800
4. Const sh% = 200
5. Const wide% = 729
6. Const high% = 7
7.  
8. Screen _NewImage(sw, sh, 8)
9.  
10. Dim Shared As Integer a(wide, high)
11.  
12. Call calc(0, wide, 1)
13. Call CantorSet
14.  
15. Sleep
16. System
17.  
18. Sub calc (start As Integer, length As Integer, index As Integer)
19.     Dim As Integer i, j, newLength
20.     newLength = length \ 3
21.     If newLength = 0 Then Exit Sub
22.     For j = index To high - 1
23.         For i = start + newLength To start + newLength * 2 - 1
24.             a(i, j) = 1
25.         Next
26.     Next
27.     Call calc(start, newLength, index + 1)
28.     Call calc(start + newLength * 2, newLength, index + 1)
29. End Sub
30.  
31. Sub CantorSet
32.     Dim As Integer i, j, x, y
33.     For y = 0 To high - 1
34.         j = y + 1
35.         For x = 0 To wide - 1
36.             i = x + 34
37.             If a(x, y) = 0 Then Line (i, j * 24 - 5)-(i, j * 24 + 17)
38.         Next
39.     Next
40. End Sub

Text Only | Text with Attachments