文档介绍：本程序是按照测量坐标所编制的, 即与数学坐标系中的 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 在点