Return to rtree_perf.tcl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / ext / rtree

Annotation of embedaddon/sqlite3/ext/rtree/rtree_perf.tcl, revision 1.1

1.1     ! misho       1: 
        !             2: set testdir [file join [file dirname $argv0] .. .. test]
        !             3: source $testdir/tester.tcl
        !             4: 
        !             5: ifcapable !rtree {
        !             6:   finish_test
        !             7:   return
        !             8: }
        !             9: 
        !            10: set NROW   10000
        !            11: set NQUERY   500
        !            12: 
        !            13: puts "Generating $NROW rows of data..."
        !            14: set data [list]
        !            15: for {set ii 0} {$ii < $NROW} {incr ii} {
        !            16:   set x1 [expr {rand()*1000}]
        !            17:   set x2 [expr {$x1+rand()*50}]
        !            18:   set y1 [expr {rand()*1000}]
        !            19:   set y2 [expr {$y1+rand()*50}]
        !            20:   lappend data $x1 $x2 $y1 $y2
        !            21: }
        !            22: puts "Finished generating data"
        !            23: 
        !            24: 
        !            25: set sql1 {CREATE TABLE btree(ii INTEGER PRIMARY KEY, x1, x2, y1, y2)}
        !            26: set sql2 {CREATE VIRTUAL TABLE rtree USING rtree(ii, x1, x2, y1, y2)}
        !            27: puts "Creating tables:"
        !            28: puts "  $sql1"
        !            29: puts "  $sql2"
        !            30: db eval $sql1
        !            31: db eval $sql2
        !            32: 
        !            33: db eval "pragma cache_size=100"
        !            34: 
        !            35: puts -nonewline "Inserting into btree... "
        !            36: flush stdout
        !            37: set btree_time [time {db transaction {
        !            38:   set ii 1
        !            39:   foreach {x1 x2 y1 y2} $data {
        !            40:     db eval {INSERT INTO btree VALUES($ii, $x1, $x2, $y1, $y2)}
        !            41:     incr ii
        !            42:   }
        !            43: }}]
        !            44: puts "$btree_time"
        !            45: 
        !            46: puts -nonewline "Inserting into rtree... "
        !            47: flush stdout
        !            48: set rtree_time [time {db transaction {
        !            49:   set ii 1
        !            50:   foreach {x1 x2 y1 y2} $data {
        !            51:     incr ii
        !            52:     db eval {INSERT INTO rtree VALUES($ii, $x1, $x2, $y1, $y2)}
        !            53:   }
        !            54: }}]
        !            55: puts "$rtree_time"
        !            56: 
        !            57: 
        !            58: puts -nonewline "Selecting from btree... "
        !            59: flush stdout
        !            60: set btree_select_time [time {
        !            61:   foreach {x1 x2 y1 y2} [lrange $data 0 [expr $NQUERY*4-1]] {
        !            62:     db eval {SELECT * FROM btree WHERE x1<$x1 AND x2>$x2 AND y1<$y1 AND y2>$y2}
        !            63:  }
        !            64: }]
        !            65: puts "$btree_select_time"
        !            66: 
        !            67: puts -nonewline "Selecting from rtree... "
        !            68: flush stdout
        !            69: set rtree_select_time [time {
        !            70:   foreach {x1 x2 y1 y2} [lrange $data 0 [expr $NQUERY*4-1]] {
        !            71:     db eval {SELECT * FROM rtree WHERE x1<$x1 AND x2>$x2 AND y1<$y1 AND y2>$y2}
        !            72:   }
        !            73: }]
        !            74: puts "$rtree_select_time"