CASIO fx—5800计算器 工程测量与公路测量程序.doc

CASIO fx5800计算器 工程测量与公路测量程序 1、坐标正算 ＂X0″X＂Y0″Y＂I″I＂J″J XICosJ→UYISinJ→V ＂X″U （待求点的X坐标） ＂Y″V （待求点的Y坐标） 说明X0 Y0已知点坐标I两点的距离J方位角 2、坐标反算 Lbl 0 ＂X1″X＂Y1″Y＂X2″U＂Y2″V PolU-X,V-Y J0 J360→J ＂I″I ＂J″J DMS GOTO 0 说明X1Y1第一点的坐标，X2Y2第二点的坐标，I两点的距离，J方位角 3、圆曲线 ＂X0″X ＂Y0″Y＂FWJ″D＂QDHAO″G ＂ZDHAO″C ＂R″R Lbl 1 ＂DQHAO″L LG Or L＞C GOTO 2 ＂PY″K 180L-GπR →E 2RSin0.5E →F ReCAbsF,D0.5ECls ＂X″XIKCosDE90 →A ＂Y″YJKSinDE90 →B DE→oo0 360o→0o ＂FWJ″oDMS Goto 1 Lbl 2 ＂END″ 说明X0Y0起始点的坐标，FWJ起始点的方位角，QDHAO起点里程，ZDHAO终点里程，R半径，DQHAO待求点里程，PY偏移量 4、竖曲线 ＂QZHAO ″J ＂HB″B＂I1″C＂I2″D＂R″R＂T″T D-C100 AbsD-C 100→AAbs0.5RD-C 100→S ＂T″S J-T→X J＋T→Y Lbl 0 ＂DQ″L If LXThen Goto 1Else IfL＞YThen Goto 1If EndIf End ＂GC″BCL-J 100AL-JT2R →H Goto 0 Lbl 1 ＂END″ 说明QZHAO曲中点里程，HB曲中点高程，I1第一坡度，I2第二坡度，R半径，T切线长，DQ待求点里程。 5．正算偏移 ＂X0″A ＂Y0″B＂FWJ″D Lbl 0 ＂LS″L ＂PY″C ReCL,D ＂X″AICCosD 90 →X ＂Y″BJCSinD 90 →Y Goto 0 说明X0 Y0已知点坐标，LS两点距离，FWJ方位角 6.万能公式 ＂X0″A＂Y0″B＂FWJ″C＂1R-QD″D＂1R-ZD″E＂QDHAO″F ＂ZDHAO″G Lbl 1 ＂DQHAO″H＂PY″o If HFThen Goto 2Else IfH＞GThen Goto 2If EndIfEnd E-DAbsG-F →PAbs H-F →QPQ→IC90QI2D π→JC45QI8D π→MC135Q3I8D π→NC45QI22D π→K AQCosC 4CosMCosN2CosKCosJ12→U BQSinC4SinMSinN2SinKSinJ12→V ＂X″UoCosJ90 →X ＂Y″VoSinJ90 →Y ＂FWJ″ J DMS Goto 1 Lbl 2 ＂END″ 说明X0Y0起开点坐标，FWJ起开点方位角，1R-QD起开点曲率，1R-ZD终点曲率，QDHAO起点里程，ZDHAO终点里程，DQHAO待求点里程，XY待求点坐标 6、标高计算 ＂QZHAO″J＂QDHAO″G＂ZDHAO″K＂BHB″B＂SX″Q＂I1″C ＂I2″D＂R″R＂T″T D-C100→WWAbsW→A＂T″0.5RAbsW →S ＂o-YIGAO″o J-T→XJT→Y Lbl 1 ＂LDQHAO″L＂PY″U＂XIELV″V If LXThen Goto 2Else IfL＞YThen Goto 3If EndI End ＂HL″B0.01CL-JAL-JT2R0.01UVQ→Q ＂HO″o-H→Z Goto 1 Lbl 2 LK Goto 4 ＂HL″B0.01 L-JD0.01UVQ →H ＂HOo-H→Z Goto 1 Lbl 4 ＂END″ 说明QZHAO曲中点里程（竖曲线），QDHAO起点里程，ZDHAO终点里程，BHB曲中点高程，SX上下（路面标高下多少为水稳层面），I1第一坡度，I2第二坡度，R半径，T切线长，LDQHAO待求点里程，PY偏移（中桩到边桩的距离），XIELV斜率（横坡的坡度，左负右正）o-YIGAO仪器高