Lines Matching refs:set
16 set testdir [file join [file dirname [info script]] .. .. test]
26 set ::NROW 2500
28 set ::NROW 250
42 set r [expr {int(rand()*$X*32.0)/32.0}]
57 set r [expr {int(rand()*$X)+1}]
66 set y {}
70 set y [lsort $y]
71 set outlist {}
85 for {set nDim 1} {$nDim<=5} {incr nDim} {
93 set clist {}
94 set cklist {}
95 for {set i 0} {$i<$nDim} {incr i} {
111 for {set i 1} {$i<$::NROW} {incr i} {
115 set vlist {}
116 for {set j 0} {$j<$nDim} {incr j} {
117 set mn [rand 10000]
118 set mx [expr {$mn+[randincr 50]}]
127 set where {}
128 for {set j 0} {$j<$nDim} {incr j} {
129 set mn [rand 10000]
130 set mx [expr {$mn+[randincr 500]}]
133 set where "WHERE [join $where { AND }]"
140 set where {}
141 for {set j 0} {$j<$nDim} {incr j} {
142 set mn [rand 10000]
143 set mx [expr {$mn+[randincr 500]}]
146 set where "WHERE [join $where { AND }]"
154 set where {}
155 for {set j 0} {$j<$nDim} {incr j} {
158 for {set j 0} {$j<$nDim} {incr j} {
159 set mn [rand 10000]
160 set mx [expr {$mn+[randincr 500]}]
163 set where "WHERE [join $where { AND }]"
171 set where {}
172 for {set j 0} {$j<$nDim} {incr j} {
175 for {set j 0} {$j<$nDim} {incr j} {
176 set mn [rand 10000]
177 set mx [expr {$mn+[randincr 500]}]
180 set where "WHERE [join $where { AND }]"
187 set where {}
188 for {set j 0} {$j<$nDim} {incr j} {
189 set mn [rand 10000]
190 set mx [expr {$mn+[randincr 500]}]
193 for {set j [expr {$nDim-1}]} {$j>=0} {incr j -1} {
196 set where "WHERE [join $where { AND }]"
203 set where {}
204 for {set j [expr {$nDim-1}]} {$j>=0} {incr j -1} {
205 set mn [rand 10000]
206 set mx [expr {$mn+[randincr 500]}]
209 for {set j 0} {$j<$nDim} {incr j} {
212 set where "WHERE [join $where { AND }]"
220 set where {}
221 for {set j 0} {$j<$nDim} {incr j} {
222 set mn1 [rand 10000]
223 set mn2 [expr {$mn1+[randincr 100]}]
224 set mx1 [expr {$mn2+[randincr 400]}]
225 set mx2 [expr {$mx1+[randincr 100]}]
228 set where "WHERE [join [scramble $where] { AND }]"
236 set where {}
237 for {set j 0} {$j<$nDim} {incr j} {
238 set mn1 [rand 10000]
239 set mn2 [expr {$mn1+[randincr 100]}]
240 set mx1 [expr {$mn2+[randincr 400]}]
241 set mx2 [expr {$mx1+[randincr 100]}]
244 set where "WHERE [join [scramble $where] { AND }]"