《手机计算器ti89圆弧段放样测量程序说明》.docVIP

程序说明 本程序是按照测量坐标所编制的，即与数学坐标系中的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 io 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*cos(s/r)→hy 计算待求点对应的道路中线点X点，在以圆心为坐标原点，OA为X轴正方向的坐标系统中的坐标y值 Tan-1((x-xxx)/(y-yyy))→aa If yyyy Then :π+aa→aa EndIf :hy*cos(aa)-hx*sin(aa)+yyy→zy 坐标转换公式求出道路中心线点X的坐标y值 Hy*sin(aa)+hx*cos(aa)+xxx→zx 坐标转换公式求出道路中心线点X的坐标x值 上面的三角函数全是采用弧度，不是角度。至此已经求出对应待求点的道路中心线的点X点的坐标值。下一步就是求待求点的坐标了。 下面的步骤我不多说明了，参照直线程序说明可以看懂，大概思路是：已知点O(圆心），点X(道路中心线上的点），点Y(待求点）三点在一条直线上，并且已知点O,点X的坐标，点Y到到X的距离“zd”，先确定直线XO的直线方程，然后用直线程序的方法求距X点距离“zd”的点Y的坐标。分清楚“zd”的正负哦。 ：（xxx-zx)/(yyy-zy)→ya :zx-ya*zy→zb :yyy-zy→zi :Disp juli :Input zd :if io Then :1→i :Else :-1→i :EndIf :zy+zi*zd/(√(ya^2+1))→ydy 待求点坐标y值 :Zx+zi*