PC-E500自编BASIC程序.pdf

PC-E500 计算器 BASIC 程序 PC-E500 计算器自编 BASIC 程序 本程序集包含方位角计算，坐标正算，坐标反算，曲线要素 及坐标、左右边桩坐标计算，新旧坐标转换。使用本程序集应注 意以下问题： 1、运行程序时应在 BASIC 语言 RUN 模式下运行，运行时输 入（以计算曲线要素为例）： RUN 500 或者 RUN *QXYS，建议采 用第二种方式运行。 2、本程序集坐标系统采用工程坐标，即以 X 轴前进方向的 右手边为 Y 坐标正值；方位角及坐标正算时所取角度为左角。 3、输入角度时直接按度分秒格式输入，如输入 3.5242 即为 3°52′42″。 4、计算曲线时，转向角 A 输入以右偏为正，以左偏为负。 5、程序在运行过程中发现输入有误，连按两次“ON”键返 回。 6、计算曲线时，为简化编程，以 ZH—JD 方向为 X 正轴，即 ZH—JD 方位角为 0 度，或 JD—ZH 方位角为 180 度，在设定坐标 系统时应予以注意。因为在大多数情况下坐标系统设定均按此种 方法设定。如不按此设定坐标系统，则计算完毕后须进行新旧坐 标转换计算。 7、计算 ZH 点时，输入点号里程应加大 0.0001m。 8、计算曲线时，各输入点及输出点含义为： A—曲线转向角 R—曲线半径 LO—缓和曲线长度 XJD—交点 X 坐标 YJD—交点 Y 坐标 JDLC—交点里程 ZH（HY、QZ、YH、HZ）—ZH（HY、QZ、YH、HZ）点里程 DH—待求的点号里程 ZBZ—待求点号的左边桩距 YBZ—待求点号的右边桩距 XI、YI—待求点号 X、Y 坐标 XZB、YZB—待求点号的左边桩 X、Y 坐标 XYB、YYB—待求点号的右边桩 X、Y 坐标 中铁二十五局二公司合武铁路项目部 第1 页 PC-E500 计算器 BASIC 程序 100 *FWJ（方位角计算） 110 INPUT “A1=”；A1，“BZ=”；BZ 120 A1=DEG A1：BZ=DEG BZ 130 A2=A1+BZ+180 135 IF A2=720 THEN A2=A2-720:GOTO 150 140 IF 720A2 AND A2=360 THEN A2=A2-360 ELES A2=A2 150 A2=DEG A2 160 PRINT “FWJ=”；A2 170 END X轴 说明： C 1、已知条件：A1，BZ A1--AB方位角 BZ--B点观测角，取左角（如取右角，则前面加-号） Z B B 2、输出结果： A1 FWJ FWJ--BC方位角 A Y轴 200 *ZBZS（坐标正算） 210 INPUT “XA=”；XA，“YA=”；YA，“AB=”；AB，“A1=”；A1 220 A1=DEG A1 230 XB=XA+AB*COS A1 240 YB=YA+AB*SIN A1 250 PRINT “XB=”；XB 260 PRINT “YB=”；YB 270 END X轴 说明： 1、已知条件： XA、YA--A点坐标