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

本程序是按照测量坐标所编制的，即与数学坐标系中的 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、特别注意此程序只能算弧度低于 的圆弧，即圆弧长少于半圆，一般