distance_ssdistance_ssDistanceSsDistanceSsdistance_ss (算子)

名称

distance_ssdistance_ssDistanceSsDistanceSsdistance_ss — 计算两条线段之间的距离。

签名

distance_ss( : : RowA1, ColumnA1, RowA2, ColumnA2, RowB1, ColumnB1, RowB2, ColumnB2 : DistanceMin, DistanceMax)

描述

算子 distance_ssdistance_ssDistanceSsDistanceSsDistanceSsdistance_ss calculates the minimum and maximum distance between two line segments. As input the coordinates of the start and end point of the first line segment (RowA1RowA1RowA1RowA1rowA1row_a1,ColumnA1ColumnA1ColumnA1ColumnA1columnA1column_a1, RowA2RowA2RowA2RowA2rowA2row_a2,ColumnA2ColumnA2ColumnA2ColumnA2columnA2column_a2) and of the second line segment (RowB1RowB1RowB1RowB1rowB1row_b1,ColumnB1ColumnB1ColumnB1ColumnB1columnB1column_b1,RowB2RowB2RowB2RowB2rowB2row_b2,ColumnB2ColumnB2ColumnB2ColumnB2columnB2column_b2) are used. The parameters DistanceMinDistanceMinDistanceMinDistanceMindistanceMindistance_min and DistanceMaxDistanceMaxDistanceMaxDistanceMaxdistanceMaxdistance_max return the result of the calculation. If the line segments are intersecting, DistanceMinDistanceMinDistanceMinDistanceMindistanceMindistance_min returns zero.

执行信息

多线程类型：可重入（与非独占算子并行运行）。
多线程作用域：全局（可从任何线程调用）。
未采用并行化处理。

参数

RowA1RowA1RowA1RowA1rowA1row_a1 (输入控制) point.y(-array) → (real / integer)

Row coordinate of the first point of the line segment.

ColumnA1ColumnA1ColumnA1ColumnA1columnA1column_a1 (输入控制) point.x(-array) → (real / integer)

Column coordinate of the first point of the line segment.

RowA2RowA2RowA2RowA2rowA2row_a2 (输入控制) point.y(-array) → (real / integer)

Row coordinate of the second point of the line segment.

ColumnA2ColumnA2ColumnA2ColumnA2columnA2column_a2 (输入控制) point.x(-array) → (real / integer)

Column coordinate of the second point of the line segment.

RowB1RowB1RowB1RowB1rowB1row_b1 (输入控制) point.y(-array) → (real / integer)

Row coordinate of the first point of the line.

ColumnB1ColumnB1ColumnB1ColumnB1columnB1column_b1 (输入控制) point.x(-array) → (real / integer)

Column of the first point of the line.

RowB2RowB2RowB2RowB2rowB2row_b2 (输入控制) point.y(-array) → (real / integer)

Row coordinate of the second point of the line.

ColumnB2ColumnB2ColumnB2ColumnB2columnB2column_b2 (输入控制) point.x(-array) → (real / integer)

Column coordinate of the second point of the line.

DistanceMinDistanceMinDistanceMinDistanceMindistanceMindistance_min (输出控制) real(-array) → (real)

Minimum distance between the line segments.

DistanceMaxDistanceMaxDistanceMaxDistanceMaxdistanceMaxdistance_max (输出控制) real(-array) → (real)

Maximum distance between the line segments.

示例（HDevelop）

dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
Row1 := 300
Column1 := 200
Row2 := 100
Column2 := 300
gen_contour_polygon_xld (Line1, [Row1,Row2], [Column1,Column2])
Column := 100
Offset := 30
for Row := 40 to 100 by 20
  gen_contour_polygon_xld (Line2, [Row, Row+Offset], \
                           [Column, Column+Offset])
  distance_ss (Row, Column, Row+Offset, Column+Offset, Row1, Column1, \
               Row2, Column2, DistanceMin, DistanceMax)
  Offset := Offset+50
endfor

示例（C）

create_tuple(&RowA1, 1);
set_i(RowA1, 8, 0);
create_tuple(&ColumnA1, 1);
set_i(ColumnA1, 7, 0);
create_tuple(&RowA2, 1);
set_i(RowA2, 15, 0);
create_tuple(&ColumnA2, 1);
set_i(ColumnA2, 11, 0);
create_tuple(&RowB1, 1);
set_i(RowB1, 2, 0);
create_tuple(&ColumnB1, 1);
set_i(ColumnB1, 4, 0);
create_tuple(&RowB2, 1);
set_i(RowB2, 6, 0);
create_tuple(&ColumnB2, 1);
set_i(ColumnB2, 10, 0);
T_distance_ss(RowA1,ColumnA1,RowA2,ColumnA2,RowB1,ColumnB1,RowB2,ColumnB2,
              &distance_min,&distance_max);
aa_min = get_d(distance_min,0);
aa_max = get_d(distance_max,0);

示例（HDevelop）

dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
Row1 := 300
Column1 := 200
Row2 := 100
Column2 := 300
gen_contour_polygon_xld (Line1, [Row1,Row2], [Column1,Column2])
Column := 100
Offset := 30
for Row := 40 to 100 by 20
  gen_contour_polygon_xld (Line2, [Row, Row+Offset], \
                           [Column, Column+Offset])
  distance_ss (Row, Column, Row+Offset, Column+Offset, Row1, Column1, \
               Row2, Column2, DistanceMin, DistanceMax)
  Offset := Offset+50
endfor

示例（HDevelop）

dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
Row1 := 300
Column1 := 200
Row2 := 100
Column2 := 300
gen_contour_polygon_xld (Line1, [Row1,Row2], [Column1,Column2])
Column := 100
Offset := 30
for Row := 40 to 100 by 20
  gen_contour_polygon_xld (Line2, [Row, Row+Offset], \
                           [Column, Column+Offset])
  distance_ss (Row, Column, Row+Offset, Column+Offset, Row1, Column1, \
               Row2, Column2, DistanceMin, DistanceMax)
  Offset := Offset+50
endfor

示例（HDevelop）

dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
Row1 := 300
Column1 := 200
Row2 := 100
Column2 := 300
gen_contour_polygon_xld (Line1, [Row1,Row2], [Column1,Column2])
Column := 100
Offset := 30
for Row := 40 to 100 by 20
  gen_contour_polygon_xld (Line2, [Row, Row+Offset], \
                           [Column, Column+Offset])
  distance_ss (Row, Column, Row+Offset, Column+Offset, Row1, Column1, \
               Row2, Column2, DistanceMin, DistanceMax)
  Offset := Offset+50
endfor

结果

distance_ssdistance_ssDistanceSsDistanceSsDistanceSsdistance_ss 返回 2 ( H_MSG_TRUE )。

替代

distance_ppdistance_ppDistancePpDistancePpDistancePpdistance_pp

另见

distance_pldistance_plDistancePlDistancePlDistancePldistance_pl, distance_psdistance_psDistancePsDistancePsDistancePsdistance_ps

模块

基础

算子