Экстраполирование строки в PostGIS

Я пытаюсь экстраполировать от отрезка линии, чтобы найти точку на линии, но на треть пути назад, т.е. пытаюсь найти точку new, заданные точки Aи Bниже:

Учитывая строку, я могу интерполировать ее, чтобы получить позицию с любым конкретным процентом вдоль нее:

=# select st_line_interpolate_point(
   st_makeline('0101000020E6100000300DC347C49418C03EE8D9ACFAA44A40', 
               '0101000020E6100000FB743C66A03218C0CDCCCCCCCC7C4A40'), 
   0.333);
0101000020E6100000ED45B41D537718C069C6A2E9EC984A40

Я попытался ввести отрицательное число, чтобы найти точку вдоль линии в противоположном направлении, но это не удалось, поскольку аргумент интерполяции должен находиться в диапазоне [0, 1]

Я подумал о том, чтобы сначала масштабировать линию, но она не использует центр линии как источник, поэтому бесполезен для моих целей.

Другой способ, с помощью которого я ранее решил подобную проблему, состоит в том, чтобы разбить ее на следующие шаги.

-- get the points A and B given a line L
A := ST_STARTPOINT(L);
B := ST_ENDPOINT(L);

-- get the bearing from point B --> A
azimuth := ST_AZIMUTH(B,A);

-- get the length of the line A --> B
length := ST_DISTANCE(A,B);
newlength := length + (length * (1/3));   -- increase the line length by 1/3

-- create a new point 1/3 as far away from A as B is from A
newpoint := ST_TRANSLATE(A, sin(azimuth) * newlength, cos(azimuth) * newlength);

РЕДАКТИРОВАТЬ: исправлено назначение новой длины, чтобы она составляла 1 1/3 длины, а не 1/3, и переключала A & B в соответствии с диаграммой.

Решили это с:

F = 1.3333
st_affine(A, F, 0, 
             0, F, 
            (F-1)*-st_x(st_line_interpolate_point(st_makeline(A, B), 0.5)), 
            (F-1)*-st_y(st_line_interpolate_point(st_makeline(A, B), 0.5))
          )

Объяснение:

(2-d) Масштабируйте начальную точку с коэффициентом 1,3333, взяв среднюю точку отрезка в качестве исходной точки для масштабирования.

Убирайся из миллиметровки!

http://en.wikipedia.org/wiki/Affine_transformation

Я написал функцию для этого:

CREATE OR REPLACE FUNCTION st_extend (
    geom geometry,
    head_rate double precision,
    head_constant double precision,
    tail_rate double precision,
    tail_constant double precision)
  RETURNS geometry AS
$BODY$
-- Extends a linestring.
-- First segment get extended by length * head_rate + head_constant.
-- Last segment get extended by length * tail_rate + tail_constant.
--
-- References:
-- http://blog.cleverelephant.ca/2015/02/breaking-linestring-into-segments.html
-- /gis//a/104451/44921
-- /gis//a/16701/44921
WITH segment_parts AS (
SELECT
(pt).path[1]-1 as segment_num
,
CASE
WHEN
  (nth_value((pt).path, 2) OVER ()) = (pt).path
AND
  (last_value((pt).path) OVER ()) = (pt).path
THEN
  3
WHEN
  (nth_value((pt).path, 2) OVER ()) = (pt).path
THEN
  1
WHEN
  (last_value((pt).path) OVER ()) = (pt).path
THEN
  2
ELSE
  0
END AS segment_flag
,
(pt).geom AS a
,
lag((pt).geom, 1, NULL) OVER () AS b
FROM ST_DumpPoints($1) pt
)
,
extended_segment_parts
AS
(
SELECT
  *
  ,
  ST_Azimuth(a,b) AS az1
  ,
  ST_Azimuth(b,a) AS az2
  ,
  ST_Distance(a,b) AS len
FROM
segment_parts
where b IS NOT NULL
)
,
expanded_segment_parts
AS
(
SELECT
  segment_num
  ,
  CASE
  WHEN
    bool(segment_flag & 2)
  THEN
    ST_Translate(b, sin(az2) * (len*tail_rate+tail_constant), cos(az2) * (len*tail_rate+tail_constant))
  ELSE
    a
  END
  AS a
  ,
  CASE
  WHEN
    bool(segment_flag & 1)
  THEN
    ST_Translate(a, sin(az1) * (len*head_rate+head_constant), cos(az1) * (len*head_rate+head_constant))
  ELSE
    b
  END
  AS b
FROM extended_segment_parts
)
,
expanded_segment_lines
AS
(
SELECT
  segment_num
  ,
  ST_MakeLine(a, b) as geom
FROM
expanded_segment_parts
)
SELECT
  ST_LineMerge(ST_Collect(geom ORDER BY segment_num)) AS geom
FROM expanded_segment_lines
;
$BODY$
LANGUAGE sql;

Использование:

SELECT st_extend(
st_makeline(
  '0101000020E6100000300DC347C49418C03EE8D9ACFAA44A40', 
  '0101000020E6100000FB743C66A03218C0CDCCCCCCCC7C4A40'
),
1.333::double precision,
0::double precision,
1::double precision,
0::double precision
);

Обратите внимание, что это дает более длинную линейную строку, но не конечную точку.

Код на GitHub Gist (если вы проголосуете здесь, я бы тоже оценил звезду)

Описание параметров (если вы пропустили их в комментарии функции sql):

• Длина первого сегмента будет равна original_length * head_rate + head_constant.
• Если вы хотите, чтобы он удвоился, то скорость головы равна 2, константа равна 0.
• Мы в Венгрии обычно используем проекцию EOV, основанную на метре. Поэтому, если я хочу добавить 2 метра в конец линии, я устанавливаю tail: rate в 1 и tail_constant в 2.