文档介绍：程序说明
本程序是按照测量坐标所编制的,即与数学坐标系中的xy刚好相反,(x在后面程序几何计算中需要特别注意此处,本程序就是一个通用解决坐标平面几何的问题的方法。本程序就是采用平面几何计算的方法,一步步实现需要的结果。
:yfy() 定义函数名称(圆放样首字母)
:Prgm
:????→x 定义第一点A的x坐标,????要求用户自己填数值进去,下面同
:????→y 定义第一点A的y坐标
:????→xx 定义第二点B的x坐标
:????→yy 定义第二点B的y坐标
:(xx-x)^2+(yy-y)^2→bx 计算AB之间的距离并定义给bx
:(xx-x)/(yy-y)→a 计算直线AB的斜率并定义给a
:x-a*y→b 直线的标准方程是y=a*x+b ,算出了直线AB的方程了
:yy-y→i i为判定参数,y就是数学坐标系中的x,yy-y为正或者负,可以判定沿y轴(测量坐标系y轴,即数学坐标系x轴)沿正方向还是反方向走。
:Disp "banjing"显示“距离”命令,此处让使用者输入时知道自己即将输入什么
:Input r 要求输入半径数值并将输入的数值定义给符号“r”
:√(r^2-bx/4)→d 计算圆心O到弦AB之间的距离,线段AB的中点为D点,即线段OD的长,并定义给符号“d”
:Disp "youbian" 显示“右边”命令,此处让使用者输入时知道自己即将输入什么
:Input youbian 特别说明:将AB用线连起来,由A至B的方向看,圆弧是否在直线AB的右边,假如是就输入数字1;假如不是就输入除1外的任何数字,比如输入0。从第一点向第二点看,在右边。由A至B的方向看,圆弧在直线AB的右边,则由B至A的方向看,圆弧必定在直线AB的左边,此处是个判定参数。
:Disp "huchang" 显示“弧长”命令,此处让使用者输入时知道自己即将输入什么
:Input s 要求输入弧长数值并将输入的数值定义给符号“s”,s为待求点到A点的距离,即待求点与A点的桩号差。s为到第一点A的距离。
:If youbian=1 Then
:d→d
:s→s
:Else
:-d→d
:-s→s
:EndIf 以上是If语句,列明两种不同条件下数值的不一样取值
:if i>o Then
:1→i
:Else
:-1→i
:EndIf 上面是if语句,即yy-y→i 中的i为判定参数,沿正方向与沿反方向算法不一样,刚好相反
:(y+yy)/2+i*d*a/(√(a^2+1))→yyy 计算出了圆心的坐标y值
:(x+xx)/2-i*d/(√(a^2+1))→xxx 计算出了圆心的坐标x值
至此,圆心的坐标已经确定了。线段AB的中点为D点,D点的坐标为((x+xx)/2,(y+yy)/2),已知OD的距离d,将D点偏移距离d即圆心O点的坐标。(与直线段直线放样程序一样的)以上程序的就是先确定直线AB,让后找出AB的中点D点,再算出圆心O到D点的距离d,让后按照直线段直线放样程序的方法将D点向圆心的方向偏移距离d 求得圆心O点的坐标。好了,继续执行程序吧,开始下一步!
:r*sin(s/r)→hx 计算待求点对应的道路中线点X点,在以圆心为坐标原点,OA为X轴正方向的坐标系统中的坐标x值
:r