55 lines
1.1 KiB
Plaintext
55 lines
1.1 KiB
Plaintext
#Javagui
|
|
open database berlintest
|
|
|
|
# observe x-extension 30000, y-extension 20000
|
|
# create a 6 x 4 raster of squares of size 5000
|
|
# lower left corner at (-4000, 1000)
|
|
|
|
if isDBObject("r1") then delete r1 endif
|
|
|
|
let r1 = [const rect value (-4000.0 1000.0 1000.0 6000.0)]
|
|
rect2region
|
|
|
|
if isDBObject("raster") then delete raster endif
|
|
|
|
let raster = r1 feed transformstream
|
|
ten feed filter[.No < 7] {t1}
|
|
ten feed filter[.No < 5] {t2}
|
|
product product
|
|
addcounter[No, 1]
|
|
projectextend[No;
|
|
Field: .Elem translate[(.No_t1 - 1) * 5000.0,
|
|
(.No_t2 - 1) * 5000.0] ]
|
|
consume
|
|
|
|
query raster
|
|
|
|
# for the following use reference dependent rendering by field Occupation
|
|
|
|
query Trains feed filter[.Line < 5]
|
|
raster feed
|
|
symmjoin[.Trip passes ..Field]
|
|
sortby[No asc]
|
|
groupby[No;
|
|
Field: group feed extract[Field],
|
|
Occupation: group feed
|
|
extend[Time: periods2mint(deftime(.Trip at .Field))]
|
|
aggregate[Time; fun(m1:mint, m2:mint) m1 + m2; zero()]
|
|
]
|
|
consume
|
|
|
|
query Trains feed filter[.Line < 5] consume
|
|
|
|
close database
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|