求5800隧道测量程序！！！_百度知道
求5800隧道测量程序！！！
程序浏览:FileName:RESET
初始化程序Norm 1:50→C:12345→J&RESET PW&?I:I=J=&500→DimZ
为数据库增加额外变量500个，在SET、SETPFDYS程序根据实际再增减变量50→Z[C+22]&PASSWORDS&?I:I→Z[C+39]
重设要素保护密码Cls:StopFileName:DATLOCK
要素保护密码确定认程序Cls:Norm 1:50→C &PASSWORDS&?J:Cls:J≠Z[C+39]=&Stop
修改FileName:SHELL(外壳程序)50→C在扩充变量预留前50个给别的程序用。如不够就适量加大。RESET，SHELL，SET，SETPFDYS，这几个程序中C值必需一致Z[C+35]→I:&STATION-N&?I:I→Z[C+35]
设置测站N坐标Z[C+36]→I:&STATION-E&?I:I→Z[C+36]
设置测站E坐标Z[C+44]→I:&STATION-Z&?I:I→Z[C+44]　　　设置测站Z坐标Z[C+45]→I:&STATION-HI&?I:I→Z[C+45]
设置仪高Z[C+41]→I:&GC-DH&?I:I→Z[C+41]
放样点高差常数Norm 1Z[C+23]→N　当前分段要素N坐标Z[C+24]→E　当前分段要素E坐标Z[C+25]→M　当前分段要素起点桩号Z[C+26]→H　当前分段要素起点方位角（正北）单位：弧度Z[C+27]→A　当前分段要素起点曲率有左偏负右偏正（注意不半径）Z[C+28]→R　当前分段要素终点曲率有左偏负右偏正（注意不半径）Z[C+29]→L　当前分段要素长度Z[C+3]→WZ[C+32]→I:&DAT1 2 3&?I:I→Z[C+32]
平曲线要素数库类型选择1为内置式，2文件式，3实时输入(查看当前要素值) 0→IZ[C+4]→I:&1 2 3&?I:I→Z[C+4]
选择本程序模式默认为坐标正算，1坐标反算，2横向边仰坡放样，3，纵向边仰坡放样(隧道进出口用到)Lbi 1Z[C+4]→II=1=&Prog&TURNZH&I=2=&Prog&HXBYP&I=3=&Prog&ZXBYP&Lbi ADeg:Norm 1:ClsZ[C+1]→G:&ZH&?G:G→Z[C+1] 　　　　;G桩求桩号Z[C+2]→B:&JL&?B:B→Z[C+2]　　　 　;B横向距离，左正右负Lbi BProg &ZBJS&坐标正算Prog &GCJS&高程计算Fix 3:Cls 　　　　　　　　　　;设置三位小数&ZH＝&:Locate 4,1,G　　　 ;第一行显示桩号&X＝&:Locate 3,2,X第二行显示X(N)坐标&Y＝&:Locate 3,3,Y　　　　；第三行显示Y(E)坐标Prog &GCJS&高程计算&Z&:Locate 2,4,Z+Z[C+41]
　　；第四行显示Z坐标Locate 10,4,Z[C+2]
；第四行显示横向距离0→IDo:I+1→I:I=1000=&Goto 1:LpWhile Not(Getkey=57 Or Getkey=27) ;锁定键盘，并在几十秒后自动返回Getkey=57=& Goto 1Z+Z[C+41]+Z[C+49]-Z[C+44]-Z[C+45]→Z[C+48]Pol(Z[C+35]-X,Z[C+36]-Y)Cls:&DL&:Locate 3,1,I:Locate 12,1,Z[C+45]&DH&:Locate 3,2,Z[C+48]:Locate 12,2,Z[C+49]&FWJ&J&0=&J+360→J:J◤DMS◢
修改J→Z[C+46]I→Z[C+47]Goto 1FileName：ZBJS
坐标计算程序Prog&READDAT&RadG-M→QIF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else 3→J:IfEnd:IfEndIf J=1 :Then H→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd
直线段直接计算If J=2 :Then H+QR→F:Rec(Abs(2Sin(Abs(0.5QR))÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd
圆弧段直接计算If J=3 :Then Goto 5 :IfEndX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnLbi 5
用五点通用坐标计算计算缓和段0.5(R-A)÷L→KAQ→IKQ2→J0.→P:H+IP+JP2→U 0.→P:H+IP+JP2→V0.5→P
:H+IP+JP2→D 0.→P:H+IP+JP2→F 0.→P:H+IP+JP2→T 0.→I0.→J0.→ON+Q(ICos(U)+JCos(V)+OCos(D)+JCos(F)+ICos(T))→XE+Q(ISin(U)+JSin(V)+OSin(D)+JSin(F)+ISin(T))→YH+AQ+KQ2→FX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnFileName:TURNZH(坐标反算) Norm 1Z[C+37]→I:&DQD-N&?I:I→Z[C+37]
输入待求点N坐标I=-1=&Prog&INFWJDLDH&Z[C+38]→I:&DQD-E&?I:I→Z[C+38]
输入待求点E坐标0→B：M+L÷2→G：Prog&ZBJS&Lbi S:RadZ[C+37]-X→I:Z[C+38]-Y→JIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F):J→Z[C+2]G+I→G:IF Abs(I)&0.0001 :Then Prog&ZBJS&:Goto S↙
G→Z[C+1]FileName：INFWJDLDH　　　实测坐标（用方位角，距离，高差）输入程序Deg:Norm 1:ClsZ[C+46]→J:&DQD-FWJ&?J:J→Z[C+46]Z[C+47]→I:&DQD-DL&?I:I→Z[C+47]Z[C+48]→K:&DQD-DZ&?K:K→Z[C+48]Z[C+49]→P:&RHT&?P:P→Z[C+49]Rec(I,J)Z[C+35]+I→Z[C+37]Z[C+36]+J→Z[C+38]Z[C+44]+Z[C+45]+K-P→Z[C+43]FileName:HXBYP
横向边仰坡放样程序Cls:Norm 1Z[C+40]→I:&QPD-DL&?I:I→Z[C+40]
输入起坡点与中桩距离常数Z[C+41]→I:&QPD-DZ&?I:I→Z[C+41]
输入起坡点与中桩高差常数Z[C+42]→I:&i&?I:I→Z[C+42]
输入边仰坡坡度，左仰坡(路堑)为正，右仰坡(路堑)为负，左边坡为负，右边坡为正Cls:Z[C+43]→I:&DQD-Z&?I:I→Z[C+43]
输入实测高程Prog&TURNZH&Prog &GCJS&(Z[C+43]-Z-Z[C+41])Z[C+42]+Z[C+40]→BFix 3:B-Z[C+2]◢ 显示与上一次测点的偏差B→Z[C+2]FileName:ZXBYP
纵向仰坡放样程序(隧道进口使用)Cls:Norm 1:Z[C+33]→I:&QPD-ZH&?I:I→Z[C+33]
输入起坡点桩号Z[C+34]→I:&QPD-Z&?I:I→Z[C+34]
输入起坡点高程Z[C+42]→I:&i&?I:I→Z[C+42]
仰坡时(隧道进出口仰坡)，进口为正，出口为负)Cls:Z[C+43]→I:&DQD-Z&?I:I→Z[C+43]
输入实测高程Prog&TURNZH&Z[C+42](Z[C+43]-Z[C+34])+Z[C+33]→GFix 3:G-Z[C+1]◢ 显示与上一次测点的偏差G→Z[C+1]FileName:SET 设置程序1\Lbi S2\Norm 13\50→C4\50→Z[C+22]5\0→K6\Z[C+5]→I:&1 Or 2&?I:I→Z[C+5]选择1线或者2线7\180Z[C+3]÷π→J:&XZJJ&?J:Jπ÷180→Z[C+3]　　　　　　;斜桩夹角8\If I=1:Then Z[C+8]→Z[C+6]:Z[C+9]→Z[C+7]9\Z[C+12]→Z[C+16]:Z[C+13]→Z[C+17]:Z[C+18]→Z[C+20]10\Else Z[C+10]→Z[C+6]:Z[C+11]→Z[C+7]11\Z[C+14]→Z[C+16]:Z[C+15]→Z[C+17]:Z[C+19]→Z[C+20]12\IfEnd
13\Z[C+7]+3→Z[C+31]14\0→I:&1PQX,2SQX,3YSDS&?I1输入平曲线要素，2输入竖曲线要素，3输入1、2线夹平竖曲线交点(变坡点)数量以让程序规划内存建立要素数据为，其它值退出本程序15\I≠0=&Prog&DATLOCK&
18：23修改16\I=1 =& Goto 1:I=2 =& Goto 2:I=3 =& Goto 3
18：23修改17\Prog&SETPFDYS&18\Stop19\Lbi 1　　　　　　　　　　　　　　　　　 ;平曲线要素输入部分20\Z[C+6]→D21\-1→Z[D+3]22\For 1→J To Z[C+16]23\Cls:&PQX&:Locate 9,1,J24\Z[D+1]→I:&N&?I:I→Z[D+1]请输入N坐标25\Z[D+2]→I:&E&?I:I→Z[D+2]请输入E坐标26\Z[D+3]→I:&R&?I:I→Z[D+3]请输入半径R27\Z[D+4]→I:&LS1&?I:I→Z[D+4]请输入缓和曲线1长度28\Z[D+5]→I:&LS2&?I:I→Z[D+5]请输入缓和曲线2长度29\D+5→D30\Next31\1→Z[D-2]32\Goto S33\Lbi 2
竖曲线要素输入部分34\Z[C+7]→D35\-1→Z[D+3]36\For 1→J To Z[C+17]37\Cls:&SQX&:Locate 9,1,J38\Z[D+1]→I:&BPDZH&?I:I→Z[D+1]请输入变坡点桩号
修改39\Z[D+2]→I:&BPDGC&?I:I→Z[D+2]请输入变坡点高程
修改40\Z[D+3]→I:&R&?I:I→Z[D+3]请输入半径R
修改41\D+3→D42\Next43\1→Z[D]44\Goto S45\Lbi 3
要素点数输入部分46\Z[C+12]→I:&1PQXDS&?I:I→Z[C+12]输入1线平曲线点数,最小值为347\Z[C+13]→I:&1SQXDS&?I:I→Z[C+13]输入1线竖曲线点数,最小值为348\Z[C+18]→I:&1JDZH&?I:I→Z[C+18]输入1线平曲线第一个交点的交点桩号49\Z[C+14]→I:&2PQXDS&?I:I→Z[C+14]输入2线平曲线点数,最小值为350\Z[C+15]→I:&2SQXDS&?I:I→Z[C+15]输入2线竖曲线点数,最小值为351\Z[C+19]→I:&2JDZH&?I:I→Z[C+19]输入2线平曲线第一个交点的交点桩号52\C+Z[C+22]→Z[C+8]
1线路平曲线要素指针偏移基数53\Z[C+8]+5Z[C+12]→Z[C+9]
1线路竖曲线要素指针偏移基数54\Z[C+9]+3Z[C+13]→Z[C+10]
2线路平曲线要素指针偏移基数
55\Z[C+10]+5Z[C+14]→Z[C+11]
2线路竖曲线要素指针偏移基数56\Z[C+11]+3Z[C+15]→Z[C+21]
要素数据库结束指针57\Z[C+21]+1→Z[C+30]58\Z[C+21]→DimZ
增加额外变量59\-1→K60\Goto S
其他类似问题
隧道测量的相关知识
按默认排序
其他1条回答
塞班论坛里有专门的5800软件
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Syntax ERROR Press:[EXIT] 请再帮忙看看怎么回事，谢谢！_百度知道
Syntax ERROR Press:[EXIT] 请再帮忙看看怎么回事，谢谢！
Lbl 0↙“XA=”?X:”YA=”?Y:“XB=”?U:”YB=”?V:Pol((U-X),(V-Y)):J&0=&J+360→J↙J→A↙Lbl 1↙“XA=”?B:”YA=”?C:Pol((B-X),(C-Y)):J&0=&J+360→J↙J→D↙A-D→E:E&0=&E+360→E↙“JULI=”:I◢“FWJ=”:E◢5800死坐标换算，帮忙看看对不对呀，我输入后就出现Syntax ERROR Press:[EXIT]了
我有更好的答案
按默认排序
第五行，“XA=”?B:”YA=”?C:Pol((B-X),(C-Y)):J&0=&J+360→J↙改为：
“XC=”?B:”YC=”?C:Pol((B-X),(C-Y)):J&0=&J+360→J↙另，程序中的 =& 是双箭头，按键方法是FUNCTION 、3：PROG、下翻两次、3：=& 这样输入，不可输入等号+大于号
来自：求助得到的回答
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁弯曲曲线怎样算总长_百度知道
弯曲曲线怎样算总长
弯弯曲曲的一条曲线怎样算求它的总长呀？
4800公路测量放样计算程序 CASIO fx-4800P计算器程序 DA DI——N E (公路弯道坐标计算) K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E” M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲ N“HY”=M＋S▲ O“QZ”=M＋（πRAbs F÷180＋S）÷2▲ Z[1]“YH”=M＋πRAbs F÷180▲ Q“HZ”= Z[1]＋S▲ T=K－M▲ L=Q－M▲ E=（R＋S2÷（24R））÷cos（F÷2）－R▲ Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△ {U}：U“I——B OUT＋IN－” Z＜S＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z－S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋ S2÷（24R）－Ucos H：△ F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F－Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△ C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△ I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲ J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲ G=G＋20 Goto 0 程序运行 输入：JD？ ——交点桩号 R？ ——圆曲线半径 LS？ ——缓和曲线长度 PJ——L－R＋？ ——偏角 右偏为正 ZH——N？ ——ZH点N坐标 ZH——E？ ——ZH点E坐标 JD——N？ ——JD点N坐标 JD——E？ ——JD点E坐标 输出：ZH= ——ZH点桩号 HY= ——HY点桩号 QZ= ——QZ点桩号 YH= ——YH点桩号 HZ= ——HZ点桩号 T= ——切线长 L= ——曲线长 E= ——外矢距 再输入：ZHUANG HAO？ ——输入任一点桩号 I——B OUT＋IN－？ ——距中线距离（外侧为正） 再输出：COM——N= ——计算出N坐标 COM——E= ——计算出E坐标 以此循环——再输入——再输出 程序中各字母所代表的含义： A——ZH点N坐标 B——ZH点E坐标 C——JD点N坐标 D——JD点E坐标 E——外矢距 F——偏角（右偏为正） G——弯道内任一点桩号 H——弯道内任一点切线角 I——计算出的N坐标 J——计算出的E坐标 K——交点桩号 L——曲线长 M——ZH点桩号 N——HY点桩号 O——QZ点桩号 P——ZH--JD方位角 Q——HZ点桩号 R——圆曲线半径 S——缓和曲线长度 T——切线长 U——距中线距离（外侧为正） V——支距 W——支距 X——弯道内坐标 Y——弯道内坐标 Z——任一点曲线长度 Z[1]——YH点桩号 另个程序 公路逐桩坐标计算程序 (可以计算对称、不对称缓和曲线) Lb1 0 Z=？ V=？ W=V+2：Fixm ｛K｝ Lb1 1 K&Z[W+5Z+4]=&W=W+1:Goto 1⊿ (判断桩号在哪个交点范围，就是该交点曲线起点至下一交点曲线起点) S=K-Z[W+5Z+3] （计算该桩号与曲线起点的距离） R=Z[W+2Z+2]：L=Z[W+3Z+2]:E=Z[W+4Z+2] （读取该交点曲线要素R、Ls1 、Ls2） Pol（Z[W]-Z[W-1],Z[W+Z+2]-Z[W+Z+1]） （计算该交点与下一交点直线方位角） J&0=&J=J+360⊿ A=J Pol（Z[W-1]-Z[W-2],Z[W+Z+1]-Z[W+Z]） （计算该交点与上一交点直线方位角） J&0=&J=J+360⊿ C=A-J:A=J （计算偏角） W=V+2=&Goto2⊿ （如果桩号在起点与第一交点曲线起点之间，则转 Lb1 2 ） I=Abs（tan（c÷2）） M=L÷2-L^3÷240R^2:N=E÷2-E^3÷240R^2 P=L^2÷6R-L^4÷336R^3-R（1-cos（90L÷πR）） Q=E^2÷6R-E^4÷336R^3-R（1-cos（90E÷πR）） D=（P-Q）I÷2 : F=（P+Q+2R）I÷2 M=F+M-D:Q=F+N+D N=πRAbsC÷180+（L+E）÷2 X=Z[W-1]-McosA Y=Z[W+Z+1]-MsinA M=Z[W-1]+Qcos（A+C） V=Z[W+Z+1]+Qsin（A+C） Q=AbsC÷C S≤L=&P=0:Goto3⊿ （如果桩号在第一缓和曲线内，则转 Lb1 3） S≤N-E=&S=S-L:Goto4⊿（如果桩号在圆曲线内，则转 Lb1 4） S≤N=&S=N-S Q=-Q:A=A+C-180:X=M:Y=V:L=E：P=180:Goto3 ⊿ （如果桩号在第二缓和曲线内，则转 Lb1 3） P=A+C:S=S-N:D=M+ScosP:F=V+SsinP Goto6 （如果桩号在直线内，则转 Lb1 6） Lb1 2 P=A+C D=Z[W-1]+ScosP F=Z[W+Z+1]+SsinP:Goto6 Lb1 3 I=S-S^5÷40R^2÷L^2+S^9÷3456R^4÷L^4 J=Q（S^3÷6RL-S^7÷336R^3÷L^3） P=P+A+90QS^2÷πRL:Goto5 Lb1 4 M=90（2S+L）÷πR I=RsinM+L÷2-L^3÷240R^2 J=Q（L^2÷24R+R（1-cosM）） P=A+QM Lb1 5 D=X+IcosA-jsinA:F=Y+JcosA+IsinA Lb1 6 D〃X=〃◢ （结果显示X坐标） F〃Y=〃◢ （结果显示Y坐标） P〃AT=〃◢ （结果显示该桩号方位角） {BO}：B〃S〃O〃⊿〃 （输入边桩距离，交角） P=P+O L〃XB〃=D+BcosP◢ （结果显示边桩X坐标） M〃YB〃=F+BsinP◢ （结果显示边桩Y坐标） 以上是坐标计算程序，括号内是程序计算的大致原理及说明，中间部分为直线、圆曲线、缓和曲线计算的各种公式，大家也知道，书上也有。 该程序是最基本的，如再加几条语句就可以处理断链。 该程序还需变量输入，把整条线路曲线要素一次输入到4800中，就可以计算线路任意中、边桩坐标。
其他类似问题
按默认排序
其他1条回答
用一根线沿图形摆放 ，然后拉直测量就可以了
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁这个坐标反算程序有什么问题？求解决。_百度知道
这个坐标反算程序有什么问题？求解决。
2、坐标反算Lbl 0 ”X1=〃?X:”Y1=〃?Y:”X2=〃?U:”Y2=〃?V
Pol(U-X,V-Y):
J&0 J+360→J ”I=〃:I ”J=〃:J DMS GOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角
提问者采纳
Lbl 0 ”X1=“?X:”Y1=”?Y:”X2=“?U:”Y2=”?V
Pol(U-X,V-Y):
J&0=&J+360→J ”I=〃:I ◢”J=〃:J ▶DMS ◢GOTO 0
提问者评价
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁施工坐标如何转大地坐标_百度知道
施工坐标如何转大地坐标
我最近才学测量 请知道的朋友帮帮忙.在大地坐标 X Y 和施工坐标 A B 之间相互转换怎么弄？可有转化公式？
我有更好的答案
按默认排序
大地转施工“QK=”？Z:“QX=”？A:“QY=”?B:“ZX=”？O:“ZY=”？Q↙Pol(O-A,Q-B)↙J&0=&J+360→J↙J&360=&J-360→J↙J→F:“JF=”：F◆DMS◢Lb1 0↙？X:?Y↙Pol（X-A,Y-B):I→D↙J&0=&J+360→J↙J&360=&J-360→J↙J-F→T:T→G↙T&0=&T+360→G↙T&360=&T-360→G↙Z+Dcos（G)→K:“K=”：K◢Dsin（G)→C:“C=”：C◢GoTo 0↙三、程序使用说明：QK--输入线路起始点里程QX--输入线路起始点中桩X坐标QY--输入线路起始点中桩Y坐标ZX--输入线路前进方向中桩X坐标ZY--输入线路前进方向中桩Y坐标JF=--显示线路测量坐标方位角X--输入线路附近任意点测量X坐标Y--输入线路附近任意点测量Y坐标K--显示计算结果：里程桩号，即工程X坐标C--显示计算结果：左右偏距，即工程Y坐标,中桩=0，左偏=负值，右偏=正值。
武汉大学出版社
大地测量学基础
控制测量学
其他类似问题
大地坐标的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁