######################################################################
## File: Sequential-OBA-Queries         ##############################
######################################################################
##  This file is part of SECONDO.
##
##  Copyright (C) 2007, University in Hagen, Faculty of Mathematics and
##  Computer Science, Database Systems for New Applications.
##
##  SECONDO is free software; you can redistribute it and/or modify
##  it under the terms of the GNU General Public License as published by
##  the Free Software Foundation; either version 2 of the License, or
##  (at your option) any later version.
##
##  SECONDO is distributed in the hope that it will be useful,
##  but WITHOUT ANY WARRANTY; without even the implied warranty of
##  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
##  GNU General Public License for more details.
##
##  You should have received a copy of the GNU General Public License
##  along with SECONDO; if not, write to the Free Software
##  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
######################################################################

## This file performs the OBA-Queries of the BerlinMOD benchmark
## in the SECONDO database produced by parallel generation. 
## All results are kept in objects named like SQ_OBACRresXXX, 
## XXX indicates the no. of the query. 
#############################################################
#############################################################
# All OBA/CR- Queries

query now();
#############################################################
# A - 1
let SQ_OBACRres001 = QueryLicences feed {O} 
  loopjoin[ dataSCcar_Licence_btree dataSCcar exactmatch[.Licence_O]] 
  project[Licence, Model] 
consume; 

query now();
#############################################################
# B - 2
let SQ_OBACRres002 = 
  dataSCcar feed filter [.Type = "passenger"] 
count;  

query now();
#############################################################
# C - 3
let SQ_OBACRres003 =
  QueryLicences feed {LL} head[10]
  loopjoin[dataSCcar_Licence_btree dataSCcar exactmatch[.Licence_LL]]
  QueryInstants feed {II} head[10]
  product
  projectextend[; Licence: .Licence_LL, Instant: .Instant_II,
                  Pos: val(.Journey atinstant .Instant_II)]
consume;

query now();
#############################################################
# D - 4
let SQ_OBACRres004 = 
  QueryPoints feed 
  loopjoin[ dataSCcar_Journey_sptuni 
    windowintersectsS[bbox(.Pos)] sort rdup 
    dataSCcar gettuples] 
  filter[.Journey passes .Pos] project[Pos, Licence] 
  sortby[Pos, Licence] krdup[Pos, Licence] 
consume; 

query now();
#############################################################
# E - 5
let SQ_OBACRres005tmp1 =
  QueryLicences feed head[10] 
  loopsel[ dataSCcar_Licence_btree dataSCcar 
  exactmatch[.Licence] ] 
  projectextend[Licence; Traj: 
    simplify(trajectory(.Journey),0.000001)] 
consume; 

query now();

let SQ_OBACRres005tmp2 =
  QueryLicences feed head[20] filter[.Id>10] 
  loopsel[ dataSCcar_Licence_btree dataSCcar 
  exactmatch[.Licence] ] 
  projectextend[Licence; Traj: 
    simplify(trajectory(.Journey),0.000001)] 
consume; 

query now();

let SQ_OBACRres005 =
  SQ_OBACRres005tmp1 feed {V1} SQ_OBACRres005tmp2 feed {V2} 
  product 
  projectextend[ ; Licence1: .Licence_V1, 
    Licence2: .Licence_V2, Dist: distance(.Traj_V1, .Traj_V2)] 
sort rdup 
consume; 

delete SQ_OBACRres005tmp1;
delete SQ_OBACRres005tmp2;

query now();
#############################################################
# F - 6
let SQ_OBACRres006 = 
  dataSCcar feed {V1} filter[.Type_V1 = "truck"] 
  dataSCcar feed {V2} filter[.Type_V2 = "truck"] 
  symmjoin[.Licence_V1 < ..Licence_V2] 
  filter[ minimum(distance(.Journey_V1, .Journey_V2)) <= 10.0 ] 
  projectextend[ ; Licence1: .Licence_V1, Licence2: .Licence_V2 ] 
consume; 

query now();
#############################################################
# G - 7
let SQ_OBACRres007PointMinInst = QueryPoints feed project[Pos]
  loopjoin[ dataSCcar_Journey_sptuni
            windowintersectsS[bbox(.Pos)]
            sort rdup dataSCcar gettuples ]
  filter[.Type = "passenger"]
  projectextend[Pos ; Instant: inst(initial(.Journey at .Pos)) ]
  filter[not(isempty(.Instant))]
  sortby[Pos asc, Instant asc]
  groupby[Pos; FirstTime: group feed min[Instant] ]
consume;

query now();

let SQ_OBACRres007 =
  SQ_OBACRres007PointMinInst feed
  extend[MBR: box3d(bbox(.Pos),.FirstTime) ]
  loopjoin[ dataSCcar_Journey_sptmpuni
            windowintersectsS[.MBR]
            sort rdup dataSCcar gettuples ]
  filter[.Type = "passenger"] filter[.Journey passes .Pos]
  projectextend[Licence, FirstTime,
    Pos ; Instant: inst(initial(.Journey at .Pos))]
  filter[.Instant <= .FirstTime]
  project[ Pos, Licence ]
consume;

delete SQ_OBACRres007PointMinInst;

query now();
#############################################################
# H - 8
let SQ_OBACRres008 = 
  QueryLicences feed {LL} head[10] 
    loopsel[ dataSCcar_Licence_btree dataSCcar exactmatch[.Licence_LL] ] 
  QueryPeriods feed project[Period] head[10] {PP} 
  product 
  projectextend[Licence; Period: .Period_PP, 
    Dist: round(length(.Journey atperiods .Period_PP),3)] 
  project[Licence, Period, Dist] 
consume; 

query now();
#############################################################
# I - 9
let SQ_OBACRres009 = 
  dataSCcar feed project[Journey] {V1} 
  QueryPeriods feed {PP} 
  product 
  projectextend[Id_PP ; Period: .Period_PP, D: 
    length(.Journey_V1 atperiods .Period_PP)] 
  sortby[Id_PP, Period, D desc] 
  groupby[ Id_PP, Period; Dist: round(group feed max[D],3) ] 
  project[Period, Dist]
consume;

query now();
#############################################################
# J - 10
let SQ_OBACRres010 = 
  QueryLicences feed head[10] 
  loopsel[ dataSCcar_Licence_btree dataSCcar exactmatch[.Licence] 
    project[Licence, Journey] ] {V1}
  dataSCcar feed project[Licence, Journey] {V2} 
  symmjoin[(.Licence_V1 # ..Licence_V2) ] 
  filter[ (everNearerThan(.Journey_V1, .Journey_V2, 3.0)) ] 
  projectextend[; QueryLicence: .Licence_V1, 
    OtherLicence: .Licence_V2, 
    Pos: .Journey_V1 atperiods deftime((distance(.Journey_V1, 
      .Journey_V2) < 3.0) at TRUE) 
  ] 
  filter[not(isempty(deftime(.Pos)))] 
  project[QueryLicence, OtherLicence, Pos] 
  sort rdup 
consume;

query now();
#############################################################
# K - 11
let SQ_OBACRres011 =
  QueryPoints feed head[10] project[Pos] {PP} 
  QueryInstants feed head[10] project[Instant] {II} 
  product 
  loopjoin[ dataSCcar_Journey_sptmpuni 
    windowintersectsS[box3d(bbox(.Pos_PP), .Instant_II)] 
    sort rdup ] 
  dataSCcar gettuples 
  projectextend[Licence, Pos_PP, Instant_II; XPos: 
    val(.Journey atinstant .Instant_II) ] 
  filter[not(isempty(.XPos))] 
  filter[distance(.XPos,.Pos_PP) < 0.5] 
  projectextend[Licence; Pos: .Pos_PP, Instant: .Instant_II] 
  sort rdup
consume; 

query now();
#############################################################
# L - 12
let SQ_OBACRres012allInstants = 
  QueryInstants feed head[10] 
  extend[Period: theRange(.Instant, .Instant, TRUE, TRUE)] 
  aggregateB[Period; fun(I1: periods, I2:periods) 
    I1 union I2; [const periods value ()] 
]; 

let SQ_OBACRres012 = 
  QueryPoints feed head[10] project[Pos] 
  loopjoin[ dataSCcar_Journey_sptuni 
    windowintersectsS[bbox(.Pos)] 
    sort rdup dataSCcar gettuples 
    projectextend[Licence 
      ; Journey: .Journey atperiods SQ_OBACRres012allInstants] 
  ] 
  filter[.Journey passes .Pos] 
  projectextend[Licence, Pos; Journey: .Journey at .Pos] {V1} 
  QueryPoints feed head[10] project[Pos] 
  loopjoin[ dataSCcar_Journey_sptuni 
    windowintersectsS[bbox(.Pos)] 
    sort rdup dataSCcar gettuples 
    projectextend[Licence; Journey: .Journey atperiods SQ_OBACRres012allInstants] 
  ] 
  filter[.Journey passes .Pos] 
  projectextend[Licence, Pos; Journey: .Journey at .Pos] {V2} 
  symmjoin[.Licence_V1 < ..Licence_V2] 
  QueryInstants feed head[10] 
  symmjoin[val(.Journey_V1 atinstant ..Instant) 
    = val(.Journey_V2 atinstant ..Instant)] 
  projectextend[ Pos_V2, Instant; Licence1: .Licence_V1, 
    Licence2: .Licence_V2] 
  sort rdup 
consume; 

delete SQ_OBACRres012allInstants;

query now();
#############################################################
# M - 13
let SQ_OBACRres013 = 
  QueryRegions feed head[10] filter[not(isempty(.Region))] {RR} 
  QueryPeriods feed head[10] filter[not(isempty(.Period))] {PP} 
  product 
  loopsel [ fun(t:TUPLE) 
    dataSCcar_Journey_sptmpuni windowintersectsS[box3d(
      bbox(attr(t,Region_RR)), attr(t,Period_PP))] 
    sort rdup dataSCcar gettuples 
    filter[(.Journey atperiods attr(t,Period_PP)) 
      passes attr(t,Region_RR) 
    ] 
    projectextend[Licence; Region: attr(t,Region_RR), 
      Period: attr(t,Period_PP), Id_RR: attr(t,Id_RR), 
      Id_PP: attr(t,Id_PP)] 
  ] 
  sortby[Id_RR, Id_PP, Licence] krdup[Id_RR, Id_PP, Licence] 
  project[Region, Period, Licence]
consume; 

query now();
#############################################################
# M1 - 14
let SQ_OBACRres014 = 
  QueryRegions feed head[10] {RR} 
  QueryInstants feed head[10] {II} product 
  loopsel [ fun(t:TUPLE) 
    dataSCcar_Journey_sptmpuni windowintersectsS[box3d(
      bbox(attr(t,Region_RR)),attr(t,Instant_II))] 
    sort rdup dataSCcar gettuples 
    filter[val(.Journey atinstant attr(t,Instant_II)) 
      inside attr(t,Region_RR) 
    ] 
    projectextend[Licence; Region: attr(t,Region_RR), 
      Instant: attr(t,Instant_II), Id_RR: attr(t,Id_RR), 
      Id_II: attr(t,Id_II)] 
  ] 
  sortby[Id_RR, Id_II, Licence] krdup[Id_RR, Id_II, Licence] 
  project[Region, Instant, Licence] 
consume; 

query now();
#############################################################
# M2 - 15
let SQ_OBACRres015 = 
  QueryPoints feed head[10] {PO} 
  QueryPeriods feed head[10] {PR} product 
  loopsel [ fun(t:TUPLE) 
    dataSCcar_Journey_sptmpuni windowintersectsS[ box3d(
      bbox(attr(t,Pos_PO)),attr(t,Period_PR)) ] 
    sort rdup dataSCcar gettuples 
    filter[(.Journey atperiods attr(t,Period_PR)) 
      passes attr(t,Pos_PO) 
    ] 
    projectextend[Licence; Point: attr(t,Pos_PO), 
      Period: attr(t,Period_PR), Id_PO: attr(t,Id_PO), 
      Id_PR: attr(t,Id_PR)] 
  ] 
  sortby[Id_PO, Id_PR, Licence] krdup[Id_PO, Id_PR, Licence] 
  project[Point, Period, Licence]
consume; 

query now();
#############################################################
# N - 16
let SQ_OBACRres016Candidates1 =
  QueryLicences feed head[10] 
  loopsel[ fun(t:TUPLE) 
    dataSCcar_Licence_btree dataSCcar exactmatch[attr(t,Licence)]] 
  QueryPeriods feed head[10] {PP} 
  QueryRegions feed head[10] {RR} 
  product 
  product 
  projectextend[Licence, Region_RR, Period_PP, Id_RR, Id_PP 
    ; Journey: (.Journey atperiods .Period_PP) at .Region_RR] 
  filter[no_components(.Journey) > 0] 
consume; 

query now();

let SQ_OBACRres016Candidates2 = 
  QueryLicences feed head[20] filter[.Id > 10] 
  loopsel[ fun(t:TUPLE) 
    dataSCcar_Licence_btree dataSCcar exactmatch[attr(t,Licence)]] 
  QueryPeriods feed head[10] {PP} 
  QueryRegions feed head[10] {RR} 
  product 
  product  
  projectextend[Licence, Region_RR, Period_PP, Id_RR, Id_PP 
    ; Journey: (.Journey atperiods .Period_PP) at .Region_RR] 
  filter[no_components(.Journey) > 0] 
consume;
  
query now();

### Increased Tolerance to 0.1m 
let SQ_OBACRres016 = 
  SQ_OBACRres016Candidates1 feed {C1} 
  SQ_OBACRres016Candidates2 feed {C2} 
  symmjoin[ (.Licence_C1 < ..Licence_C2) 
    and (.Id_RR_C1 = ..Id_RR_C2) 
    and (.Id_PP_C1 = ..Id_PP_C2) 
  ] 
  filter[ not(everNearerThan(.Journey_C1, .Journey_C2, 0.1)) ] 
  projectextend[; Licence1: .Licence_C1, 
    Licence2: .Licence_C2, Region: .Region_RR_C1,
    Period: .Period_PP_C1, Id_RR: .Id_RR_C1,
    Id_PP: .Id_PP_C1 ] 
  sortby[Id_RR, Id_PP, Licence1, Licence2] 
  krdup[Id_RR, Id_PP, Licence1, Licence2] 
  project[Region, Period, Licence1, Licence2] 
consume; 

delete SQ_OBACRres016Candidates1;
delete SQ_OBACRres016Candidates2;

query now();
#############################################################
# O - 17
let SQ_OBACRres017PosCount = QueryPoints feed project[Pos] {PP}
  loopjoin[ fun(t:TUPLE)
    dataSCcar_Journey_sptuni
    windowintersectsS[bbox(attr(t,Pos_PP))]
    sort rdup dataSCcar gettuples
    filter[.Journey passes attr(t,Pos_PP)]
    project[Licence]
  ]
  projectextend[Licence; Pos: .Pos_PP]
  sortby[Pos asc, Licence asc]
  groupby[Pos; Hits: group feed rdup count] 
consume;

query now();

let SQ_OBACRres017 =
  SQ_OBACRres017PosCount feed
  filter[.Hits = (SQ_OBACRres017PosCount feed max[Hits])]
  project[Pos, Hits] 
consume;

delete SQ_OBACRres017PosCount;

query now();
#############################################################
#############################################################
let EVAL_SEC2COMMANDS_BACKUP02 = SEC2COMMANDS feed consume;