这套程序结合正反算坐标，采用交点法。可以算全线结构物！非常实用。
放样开挖桩及坡角桩采用反算思路。但可惜是没有加高程数据库（带超高及中桩的），现放在测网上希望高手帮加一个超高数据库在反算模式，这样就可以放样全线任意桩号的开挖及填方边桩了！注：如果加改动最好是放边桩时只需输三维坐标在反算模式，填方坡比或挖方坡比，设计宽度就可以得出该断面的实际放样边桩位置就完美了！！[color=Black]改好后请发我邮箱sailor5460@163.com谢谢！[/color]
共享才能共同进步！！
CASIO 4850计算器程序使用说明
一、程序列表：
1。PQX：主程序，计算路线的中边桩坐标。
(1)”L0″— 输入测段的近似桩号，来调取合适的平曲线要素数据，输入0则默认上次输的平曲线要素。输入-1可以手工输入交点桩号JL，交点X坐标JX，交点Y坐标JY，I0为前一交点与本交点的直线方位角，J0为本交点的偏角(左负右正)，R为圆曲线半径，LS为缓和曲线长度，L1为上一交点的HZ(或YZ)的桩号，L2为下一交点的ZH(或ZY)桩号。
(2)”L”—输入计算点的桩号
(3)”JJ”—输入与路线前进方向的右交角（正交为90）
(4)”YC”—输入与中桩的距离(左侧为负,右侧为正)
注:若JJ和YC中任一个输入为0,则可返回上一级,重新输入桩号计算.若YC输入为-1,可以输入实测点的坐标X和Y来反算与中桩宽度YC,桩号差值DL和该点的近似桩号L.
(5)”X,Y”
数值1
数值2
显示计算点的坐标值X,Y
(6)”A,D”
ddd°mm′ss″
数值4
显示测站点与放样点的方位角及平距
(7)”TMP”—进入自由运算状态,若计算结果为0则退出该状态.该状态会破坏变量I的内容.
(8)”YC”—输入-1进入反算桩号模式,程序要求输x,y坐标,若x,y坐标其中任一输入为0则退出该状态.
2.LYC程序:两个作用:一是根据实测坐标反算桩号L和与中桩宽度YC, 二是根据输入的三维坐标x,y,z和输入的设计标高SG以及”YC0″,”HC0″,”M”来进行边坡放样.
(1)”L0″— 输入测段的近似桩号，
(2)”XF”,”YF”,”ZF”—-输入测点的三维坐标x,y,z
若ZF输为0则只反算桩号,若不为0则进行边桩放样.
(3)”DL”—反算桩号时显示中间结果桩号差值DL,若DL值过大,可以重新输入测段的近似桩号来计算.
(4) “L,YC”—显示桩号L和与中桩距YC(左负右正),存在变量L和O中.
(5) “SG:”—输入路基边缘的设计高程(请分清左右),存在变量Z[10]中.
(6) TW—显示填挖高度值(负值为挖方高度,正值为填方高度),存在变量C中.
(7) “YC0″-路基横断面图上最后一个变坡点与中桩的水平宽度(左右均为正值),存在变量P中.
(8)”HC0”—路基横断面图上最后一个变坡点与路基边缘设计标高的高差,挖方平台为正值,填方平台为负值,存在变量Q中.
(9) “M=”—路基横断面图上最后一级边坡的坡比,存在变量T中.
(10) “BL”—显示在实测标高位置的路基设计宽度,存在变量U中.
(11)”DB”—显示设计宽度和实测宽度的差值,存在变量J中.
若DB为负值,则应往中桩位置移动(宽度减小),若DB为正值,则应往路线外侧移动(宽度增大).
3、ZZ子程序—计算中桩坐标以及前进方位角的子程序。
4、XY子程序—缓和曲线计算坐标增量值。
5、D子程序—根据测站点坐标和放样点的坐标计算方位角及平距。
6、E子程序—判桩号L是否超出范围，若超出范围计算结果可能不对，请注意。
7、GZW程序—构造物坐标计算。
(1)Xo—测站x坐标
(2)Yo—测站y坐标
(3)”X0″-坐标原点的x坐标
(4)”Y0″-坐标原点的y坐标
(5)”A0″-XX轴的方位角
(6)”J0″-YY轴与XX轴的右夹角
(7)T”0-XY 1-XXYY”—-若输入为0，则是输入xx,yy计算x,y.
若输入为1，则是输入x,y来反算xx,yy.
(8)xx?-输入xx值，存在变量P中
(9)yy?—输yy值，存在变量Q中
(10)X,Y—显示计算结果x,y值
(11)A,D-显示放样的方位角及平距
8,AU程序—邵怀高速溆浦连接线A7标K69+387~K80+014段的平曲线要素.
输入测段的近似桩号程序会自动选取合适的曲线要素.
9,P程序—进入自由运算状态.
二、程序中各变量含义：
(1)、A—圆曲线半径(2)、B—缓和曲线长度(3)、C—ZH桩号
(4)、D—HY桩号(5)、E—YH桩号 (6)、F—HZ桩号
(7)、G—交点X坐标(8)、H—交点Y坐标
(9)、I—放样的平距(10)、J—放样的方位角
(11)、K—交点桩号(12)、L—计算点桩号
(13)、M—测站点X坐标(14)、N—测站点Y坐标
(15)、O—距中桩宽度(16)、P—缓和曲线内移值
(17)、Q—切线增长值(18)、R—中桩X坐标
(19)、S—左右转标志(20)、T—切线长
(21)、U—中桩Y坐标(22)、V—前一交点与本交点的直线方位角
(23)、W—交点转角(24)、X—计算点的X坐标
(25)、Y—计算点的Y坐标(26)、Z—中桩前进方向方位角
(27)、Z[1]—-上一交点的HZ桩号(28)、Z[2]—-下一交点的ZH桩号
(29)、Z[3]—-“YC0” (30)、Z[4]—-“HC0”
(31)、Z[5]—-“M” 边坡坡比 (32)、Z[6]—-ZF，实测点标高
(33)、Z[7]—-XF，实测点X坐标 (34)、Z[8]—-YF，实测点Y坐标
(35)、z[9]—-中桩处的曲率半径
(36)、Z[10]—路基边缘的设计高程
CASIO 4850计算器测量小程序清单
1。PQX：主程序，计算路线的中边桩坐标。
①Fixm:{L}:L”L0″=0 => Goto 3 △
②L≠-1 => Prog “AU”:Goto 3△
③R=Z[1]:U=Z[2]:{ABKGHVWRU}:K”JL”G”JX”H”JY”V”Io”:W”Jo”A”R”B”LS”:Z[1]=R”L1″:Z[2]=U”L2″
④Lbl 3:
⑤Lbl 2:{L}:L:Prog “E”:Prog “ZZ”:o=1e-9:S=90
⑥Lbl 4:{oS}:S”JJ”o”YC”=0 =>Goto 2 △
⑦o=-1 =>Goto 6 △
⑧”X,Y”:X=R+o*cos(Z+S) ▲ Y=U+o*sin(Z+S) ▲ Prog “D”:Prog “P”:Goto 4
⑨Lbl 6:X=Z[7]:Y=Z[8]:{XY}:Z[7]=X”XF”:Z[8]=Y”YF”:Pol(X-R,Y-U:J=Z+S-J:”YC,DL,L”:o=I*cosJ ▲ I=I*sin J ▲ L+I ▲ Goto 6
2.LYC程序:两个作用:一是根据实测坐标反算桩号L和与中桩宽度YC, 二是根据输入的三维坐标x,y,z和输入的设计标高SG以及”YC0″,”HC0″,”M”来进行边坡放样.
①Fixm:Z=L:{L}:L”L0″≠0 => Prog “AU”: ≠> L=Z △
②Lbl 1:X=Z[7]:Y=Z[8]:S=Z[6]:{XYS}:Z[7]=X”XF”:Z[8]=Y”YF”:Z[6]=S”ZF”
③Lbl 2:Prog “ZZ”:Pol (X-R,Y-U):J=J-Z:o=I*sin J:I=I*cos J:Abs I<0.05 =>”L,YC”:L=L+I ▲ Prog “E”:o ▲ Goto 3 △
④Z[9]≠0 => Pol(Z[9]-So,I):I=pi()*J*Z[9]/180 △
⑤”DL”:I ▲ L=L+I:Abs I>500 => {L}:L”L0″ △
⑥Goto 2
⑦Lbl 3:S=Z[6]:S=0=>Goto 1 △
⑧Z=Z[10]:P=Z[3]:Q=Z[4]:T=Z[5]:{PQTZ}:Z[10]=Z”SG”
⑨Z=1=>Prog”G”:Z[10]=Z▲△
⑩Z=0 =>C=Z[11]:D=Z[12]:E=Z[13]:F=Z[14]:{CDEF}:Z[11]=C”LA”:Z[12]=D”HA”:Z[13]=E”LB”:Z[14]=F”HB”:Z=D+(E-C)-1(F-D)(L-C):Z[10]=Z▲△
⑾”TW”:C=Z-S▲ Z[3]=P”YC0”:Z[4]=Q”HC0”:Z[5]=T”M=”:I=Abso/o:”BL”:U=I(P+TC(C+Q)/AbsC) ▲ “DB”:J=IU-Io▲ I=Ans:Prog”P”:Goto1
3、ZZ子程序—计算中桩坐标以及前进方位角的子程序。
①P=B^2/24A:Q=B/2-B^3/240A^2:T=(A+P)*tan(Abs W/2)+Q:C=K-T:D=C+B:F=D+pi()*A*Abs W/180:E=F-B
②S=Abs W/W:Z[9]=0:L≤C =>o=L-K:Z=V:Goto 2 △
③L≥F =>o=L-F+T:Z=V+W:Goto 2△
④L>E =>o=F-L:Prog “XY”:o=V+W:Z=o-SR:R=G+(T-I)*coso-SJ*sin o:U=H+(T-I)sin o+SJ*cos o:Goto 3△
⑤L>D => o=180*(L-D+B/2)/pi()/A:I=A*sino+Q:J=P+A(1-cos o):Z[9]=A:Z=V+So:Goto 4 △
⑥o=L-C:Prog “XY”:Z=V+SR
⑦Lbl 4:R=G+(I-T)*cos V-SJ*sin V:U=H+(I-T)*sin V+SJ*cos V:Goto 3
⑧Lbl 2:R=G+o*cos Z:U=H+o*sin Z
⑨ Lbl 3
4、XY子程序—缓和曲线计算坐标增量值。
①U=AB:I=o-o^5/40U^2:J=o^3/6U-o^7/336U^3:R=90*o^2/pi()/U:Z[9]=U/o
5、D子程序—根据测站点坐标和放样点的坐标计算方位角及平距。
①Y=N =>Y=N+1e-9 △
②Pol (X-M,Y-N):J<0 => J=J+360 △
③”A,D”:J ->DMS ▲ I ▲ (后面的↙没有)
6、E子程序—判桩号L是否超出范围，若超出范围计算结果可能不对，请注意。
①L<Z[1} => “<L1”:L ▲△
②L>Z[2] => “>L2″:L ▲△
7、GZW程序—构造物坐标计算。
①M”Xo”:N”Yo”:T=0:Fixm
②Lbl 1:{RUZST}:R”X0″U”Y0″:Z”A0″=-1 =>{XY}:Pol (X”X1″-R,Y”Y1″-U:”A0″:Z=J ▲ “DD”:I ▲△
③Z=0 => X=R:Y=U:Prog “D”:Goto 1 △
④S”J0″:o=Z+S:T”0-XY1-XXYY”:T≠0 =>Goto 3 △
⑤Lbl 2: {PQ}:P”XX”Q”YY”=0 =>Goto 1 △
⑥”X,Y”:X=R+P*cos Z+Q*cos o ▲ Y=U+P*sin Z+Q*sin o ▲ Prog “D”:Goto 2
⑦Lbl 3:{XY}:X”XF”Y”YF”=0 => Goto 1 △
⑧”XX,YY”:P=((X-R)*sin o-(Y-U)*cos o)/sin S ▲ Q=((Y-U)*cos Z-(X-R)*sin Z)/sinS ▲ Goto 3
8,P程序—进入自由运算状态.
①Lbl 1:{I}:I”TMP”≠0 => “RST”:I▲ Goto 1 △
9,AU程序—邵怀高速溆浦连接线A7标K69+387~K80+014段的平曲线要素.
输入测段的近似桩号程序会自动选取合适的曲线要素.
① L“L0”＝0=>Goto3△
② L=-1=>KGHVWAB:Fixm:R=Z[1]:U=Z[2]:{RU}:R:”L1”U”L2”:Goto4△
③ Fixm:B=0：L≤1e4=>Prog”PJ”:Goto4△
④ R=76601:L≧R=>Goto 9$
⑤ R=74025:L≧R=>Goto 8$
⑥ R=71475:L≧R=>Goto 7$
①R=69387:U=69900:L≤U => K=69658.499:G=27138.587:H=47151.892:V=186.4342:W=7.7399:A=2000:B=0:Goto 4 $
②R=U:U=70500:L≤U => K=70037.871:G=26770.336:H=47058.895:V=194.1741:W=-14d 49m 01s:A=620:B=80:Goto 4 $
③R=U:U=70700:L≤U =>K=70584.339:G=26222.935:H=47065.038:V=179d 21m 26s:W=-9d 6m 44s:A=840:B=0:Goto 4 $
④……
⑤……
⑥……
⑦R=U:U=80014:K=79795.668:G=17511.630:H=45324.549:V=172.7916:W=39.2287:A=300:B=80
⑧Lbl 4:Z[1]=R:Z[2]=U
- 本文固定链接: https://www.chtfs.com/3357/
- 转载请注明: acer 于 测绘途夫 发表
