自编4500测量程序word版.docVIP

测量程序 极坐标转直角坐标 L1 Lb10:A:B:{S,w}:X=A+ScosW◢Y=B+SsinW◢Goto0 直角坐标转极坐标 L1 Lbl0:{C,D}:A:B:S=Pol(C-A,D-B) ◢ L2 W≥0=W=IntW+0.01Int(60FracW)+0.006Frac(60FracW) ◢≠=W=Int(W+360)+ 0.01Int(60Frac(W+360)+ 0.006Frac(60Frac(W+360)) ◢Goto0 注：算出的方位角已转换，例如“177.1831518”为177-18-31.518 圆曲线 L1 Lbl0:R:W:C:D:{L} L2 A=L-L3/(6R2)+ L5/(120R4):B= L2/(2R)- L4/(24R3)+ L6/(720R5) ◢ L3 X=C+AcosW-B sinW◢Y=D+A sinW+ BcosW◢V= W+180 L/(πR) ◢ L4 E= C+AcosW+B sinW◢F=D+A sinW- BcosW◢G= W-180 L/(πR) ◢ 测量坐标转建筑坐标 Lb10：E：F：W:{X，Y}：A=（X-E）cosW+（Y-F）sinW◢B=-（X-E）sinW+（Y-F）cosW ◢Goto0 建筑坐标转测量坐标 Lb10：{A，B}：W：E：F：X=E+A cosW-B sinW◢Y=F+A sinW+B cosW◢Goto0 注（四、五）：E为原点坐X值。F为原点坐Y值。W为旋转角。X、Y为所求点测量坐标值。A、B为所求点建筑坐标值。 1缓和曲线的（缓和曲线段）+-程序（顺角度小→大，逆角度大→小） Ｌ1:L-为(ZH或HZ点到所求点的缓和曲线长度) Ｌ2:R-为半径 Ｌ3:F-(L0)为缓和曲线长（单） Ｌ4:W-为ZH或（HZ）方位角。注HZ点须加上1800 Ｌ5:C-为ZH或（HZ）X坐标 Ｌ6:D-为ZH或（HZ）Y坐标 Ｌ7:X= L-Lxy5/40/(Rxy2)/ (Fxy2) ◢Y= Lxy3/6/R/ F◢ Ｌ8:A=C+X cosW-YsinW◢B=D+X sinW+ YcosW◢ Ｌ9:V=W+ Lxy2/2/R/ F*57.295830◢（为顺时针方位角小→大） Ｌ10:S=C+X cosW+YsinW◢T=D+X sinW- YcosW◢ Ｌ11:U=W- Lxy2/2/R/ F*57.295830◢（为逆时针方位角大→小） 注：输入的HZ点方位角须加上1800输入，输出的方位角须进行角度转换再减去1800才能作为所求点的方位角。{(Ｌ1→Ｌ6)可精减为Lbl0：R：Ｆ：Ｗ：Ｃ：Ｄ：{L} 2缓和曲线的（圆曲线段）+-程序 Ｌ1:L-为(HY或YH点到所测点的圆曲线长度) Ｌ2:R-为半径 Ｌ3:F-(L0) (Ln)为缓和曲线长（单） Ｌ4:W-为ZH或（HZ）方位角 Ｌ5:C-为ZH或（HZ）X坐标 Ｌ6:D-为ZH或（HZ）Y坐标 Ｌ7:N= F*57.295830/2/R◢(β0)总切线角 Ｌ8:K=N+180 L/(πR) ◢（φ）包括缓和曲线中心角 Ｌ9:Q= F/2- Fxy3/240/Rxy2)◢（q）为切线增长距 Ｌ10:P= Fxy2/24/R◢(P)为内移值 Ｌ11: X=R sinK+Q◢Y=R（1- cosK）+P◢X圆心 、Y圆心 L12：Ａ=C+ＸcosW-Ｙ sinW◢输出圆曲线X坐标 B=D+X sinW+ YcosW◢输出圆曲线Y坐标 L13: V= W+K ◢输出方位角由小→大为正转 L14： Ｓ= C+ＸcosW+Ｙ sinW◢输出圆曲线X坐标 Ｔ=D+ＸsinW- ＹcosW◢输出圆曲线Y坐标 Ｌ15: U= W-K ◢输出方位角由大→小为逆转 注：输入的HZ点方位角须加上1800输入，输出的方位角须进行角度转换再减去1800才能作为所求点的方位角。{(Ｌ1→Ｌ6)可精减为Lbl0：R：Ｆ：Ｗ：Ｃ：Ｄ：{L} 现场补桩加密（圆曲线施工放样计算拱高） Y=R-√R2（C/2）2=R-√（R+C/2）（R-C/2） 人员：需三人。 工具：大钢尺、小钢尺各一。 计算因改坡而挖的面积（路堑） Lbl0：I：N：M： {C}：S=0.5（C2*（sinI）2(N-M)) ◢Goto0 I-改坡面与水平面的夹角，即坡角 N-改后边坡的坡度 M-改前边坡的坡度 C-改坡后坡脚至堑顶的斜距 S-因改坡而挖去的面积 计算路基交割横断面面积 Lbl0： {ABCGDMN}：S=0.5（（A+B）G+ (B+C)D+MA2+NC2) ◢Goto0 A、B、C-横断面左中右桩实测高程与设计高程之差（m） G、D-左、右半幅路宽（m），按理G=D但为了公式通用，则分开与 M、N-边坡坡度