手机计算器ti89圆弧段放样测量程序.doc

本程序是按照测量坐标所编制的，即与数学坐标系中的xy刚好相反，（x在后面程序几何计算中需要特别注意此处，本程序就是一个通用解决坐标平面几何的问题的方法。本程序就是采用平面几何计算的方法，一步步实现需要的结果。:yfy() :Prgm:?x :?y :?xx :?yy ：（xx-x)2+(yy-y)2bx :(xx-x)/(yy-y)a :x-a*yb :yy-yi :Disp banjing:Input r :(r2-bx/4)d :Disp youbian:Input youbian :Disp huchang :Input s :If youbian=1 Then:dd:ss:Else:-dd:-ss:EndIf :if io Then:1i:Else:-1i:EndIf ：（y+yy)/2+i*d*a/(a2+1)yyy :(x+xx)/2-i*d/(a2+1)xxx 至此，圆心的坐标已经确定了。 :r*sin(s/r)hx :r*cos(s/r)hy Tan-1(x-xxx)/(y-yyy)aaIf yo Then:1i:Else:-1i:EndIf :zy+zi*zd/(ya2+1)ydy :Zx+zi*zd*ya/(ya2+1)ydx :Disp x= :Disp ydx :Disp y= :Disp ydy :EndPrgm 注意事项：1、要分清楚第一点，第二点，目标的距离S都是相对于第一点而言。2、(a2+1)表示a的平方+1整体开根号，根号打不出，我也没有办法3、设置计算器的精度 在主界面按“MOOD”键，将光标移至第三行 “Display Digits”中按“ENTER”键选择“FIX4”表示精确到小数点后面4位，后面数字表示精度到小数点后面的位数。4、计算器要调至弧度模式。在计算器主菜单时，最下面一行显示RAD，是弧度模式。假如不是请转换，否则不对。在主界面按“MOOD”键，将光标移至第四行“angle”中按“ENTER”键选择“RADIAN”然后按ENTER确定。5、特别注意此程序只能算弧度低于的圆弧，即圆弧长少于半圆，一般设计图纸道路曲线的圆弧都少于半圆，故大于半圆的圆弧不在计算之内，假如用此程序计算大于半圆的圆弧是铁定错误的，切记！假如碰到大于半圆的圆弧怎么办呢？告诉你方法吧：把圆弧分成两段就满足程序要求啦！6、分清楚“zd”的正负，点Y在点X的左边为正（即点Y在沿直线XO方向为正），点Y在点X的右边为负（即点Y在沿直线XO反向延长线方向为负）特别说明下面程序是上面程序的一个变形。上面的程序对圆弧上任意一点的偏移求坐标。在设计图纸上我们往往知道圆弧中心线上的一些坐标，（设计图纸一般10米会给个断面图上面有圆弧中心线上点的坐标值）下面的程序是已知设计图纸断面图上圆弧中心线上的点X的坐标值，求偏移一定距离zd的点Y的坐标值。就把计算X点的计算式删除掉就是下面的程序。程序说明本程序是按照测量坐标所编制的，即与数学坐标系中的xy刚好相反，（x在后面程序几何计算中需要特别注意此处，本程序就是一个通用解决坐标平面几何的问题的方法。本程序就是采用平面几何计算的方法，一步步实现需要的结果。:yfy() 定义函数名称（圆放样首字母）:Prgm:?x 定义第一点A的x坐标，?要求用户自己填数值进去，下面同:?y 定义第一点A的y坐标:?xx 定义第二点B的x坐标:?yy 定义第二点B的y坐标:?zx 定义已知设计图纸断面图上圆弧中心线上的点X的x坐标:?zy 定义已知设计图纸断面图上圆弧中心线上的点X的y坐标：（xx-x)2+(yy-y)2bx 计算AB之间的距离并定义给bx:(xx-x)/(yy-y)a 计算直线AB的斜率并定义给a :x-a*yb 直线的标准方程是y=a*x+b ,算出了直线AB的方程了:yy-yi i为判定参数，y就是数学坐标系中的x，yy-y为正或者负，可以判定沿y轴（测量坐标系y轴，即数学坐标系x轴）沿正方向还是反方向走。:Disp banjing显示“距离”命令，此处让使用者输入时知道自己即将输入什么:Input r 要求输入半径数值并将输入的数值定义给符号“r” :(r2-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:dd:ss:Else:-dd:-ss:EndIf 以上是If语句，列明两种不同条件下数值的不一样取值:if io Then:1i:Else:-1i:EndIf 上面是if语句，即yy-yi 中的i为判定参数，沿正方向与沿反方向算法不一样，刚好相反：（y+yy)/2+i*d*a/(a2+1)yyy 计算出了圆心的坐标y值:(x+xx)/2-i*d/(a2+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点的坐标。好了，继续执行程序吧，开始下一步！下面的步骤我不多说明了，参照直线程序说明可以看懂，大概思路是：已知点O(圆心），点X(道路中心线上的点），点Y(待求点）三点在一条直线上，并且已知点O,点X的坐标，点Y到到X的距离“zd”，先确定直线XO的直线方程，然后用直线程序的方法求距X点距离“zd”的点Y的坐标。分清楚“zd”的正负哦。：（xxx-zx)/(yyy-zy)ya:zx-ya*zyzb:yyy-zyzi:Disp juli:Input zd:if io Then:1i:Else:-1i:EndIf :zy+zi*zd/(ya2+1)ydy 待求点坐标y值:zx+zi*zd*ya/(ya2+1)ydx 待求点坐标x值:Disp x= 显示x=，告诉使用者下面显示的是x值:Disp ydx 显示ydx的数值，即目标点的x值:Disp y= 显示y=，告诉使用者下面显示的是y值:Disp ydy 显示ydy的数值，即目标点的y值:EndPrgm 程序结束注意事项：1、要分清楚第一点，第二点，目标的距离S都是相对于第一点而言。2、(a2+1)表示a的平方+1整体开根号，根号打不出，我也没有办法3、设置计算器的精度 在主界面按“MOOD”键，将光标移至第三行 “Display Digits”中按“ENTER”键选择“FIX4”表示精确到小数点后面4位，后面数字表示精度到小数点后面的位数。4、计算器要调至弧度模式。在计算器主菜单时，最下面一行显示RAD，是弧度模式。假如不是请转换，否则不对。在主界面按“MOOD”键，将光标移至第四行“angle”中按“ENTER”键选择“RADIAN”然后按ENTER确定。5、特别注意此程序只能算弧度低于的圆弧，即圆弧长少于半