Casio4800平曲线坐标计算(7页).doc

-Casio fx-4800P平曲线坐标计算程序  湖南新光工程有限公司三板溪项目部 李甲生 程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。 程序说明：K0：起始桩号 X0：起始X坐标 Y0：起始Y坐标 ALF：起始方位角 R：半径 LS：缓和曲线长 N：曲线左转N=1，右转N=2 K：待求桩号 LL、LR：左、右桩距离 Q：左、右桩与中线斜交角 求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。 一、 直线段 文件名：ZX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 0:K:X”XZ”=O+(K-L)cosW Y”YZ”=P+(K-L)sinW B:S”XL”=X-B”LL”cos(W+Q)  T”YL”=Y-Bsin(W+Q)  C:U”XR”=X+C”LR”cos(W+Q)  V”YR”=Y+Csin(W+Q)  Goto 0 注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。 二、 圆曲线段 文件名：YQX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 1:K: J=(-1)N (K-L)÷R×180÷:D=2Rsin(-1)N J÷2): X”XZ”=O+Dcos(W+J÷2)  Y”YZ”=P+Dsin(W+J÷2)  B:S”XL”=X-B”LL”cos(W+J+Q)  T”YL”=Y-Bsin(W+J+Q)  C:U”XR”=X+C”LR”cos(W+J+Q)  V”YR”=Y+Csin(W+J+Q)  Goto 1 注：若没有直接HY点方位角，则ALFHY=ALFZH±Ls/2/R×180/,(左转-，右转+)。 三、 缓和曲线 文件名：HHQX (COMP) 程式： L”K0”:O”X0”:P”Y0”:W”ALF”: M”LS”:Lbl 3:K: I=(-1)N×(K-L)2÷M÷R÷6×180÷: D=(K-L)-(K-L)5÷90÷(RM)2: X”XZ”=O+Dcos(W+I) Y”YZ”=P+Dsin(W+I)  B:S”XL”=X-B”LL”cos(W+3I+Q)  T”YL”=Y-Bsin(W+3I+Q)  C:U”XR”=X+C”LR”cos(W+3I+Q)  V”YR”=Y+Csin(W+3I+Q)  Goto 3 注：1、坐标计算方法是根据偏角法原理； 2、缓和曲线（ZHHY或YHHZ）以ZH（或HZ）为起始点； 3、平曲线左转（ZHHY段N=1，YHHZ段N=2），曲线右转（ZHHY段N=2，YHHZ段N=1）。 Casio fx-4800P计算机具有强大的储存记忆、程序设计功能，能为众多专业技术工作提供大量复杂程序计算。笔者根据工程测量中的需要汇编以上程序，本着严密准确、计算程式简洁，避免冗长复杂化的计算过程。以上三部分平曲线计算程序有待继续研究成更简便的三合一程序。笔者另编写Casio fx-4800P方位角计算程序、竖曲线设计高程计算程序，及依坐标求算里程桩号及至中桩距离的程序，Excel坐标计算程序、Excel平曲线要素表计算程序、Excel竖曲线计算程序均具大批量计算并打印功能， 程序准确实用、方法简捷，下次见面。望大家不吝赐教，谢谢！ =上面是内容，谢谢！转帖竖曲线标高计算程序(4800)程序说明： (适用于4800)     此程序为竖曲线标高计算程序，程序用变坡点高程和桩号来计算坡度，使高程计算比较精确，程序运行时，先按顺序输入三点的桩号、高程和中间曲线的半径，然后可输入桩号求相应点的高程，当桩号到达曲线尾和下一曲线间的直线段时，会出现“AFTER QX”的提示，这时可继续输入桩号求标高，也可输入一负值进行输入下一变坡点数据，输入负值后会出现提示要求输入R，此R为第三个变坡点的半径，继续要求输入的EF则为第四个变坡点的桩号和高程。程序自动将前次的后两个变坡点的数据交换到计算时所用的第一第二个变坡点，而不用每次都输入。但要注意的是，不能输入超过下一个曲线的桩号，否则会出现标高错误，最好在出现“AFTER QX”提示后便进行下一变坡点数据的输入。本程序在输出标高后可设计简单的横坡度、超高坡度计算程序，可一次输出断面中的标高。    变量说明： <程序运算符定义> A 前一个变坡点桩号 B 前一个变坡点高程 R 中间变坡点半径C 中间变坡点桩号         D 中间变坡点高程         G 前段坡度E 后一个变坡点桩号 F 后一个变坡点高程 H 后段坡度L 中间曲线的切线长 I 所求点的高程         J 切线至竖曲线的竖向距离K 所求桩号 程   序   清   单文件1  程序名：SQX ABCD:Lbl 0:ERF:REF:G=(D-B)÷(C-A):H=(F-D)÷(E-C):L=R×Abs(G-H)÷2  Lbl 1:K:K0>Goto 2KC+L>L=-Abs L:Prog "SHU":M=D+(K-C)H+J:>M=D+(K-C)H:"AFTER QX"L=Abs L:KC>Prog "SHU":M=B+(K-A)G+JKC-L>M=B+(K-A)GM=1000M:Prog "SSWR":I=M÷1000 K=K+20:Goto 1:Lbl 2:A=C:B=D:C=E:D=F:Goto 0文件2   程序名：SHU J=(K-C+L)2÷(2R):G-H>0>J=-J文件3   程序名：SSWR M-Int M<0.5>M=Int M:>M=Int M+1第 7 页-