lathvian Table "latvian_KS_63z1_m" (ID1 Integer,X_l Float,Y_l Float,X_m Float,Y_m Float) file "f:\temp\2\latvian_KS_63z1_m.TAB" TYPE NATIVE Charset "WindowsCyrillic"
lathvian Map For latvian_KS_63z1_m CoordSys Earth Projection 8, 1001, "m", 24.95, 0, 1, 1250000, -11057.62592 Bounds (750000, 5500000) (1750000, 6500000)
lathvian Table "latvian_KS_63z1_bb" (ID1 Integer,X_l Float,Y_l Float,X_m Float,Y_m Float) file "f:\temp\2\latvian_KS_63z1_bb.TAB" TYPE NATIVE Charset "WindowsCyrillic"
lathvian Map For lathvian_KS_63z1_bb CoordSys Earth Projection 8, 1001, "m", 24.95, 0.1, 1, 1250000, 0 Bounds (750000, 5500000) (1750000, 6500000)

Insert Into lathvian_KS_63z1_bb ( COL1, COL4, col5) Select rowid, COL1, COL2 From i_j
Insert Into lathvian_KS_63z1_m ( COL1, COL4, col5) Select rowid, COL1, COL2 From i_j

Commit Table lathvian_KS_63z1_m Interactive
Commit Table lathvian_KS_63z1_bb Interactive

set coordsys table lathvian_KS_63z1_m
update lathvian_KS_63z1_m set obj=lathvianpoint(X_m,Y_m)
Commit Table lathvian_KS_63z1_m Interactive

set coordsys table lathvian_KS_63z1_bb
update lathvian_KS_63z1_bb set obj=lathvianpoint(X_m,Y_m)
Commit Table lathvian_KS_63z1_bb Interactive

set map coordsys table lathvian_KS_63z1_m
set coordsys table lathvian_KS_63z1_m
update lathvian_KS_63z1_m set col2=centroidx(obj), col3=centroidy(obj)
update lathvian_KS_63z1_bb set col2=centroidx(obj), col3=centroidy(obj)

Commit Table lathvian_KS_63z1_m Interactive
Commit Table lathvian_KS_63z1_bb Interactive

Select (lathvian_KS_63z1_m.X_l-lathvian_KS_63z1_bb.X_l)*(lathvian_KS_63z1_m.X_l-lathvian_KS_63z1_bb.X_l) + (lathvian_KS_63z1_m.Y_l-lathvian_KS_63z1_bb.Y_l)*(lathvian_KS_63z1_m.Y_l-lathvian_KS_63z1_bb.Y_l) from lathvian_KS_63z1_m, lathvian_KS_63z1_bb where lathvian_KS_63z1_m.ID1 = lathvian_KS_63z1_bb.ID1 into Q001
Browse * From Q001

Select sqr((lathvian_KS_63z1_m.X_l-lathvian_KS_63z1_bb.X_l)*(lathvian_KS_63z1_m.X_l-lathvian_KS_63z1_bb.X_l) + (lathvian_KS_63z1_m.Y_l-lathvian_KS_63z1_bb.Y_l)*(lathvian_KS_63z1_m.Y_l-lathvian_KS_63z1_bb.Y_l)) from lathvian_KS_63z1_m, lathvian_KS_63z1_bb where lathvian_KS_63z1_m.ID1 = lathvian_KS_63z1_bb.ID1 into Q002
Browse * From Q002
