文档介绍：本程序是按照测量坐标所编制的,即与数学坐标系中的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 i>o 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 y<yyy 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 i>o 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的斜率并定义给a
:x-a*y→b 直线的标准方程是y=a*x+b ,算出了直线AB的方程了
: