卡西欧5800曲线测量自动程序CIRLAY (主运算程序).doc

卡西欧5800曲线测量自动程序CIRLAY 主运算程序 1→W＂LOAD＂W IF W-1THEN＂ZJ＂A ＂R＂B ＂L0＂C ＂ZH KM＂D ＂JDX＂E ＂JDY＂F ＂A0＂G ＂1 R,-1 L＂HIFEND↙ ＂OPP NAME＂Q IF Q-1THEN ＂X0＂U ＂Y0＂VELSE Prog＂CON DAT＂ IFEND↙ Lb1 1＂DKM＂ZIF W≠-1THEN Prog＂CIR DAT＂ IFEND↙ Z-D→M Prog＂CENTER＂↙ “X”X◢ “Y”Y◢ “LR”OIF O2THEN ＂LD＂L＂RA＂R“XW”XLCosPR→X◢ “YW”YLSinPR→Y◢ IFEND↙ “QH”KIF K3THEN“QH-LD”S＂RA＂T“XQ”XSCosPRT180→X◢ “YQ”YSSinPRT180→Y◢ IFEND↙ “FW”P▼DMS◢ PolX-U,Y-V ↙ IF J＜OTHEN J360→J IFEND↙ ＂J＂J▼DMS◢ ＂L＂I◢ Goto 1 CENTER 子程序 3→DimZABл180C→Z[1]C224B-C42688B3→Z[2]BZ[2]TanA2C2-C3240B2→Z[3]-1→NIF M＞Z[1]-CTHEN Z[1]-M→M 1→NIFEND↙ IF M≤0THEN M→X0→Y0→P Goto 1 IFEND↙ IF M≤CTHEN M-M540B2C2→X M36BC-M7336B3C3→Y90M2ЛBC→P Goto 1IFEND↙ IF M≤Z[1]-CTHEN 180M-CЛB90CЛB→PBSinPC2-C3240B2→X B1- Cos PZ[2]→Y IFEND↙ Lb1 1IF N1THEN A-P→PX→IY→JZ[3]Z[3]-I Cos A-J Sin A→XZ[3]-I Sin AJ CosA→Y IFEND↙ X→IHY→JEZ[3]Cos180GICosG-JSinG→XFZ[3]Sin180GISinGJCosG→YGHP→P↙ CIR DAT子程序 曲线要素库 IF Z≦圆直点里程THEN 转向角→A半径→B缓和曲线长→C直缓点里程→D交点X坐标→E交点Y坐标→F切线方位角→G左或右偏1,-1→HGOTO1IFENG↙ 一直将曲线要素数据输入完 Lb1 1 CON DAT 子程序 导线控制点库 IF Q编号自定THEN U导线控制点X坐标V导线控制点Y坐标⊿ 一直将导线控制点数据输入完 主程序运用CIRLAY LOAD 当为交点号时，调用数据库；当为-1时，手动输入。 OPP NAME 输入控制点编号；当为-1时，手动输入测站点坐标。 DKM 输入待测点里程 LR 当为2时，计算外移值。 LD 输入外移值平距，距离用正负判断左右（左为-，右为） RA 输入外移值与线路中心夹角（右角值） QH 当为3时，计算外移值。 QH-LD 输入外移值平距，距离用正负判断左右（左为-，右为） RA 输入右角值