卡西欧5800曲线测量自动程序

卡西欧5800曲线测量自动程序CIRLAY(主运算程序)1→W：＂LOAD＂?W:IFW=-1:THEN＂ZJ＂?A:＂R＂?B:＂L0＂?C:＂ZHKM＂?D:＂JDX＂?E:＂JDY＂?F:＂A0＂?G:＂1R,-1L＂?H:IFEND↙＂OPPNAME＂?Q:IFQ=-1:THEN＂X0＂?U:＂Y0＂?V:ELSEProg＂CONDAT＂:IFEND↙Lb11:＂DK+M＂?Z:IFW≠-1:THENProg＂CIRDAT＂:IFEND↙Z-D→M:Prog＂CENTER＂↙“X=”：X◢“Y=”：Y◢“LR”?O:IFO=2:THEN＂LD＂?L:＂RA＂?R:“XW=”:X+LCos(P+R)→X◢“YW=”:Y+LSin(P+R)→Y◢IFEND↙“QH”?K:IFK=3:THEN“QH-LD”?S:＂RA＂?T:“XQ=”:X+SCos(P+R+T+180)→X◢“YQ=”:Y+SSin(P+R+T+180)→Y◢IFEND↙“FW=”:P▼DMS◢Pol(X-U,Y-V)↙IFJ＜O:THENJ+360→J:IFEND↙＂J=＂:J▼DMS◢＂L=＂:I◢Goto1CENTER(子程序)3→DimZ:(ABл)÷180+C→Z[1]:C2÷(24B)-C4÷(2688B3)→Z[2]:(B+Z[2])Tan(A÷2)+C÷2-C3÷(240B2)→Z[3]:-1→N:IFM＞Z[1]-C:THENZ[1]-M→M:1→N:IFEND↙IFM≤0:THENM→X:0→Y:0→P:Goto1:IFEND↙IFM≤C:THENM-M5÷(40B2C2)→X:M3÷(6BC)-M7÷(336×B3×C3)→Y:90M2÷(ЛBC)→P:Goto1:IFEND↙IFM≤Z[1]-C:THEN180(M-C)÷(ЛB)+90C÷(ЛB)→P:BSin(P)+C÷2-C3÷(240B2)→X:B(1-Cos(P))+Z[2]→Y:IFEND↙Lb11:IFN=1:THENA-P→P:X→I:Y→J:Z[3]+(Z[3]-I)Cos(A)-JSin(A)→X:(Z[3]-I)Sin(A)+JCos(A)→Y:IFEND↙X→I:HY→J:E+Z[3]Cos(180+G)+ICos(G)-JSin(G)→X:F+Z[3]Sin(180+G)+ISin(G)+JCos(G)→Y:G+HP→P↙CIRDAT(子程序曲线要素库)IFZ≦圆直点里程:THEN转向角→A:半径→B:缓和曲线长→C:直缓点里程→D:交点X坐标→E:交点Y坐标→F:切线方位角→G:左或右偏(1,-1)→H:GOTO1:IFENG↙(一直将曲线要素数据输入完)Lb11CONDAT(子程序导线控制点库)IFQ=编号(自定):THENU=导线控制点X坐标:V=导线控制点Y坐标⊿(一直将导线控制点数据输入完)主程序运用(CIRLAY)LOAD?当为交点号时，调用数据库；当为-1时，手动输入。OPPNAME?输入控制点编号；当为-1时，手动输入测站点坐标。DK+M?输入待测点里程LR?当为2时，计算外移值。LD?输入外移值平距，距离用正负判断左右（左为-，右为+）RA?输入外移值与线路中心夹角（右角值）QH?当为3时，计算外移值。QH-LD?输入外移值平距，距离用正负判断左右（左为-，右为+）RA?输入右角值