Postgresql構(gòu)建經(jīng)緯度查詢兩點(diǎn)之間的最短路徑

前言

前段時(shí)間遇到了實(shí)際的需求,在特定的路網(wǎng)中查詢最短路徑邀层。同時(shí)配合 Cesium 進(jìn)行動(dòng)態(tài)顯示棕洋。

需求

  • 動(dòng)態(tài)查詢兩點(diǎn)之間的最短路徑(起點(diǎn)固定);
  • 查詢的路徑高亮顯示逗扒;
  • Cesium 對(duì)生成的路徑進(jìn)行小車移動(dòng)展示古戴。

技術(shù)實(shí)現(xiàn)路線

  1. 動(dòng)態(tài)查詢兩點(diǎn)之間的最短路徑 -> Postgresql 中的 PgRouting 實(shí)現(xiàn);
  2. 查詢的路徑高亮顯示 -> Cesium 中 PolylineGlowMaterialProperty 進(jìn)行高亮顯示矩肩;
  3. 路徑進(jìn)行小車移動(dòng)展示 ->CZML 進(jìn)行動(dòng)態(tài)展示

實(shí)現(xiàn)效果

實(shí)現(xiàn)效果

Postgresql 最短路徑實(shí)現(xiàn)

起初是參考 PgRouting 官網(wǎng) 的做法现恼。但是這種做法是對(duì)數(shù)據(jù)進(jìn)行拓?fù)洌捎邢驁D(或者無(wú)向圖)采用 dijkstra 算法進(jìn)行最短路徑的生成。這種方法最大的問(wèn)題就是判斷鼠標(biāo)點(diǎn)擊的點(diǎn)位于有向圖的位置述暂。相對(duì)來(lái)說(shuō)比較麻煩痹升。

官網(wǎng)說(shuō)明

實(shí)現(xiàn)流程:

  • 首先將數(shù)據(jù)導(dǎo)入 Postgresql 數(shù)據(jù)庫(kù)
  • 對(duì)數(shù)據(jù)進(jìn)行路網(wǎng)拓?fù)鋽?shù)據(jù)計(jì)算處理,執(zhí)行成功后畦韭,執(zhí)行成功后會(huì)生產(chǎn)一個(gè) vertices_pgr 的表疼蛾,里面包含路網(wǎng)相交點(diǎn)的空間數(shù)據(jù)
alter table road add column source int;
alter table road add column target int;

create index road_source_idx on road("source");
create index road_target_idx on road("target");

ALTER TABLE road  ADD COLUMN length double precision;  

SELECT pgr_createTopology('road',0.00001, 'geom', 'gid');  

update road set length =st_length(geom);

  • 查詢最短路徑 sql 語(yǔ)句前端傳入的是有向圖中的某兩個(gè)端點(diǎn)。
SELECT seq, id1 AS node, id2 AS edge, cost,geom  FROM pgr_dijkstra('  
SELECT gid AS id,              
source::integer,                 
target::integer,                
length::double precision AS cost  
FROM xmpark_road',  
1, 10, false, false) as di  
join xmpark_road pt  
on di.id2 = pt.gid


最方便的還是直接傳入起始點(diǎn)的坐標(biāo)進(jìn)行路徑的查詢

感謝 itas109 提供的經(jīng)緯度查詢的最短路徑的方法艺配。這是 Github 地址 https://github.com/itas109/postgis_navigation察郁。

思路是將創(chuàng)建新的函數(shù),將鼠標(biāo)點(diǎn)擊的兩點(diǎn)經(jīng)緯度傳入獲得最短路徑的返回值转唉。

CREATE OR REPLACE FUNCTION "public"."pgr_fromatob"(IN "tbl" varchar, IN "x1" float8, IN "y1" float8, IN "x2" float8, IN "y2" float8, OUT "seq" int4, OUT "gid" int4, OUT "name" text, OUT "heading" float8, OUT "cost" float8, OUT "geom" "public"."geometry")
  RETURNS SETOF "pg_catalog"."record" AS $BODY$  
DECLARE  
        sql     text;  
        rec     record;  
        source  integer;  
        target  integer;  
        point   integer;  

BEGIN  
    -- 查詢距離出發(fā)點(diǎn)最近的道路節(jié)點(diǎn)  
    EXECUTE 'SELECT id::integer FROM road_vertices_pgr   
            ORDER BY the_geom <-> ST_GeometryFromText(''POINT('   
            || x1 || ' ' || y1 || ')'',900913) LIMIT 1' INTO rec;  
    source := rec.id;  

    -- 查詢距離目的地最近的道路節(jié)點(diǎn)  
    EXECUTE 'SELECT id::integer FROM road_vertices_pgr   
            ORDER BY the_geom <-> ST_GeometryFromText(''POINT('   
            || x2 || ' ' || y2 || ')'',900913) LIMIT 1' INTO rec;  
    target := rec.id;  

    -- 最短路徑查詢   
        seq := 0;  
        sql := 'SELECT gid, geom, cost, source, target,   
                ST_Reverse(geom) AS flip_geom FROM ' ||  
                        'pgr_bdAstar(''SELECT gid as id, source::int, target::int, '  
                                        || 'length::float AS cost,x1,y1,x2,y2 FROM '  
                                        || quote_ident(tbl) || ''', '  
                                        || source || ', ' || target   
                                        || ' ,false, false), '  
                                || quote_ident(tbl) || ' WHERE id2 = gid ORDER BY seq';  

    -- Remember start point  
        point := source;  

        FOR rec IN EXECUTE sql  
        LOOP  
        -- Flip geometry (if required)  
        IF ( point != rec.source ) THEN  
            rec.geom := rec.flip_geom;  
            point := rec.source;  
        ELSE  
            point := rec.target;  
        END IF;  

        -- Calculate heading (simplified)  
        EXECUTE 'SELECT degrees( ST_Azimuth(   
                ST_StartPoint(''' || rec.geom::text || '''),  
                ST_EndPoint(''' || rec.geom::text || ''') ) )'   
            INTO heading;  

        -- Return record  
                seq     := seq + 1;  
                gid     := rec.gid;   
                cost    := rec.cost;  
                geom    := rec.geom;  
                RETURN NEXT;  
        END LOOP;  
        RETURN;  
END;  
$BODY$
  LANGUAGE plpgsql VOLATILE STRICT
  COST 100
  ROWS 1000

使用新函數(shù)之前要對(duì)數(shù)據(jù)進(jìn)行處理皮钠。路網(wǎng)數(shù)據(jù)必須在節(jié)點(diǎn)處打斷,同時(shí)在 ArcMap 中進(jìn)行拓?fù)浼m錯(cuò)赠法。數(shù)據(jù)導(dǎo)入后進(jìn)行如下處理:

ALTER TABLE road ADD COLUMN source integer;     --添加起點(diǎn)id字段
ALTER TABLE road ADD COLUMN target integer;     --添加終點(diǎn)id字段
ALTER TABLE road ADD COLUMN length double precision;    --添加道路權(quán)重字段

SELECT pgr_createTopology('road',0.00001, 'geom', 'gid');   --為source和target賦值麦轰,并創(chuàng)建拓?fù)潼c(diǎn)表road_vertices_pgr

update road set length =st_length(geom);            --為length賦值

CREATE INDEX source_idx ON road("source");      --為source字段創(chuàng)建索引
CREATE INDEX target_idx ON road("target");          --為target字段創(chuàng)建索引

ALTER TABLE road ADD COLUMN x1 double precision;        --創(chuàng)建起點(diǎn)經(jīng)度x1
ALTER TABLE road ADD COLUMN y1 double precision;        --創(chuàng)建起點(diǎn)緯度y1
ALTER TABLE road ADD COLUMN x2 double precision;        --創(chuàng)建起點(diǎn)經(jīng)度x2
ALTER TABLE road ADD COLUMN y2 double precision;        --創(chuàng)建起點(diǎn)經(jīng)度y2

UPDATE road SET x1 =ST_x(ST_PointN(geom, 1));
UPDATE road SET y1 =ST_y(ST_PointN(geom, 1));
UPDATE road SET x2 =ST_x(ST_PointN(geom, ST_NumPoints(geom)));
UPDATE road SET y2 =ST_y(ST_PointN(geom, ST_NumPoints(geom)));

然后執(zhí)行查詢語(yǔ)句:

SELECT  st_asgeojson(st_makeline(route.geom)) FROM (SELECT geom FROM pgr_fromAtoB('road', 118.574693042441, 31.0002595461945,118.575197797, 31.0068716390001)ORDER BY seq) AS route

查詢結(jié)果:

查詢結(jié)果

接下來(lái)就是對(duì)查詢的 GeoJSON 數(shù)據(jù)轉(zhuǎn)換為 CZML 數(shù)據(jù)在三維場(chǎng)景中進(jìn)行展示了

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市砖织,隨后出現(xiàn)的幾起案子款侵,更是在濱河造成了極大的恐慌,老刑警劉巖侧纯,帶你破解...
    沈念sama閱讀 206,126評(píng)論 6 481
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件新锈,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡眶熬,警方通過(guò)查閱死者的電腦和手機(jī)妹笆,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 88,254評(píng)論 2 382
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)娜氏,“玉大人拳缠,你說(shuō)我怎么就攤上這事∶趁郑” “怎么了窟坐?”我有些...
    開封第一講書人閱讀 152,445評(píng)論 0 341
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)茂腥。 經(jīng)常有香客問(wèn)我狸涌,道長(zhǎng),這世上最難降的妖魔是什么最岗? 我笑而不...
    開封第一講書人閱讀 55,185評(píng)論 1 278
  • 正文 為了忘掉前任帕胆,我火速辦了婚禮,結(jié)果婚禮上般渡,老公的妹妹穿的比我還像新娘懒豹。我一直安慰自己芙盘,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 64,178評(píng)論 5 371
  • 文/花漫 我一把揭開白布脸秽。 她就那樣靜靜地躺著儒老,像睡著了一般。 火紅的嫁衣襯著肌膚如雪记餐。 梳的紋絲不亂的頭發(fā)上驮樊,一...
    開封第一講書人閱讀 48,970評(píng)論 1 284
  • 那天,我揣著相機(jī)與錄音片酝,去河邊找鬼囚衔。 笑死,一個(gè)胖子當(dāng)著我的面吹牛雕沿,可吹牛的內(nèi)容都是我干的练湿。 我是一名探鬼主播,決...
    沈念sama閱讀 38,276評(píng)論 3 399
  • 文/蒼蘭香墨 我猛地睜開眼审轮,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼肥哎!你這毒婦竟也來(lái)了?” 一聲冷哼從身側(cè)響起疾渣,我...
    開封第一講書人閱讀 36,927評(píng)論 0 259
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤篡诽,失蹤者是張志新(化名)和其女友劉穎,沒(méi)想到半個(gè)月后稳衬,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體霞捡,經(jīng)...
    沈念sama閱讀 43,400評(píng)論 1 300
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡坐漏,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 35,883評(píng)論 2 323
  • 正文 我和宋清朗相戀三年薄疚,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片赊琳。...
    茶點(diǎn)故事閱讀 37,997評(píng)論 1 333
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡街夭,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出躏筏,到底是詐尸還是另有隱情板丽,我是刑警寧澤,帶...
    沈念sama閱讀 33,646評(píng)論 4 322
  • 正文 年R本政府宣布趁尼,位于F島的核電站埃碱,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏酥泞。R本人自食惡果不足惜砚殿,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,213評(píng)論 3 307
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望芝囤。 院中可真熱鬧似炎,春花似錦辛萍、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,204評(píng)論 0 19
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至仆嗦,卻和暖如春辉阶,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背瘩扼。 一陣腳步聲響...
    開封第一講書人閱讀 31,423評(píng)論 1 260
  • 我被黑心中介騙來(lái)泰國(guó)打工睛藻, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人邢隧。 一個(gè)月前我還...
    沈念sama閱讀 45,423評(píng)論 2 352
  • 正文 我出身青樓店印,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親倒慧。 傳聞我的和親對(duì)象是個(gè)殘疾皇子按摘,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 42,722評(píng)論 2 345