Question

求卡西欧5800计算程序

求大神给个能用的

Answer 1

你要计算什么呢？能计算的很多啊

追问

公路放样

追答

FX-5800计算器公路测量常用程序
量常用程序
一、程序功能
本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型.
二、源程序
1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)
程序名:1ZD-XY
Lb1 0:Norm 2
F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)
Z[1]=90（与路线右边夹角）
Prog＂THB＂：F=1=>Goto1: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
2．主程序2：高程序横坡程序(设计任意点高程及横坡)
程序名：2GC
LbI 0:Norm 2
“KM”?Z:?D:
Prog”H”:Fix 3:” H=”:Locate 6,4,H◢
“ I=”: Locate 6,4,I◢
Goto 0
3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)
程序名：3JS
X：Y：
1268．123→K(置仪点X坐标)
2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）
Y-L→E：X-K→F：Pol(F,E):IFJ<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”:Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)
Fix 3:” S=”:Locate 6,4,I◢