卡西欧5800涵洞程序 函洞坐标计算

本资料包含doc文件1个，下载需要10积分

主程序[SENDY]
Lbl 1:Fix 3:X:Y:X1”D:Y1”E:D-X→I:E-Y→J: ProgC”:Cls:Locate 1，1，J”:Locate 4，2， J°:Locate 1，3，I”:Locate 10，4，I◢
Goto 1
子程序[C]
I×10-9→I:J×10-9→J:Pol(I，J:J＜0＞JJ360
输入：X---A点X坐标 Y---A点Y坐标 X1---B点X坐标 Y1---B点Y坐标
结果：JA点到B点的方位角 I A点到B点的平距

主程序[ZXXY-1]
X:Y:QDX”E:QDY”F:QDK”H:X1”P:Y1”Q
Lbl 0:Fix 3:K:B:A:P-E→I:Q-F→J:ProgC”:K-H→S:AJ-90→T