线段到圆弧的距离

计算一条线段的中垂线和圆弧的交点，和这条线段的距离：

1，画一段圆弧；

2，画一条线；

3，计算线到圆弧的交点；

4，这两个交点确定一条线段；

5，由两个交点画圆，两个圆的交点先连，就是线段的中垂线；

6，中垂线和圆弧有一个交点；

7，计算交点和线段的距离；

 

dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
dev_set_draw ('margin')
draw_circle (WindowHandle, Row, Column, Radius)
*gen_circle (Circle, Row, Column, Radius)
gen_circle_sector (Circle, Row, Column, Radius, 3.14, 6.28)
dev_display (Circle)
draw_line (WindowHandle, Row1, Column1, Row2, Column2)
disp_line (WindowHandle, Row1, Column1, Row2, Column2)
intersection_line_circle (Row1, Column1, Row2, Column2, Row, Column, Radius, 0, 6.28318, 'positive', Row3, Column3)
disp_cross (WindowHandle, Row3, Column3, 6, 0)
distance_pp (Row3[0], Column3[0], Row3[1], Column3[1], lineLength)
Radius1:=lineLength*0.75
gen_circle (Circle1, Row3[0], Column3[0], Radius1)
dev_display (Circle1)
gen_circle (Circle2, Row3[1], Column3[1], Radius1)
dev_display (Circle2)
intersection_circles (Row3[0], Column3[0], Radius1, 0, 6.28318, 'positive', Row3[1], Column3[1], Radius1, 0, 6.28318, 'positive', Row4, Column4, IsOverlapping)
disp_line (WindowHandle, Row4[0], Column4[0], Row4[1], Column4[1])
intersection_line_circle (Row4[0], Column4[0], Row4[1], Column4[1], Row, Column, Radius, 3.14, 6.28318, 'positive', Row5, Column5)
dev_set_color ('blue')
disp_cross (WindowHandle, Row5, Column5, 6, 0)
distance_pl (Row5, Column5, Row1, Column1, Row2, Column2, Distance)
disp_message (WindowHandle, 'distance between arch and line is'+Distance, 'window', Row5-50, Column5, 'black', 'true')
*intersection_lines (Row1, Column5, Row5, Column5, Row5, Column5, Row5, Column5, Row6, Column6, IsOverlapping1)