欢迎来到天天文库
浏览记录
ID:22820715
大小:45.50 KB
页数:10页
时间:2018-10-31
《手机计算器ti89圆弧段放样测量程序》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、本程序是按照测量坐标所编制的,即与数学坐标系中的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":Inputr:√(r^2-bx/4)→d:Disp"youbian":Inputyoubian:Disp"huchang":In
2、puts:Ifyoubian=1Then:d→d:s→s:Else:-d→d:-s→s:EndIf:ifi>oThen: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)→hyTan-1((x-xxx)/(y-yyy))→aaIfy3、a)+xxx→zx:(xxx-zx)/(yyy-zy)→ya:zx-ya*zy→zb:yyy-zy→zi:Disp"juli":Inputzd:ifi>oThen:1→i:Else:-1→i:EndIf:zy+zi*zd/(√(ya^2+1))→ydy:Zx+zi*zd*ya/(√(ya^2+1))→ydx:Disp"x=":Dispydx:Disp"y=":Dispydy:EndPrgm注意事项:1、要分清楚第一点,第二点,目标的距离S都是相对于第一点而言。2、√(a^2+1)表示a的平方+1整体开根号,根号打不出,我也没有办法3、设置计算器的4、精度在主界面按“MOOD”键,将光标移至第三行“DisplayDigits……”中按“ENTER”键选择“FIX4”表示精确到小数点后面4位,后面数字表示精度到小数点后面的位数。4、计算器要调至弧度模式。在计算器主菜单时,最下面一行显示RAD,是弧度模式。假如不是请转换,否则不对。在主界面按“MOOD”键,将光标移至第四行“angle……”中按“ENTER”键选择“RADIAN”然后按ENTER确定。5、特别注意此程序只能算弧度低于π的圆弧,即圆弧长少于半圆,一般设计图纸道路曲线的圆弧都少于半圆,故大于半圆的圆弧不在计算之内,假如用此程序计算大于5、半圆的圆弧是铁定错误的,切记!假如碰到大于半圆的圆弧怎么办呢?告诉你方法吧:把圆弧分成两段就满足程序要求啦!6、分清楚“zd”的正负,点Y在点X的左边为正(即点Y在沿直线XO方向为正),点Y在点X的右边为负(即点Y在沿直线XO反向延长线方向为负)特别说明下面程序是上面程序的一个变形。上面的程序对圆弧上任意一点的偏移求坐标。在设计图纸上我们往往知道圆弧中心线上的一些坐标,(设计图纸一般10米会给个断面图上面有圆弧中心线上点的坐标值)下面的程序是已知设计图纸断面图上圆弧中心线上的点X的坐标值,求偏移一定距离zd的点Y的坐标值。就把计算X点的计算式删除6、掉就是下面的程序。程序说明本程序是按照测量坐标所编制的,即与数学坐标系中的xy刚好相反,(x在后面程序几何计算中需要特别注意此处,本程序就是一个通用解决坐标平面几何的问题的方法。本程序就是采用平面几何计算的方法,一步步实现需要的结果。:yfy()定义函数名称(圆放样首字母):Prgm:????→x定义第一点A的x坐标,????要求用户自己填数值进去,下面同:????→y定义第一点A的y坐标:????→xx定义第二点B的x坐标:????→yy定义第二点B的y坐标:????→zx定义已知设计图纸断面图上圆弧中心线上的点X的x坐标:????→zy定义已7、知设计图纸断面图上圆弧中心线上的点X的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→ii为判定参数,y就是数学坐标系中的x,yy-y为正或者负,可以判定沿y轴(测量坐标系y轴,即数学坐标系x轴)沿正方向还是反方向走。:Disp"banjing"显示“距离”命令,此处让使用者输入时知道自己即将输入什么:Inputr要求输入半径数值并将输入的数值定义给符号“r”:√(r^2-bx8、/4)→d计算圆心O到弦AB之间的距离,线段AB的中点为D点,即线段OD的长,并定义给符号“d”:Disp"youbian"显示“右边”
3、a)+xxx→zx:(xxx-zx)/(yyy-zy)→ya:zx-ya*zy→zb:yyy-zy→zi:Disp"juli":Inputzd:ifi>oThen:1→i:Else:-1→i:EndIf:zy+zi*zd/(√(ya^2+1))→ydy:Zx+zi*zd*ya/(√(ya^2+1))→ydx:Disp"x=":Dispydx:Disp"y=":Dispydy:EndPrgm注意事项:1、要分清楚第一点,第二点,目标的距离S都是相对于第一点而言。2、√(a^2+1)表示a的平方+1整体开根号,根号打不出,我也没有办法3、设置计算器的
4、精度在主界面按“MOOD”键,将光标移至第三行“DisplayDigits……”中按“ENTER”键选择“FIX4”表示精确到小数点后面4位,后面数字表示精度到小数点后面的位数。4、计算器要调至弧度模式。在计算器主菜单时,最下面一行显示RAD,是弧度模式。假如不是请转换,否则不对。在主界面按“MOOD”键,将光标移至第四行“angle……”中按“ENTER”键选择“RADIAN”然后按ENTER确定。5、特别注意此程序只能算弧度低于π的圆弧,即圆弧长少于半圆,一般设计图纸道路曲线的圆弧都少于半圆,故大于半圆的圆弧不在计算之内,假如用此程序计算大于
5、半圆的圆弧是铁定错误的,切记!假如碰到大于半圆的圆弧怎么办呢?告诉你方法吧:把圆弧分成两段就满足程序要求啦!6、分清楚“zd”的正负,点Y在点X的左边为正(即点Y在沿直线XO方向为正),点Y在点X的右边为负(即点Y在沿直线XO反向延长线方向为负)特别说明下面程序是上面程序的一个变形。上面的程序对圆弧上任意一点的偏移求坐标。在设计图纸上我们往往知道圆弧中心线上的一些坐标,(设计图纸一般10米会给个断面图上面有圆弧中心线上点的坐标值)下面的程序是已知设计图纸断面图上圆弧中心线上的点X的坐标值,求偏移一定距离zd的点Y的坐标值。就把计算X点的计算式删除
6、掉就是下面的程序。程序说明本程序是按照测量坐标所编制的,即与数学坐标系中的xy刚好相反,(x在后面程序几何计算中需要特别注意此处,本程序就是一个通用解决坐标平面几何的问题的方法。本程序就是采用平面几何计算的方法,一步步实现需要的结果。:yfy()定义函数名称(圆放样首字母):Prgm:????→x定义第一点A的x坐标,????要求用户自己填数值进去,下面同:????→y定义第一点A的y坐标:????→xx定义第二点B的x坐标:????→yy定义第二点B的y坐标:????→zx定义已知设计图纸断面图上圆弧中心线上的点X的x坐标:????→zy定义已
7、知设计图纸断面图上圆弧中心线上的点X的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→ii为判定参数,y就是数学坐标系中的x,yy-y为正或者负,可以判定沿y轴(测量坐标系y轴,即数学坐标系x轴)沿正方向还是反方向走。:Disp"banjing"显示“距离”命令,此处让使用者输入时知道自己即将输入什么:Inputr要求输入半径数值并将输入的数值定义给符号“r”:√(r^2-bx
8、/4)→d计算圆心O到弦AB之间的距离,线段AB的中点为D点,即线段OD的长,并定义给符号“d”:Disp"youbian"显示“右边”
此文档下载收益归作者所有