times.rkt.txt (1944B)
1 #lang racket 2 (require plot) 3 (parameterize ([plot-x-transform log-transform] 4 [plot-x-ticks (log-ticks #:base 2)] 5 [plot-y-transform log-transform] 6 [plot-y-ticks (log-ticks #:base 2)]) 7 (plot 8 #:x-min 1 #:x-max 3000 9 #:y-min 1 #:y-max 3000 10 (list 11 (lines #:color 1 12 '(#(16 16) 13 #(17 25) 14 #(20 26) 15 #(24 29) 16 #(28 31) 17 #(32 35) ; 20 with shared implementation & type, 22 shrd impl only 18 #(33 60) 19 #(40 67) 20 #(48 77) 21 #(56 80) 22 #(64 92) ;; 46 23 #(65 168) 24 #(80 189) 25 #(96 216) 26 #(128 276) 27 #(129 562) 28 #(256 911) 29 #(257 2078) 30 #(512 3000) ;; rough estimation 31 )) 32 ;; with shared implementation & type: 33 (lines #:color 2 34 '(#(16 11) 35 ;#(17 25) 36 ;#(20 26) 37 ;#(24 29) 38 ;#(28 31) 39 #(32 20) 40 ;#(33 60) 41 ;#(40 67) 42 ;#(48 77) 43 ;#(56 80) 44 #(64 46) 45 ;#(65 168) 46 ;#(80 189) 47 ;#(96 216) 48 #(128 120) 49 ;#(129 562) 50 #(256 363) 51 ;#(257 2078) 52 #(512 1317) 53 )) 54 ;; further optimisations 55 (lines #:color 3 56 '(#(16 10) 57 #(17 12) 58 #(20 13) 59 #(24 13) 60 #(28 14) 61 #(32 15) 62 #(33 22) 63 #(40 24) 64 #(48 26) 65 #(56 28) 66 #(64 30) 67 #(65 49) 68 #(80 54) 69 #(96 57) 70 #(128 69) 71 #(129 129) 72 #(256 186) 73 #(257 372) 74 #(512 587) 75 ))))) 76