卡西欧5800测量程序

FWJ（方位角）“X0”起点X坐标、“Y0”起点Y坐标、“X1”终点X坐标、“Y1”终点Y坐标LB10NORM2“X0”?A:“Y0”?B:“X1”?C:“Y1”?DC-A→ED-B→F√(E2+F2)→GFIX3“L=”:G⊿IFE<0:THENGOTO1:ELSEGOTO2:IFENDLB11TAN-1(F/E)+180→H“X=”:H▼DMS⊿GOTO0LB12IFE>0:THENGOTO3:ELSEGOTO4:IFENDGOTO0LB13IFF≥0:THENTAN-1(F/E)→I“X=”:I▼DMS⊿ELSETHENTAN-1(F/E)+360→J“X=”:J▼DMS⊿IFENDGOTO0LB14IFF=0:THEN“X=”:0▼DMS⊿ELSE180-F/ABS(F)*90→K“X=”:K▼DMS⊿IFENDGOTO0HHQX（单缓和曲线）“X0”起点X坐标、“Y0”起点Y坐标、“X”方位角、“R”半径、“LS”缓和曲线长度、“PJ”左偏角-1右偏角+1、“B”半幅路宽、“K0”起点桩号、“K1”目标点桩号NORM2“X0”?A:“Y0”?B:“X”?H:“R”?D:“LS”?W:“PJ”?G:“B”?M:“K0”?C:“K1”?EE-C→FF-F5/90/D2/W2→KF2/D/W*30/3.14→LG*L→PH+P→ZH+3*P-90→XH+3*P+90→VA+K*COS(Z)→QB+K*SIN(Z)→NQ+M*COS(X)→ON+M*SIN(X)→SQ+M*COS(V)→TN+M*SIN(V)→UFIX3“X=”:Q⊿“Y=”:N⊿“X(L)=”:O⊿“Y(L)=”:S⊿“X(R)=”:T⊿ “Y(R)=”:U⊿YQX（圆曲线）“X0”起点X坐标、“Y0”起点Y坐标、“X”方位角、“R”半径、“PJ”左偏角-1右偏角+1“B”半幅路宽、“K0”起点桩号、“K1”目标点桩号“X0”?A:“Y0”?B:“X”?C:“R”?D:“PJ”?J:“B”?Z:“K0”?E:“K1”?FF-E→GG/D*90/3.14→H2*D*SIN（H）→IC+H*J→KC+2*H*J→LA+I*COS（K）→MB+I*SIN（K）→NM+Z*COS（L-90）→ON+Z*SIN（L-90）→PM+Z*COS（L+90）→QN+Z*SIN（L+90）→SFIX3“X=”:M⊿“Y=”:N⊿“X（L）=”:O⊿“Y（L）=”:P⊿“X（R）=”:Q⊿“Y（R）=”:S⊿“X0”起点X坐标“Y0”起点Y坐标“X”方位角“R”半径“PJ”左偏角-1右偏角+1“B”半幅路宽“K0”起点桩号“K1”目标点桩号

SQX（竖曲线）“H（K0）”交点高程、“i1”左坡度（上坡+下坡-）、“i2”右坡度（上坡+下坡-）、“R”半径、“T”切线、“PJ”左偏角-1右偏角+1、“K0（JD）”交点桩号、“K1”目标点桩号LB10NORM2“H（K0）”?A:“i1”?B:“i2”?C:“R”?D:“T”?E：“PJ”?Z：“K0（JD）”?F：“K1”?G：G-F→HA+Z*E2/2/D→KIFH<0：THENGOTO1：ELSEGOTO2：IFENDLB11K+H*B-Z*（H+E）2/2/D→LFIX3“H(K1)=”:L⊿GOTO0LB12K+C*H-Z*(E-H)2/2/D→MFIX3“H(K1)=”:M⊿GOTO0ZB（坐标计算）“X0”起点X坐标、“Y0”起点Y坐标、“X”方位角、“L”长度、“B”半幅路宽NORM2“X0”?A:“Y0”?B:“X”?C:“L”?D:“B”?ZA+D*COS(C)→EB+D*SIN(C)→FC-90→GC+90→HE+Z*COS(G)→IF+Z*SIN(G)→JE+Z*COS(H)→KF+Z*SIN(H)→LFIX3IFZ≠0:THEN“X=”:E⊿“Y=”:F⊿“X(L)=”:I⊿“Y(L)=”:J⊿“X(R)=”:K⊿“Y(R)=”:L⊿ELSE“X=”:E⊿“Y=”:F⊿IFENDHH-QX（多缓和曲线）“X0”起点X坐标、“Y0”起点Y坐标、“X”方位角、“R”半径、“LY”圆曲线长度、“LS1”缓和曲线长度、“LS2”缓和曲线长度、PJ”左偏角-1右偏角+1、“B”半幅路宽、“K0”起点桩号、“K1”目标点桩号LB10NORM2“X0”?A:“Y0”?B:“X”?C:“LY”?F:“LS1”?D：“LS2”?E：“R”?G：“PJ”?K：“B”?Z:“K0”?H:“K1”?II-H→NH+D→LH+D+F→JIFI≤L:THENGOTO1:ELSEGOTO2:IFENDLB11N-N5/40/D2/G2→ON3/6/G/D-N7/336/(G*D)3→PA+O*COS(C)-K*P*SIN(C)→QB+O*SIN(C)+K*P*COS(C)→SN2/D/G*90/3.14→UC+K*U-90→VC+K*U+90→WQ+Z*COS(V)→XS+Z*SIN(V)→YQ+Z*COS(W)→RS+Z*SIN(W)→TFIX3“X=”:Q⊿“Y=”:S⊿“X(L)=”:X⊿“Y(L)=”:Y⊿“X(R)=”:R⊿“Y(R)=”:T⊿GOTO0LB12IFI≤J:THENGOTO3:ELSEGOTO4:IFENDGOTO0LB13(N-D/2)/G*180/3.14→OD2/24/G→PD/2-D2/240/G2→QG*SIN(O)+Q→RG*(1-COS(O))+P→SA+R*COS(C)-S*SIN(C)*K→TB+R*SIN(C)-S*COS(C)*K→UC+D/2/G/k*180/3.14+(N-D)/G/K*180/3.14→WT+Z*COS（W-90）→VU+Z*SIN（W-90）→XT+Z*COS（W+90）→YU+Z*SIN（W+90）→MFIX3“X=”:T⊿“Y=”:U⊿“X(L)=”:V⊿“Y(L)=”:X⊿“X(R)=”:Y⊿“Y(R)=”:M⊿GOTO0LB1450→DIMZH+D+F+E→Z(1)ABS(I-Z(1))→Z(2)C+((D+E)/G*90/3.14+F/G*180/3.14)/K→Z（3）Z（2）-Z（2）5/40/G2/E2→Z（4）Z（2）3/6/G/E-Z（2）7/336/G3/E3→Z(5)A+(D-D3/90/G2)*COS(C+D/G*30/3.14/K)→Z(6)B+(D-D3/90/G2)*SIN(C+D/G*30/3.14/K)→Z(7)C+D/G*90/3.14/K→Z(8)Z(6)+2*G*SIN（F/G*90/3.14）*COS(Z（9）)→Z(10)Z(8)+F/G*90/3.14→Z(9)Z(7)+2*G*SIN(F/G*90/3.14)*SIN（Z(9)）→Z(11)Z(8)+F/G/K*180/3.14+E/G/K*60/3.14→Z(12)Z(10)+(E-E2/90/G2)*COS(Z(12))→Z(13)Z(11)+(E-E3/90/G2)*SIN(Z(12))→Z(14)Z(13)+Z(4)*COS(Z(12)+E/G/K*30/3.14+180)+Z(5)*SIN(Z(12)+E/G/K*30/3.14+180)→Z(15)Z(14)+Z(4)*SIN(Z(12)+E/G/K*30/3.14+180)-Z(5)*COS(Z(12)+E/G/K*30/3.14+180)→Z(16)Z(15)+Z*COS(Z(20)-90)→Z(17)Z(16)+Z*SIN(Z(20)-90)→Z(18)Z(15)+Z*COS(Z(20)+90)→Z(19)Z(16)+Z*SIN(Z(20)+90)→Z(21)Z（12）+E/G/K*30/3.14+180-Z（2）2/G*30/3.14/K→Z（20）FIX3“X=”:Z(15)⊿“Y=”:Z(16)⊿“X(L)=”:Z(17)⊿“Y(L)=”:Z(18)⊿“X(R)=”:Z(19)⊿“Y(R)=”:Z(21)⊿GOTO0LK（不规则路口计算）“X”夹角、“R1”路沿石半径、“B1”左边路宽、“B（1）”右边路宽、“R2”人行道半径、“B2”左人行道宽、“B（2）”右人行道宽NORM2“X”?A:“R1”?B:“B1”?C:“B（1）”?D:“R2”?L：“B2”?M：“B（2）”?NB/TAN（A/2）+C/TAN（A）+D/SIN(A)→EB/TAN（A/2）+D/TAN（A）+C/SIN(A)→EFIX3“L1=”:E⊿“L(1)=”:F⊿B/TAN（A/2）→G“T1=”:G⊿(180-A)/180*3.14*B→H“LY1=”:H⊿B*G-(180-