Poszukujesz algorytmu do wykrywania kół i początku i końca koła?

24

Mam wiele danych o locie od pilotów szybowców w postaci poprawek GPS w ustalonych odstępach czasu. Chciałbym przeanalizować tor lotu i wykryć początek i koniec „okrążenia” pilota szybowca, gdy znajdzie termikę.

Idealnie, algorytm dałby mi początek i punkt końcowy na linii, definiując jedno „koło”. Punkty te mogą być równe jednej z poprawek GPS i nie muszą być interpolowane.

Mógłbym po prostu przejść ścieżkę lotu, sprawdzić prędkość skrętu i mieć pewne kryteria, aby zdecydować, czy szybowiec krąży, czy nie.

Ponieważ korzystam z PostgreSQL z rozszerzeniem PostGIS, byłem ciekawy, czy istnieje lepsze podejście do tego problemu. Mam już procedurę obliczania kąta dwóch odcinków linii:

CREATE OR REPLACE FUNCTION angle_between(
  _p1 GEOMETRY(PointZ,4326),
  _p2 GEOMETRY(PointZ,4326),
  _p3 GEOMETRY(PointZ,4326)
) RETURNS DECIMAL AS $$
DECLARE
  az1 FLOAT;
  az3 FLOAT;
BEGIN
  az1 = st_azimuth(_p2,_p1);
  az3 = st_azimuth(_p2,_p3);
IF az3 > az1 THEN
  RETURN (
      degrees(az3 - az1)::decimal - 180
  );
ELSE
  RETURN (
      degrees(az3 - az1)::decimal + 180
  );
END IF;
END;
$$ LANGUAGE plpgsql;

Powinno być możliwe zapętlenie wszystkich segmentów linii i sprawdzenie, kiedy suma kątów jest większa niż 360 lub mniejsza niż -360 stopni. Następnie mógłbym użyć st_centroid do wykrycia środka koła, jeśli to konieczne.

Czy istnieje lepsze podejście?


Zgodnie z życzeniem przesłałem przykładowy lot .

Przykładowa ścieżka lotu

pgross
źródło
1
Rozglądając się, odkryłem Hough Circle Transform. Podobna (z wielokątem) dyskusja użytkownika postgis tutaj: lists.osgeo.org/pipermail/postgis-users/2015- luty/...
Barrett
Dziękuję wam obu. Rzucę okiem na Hough Transform. Dyskusja na osgeo.org zakłada, że ​​już wiem, gdzie zaczyna się i kończy okrąg, jeśli dobrze go zrozumiałem?
pgross 12.08.16
Czy widziałeś to: gis.stackexchange.com/questions/37058
Devdatta Tengshe
@DevdattaTengshe Tak, ale i tak dzięki. To byłoby podejście, w którym musiałbym obliczyć splajny i krzywiznę zewnętrznie, prawda? Przez zewnętrzny nie mam na myśli procedury ani zapytania bezpośrednio w bazie danych. Ponieważ loty się nie zmieniają, gdy znajdą się w bazie danych, byłaby to opcja.
pgross
Czy możesz zamieścić przykładowe dane jako plik .sql?
dbaston

Odpowiedzi:

14

Nie mogłem przestać o tym myśleć ... Byłem w stanie wymyślić procedurę składowaną, aby wykonać liczenie pętli. Przykładowa ścieżka zawiera 109 pętli!

Oto punkty lotu pokazane z czerwonymi centroidami pętli: wprowadź opis zdjęcia tutaj

Zasadniczo przebiega przez punkty w kolejności, w jakiej zostały one przechwycone, i tworzy linię podczas iteracji przez punkty. Kiedy budowana linia tworzy pętlę (przy użyciu ST_BuildArea), wtedy liczymy pętlę i od tego momentu zaczynamy ponownie budować linię.

Ta funkcja zwraca zestaw rekordów każdej pętli, który zawiera numer pętli, jej geometrię, punkt początkowy / końcowy i jego środek ciężkości (ja też trochę wyczyściłem i stworzyłem lepsze nazwy zmiennych):

DROP FUNCTION test.find_loop_count(flightid int);

create function test.find_Loop_count(
    IN flightid      int,
    OUT loopnumber   int,
    OUT loopgeometry geometry,
    OUT loopstartend geometry,
    OUT loopcentroid geometry
    ) 
  RETURNS SETOF record AS
$BODY$

-- s schema 'test' must exist
-- a table 'points' of flight points must exist
--  we are going to iterate through the point path, building a line as we go
--   If the line creates a loop then we count a loop and start over building a new line
--     add the intersection point to the returning recordset
--     add the centroid of the loop to the resulting recordset
-- pass in the flight ID of the flight that you wish to count its loops for example:
--   SELECT * FROM find_loop_count(37);

DECLARE
    rPoint              RECORD;
    gSegment            geometry = NULL;
    gLastPoint          geometry = NULL;
    gLoopPolygon        geometry = NULL;
    gIntersectionPoint  geometry = NULL;
    gLoopCentroid       geometry = NULL;
    iLoops              integer := 0;
BEGIN
    -- for each line segment in Point Path
    FOR rPoint IN 
        WITH
            pts as (
                SELECT location as geom,datetime,row_number() OVER () as rnum 
                FROM test.points 
                WHERE flight_id=flightid
                ORDER BY 2) 
            SELECT ST_AsText(ST_MakeLine(ARRAY[a.geom, b.geom])) AS geom, a.rnum, b.rnum 
            FROM pts as a, pts as b 
            WHERE a.rnum = b.rnum-1 AND b.rnum > 1
        LOOP

        -- if this is the start of a new line then start the segment otherwise add the point to the segment
        if gSegment is null then
            gSegment=rPoint.geom;
        elseif rPoint.geom::geometry=gLastPoint::geometry then
        -- do not add this point to the segment because it is at the same location as the last point
        else
        -- add this point to the line
        gSegment=ST_Makeline(gSegment,rPoint.geom);
        end if;
        -- ST_BuildArea will return true if the line segment is noded and closed
        --  we must also flatten the line to 2D
        --  lets also make sure that there are more than three points in our line to define a loop
        gLoopPolygon=ST_BuildArea(ST_Node(ST_Force2D(gSegment)));
        if gLoopPolygon is not NULL and ST_Numpoints(gSegment) > 3 then
        -- we found a loop
        iLoops:=iLoops+1;

        -- get the intersection point (start/end)
        gIntersectionPoint=ST_Intersection(gSegment::geometry,rPoint.geom::geometry);

        -- get the centroid of the loop
        gLoopCentroid=ST_Centroid(gLoopPolygon);

        -- start building a new line
        gSegment=null;

        LOOPNUMBER   := iLoops;
        LOOPGEOMETRY := gLoopPolygon;
        LOOPSTARTEND := gIntersectionPoint;
        LOOPCENTROID := gLoopCentroid;

        RETURN NEXT;
        end if;
        -- keep track of last segment
        gLastPoint=rPoint.geom;
    END LOOP;
    RAISE NOTICE 'Total loop count is %.', iLoops;
END;
$BODY$
  LANGUAGE plpgsql STABLE
  COST 100
  ROWS 1000;

Jest to prosta funkcja zwracająca tylko liczbę pętli:

DROP FUNCTION test.find_loop_count(flightid int);

create function test.find_Loop_count(flightid int) RETURNS integer AS $$
-- s schema 'test' must exist
-- a table 'points' of flight points must exist
--  we are going to iterate through the line path, building the line as we go
--   If the line creates a loop then we count a loop and start over building a new line
-- pass in the flight ID of the flight that you wish to count its loops for example:
--   SELECT find_loop_count(37);

DECLARE
    segment RECORD;
    s geometry = NULL;
    lastS geometry = NULL;
    b geometry = NULL;
    loops integer := 1;
BEGIN
    -- for each line segment is Point Path
    FOR segment IN 
        WITH
            pts as (
                SELECT location as geom,datetime,row_number() OVER () as rnum 
                FROM test.points 
                WHERE flight_id=flightid
                ORDER BY 2) 
            SELECT ST_AsText(ST_MakeLine(ARRAY[a.geom, b.geom])) AS geom, a.rnum, b.rnum 
            FROM pts as a, pts as b 
            WHERE a.rnum = b.rnum-1 AND b.rnum > 1
        LOOP

        -- if this is the start of a new line then make s be the segment otherwise add the segment to s
        if s is null then
            s=segment.geom;
        elseif segment.geom::geometry=lastS::geometry then
        else
            s=ST_Makeline(s,segment.geom);
        end if;
        -- ST_BuildArea will return true if the line segment is noded and closed
        --  we must also flatten the line to 2D
        b=ST_BuildArea(st_node(ST_Force2D(s)));
        if b is not NULL and st_numpoints(s) > 3 then
            RAISE NOTICE 's: %', s;
            RAISE NOTICE 'vvvvv %',st_numpoints(s);
            RAISE NOTICE 'I found a loop! Loop count is now %', loops;
            RAISE NOTICE '^^^^^';
            s=null;
            loops:=loops +1;
        end if;
        lastS=segment.geom;
    END LOOP;
    RAISE NOTICE 'Total loop count is %.', loops-1;
    RETURN loops-1;
END;
$$ LANGUAGE plpgsql;

kttii
źródło
To wygląda bardzo obiecująco. Bardzo dziękuję. Będę musiał to poprawić, ponieważ nie jestem zainteresowany liczbą kręgów, ale punktami początkowymi / końcowymi. Ale myślę, że powinno to być łatwe do zwrócenia.
pgross
Brzmi całkiem sprytnie. Jak radzi sobie z sytuacją, w której jedna pętla przecina inną pętlę? A może pomijasz początkowe punkty po zlokalizowaniu pętli?
Peter Horsbøll Møller,
@ PeterHorsbøllMøller Analizuje, kiedy linia tworzy pętlę (ST_BuildArea zwróci prawdę tylko wtedy, gdy linia tworzy zamknięty obszar), zamiast szukać skrzyżowań.
kttii
@pgross oops true! Trochę się odsunąłem i zapomniałem o punktach początkowych / końcowych, ale tak, to dość łatwe określenie, kiedy rozróżnia się pętle.
kttii
@pgross Wydaje mi się, że prawdopodobnie uzyskałbyś bardziej rozsądne lokalizacje termiki, lokalizując ST_Centroid każdej pętli zamiast lokalizując początek / koniec każdej pętli. Co myślisz? Oczywiście funkcja może dostarczyć wszystkie trzy statystyki.
kttii
3

Zauważyłem, że plik gpx ma znacznik czasu, który można wykorzystać. Być może poniższe podejście może zadziałać.

Make a linesegement with Vi,Vi+1
Make it Polyline
Proceed to Vi+2,Vi+3 check intersection with Polyline
  if it intersects 
      find the point of intersection-Designate this as start/end point of the loop
      Make this intersection point as Vi and Vi+1 would next gpx point per time sequence  
  if the linesegement does not intersect with polyyline then  increment 'i' 
addcolor
źródło
Trudno mi było używać ST_Intersects z powodu nakładających się kręgów, które skłoniły mnie do użycia ST_BuildArea.
kttii
Dałem ci nagrodę, ponieważ twoja odpowiedź jest na ogół na tej samej ścieżce.
kttii