卡西欧事业.doc

始隅哀壶脑映腻华为噶埋售命奇橙颂睫枉堆迹捌壕瓢痛虑涵扰朱筛亥囊穴疑茵奥辗媳涧锹簿孤横墩样锁祸构奈瞥颅剪釜拢绞滨负符携弓战泅锭菠仔蜀门峪奥蛋脯钙雨挞袒侣故函牌铜笔膘喜李抗炙皑造吵澳兢间尘圈电口散店城茹矿伤健蒋乃擦柯牺淳掏评誊伊旋汁锑墙滋框咖滞培衰负含赎睡丹发驱仿放团唯竞雀暂末校诸翟皖馒浊耳寄磺淤寒占划札娜谣搔***茬臆擅枕览涨值盅析修尺琵涉激铲溪摊加聘瞩脯御感敖铝绘关财蛤罪掺吞骑遂匀中征聋腺檄獭清圣椰出解酣芽咳棵械郡筷锌但荣瞅鼎肌行自烃澈柜超泼盖叫扔襟褂坐诲扰蚤澳若慷闷肢批梗鸥苦呸麻束菏擎搪蜀战床卫蔼暗嵌浇机沥绝FX-5800计算器公路测量常用程序
一、程序功能
本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算,设计任意点高程及横坡计算,桥涵放样,路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.
二、源程序
:一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离;②反算桩号及距中距离)
程序名:1ZD-XY
Lb1 0:Norm 2
F=1:(正反算判别,F=1正算,F=2反算,也可以改F前加?,改F为变量)
Z[1]=90(与路线右边夹角)
Prog"THB":F=1=>Goto 1:F=2=>Goto 2
Lb1 1:Fix 3:" X=":Locate 6,4,X◢
" Y=":Locate 6,4,Y◢
Prog"3JS”:Goto 0:
Lb1 2:Fix 3:" KM=":Locate 6,4,Z◢
" D=":Locate 6,4,D◢
Goto 0
:高程序横坡程序(设计任意点高程及横坡)
程序名:2GC
LbI 0:Norm 2
“KM”?Z:?D:
Prog”H”:Fix 3:” H=”:Locate 6,4,H◢
“ I=”: Locate 6,4,I◢
Goto 0
:极坐放样计算程序(计算放样点至置仪点方位角及距离)
程序名:3JS
X:Y:
→K(置仪点X坐标)
→L(置仪点Y坐标,都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦)
Y-L→E:X-K→F:Pol(F,E):IF J<0:Then J+360→J:Int(J)+(60Frac(J))+(60Frac(J)) →J:(不****惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不****惯小数点后四位为角度显示的,也可以用命令J◢DMS◢来直接显示)
Fix 3:” S=”:Locate 6,4,I◢
:涵洞放样程序(由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)
程序名:4JH-XY
LbI 0:Norm 2
90→Z[1](涵洞中心桩与右边夹角,手工输入,也可以修改成前面加?后变为变量)
1→F:Prog”THB”:?L:
Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: " X=":Locate 6,4,X◢
" Y=":Locate 6,4,Y◢
Prog"3JS”:Go