CASIO-5800公路测量程序.docxVIP

PAGE \* MERGEFORMAT 1 2007/11/19 CASIO-5800公路测量程序 一 文件名：HHQX?????? 缓和曲线段内任意点坐标计算程序“FWJ=”？Q“ZHUAN XIANG L（-1），R（1）=”？N“R（m）=”?R“LS(m)=”?D“KZH=”?G“XZH=”?U“YZH=”?VLbI 0“KP=”?HAbs(H-G)→CC-C^5/(40R^2D^2)+C^9/(3456 R^4D^4) →JC^3/(6RD)-C^7/(336R^3D^3)+C^11/(42240R^5D^5) →KQ+N(C^2/(2RD)×(180/Π)) →FU+J×Cos(Q)+K Cos(Q+90N) →AV+J×Sin(Q)+K Sin(Q+90N) →BLbI 1“XP=”：A ◢“YP=”：B ◢“QIE??XIAN??FWJ=”：F ◢LbI 2“BIAN JU(m)=”?SS=0＝＞Goto 0LbI 3“JIA JIAO??L(-),R(+) =”?EA+S Cos(F+E) →XB+S Sin(F+E) →YLbI 4“X[1]=”：X ◢“Y[1]=”：Y ◢Goto 2 FWJ=?输入交点间方位角ZHUAN XIANG L（-1），R（1）=？输入曲线转向，左输-1，右输1R（m）=?输入曲线半径LS(m)=?输入缓和曲线长KZH=?输入ZH点桩号XZH=? 、YZH=?输入ZH点坐标KP=?输入待求点桩号BIAN JU(m)=?输入边距(斜交时输入斜长),不论左右一律正值,当不计算边桩时输入OJIA JIAO??L(-),R(+) =?输入边桩与中桩法线方向夹角,左边输负值,右边输正值。 ? 二文件名：YQX?????? 圆曲线段内任意点坐标计算程序“FWJ=”？Q“ZHUAN XIANG L（-1），R（1）=”？N“R（m）=”?R“LS(m)=”?D“KHY=”?G“XHY=”?A“YHY=”?BLbI 0“KP=”?HAbs(H-G)→C2R Sin(90C/(RΠ)) →JQ+N((90D/(RΠ))+（90C/(RΠ)）) →IQ+N(((C/R)×(180/Π))+ (90D/(RΠ))) →FLbI 1A+J Cos(I) →XB+J Sin(I) →Y“XP=”：X ◢“YP=”：Y ◢“QIE??XIAN??FWJ=”：F ◢LbI 2“BIAN JU(m)=”?SS=0＝＞Goto 0LbI 3“JIA JIAO??L(-),R(+) =”?EX+S Cos(F+E) →KY+S Sin(F+E) →LLbI 4“X[1]=”：K ◢“Y[1]=”：L ◢Goto 2FWJ=?输入交点间方位角ZHUAN XIANG L（-1），R（1）=？输入曲线转向，左输-1，右输1R（m）=?输入曲线半径LS(m)=?输入第一缓和曲线长KYH=?输入YH点桩号XYH=? 、YZH=?输入YH点坐标KP=?输入待求点桩号BIAN JU(m)=?输入边距(斜交时输入斜长),不论左右一律正值,当不计算边桩时输入OJIA JIAO??L(-),R(+) =?输入边桩与中桩法线方向夹角,左边输负值,右边输正值。 ? 三 SINGLE CIRCLE VERTICAL CURVE ??显示程序标题Deg:ClrStat:FreqOn:Fix 3 ?????基本设置C MILEAGE PEG(m)=?Z ?????输入以m为单位的变坡点桩号HC(m)=?H ????????输入变坡点高程i1(%)=?A ?????????输入坡度1i2(%)=?B ?????????输入坡度2R(m)=?R ?????????输入竖曲线半径13 DimZ ?????????定义额外变量维数If A-B0:Then -1 Z[10]:Else 1 Z[10]:IfEnd tan-1(0.01A) Z[1]:tan-1(0.01B) Z[2] ???计算坡度竖直角Z[1],Z[2]Z[1]-Z[2] Z[13]:Abs(Z[13]) Z[3] ???计算坡度转角Z[3]0.5(Z[1]+Z[2]) Z[4] ?????计算变坡点 的铅垂线与外距直线的夹角 RZ[3]π÷180 L ???????计算竖曲线长Rtan(0.5Z[3]) T ???????计算切线长R((cos(0.5Z[3]))-1-1) E ??????计算竖曲线外距α1(DMS)=:Z[1]????????显示第一纵坡竖直角α2(DMS)=:Z[2]?