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

本程序是按照测量坐标所编制的，即与数学坐标系中的xy刚好相反，（x在后面程序几何计算中需要特别注意此处，本程序就是一个通用解决坐标平面几何的问题的方法。本程序就是采用平面几何计算的方法，一步步实现需要的结果。 :yfy() :Prgm :????→x :????→y :????→xx :????→yy ：（xx-x)^2+(yy-y)^2→bx :(xx-x)/(yy-y)→a :x-a*y→b :yy-y→i :Disp banjing :Input r :√(r^2-bx/4)→d :Disp youbian :Input youbian :Disp huchang :Input s :If youbian=1 Then :d→d :s→s :Else :-d→d :-s→s :EndIf :if io Then :1→i :Else :-1→i :EndIf ：（y+yy)/2+i*d*a/(√(a^2+1))→yyy :(x+xx)/2-i*d/(√(a^2+1))→xxx 至此，圆心的坐标已经确定了。 :r*sin(s/r)→hx :r*cos(s/r)→hy Tan-1((x-xxx)/(y-yyy))→aa If yyyy Then :π+aa→aa EndIf :hy*cos(aa)-hx*sin(aa)+yyy→zy Hy*sin(aa)+hx*cos(aa)+xxx→zx ：（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 :Zx+zi*zd*ya/(√(ya^2+1))→ydx :Disp x= :Disp ydx :Disp y= :Disp ydy :EndPrgm 注意事项：1、要分清楚第一点，第二点，目标的距离S都是相对于第一点而言。 2、√(a^2+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)^2→bx 计算AB之间的距离并定义给bx :(xx-x)/(yy-y)→a 计算直线AB的斜率并