CASIOfx-4500P,4800P程序

作者：徐万鹏坐 标 反 算 程 序行MODE EXP 程 序程 序 说 明F1ZBFS程序区及程序名。L1SSX:TSY:XZ输入始点坐标(S,T)和终点坐标(X,Y)。X:YZYL2ProgZ1调用坐标反算子程序Z1。求两点间平距和始点至终点的方位角。说明：1、本程序2行共34步。2、运行时，依次输入起点和终点坐标。显示起点至终点间的平距和坐标方位角。3、输入：显示SX?输入起点X坐标；显示SY?输入起点Y坐标；显示ZX? 输入终点X坐标；显示ZY? 输入终点Y坐标。4、输出：S= 两点间的平距；A= 起点至终点间的坐标方位角。总说明：1、该曲线测设通用程序包，适用于CASIO fx-4500P、CASIO fx-4800P型计算器，可用于任何类型的曲线计算问题。涵盖了程序征集活动中的（6）圆曲线测设、（8）偏角及弦长计算、（9）切线支距计算、（10）缓和曲线的直角坐标和极坐标计算等命题。2、F1、F2、F3、F4、F5、F6、F7输入计算器后，F1、F2、F3、F4为实用程序，F5、F6、F7为配套子程序。3、F1、F2可以单独使用；运行F3、F4时，需先运行F2输入必要的曲线要素数据。4、F1用于坐标反算。曲线测设时，经常要利用交点坐标反算切线的坐标方位角。5、F2用于计算单一圆曲线、单一正向缓和曲线、单一反向缓和曲线、对称复曲线（圆曲线两端加等长缓和曲线）和不对称复曲线（圆曲线两端加不等长缓和曲线）的曲线长和两切线长。6、F3用于计算单一圆曲线、单一正向缓和曲线、单一反向缓和曲线、对称复曲线和不对称复曲线的局部坐标（切线支距法测设曲线的放样要素）或在线路统一坐标系中的坐标。7、当置镜于曲线外时，F4用于计算单一圆曲线、单一正向缓和曲线、单一反向缓和曲线、对称复曲线和不对称复曲线的放样要素（距离和方向）；当置镜于曲线起点或终点时，F4用于计算偏角法测设曲线的放样要素（距离和偏角）。作者：徐万鹏曲 线 要 素 计 算 程 序行MODE EXP 程 序程 序 说 明F2QXYS程序区及程序名。L1ZZX:Y=1，Z=-1:输入曲线转向ZX(右转取1，左转取-1)、半径BJ、偏角PJ、第一缓和曲线长L1、第二缓和曲线长L2。RBJ:PPJ:OL1:UL2L2N=180/:L=RP/N+计算曲线长。G、H加E-21的目的是防止“0”溢出，增强程序的通用性。(O+U)/2:QXC=G=RO+EXP(-)21:H=RU+EXP(-)21L3V(I)=O:W(J)=L-O-U:K=U调用子程序Z2，计算曲线坐标。:ProgZ2L4Y=YZ/SinP:X-YCosP:计算第一切线长L1、第二切线长L2。T1=Y:T2=说明：1、本程序4行共143步。2、输入：显示ZX:Y=1,Z=-1？输入曲线转向；显示BJ? 输入曲线半径；显示PJ?输入曲线偏角；显示L1?输入第一缓和曲线长；显示L2?输入第二缓和曲线长。4、输出：QXC= 曲线长；T1=第一切线长；T2=第二切线长。说明：V(I)、 W(J)中，不带括号的适用于CASIO fx-4500P型计算器，带括号的适用于CASIO fx-4800P型计算器。作者：徐万鹏曲 线 统 一 坐 标 计 算 程 序行MODE EXP 程 序程 序 说 明F3QXJS程序区及程序名。L1I(V)X0:J(W)Y0:QQ输入曲线起点坐标X0和Y0，曲线起点切线的坐标方位角QXFWJ。XFWJL2Lb13:ProgZ3计算曲线在线路坐标系中的统一坐标。L3I(V)+XCosQ-YSinQ:X=J(W)+XSinQ+YCosQ:Y=Goto3说明：1、本程序3行共67步。2、输入：显示X0？输入曲线起点X坐标；显示Y0？输入曲线起点Y坐标；显示QXFWJ? 输入曲线起点切线的坐标方位角；显示M? 输入自曲线起点到计算点的曲线长。4、输出：X= X坐标；Y=Y坐标。说明：I(V)、 J(W)中，不带括号的适用于CASIO fx-4500P型计算器，带括号的适用于CASIO fx-4800P型计算器。作者：徐万鹏置 镜 任 意 点 测 设 曲 线 测 设 元 素 计 算 程 序行MODE EXP 程 序程 序 说 明F4QXCS程序区及程序名。L1I(V)X0:J(W)Y0:QQ输入曲线起点坐标X0和Y0，曲线起点切线的坐标方位角QXFWJ，置镜点坐标X1和Y1。XFWJ:SX1:TY1L2Lb13:ProgZ3计算曲线在线路坐标系中的统一坐标。L3C=I(V)+XCosQ-YSinQ:Y=J(W)+XSinQ+YCosQ:X=CL4ProgZ1:Goto3计算测设元素：距离、方向。说明：1、本程序5行共81步。2、输入：显示X0？输入曲线起点X坐标；显示Y0？输入曲线起点Y坐标；显示QXFWJ? 输入曲线起点切线的坐标方位角；显示X1？输入置镜点X坐标；显示Y1？输入置镜点Y坐标；显示M? 输入自曲线起点到测设点的曲线长。4、输出：S= 置镜点到测设点的平距；A=置镜点到测设点的方向。说明：I(V)、 J(W)中，不带括号的适用于CASIO fx-4500P型计算器，带括号的适用于CASIO fx-4800P型计算器。作者：徐万鹏坐 标 反 算 子 程 序行MODE EXP 程 序程 序 说 明F5Z1程序区及程序名。L1Pol(X-S，Y-T:S=W(J)用直角坐标反算距离和方位角。W(J)=W(J)+360W(J):A=说明：1、该子程序1行共38步。2、反算的距离存入V（I）寄存器，反算的坐标方位角存入W(J)寄存器。说明：W(J)中，不带括号的适用于CASIO fx-4500P型计算器，带括号的适用于CASIO fx-4800P型计算器。作者：徐万鹏曲 线 坐 标 计 算 子 程 序行MODE EXP 程 序程 序 说 明F6Z2程序区及程序名。L1Fixm固定变量。L2A=V(I)-V(I)xy5/40G2:B=V(I)求第一缓和曲线坐标增量计算元素A和B。xy3/6G-V(I)xy7/336Gxy3L3C=2RSin(NW(J)/2R :D=N求圆曲线坐标增量计算元素C和D。(O+W(J)/2R L4E=K-(Uxy5-(U-K)xy求第二缓和曲线坐标增量计算元素E和F。5)/40H2:F=(Uxy3-(U-K)xy3)/6H-(Uxy7-(U-K)xy7)/336Hxy3L5X=A+CCosD+ECosP+FSinP计算曲线上任意点相对曲线起点的坐标。:Y=Z(B+CSinD+ESinP-FCosP说明：1、本子程序5行共160步。2、计算结果存入X、Y寄存器。3、G2和H2各为两步。说明：1、V(I)、 W(J)中，不带括号的适用于CASIO fx-4500P型计算器，带括号的适用于CASIO fx-4800P型计算器。2、为提高计算精度，曲线计算数学模型中的级数展开式取前三项，教课书中一般仅取前一至二项。作者：徐万鹏曲 线 上 任 意 点 相 对 曲 线 起 点 坐 标 计 算 子 程 序行MODE EXP 程 序程 序 说 明F7Z3程序区及程序名。L1Fixm:M固定变量，设置自变量M。L2MO=V(I)=O:V(I)=M:W(J)=计算自曲线起点到计算点所经过的第一缓和曲线、圆曲线、第二缓和曲线的长度。0:K=0:Goto2L3ML-U=W(J)=L-O-U:W(J)=M-O:K=0:Goto2L4ML=