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

《Casio4800平曲线坐标计算(7页).doc》由会员分享，可在线阅读，更多相关《Casio4800平曲线坐标计算(7页).doc（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-Casiofx-4800P平曲线坐标计算程序 湖南新光工程有限公司三板溪项目部李甲生程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。程序说明：K0：起始桩号X0：起始X坐标Y0：起始Y坐标ALF：起始方位角R：半径LS：缓和曲线长N：曲线左转N=1，右转N=2K：待求桩号LL、LR：左、右桩距离Q：左、右桩与中线斜交角求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。一、直线段文件名：ZX(COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”:Lbl0:K:X”XZ”=O+(K-L)cosWY”YZ”=P+(K-L)sinWB:S”XL”=

2、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)Goto0注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。二、圆曲线段文件名：YQX(COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”:Lbl1:K:J=(-1)N(K-L)R180:D=2Rsin(-1)NJ2):X”XZ”=O+Dcos(W+J2)Y”YZ”=P+Dsin(W+J2)B:S”XL”=X-B”LL”cos(W+J+Q)T”YL”=Y-Bsin(W+J+Q)C:

3、U”XR”=X+C”LR”cos(W+J+Q)V”YR”=Y+Csin(W+J+Q)Goto1注：若没有直接HY点方位角，则ALFHY=ALFZHLs/2/R180/,(左转-，右转+)。三、缓和曲线文件名：HHQX(COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”:M”LS”:Lbl3:K:I=(-1)N(K-L)2MR6180:D=(K-L)-(K-L)590(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

4、+Q)V”YR”=Y+Csin(W+3I+Q)Goto3注：1、坐标计算方法是根据偏角法原理；2、缓和曲线（ZHHY或YHHZ）以ZH（或HZ）为起始点；3、平曲线左转（ZHHY段N=1，YHHZ段N=2），曲线右转（ZHHY段N=2，YHHZ段N=1）。Casiofx-4800P计算机具有强大的储存记忆、程序设计功能，能为众多专业技术工作提供大量复杂程序计算。笔者根据工程测量中的需要汇编以上程序，本着严密准确、计算程式简洁，避免冗长复杂化的计算过程。以上三部分平曲线计算程序有待继续研究成更简便的三合一程序。笔者另编写Casiofx-4800P方位角计算程序、竖曲线设计高程计算程序，及依坐标求

5、算里程桩号及至中桩距离的程序，Excel坐标计算程序、Excel平曲线要素表计算程序、Excel竖曲线计算程序均具大批量计算并打印功能，程序准确实用、方法简捷，下次见面。望大家不吝赐教，谢谢！=上面是内容，谢谢！转帖竖曲线标高计算程序(4800)程序说明：(适用于4800) 此程序为竖曲线标高计算程序，程序用变坡点高程和桩号来计算坡度，使高程计算比较精确，程序运行时，先按顺序输入三点的桩号、高程和中间曲线的半径，然后可输入桩号求相应点的高程，当桩号到达曲线尾和下一曲线间的直线段时，会出现“AFTERQX”的提示，这时可继续输入桩号求标高，也可输入一负值进行输入下一变坡点数据，输入负值后会出现提

6、示要求输入R，此R为第三个变坡点的半径，继续要求输入的EF则为第四个变坡点的桩号和高程。程序自动将前次的后两个变坡点的数据交换到计算时所用的第一第二个变坡点，而不用每次都输入。但要注意的是，不能输入超过下一个曲线的桩号，否则会出现标高错误，最好在出现“AFTERQX”提示后便进行下一变坡点数据的输入。本程序在输出标高后可设计简单的横坡度、超高坡度计算程序，可一次输出断面中的标高。变量说明：A前一个变坡点桩号B前一个变坡点高程R中间变坡点半径C中间变坡点桩号D中间变坡点高程G前段坡度E后一个变坡点桩号F后一个变坡点高程H后段坡度L中间曲线的切线长I所求点的高程J切线至竖曲线的竖向距离K所求桩号程

7、序清单文件1程序名：SQXABCD:Lbl0:ERF:REF:G=(D-B)(C-A):H=(F-D)(E-C):L=RAbs(G-H)2Lbl1:K:K0Goto2KC+LL=-AbsL:ProgSHU:M=D+(K-C)H+J:M=D+(K-C)H:AFTERQXL=AbsL:KCProgSHU:M=B+(K-A)G+JKC-LM=B+(K-A)GM=1000M:ProgSSWR:I=M1000K=K+20:Goto1:Lbl2:A=C:B=D:C=E:D=F:Goto0文件2程序名：SHUJ=(K-C+L)2(2R):G-H0J=-J文件3程序名：SSWRM-IntMM=IntM:M=IntM+1第 7 页-