Friday, June 29, 2007

開始了

原因其實很簡單.
在完成了災防會的圖資倉儲之後, 覺得倉儲裏面有很多資料可以使用. 為什麼不善加利用呢? 要用什麼呢? 建立路網, 並測試 Spatial Network Model, Why not?
在拜訪過科長, 談了一下我想法. 感謝科長同意借我資料測試.
測試的資料是運研所的資料. 資料量比我想像中要大了一點.
運研所的資料有點問題. 雖然有問題的資料只佔了0.06%(都是多點了一點), 所以也寫了一支小程式修正了這些資料.
程式:

create or replace PROCEDURE FIXING_GEOM AS
b_rowid val_results.sdo_rowid%TYPE;
t_geo_loc A012009.geoloc%type;
cursor c1 is
select SDO_ROWID from VAL_RESULTS;
BEGIN
OPEN c1;
LOOP
FETCH c1 INTO b_rowid;
EXIT WHEN c1%NOTFOUND;
UPDATE A012009
SET GEOLOC = SDO_UTIL.RECTIFY_GEOMETRY(GEOLOC, 0.000005)
WHERE ROWID = b_rowid;
COMMIT;
commit;
END LOOP;
CLOSE c1;
END FIXING_GEOM;