FX4850测量程序Word格式文档下载.docx

FX4850测量程序Word格式文档下载.docx

《FX4850测量程序Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《FX4850测量程序Word格式文档下载.docx（18页珍藏版）》请在冰豆网上搜索。

N=Q∧3/6RV:

X=K（（I+M）sinZ+NcosZ+FcosW）:

Y=I+（I+M）cosZ-NsinZ-FsinW:

Goto7

Lbi5:

X=KF:

Y=L:

G0TO7

Lbi6;

M=cosZ:

W=sinZ:

Q=L-U-2V:

X=K（IW+QW+FM）:

Y=I+IM+QM-FW:

LBI7:

P=Poi（X,Y:

J=O+J:

”X=”:

A+Rec（P,J▲

“Y=”:

B+J▲Goto8

Lbl8:

E“JTX”:

G“JTY”:

Pol（X-E,Y-G）:

“S1-2=”:

I▲J＜0＝＞J=J+360△“A1-2=”:

J→DMS▲Goto0

说明：

输入ZHX:

ZHY:

曲线起点己知X,Y坐标JJX,JY:

己知交点X,Y坐标

R:

曲线半径

　　　　L0：

缓和曲线长

　　　　ZHDK：

曲线起点里程

　　　　A：

转向角

　　　　Ｌ＝1Ｒ＝-1：

转向：

如右输入-1：

如左输入　1

　　　　ＬＳ：

待算点里程

　　　　ＳＤ：

待算点左，右宽度JTX:

JTY:

置镜点坐标

　　输出：

待算点X，Y坐标,:

S1-2置镜点到侍算点距离,A1-2置镜点到侍算点的方位角

第二页举例说明

第1页

例：

输入　ZHX=413230.434R=630L0=280

ZHY=602945.497A=51°

55′53″

JX=413552.000ZHDK=11276.136

JY=603259.000　　　L=1R=-1输入-1　

ＬS=待算点里程11300　

SD=待算点左，右宽度输入0

　输出：

中桩坐标　：

X=413247.512

Y=602962.165

输入:

ＳＤ＝+12.3输出右边X=413238.912

Y=602970.958

输入：

SD＝-12.3：

　输出左边　　X＝413256.113

Y＝602953.959

ＬＳ＝11600　　

中桩坐标　　　　　　　　X＝413438.087

　　　　　　　　　　　　　　　　　Y＝603192.390

ＳＤ＝+12.3：

输出右边　　X＝413427.330

　　　　　　　　　　　　　　　Y＝603198.355

SD＝-12.3：

　输出左边　　X＝413448.844

　　　　　　　　　　　　　　　Y＝603186.426

ＬＳ＝11900

中桩坐标　　　　　　　　X＝413516.953

　　　　　　　　　　　　　　　　　Y＝603478.933

输出右边　　X＝413504.662

　　　　　　　　　　　　　　　Y＝603479.400

　输出左边　　X＝413529.244

　　　　　　　　　　　　　　　Y＝603478.466

ＬＳ＝12200

等于直线段上任意点中桩里程：

　输出：

中桩坐标　　　　　　　　X＝413495.594

　　　　　　　　　　　　　　　　Y＝603777.890

输出右边　　X＝413483.366

　　　　　　　　　　　　　　　Y＝603776.560

　输出左边　X＝413507.822

　　　　　　　　　　　　　　　Y＝603779.218

第2页

FX4850匝道测量程序

程序名:

JF

A“AX”：

B“AY”：

C“CA”：

D“1/RA”：

E“1/RB”：

F“DKA”：

G“DKB”

Lbi1：

{P}：

P“DK”：

I=（E-D）/Abs（G-F）：

Q=Abs（P-F）：

“J=”：

J=Abs（C+90Q（IQ+2D）/π）→DMS▲

S=A+∫（cos（Cπ/180+DX+IX∧　2/2）r，0，Q）

V=∫（sin（Cπ/180+DX+IX∧　2/2）r，0，Q）

C>

0=>

T=B+V:

T=B-V△{Z}:

Z“BZ”:

M=J+R“Q”

“XP=”:

S+ZcosM▲“YP=”:

T+ZsinM▲Goto1

计算匝道单一线型

例如：

AX，AY　起点坐标X,Y

　CA，输入切线方位角（左输入-１，右输入１）

　　　　　１/RA，1/RB分别输入起点和终点的曲率

　　　　　如直线1/RA＝0　　1/RB＝0

　　　　　圆曲线　　R＝90　　1/RA＝1/90　　1/RB＝1/90

　　　　　缓和曲线　R＝90　　　1/RA＝0　　　1/RB＝1/90

　　　　　复曲线R从一个过渡到另一个如半径从1450过渡到90

1/RA＝1/1450　　1/RB＝1/90

DKA:

输入起点里程DKB:

终点里程

DK:

输入待算点里程

BZ:

输入0计算为中桩坐标:

输入:

负的计算左边桩

正的计算右边桩

Q:

垂直距与切线的角度，一般Q=90

R=120：

L01=80:

L02=80：

CA=25°

40′06.7″

ZH＝0+20.157AX＝414152.387AY＝603845.659

1/RA＝01/RB=1/120DKA=20.157DKB=100.157

DK=100.157

输出：

J＝44°

46′01.64″（待算点方位角）

BZ＝0（左，右宽度左-1，右1）输入0计算中桩坐标:

中桩坐标＝X:

414219.875Y=603887.877

BZ＝-12.3输出左边桩XP=414228.537YP=603879.1447

BZ=12.3输出右边桩XP=414211.213YP=603896.610

DK＝80

J＝36°

21′19.22″（待算点方位角）

BZ=-12.3输出左边桩XP=414211.821YP=603964.93

BZ=12.3输出右边桩XP=414197.238YP=603884.742

第3页

如果计算圆曲线就要把缓圆点坐标算出来

例:

YH=100.157X=414219.875Y=603887.877CA=J（44°

46′01.64″）

从新启动程序:

AX=414219.875AY=603887.877CA=44°

46′01.64″

　1/RA=1/1201/RB=1/120DKA=100.157

DKB=YH0+185.791

输入计算点里程:

比入说圆曲线上任意点:

DK=160输出J=73°

20′24.18″

输入BZ=0　Q=90输出中桩坐标XP=414250.331YP=603938.671

输入BZ=12.3Q=90输出右边桩XP=414238.547YP=613942.197

输入BZ=-12.3Q=90输出左边桩XP=414262.114YP=603935.114

如果计算第二缓和曲线，首先要把圆缓点（YH）坐标X,Y和方位角算出来:

输入YH点里程DK=185.791输出方位角J=85°

39′15.64″

输入BZ=0Q=90输出中桩坐标XP=414255.023　　　YP=603963.981

从新启动程序:

AX=414255.023AY=603963.981CA=85°

1/RA=1/1201/RB=0DKA=185.791

DKB=HZ0+265.791

输入DK第二缓和曲线上任意点:

比如0+240DK=240输出方位角J=102°

46′04.62″

输入BZ=0输出中桩坐标XP=414249.683YP=604017.721

输入BZ=12.3输出右边桩XP=414261.679YP=604020.439

输入BZ=-12.3输出左边桩XP=414237.687.YP=604015.002

其余的方法同上

第4页

坐标反算程序

YYTTXX

FX—4850程序

C“X1”:

D“Y1”:

Lbi0:

{EF}:

E“X2”:

F“Y2”：

Fixm:

PoI（E-C，F-D：

“S1-2=”：

I▲J＜＝　0＝＞J=J+360△“A1-2=”:

J→DMS▲　Goto0

说明:

起动程序X1,Y1,X2,Y2,分别是A点坐标和B点坐标,输出S1-2是A到B点的平距,A1-2是A到B点的方位角

例如:

A点X=414184.729Y=604296.966

B点X=414262.887Y=604000.165

　输出:

S1-2=306.919

A1-2=284°

45′10.93″

循环计算下一个点的X，Y值

FX—4800反算和序：

C“X1”：

D“Y1”：

{EF}:

E”X2”:

F”Y2”:

Pol（E-C,F-D:

S=I▲J≤0＝＞

J=J+360△A=J▲Goto0

本程序起动后输入X1,Y1是第一点的X和Y值,X2,Y2是第二点X和Y值,输出S1-2是指第一点至第二点的距离。

A是指第一点至第二点的方位角,查看角度必须按第二功能建,在按度,分,秒健

第5页

曲线要素及五大桩里程计算

TELZHHYQZYHHZ

程序清单：

{IRA}：

I:

R:

A:

P=I^2/24/R:

M=（I/2）-（I^3/240/R^2）:

T=（R+P）*tan（A/2）+M:

E=（R+P/cos（A/2）-R:

L=A/2*R*π/90+I:

“T＝”：

T▲“E=”:

E▲“L=”：

L▲“X=”：

X=I-（I^3/40/R/R）▲“Y=”：

Y=I^2/6/R▲Z=J-T:

H=Z+I:

Q=Z+L/2:

W=Z+L-I:

V=Z+L:

“ZH=”：

Z▲“HY=”：

H▲“QZ=”：

Q▲

“YH=”：

W▲“HZ=”：

V

本程序计算曲线要素T.L.E,X0,Y0,ZH,HY,QZ,YH,HZ

己知半径R=630缓和曲线长L0=280转向角A=51°

55′53″交点里程J=K11+725.235

求:

T.L.E.X0.Y0.ZH.HY.QZ.YH.HZ

进入程序找到文件名起动:

I=280R=630A=51°

55′53″

输出:

切线长T=449.099:

E=76.502:

L=851.015:

X0=278.617Y0=20.740

交点里程J=11+725.235

ZH=11+276.136:

HY=11+556.136:

QZ=11+701.643

YH=11+847.151:

HZ=12+127.150

循坏计算下一条曲线的己知数据

第6页

缓和曲线、圆曲线坐标计算

QX

L1:

V“JP=1,WP=-1”:

I“YP=1，ZP=-1”：

L2：

A“X1”：

B“Y1”：

O“X2”：

Q“Y2”：

R：

U“L0”：

G“BK“：

N：

C=tan-1（（Q-B）/（O-A））：

P=28.6479*U/R/3*2：

L3：

O-A≤0=>

C=C+180△

L4:

Lbl1:

{K}:

K“DK”:

{S}:

S“SD”:

{L}:

L“LS”:

H=Abs（K-G）:

U=0=>

Goto3:

▲H>

UGoto2▲

L5:

E=H-H^5/（40R^2U^2）+H^9/（3456R^4U^4）:

F=H^3/（6UR）-H^7/（336R^3U^3）+H^11/（42240R^5U^5）:

D=√（E^2+F^2）:

J=tan-1（F/E）:

L6:

X=A+D*cos（N+IJ）+S*cos（N+I*J-180+IJ*2-V*L）▲

Y=B+D*sin（N+IJ）+S*sin（N+I*J-180+IJ*2-V*L）▲Goto1

L7:

Lbl2:

M=28.64789*（H-U）/R:

T=2RsinM

L8:

X=O+T*cos（C+I*P+I*M）+S*cos（C+I*P+I*M-180+I*M-V*L）▲

Y=Q+T*sin（C+I*P+I*M）+S*sin（C+I*P+I*M-180+I*M-V*L）▲Goto1

L9:

Lbl3:

m=28.64789*H/R:

T=2Rsinm

L10:

X=A+T*cos（N+IM）+S*cos（N+I*M-180+IM*2-V*L）▲

Y=B+T*sin（N+IM）+S*sin（N+I*M-180+IM*2-V*L）▲Goto1

这个程序只能算缓和曲线,圆曲线。

并且从直缓（ZH）做为起始点

现举例说明:

现己知曲线:

半径R=1200缓和曲线长L0=150

转向角AP=15°

08′26″

曲线方位角AR=96°

12′14″曲线起点里程ZH=12+324.439曲线转右左。

曲起点坐标:

X=413482.147Y=603901.604

缓圆点坐标:

X=413469.049Y=604051.005

现起动程序:

JP=1,WP=-1曲线右转输入正一,左转输入负一。

YP=1,ZP=-1问计算曲左,右宽一般都是着随转向输入负一。

输入曲线起点坐标:

输入缓圆点坐标:

输入曲线半径:

R=1200缓和曲线长L0=150

输入曲线起点里程:

BK=12+324.439

输入曲线方位角:

N=96°

12′14″

输入待算点里程:

DK=12+400（缓和曲线上任意点中桩）。

输入左,右宽度:

SD=0（输入0计算中桩坐标,输入正数计算右边桩,输入负数计算左边桩。

输入与横向角值:

L=90（一般都输入90度）

输出待算点中桩坐标:

X=413474.378Y=603976.764

循环计算现计算左边桩SD=12.3L=90

输出左边桩坐标:

X=413486.626Y=603977.899

现计算右边桩:

SD=-12.3L=90

输出右边桩坐标:

X=413462.131Y=603975.628

第7页

现在输入圆曲线上任意点中桩DK=K12+600　SD=0L=90

输出中桩坐标X=413469.869Y=604176.506

现计算左边桩SD=12.3L=90

X=413482.148　Y=604175.783

现计算右边桩SD=-12.3L=90

X=413457.590Y=604177.230

如果要计算第二缓和曲线要从缓直（HZ）点开始到起算,只是要把转向符号变过来

就行了。

例如第二缓和曲线:

己知曲线:

半径R=1200缓和曲线长L0=150

12′14″

第二曲线起点里程HZ=12+791.541

现在要把曲线转向变成右

曲线终点坐标:

HZX=413493.236Y=604366.531

圆缓点坐标:

YHX=413473.030Y=604217.924

JP=1,WP=-1反过来输入,开始左转向,现在右转向输入正一

YP=1,ZP=-1问计算曲左,右宽一般都是着随转向输入正一现在输入曲线终点坐标X1=413493.236Y1=604366.531

X2=413473.030Y2=604217.924

R=1200L0=150

BK=12+791.541

N=曲线方位角加转向角（左减,右加）

96°

12′14″-15°

08′26″+180=261°

03′48″

输入待算点里程缓和曲线任意点如:

DK=K12+700SD=0L=90

输出待算点中桩坐标:

X=413479.718Y=604275.996

X=413491.910Y=604274.368

X=413467.526Y=604277.623

计算圆曲同上,计算左,右边桩是想清楚前进方向

第8页

缓和曲线,圆曲线偏角计算程序

ZHP（缓和曲线偏角计算）

{R,L}:

R“R”：

L“L0”：

{DKS}：

D“ZHDK”：

Lbl0：

{S}：

S“LS”

P=30/（RLπ）*（S-D）^2

“P=”:

P→DMS▲Goto0

输入己知半径R:

缓和曲线长L0:

曲线起点里程ZHDK:

待算点里程LS

输出值镜点到测设点的偏角P=°

′″

己知半径R=718.76L0=160ZHDK=12+791.541

缓和曲线上任意点里程如:

LS=12+820

输出待算点偏角:

P=0°

04′02.11″

YZP（园曲线偏角计算）

{RD}:

D“HYDK”：

Lbl0：

L“LS”

P=90/R/π*（S-D）“P=”:

输入己知半径R,园曲线起点里程HYDK,待算点里程LS

己知半径R=718.76HYDK=12+951.541

圆曲线上任意点里程LS=12+990

P=1°

31′58.35″

第9页

坐标正算计算直线中桩及两边坐标

XXTTYYZZ

{ABM}:

A“X1”：

B“Y1”：

M“HZDK”：

{LD}：

L“LS”：

D“D”：

X=A+（L-M）*cosN+Dcos（N+Q）：

Y=B+（L-M）*sinN+Dsin（N+Q）：

“X=”：

X◢“Y=”：

Y◢Goto0

输入起算点坐标X1=？

Y1=？

己知缓直点里程HZDK=？

己知点方位角N=？

输入待算点里程:

LS=？

D=？

输入待算点左,右宽度,输入0计算中桩,输入正数计算右边桩,输入负数计算左边桩。

输入起算点坐标X1=413503.467Y1=603705.47

己知缓直点里程HZDK=12+127.150

输入待算点里程:

LS=12+200D=0N=96°

12′14″Q=90

输出待算点中桩坐标X=413495.594Y=603777.893

继续输入D=-12.30

输出待算点左边桩坐标:

X=413507.822Y=603779.222

继续输入D=12.30

输出待算点右边桩坐标X=413483.366Y=603776.564

其它中同上循环计算

渝湘高速公路酉阳段主线高程计算程序

Lbi0：

{L}：

L≤434.9＝＞H=664.067+（L-150）*0.031▲Goto1

≠＞L≤600＝＞H=672.899+（L-434.9）*0.031-（L-434.9）2/2/33019.26▲Goto1

≠＞L≤765.1＝＞H=681.484-（765.1-L）*0.021-（765.1-L）2/2/33019.26▲Goto1

≠＞L≤1000＝＞H=681.484+（L-765.1）*0.021▲Goto1

≠＞L≤1200＝＞H=686.417+（L-1000）*0.021-（L-1000）2/2/80000▲Goto1

≠＞L≤1400＝＞H=693.817-（1400-L）*0.016-（1400-L）2/2/80000▲Goto1

≠＞L≤2059.3＝＞H=693.817+（L-1400）*0.016▲Goto1

≠＞L≤2210＝＞H=704.366+（L-2059.3）*0.016+（L-2059.3）2/2/20000▲Goto1

≠＞L≤2360.7＝＞H=711.459-（2360.7-L）*0.03107+（2360.7-L）2/2/20000▲Goto1

≠＞L≤2531.5＝＞H=711.459+（L-2360.7）*0.031070▲Goto1

≠＞L≤2710＝＞H=716.766+（L-2531.5）*0.03107-（L-2531.5）2/2/100000▲Goto1

≠＞L≤2888.5＝＞H=727.221-（2888.5-L）*0.0275-（2888.5-L）2/2/100000▲Goto1

≠＞L≤3712.5＝＞H=727.221+（L-2888.5）*0.02750▲Goto1

≠＞L≤3900＝＞H=749.881+（L-3712.5）*0.0275+（L-3712.5）2/2/50000▲Goto1

≠＞L≤4087.5＝＞H=761.6-（4087.5-L）*0.035+（4087.5-L）2/2/50000▲Goto1

{CD}：

E=H-（A+B-C）-D*0.02▲GOTO1

A=后视高程:

B=读取塔尺后视读数:

C=读取塔尺前视读数

D=左.右边宽,如果曲线右转,左+,右-,如果曲线左转,左-,右+

L=侍算点里程。