|||筑龙社区专业门户艺术设计工程技术机电设备造价与管理资料中心|
-->在这里是路桥测量的天下，我们可以再次讨论测量的问题，分享测量的经验，来到这里即能学知识又能结交天涯海角的同行朋友。标签&&&&姓名身份、兴趣爱好、专业什么的，统统可以说哦~&&&看不清楚&
5条回复&&527次阅读&&&&
卡西欧5800P计算器坐标正反算通用程序&1. 坐标正算主程序(命名为KP-XY) 第1行：Lbl 0 “DK=”?K:“PJ=”? P:“α=”?W 第2行：Prog “GP”(GP为线路名 称) 第3 行：“X=”:X+Pcos(F+W)→X◢ 第4 行：“Y=”:Y+Psin(F+W)→Y◢ 第5行：“FWJ=”:F DMS◢ 第6行： Goto 0 K——计算点的里程 PJ——计算点到中桩的距离 （左负右正） α——取线路前进方向右夹角为 正 X、Y--为计算坐标、F为方位角 GP--为线路平曲线名称&2. 坐标反算桩号和偏距主程序(命 名为XY-KP) 第1行：“DK=”?K:“X:=”? U:“Y:=”?V 第2行：Lbl 0 Prog “GP” 第3行：Pol(U-X,V-Y):Icos(F-J)→Z[1]:K+Z[1]→K 第4行： Abs(Z[1])&0.0001=&Goto 0 第5行：“DK=”:K◢ 第6行：“PJ=”:Isin(J-F)→P◢ X:= —取样点的X坐标 Y:= —取样点的Y坐标 DK= 输入时为计算起始点(在线 路内即可)，输出时为反算点的 桩号 P—偏距（左负右正）&3. 计算坐标子程序(命名为XYF) 为了简洁，本程序由数据 库直接调用，上述中的正反算 主程序不直接调用此程序 第1行：
分享到微信朋友圈
打开微信"扫一扫"，扫描上方二维码请点击右上角按钮&，选择&
奖励&&信誉分+1&&&&筑龙币+20
&&&&&奖励于& 07:21:42
&&发表于&&|&
非常简洁大方的具体抄作
奖励&&&&&&
&&&&&奖励于& 08:36:22
&&发表于&&|&
操作程序，感谢楼主的编辑与分享！
奖励&&&&&&
&&&&&奖励于& 08:36:25
&&发表于&&|&
筑龙教育诚招课程合伙人 只要你有梦想，有激情，我们在筑龙约见！ 不论你在哪里，都可以，为建筑人分享经验！ 筑龙课程合作电话：400- 课程学习（代理）QQ群：
奖励&&&&&&
&&&&&奖励于& 08:18:45
&&发表于&&|&
谢谢分享，BIM等级考试报名入口：/cuxiao/bim_zt.html 报名截止时间11月17日
奖励&&&&&&
&&&&&奖励于& 08:18:47
&&发表于&&|&
谢谢分享，BIM等级考试报名入口： 报名截止时间11月17
奖励&&&&&&
&&&&&奖励于& 08:18:49
志同道合的盆友，快来
和大家一起讨论吧~
&发表于&&0条回复
&发表于&&0条回复
&发表于&&0条回复
&发表于&&0条回复
&发表于&&0条回复
最新回复网友
删除理由：
&广告/SPAM
还可以输入&120&字
还可以输入&120&字
他一定是哪里做的不够好，别替他瞒着了，告诉我们吧~
$(".zhul_sy_rightBox").popupbox({geturl:ucenterDomain+"openjson/getpopupbox",format:"bigright",cssClass:"zhul_info_rightbox",waithtml:' '});
$().zlidol({geturl:weiboDomain+"userinfo/jsonidol?action=idol"})
})(jQuery);求个卡西欧5800P直线坐标正反算的程序_百度知道
求个卡西欧5800P直线坐标正反算的程序
买了个5800又要重新输了！输入1进行反算程序这样的？比如输入0进行正算程序，之前4850的有一个。现在4850坏了。要有注解的哦~~油香xs就是正反算只是一个程序，可以条件选择的
提问者采纳
已按要求编写好并发送到你的邮箱，请查收
提问者评价
来自团队：
其他类似问题
为您推荐：
直线坐标的相关知识
其他1条回答
Y?X:”J=〃:”Y0=〃CASIO fx—5800计算器 工程测量与公路测量程序1:U （待求点的X坐标）”Y=〃:”Y1=〃;0 J+360→J ”I=〃：两点的距离J?J X+ICos(J)→U、坐标正算”X0=〃:J DMS GOTO 0说明，I：已知点坐标I：第一点的坐标?I:Y+ISin(J)→V ”X=〃?X:”I=〃：X1Y1:
J&lt?Y?U:”X2=〃：X0 Y0:V （待求点的Y坐标）说明:”Y2=〃：两点的距离,V-Y)?V
Pol(U-X:I ”J=〃，X2Y2第二点的坐标，J：方位角2、坐标反算Lbl 0 ”X1=〃
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁文档分类：
下载前请先预览，预览内容跟原文是一样的，在线预览图片经过高度压缩，下载原文更清晰。
您的浏览器不支持进度条
淘豆网网友近日为您收集整理了关于5800计算器全线坐标计算放样程序的文档，希望对您的工作和学习有所帮助。以下是文档介绍：..5800计算器全线坐标计算放样程序(修改版)“XLZBJSCX”◢(第一个程序)Lb10↙Cls:Fix4:30→Dimz↙“XHS=&?G(后视点X):&YHS=&?L(后视点Y):&XZJ=&?M(置镜点X):&YZJ=&?N(置镜点Y):Pol(G-M,L-N):&DH=&:I(后视距)◢J&0=&J+360→J:&FH=&:J?DMS◢(后视方位角)Lbl1↙(If(如果的意思)And(和字的意思)Then(然后的意思))“K=”?K◢(计算里程)(下面有色的是数据库)If(如果)K&本曲线缓直点桩号And(和)K≥上一个曲线缓直点桩号:Then(然后)本曲线缓直点桩号→Z[1]:上一个曲线缓直点桩号→Z[2]:1-1→O(注:左偏曲线输入-1→O,右偏曲线输入1→O):偏角12’23’19.5’→A:半径→R:第一缓和曲线长度0→Z[6]:第二缓和曲线长度0→Z[7]:交点X坐标→B:交点Y坐标→C:小里程向交点方位角→E:交点向大里程方位角→F:Goto2:IfEnd↙(重兰字是输入的数字)…………(曲线段分段输入)补充直线段输入如下If(如果)K&本段直线终点里程And(和)K≥本段直线起点里程:Then(然后)1→O:本段直线终点里程→Z[3]:终点坐标X→Z[16]:终点坐标Y→Z[17]:方位角→E:Goto4:IfEnd↙Lb12↙(曲线要素计算)Z[6]÷2-Z[6]^3÷(240R^2)+Z[6]^5÷(34560*R^4)→Z[8]↙(M1不输)Z[7]÷2-Z[7]^3÷(240R^2)+Z[7]^5÷(34560R^4)→Z[9]↙(M2不输)Z[6]^2÷(24R)-Z[6]^4÷(2688R^3)→Z[10]↙(P1不输)Z[7]^2÷(24R)-Z[7]^4÷(2688R^3)→Z[11]↙(P2不输)(πAR)÷180+0.5×(Z[6]+Z[7])→S↙(曲线总长)90×Z[6]÷(R×π)→Z[14]↙(第一缓和曲线总偏角)(×÷以后自己改)90×Z[7]÷(R×π)→Z[15]↙(第二缓和曲线总偏角,可以省略)Z[8]+(R+Z[10])TAN(A/2)-(Z[10]-Z[11])/SINA→Z[12]↙(切线T1)Z[9]+(R+Z[11])TAN(A/2)+(Z[10]-Z[11])/SINA→Z[13]↙(切线T2)B+Z[12]*COS(E+180)→Z[16]↙(ZH点X)C+Z[12]*SIN(E+180)→Z[17]↙(ZH点Y)Z[1]-S→Z[3]↙(ZH点里程)Z[3]+Z[6]→Z[4]↙(HY点里程)Z[1]-Z[7]→Z[5]↙(YH点里程)GOTO3↙LB13↙(判断里程点与曲线关系)IfK≤Z[3]AndK&Z[2]:ThenGoto4:IfEnd↙IfK≤Z[4]AndK&Z[3]:ThenGoto5:IfEnd↙IfK≤Z[5]AndK&Z[4]:ThenGoto6:IfEnd↙IfK≤Z[1]AndK&Z[5]:ThenGoto7:IfEnd↙LB14↙(里程小于直缓点直线独立坐标)..K-Z[3]→X:0→Y:E→T:Prog“TYZBCX”:Goto1↙Lb15↙(第一缓和曲线独立坐标)K-Z[3]→H↙H-H^5/(40*R^2*Z[6]^2)+H^9/(3456*R^4*Z[6]^4)→X↙H^3/(6*R*Z[6])-H^7/(336*R^3*Z[6]^3)→Y↙90*H^2/(R*π*Z[6])→T↙IFO&0:ThenT+E→T:ElseE-T→T:T&0=&360+T→T:IfEnd↙PRrog“TYZBCX”:Goto1↙Lb16↙(圆曲线独立坐标)K-Z[4]→H↙H*180/(R*π)+Z[14]→T↙R*SIN(T)+Z[8]→X↙R*(1-COS(T))+Z[10]→Y↙IFO&0:ThenT+E→T:ElseE-T→T:T&0=&360+T→T:IfEnd↙Prog“TYZBCX”:Goto1↙Lb17↙(第二缓和曲线独立坐标)Z[1]-K→H↙H-H^5/(40*R^2*Z[7]^2)+H^9/(3456*R^4*Z[7]^4)→U↙H^3/(6*R*Z[7])-H^7/(336*R^3*Z[7]^3)→V↙90*H^2/(R*π*Z[7])→T↙Z[13]COS(A)+Z[12]-U*COS(A)-V*SIN(A)→X↙Z[13]*SIN(A)-U*SIN(A)+V*COS(A)→Y↙IFO&0:ThenF-T→T:T&0=&360+T→T:ElseF+T→T:IfEnd↙Prog“TYZBCX”:Goto1↙子程序:“TYZBCX”↙(统一坐标计算)(第2个程序)IFO&0:Then-Y→Y:IfEnd↙“QXJ=”:T◢(计算里程点切线方位角,可以不显示)Z[16]+X*COS(E)-Y*SIN(E)→Z[18]↙Z[17]+X*SIN(E)+Y*COS(E)→Z[19]↙“XI=”:Z[18]◢(XI中线X)“YI=”:Z[19]◢(YI中线Y)Pol(Z[18]-M,Z[19]-N):&DI=&:I◢(中桩放样距)J&0=&J+360→J:&FI=&:J?DMS◢(中桩放样方位角)“PJ=”?P◢(输入边桩与线路夹角PJ,左偏–90右+90)“PD=”?D◢(输入边桩距PD)Z[18]+D*COS(T+P)→Z[20]↙Z[19]+D*SIN(T+P)→Z[21]↙“XP=”:Z[20]◢(XP边桩X)“YP=”:Z[21]◢(YP边桩Y)Pol(Z[20]-M,Z[21]-N):&DP=&:I◢(边桩放样距)J&0=&J+360→J:&FP=&:J?DMS◢(边..桩放样方位角)Return↙(以上都要输进计算器)注解不输K里程XI中线XYI中线YPD输入边桩距XP边桩X坐标YP边桩Y坐标I边桩放样距PJ输入边桩与线路夹角,左偏–90右+90)I中桩放样距T计算里程点切线方位角,可以不显示卡西欧FX5800全线贯通万能正、反算程序FX5800计算器的积分程序(正反算、全线贯通、新线路)终极版ZHUCHENGXU主程序&1.ZS,2.FS&?→Q输入1正算,输入2反算“NEW=0,OLD≠0”?ZIfZ=0:Then“X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=&Goto2Lbl1:“KM=,&0Stop”?H:H&0=&Stop:“PJ=”?O:“PY=”?LLblZ:Z=1=&Prog“01”:Z=2=&Prog“02”选择数据库文件,可增加H-F→X:0.5(E-D)÷(G-F)→NC+(XD+NX2)*180÷π→P:P&0=&P+360→P:P&360=&P-360→PA+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→UB+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→VQ=2=&Goto4:Cls:Fix3&Xn=&:Locate4,1,U:&Yn=&:Locate5,2,V:“FWJ=”:P?DMS◢Norm2:Cls:Goto1Lbl2:“XD=,&0,STOP”?R:R&0=&Stop:“YD=”?S“KMDG=”?H:90→O:0→L:GotoZ(H线路范围内的任意桩号)Lbl4:Pol(R-U,S-V):J&0=&J+360→JWhileabs(Icos(J-P))≤0.001:P-J&180=&J+360→J:P-J&-180=&P+360→P:IFP-J&0:then-I→L:elseI→LifendGoto3:Whileend:H+Icos(J-P)→H:GotoZLbl3:Cls:Fix3“KM=”:Locate4,1,H:“PY=”:Locate4,2,L◢Norm2:Cls:Goto201(数据库子程序)IfH&=第一曲线终点桩号:then第一曲线起点X→A:第一曲线起点Y→B:第一曲线起点方位角→C:起点曲率→D:终点曲率→E:起点桩号→F:终点桩号→G:return:ifend……………程序说明:1、该程序可以计算任意线形(直线、圆曲线、缓和曲线、不完整曲线)任意桩号的坐标(正算,输入1),也可根据坐标计算该点到线路的距离及垂足桩号(反算,输入2);2、(NEW=0,OLD≠0)?如果要计算的点为数据库线路中的点,则输入数据库编号(以整数1、..2、3…代替输入);如果在数据库中没有要计算线路的数据,则输入曲线要素X0:曲线起点X坐标;Y0:曲线起点Y坐标;C0:曲线起点方位角;R0-1、RI-1:曲线起点、终点曲率,直线为0,曲线左偏输入负值,右偏输入正值;SP、EP:曲线起点桩号,终点桩号;KM:待求点桩号;PJ:正斜交的设定;PY:偏中距离,线路上的点输入0,右偏输入+值,左偏输入-值;3、正算显示坐标及切线方位角;反算输入线路的任意桩号(此桩号越接近真实值计算速度越快)、待求点坐标,显示待求点桩号及偏中距离;4、正算子程序为积分公式编写而成;反算子程序为角度趋近的方法编写,计算速度有点慢。5、此程序显示较直观,结果在同一屏幕显示。注*:程序中乘号用*标示,其余为X。CASIOfx5800P公路施工放线测量公式及程序一、已知座标,求平距和方位角(座标反算):公式:D=√(Xp-Xo)2+(Yp-Yo)2α=arctg(Yp-Yo)/(Xp-Xo)程序:“A”?→A:“B”?→B:Lbl0:“X”?→X:“Y”?→Y:(X-A)→M:(Y-B)→N:“D=”:√(M2+N2)⊿tan-1(N/M)→C:IfM&0:Then“Q=”:180+C→Q⊿ElseIfN&0:Then“Q=”:C→Q⊿Else“Q=”:360+C→Q⊿IfEnd:IfEnd:Goto0说明:(A,B)为测站点坐标,(X,Y)为所求点坐标。输出:D为平距,Q为方位角。二、已知直线的坐标方位角Q和直线起点坐标(Xo,Yo),求直线上任一点的中桩坐标(X,Y),左右边桩坐标(XL,YL)、(XR,YR):公式:X=Xo+LcosQY=Yo+LsinQ程序:“C”?→C:“D”?→D:“Q”?→Q:“Z”?→Z:“U”?→U:“T”?→T:“V”?→V:Lbl1:“L”?→L:Abs(L-Z)→W:“X=”:C+W*cos(Q)→X⊿“Y=”:D+W*sin(Q)→Y⊿IfU≤0:ThenGoto1:Else“XL=”:X+U*cos(Q-V)→A⊿“YL=”:Y+U*sin(Q-V)→B⊿“XR=”:X+T*cos(Q+V)→E⊿“YR=”:Y+T*sin(Q+V)→F⊿Goto1说明:(C,D)为直线起点坐标,Q为直线方位角,Z为起点桩号,L为所求坐标点桩号。“U”为左边距,“T”为右边距,“V”为偏角;U=0时不算边桩坐标。输出:(X,Y)为中桩坐标,(XL,YL)为左边桩坐标,(XR,YR)为右边桩坐标。三、已知圆曲线起点坐标(U,V),切线方位角Q,桩号Z和圆半径R,求圆曲线上桩号为L的点中桩坐标(X,Y),左右边桩坐标(XL,YL)、(XR,YR):公式:ψ=90L/(лR)(偏角公式)C=2Rsinψ(对应弧的弦长公式)弦的方位角:Q=Qo±ψ(曲线左转时为“-”)程序:“U”?→U:“V”?→V:“Q”?→Q:“R”?→R:“Z”?→Z:“W=-1,1”:?→W:“ZJ=”:?→Z[1]:“YJ=”:?→Z[2]:“PIANJIAO”:?→T:Lbl2:“L”?→L:180*(L-Z)/(2π*R)→J:R*2sin(J)→K:IfW=-1:Then“X=”:U+K*cos(Q-J)→X⊿“Y=”:V+K*sin(Q-J)→Y⊿“Q=”:Q-180*(L-Z)/(πR)→O⊿ElseIfW=1:Then“X=”:U+K*cos(Q+J)→X⊿“Y=”:V+K*sin(Q+J)→Y⊿“Q=”:Q+180*(L-Z)/(πR)→O⊿IfEnd:IfEnd:T=0=&Goto2:“XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”:Y+Z[1]*sin(O-T)→P⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”:Y+Z[2]*sin(O+T)⊿Goto2说明:W=-1时曲线左转,W=1时曲线右转。“ZJ=”为左边距,“YJ=”为右边距,“PIANJIAO”为偏角,偏角输0时不算边桩坐标。输出:(X,Y)为中桩坐标,“Q=”为所求点方位角,(XL,YL)为左边桩坐标,(XR,YR)为右边桩坐标。四、已知直缓点坐标(M,N)、方位角Q、桩号Z,缓和曲线全长S和连接圆半径R,求缓和曲线上任一点(桩号为L)的中桩坐标(X,Y),..左右边桩坐标(XL,YL)、(XR,YR):公式:θ=30L2/(πRLs)C=L-L5/(90R2Ls2)α=α±90Ls2/(πA2)程序:“M”?→M:“N”?→N:“R”→R:“A”?→A:“S”?→S:“Z”?→Z:“Q”?→Q:“W=-1,1”:?→W:“ZJ=”?→Z[1]:“YJ=”?→Z[2]:“PIANJIAO”:?→T:Lbl3:“L”?→L:Abs(L-Z)→H:30*H2/(πRS)→D:H-H5/(90R2S2)→C:IfW=-1:Then“X=”:M+C*cos(Q-D)→X⊿“Y=”:N+C*sin(Q-D)→Y⊿A=0=&Goto3:“Q=”:Q-90H/(πA)→E⊿ElseIfW=1:Then“X=”:M+C*cos(Q+D)→X⊿“Y=”:N+C*sin(Q+D)→Y⊿A=0=&Goto3:“Q=”:Q+90*H/(πA)→E⊿IfEnd:IfEnd:T=0=&Goto3:“XL=”:X+Z[1]*cos(E-T)⊿“YL=”:Y+Z[1]*sin(E-T)⊿“XR=”:X+Z[2]*cos(E+T)⊿“YR=”:Y+Z[2]*sin(E+T)⊿Goto3说明:“A”为缓和曲线参数,W=-1时曲线左转,W=1时曲线右转。“ZJ=”为左边距,“YJ=”为右边距,“PIANJIAO”为偏角,偏角输0时不算边桩坐标。输出:(X,Y)为中桩坐标,“Q=”为所求点方位角,(XL,YL)为左边桩坐标,(XR,YR)为右边桩坐标。五、已知卵形曲线(即非完整缓和曲线)大圆半径R,小圆半径r,缓和曲线参数A,以大圆的圆缓点为起点,其坐标为(C,D),其方位角为Q,其桩号为Z,求桩号为L的点的中桩坐标(X,Y),左、右边桩坐标(XL,YL)、(XR,YR)。公式:偏角:θ=arctg[(Yp-Yo)/(Xp-Xo)]-90LR/(πR)Xj=Lj-Lj5/(40A4)+Lj9/3456A8-……,Yj=Lj3/(6A2)-Lj7/(336A6)+Lj11/(42240A10)-……Lj=A/Rj(Rj为曲率半径)S=√(Xp-Xo)2+(Yp-Yo)2(弦长公式)α=Q±θ(弦线方位角公式)Xp=Xo+S*cosα,Yp=Yo+sinα程序:“A”?→A:“C”?→C:“D”?→D:“R”?→R:“Q”?→Q:“Z”?→Z:“W=-1,1”?→W:A/R→J:J-J5/(40*A4)+J9/(3456*A8)→E:J3/(6*A2)-J7/(336*A6)+J11/(42240*A10)→F:90*J/(πR)→B:“ZJ=”?→Z[1]:“YJ=”?→Z[2]:“PIANJIAO”:?→T:Lbl4:“L”?→L:J+Abs(L-Z)→S:S-S5/(40*A4)+S9/(3456*A8)→M:S3/(6*A2)-S7/(336*A6)+S11/(42240*A10)→N:Abs(M-E)→G:Abs(N-F)→H:√(G2+H2)→K:arctg(H/G)→I:IfI&0:ThenI+360→U:ElseI→U:IfEnd:IfW=-1:ThenQ-(U-B)→V:“X=”:C+K*cos(V)→X⊿“Y=”:D+K*sin(V)→Y⊿“Q=”:Q-90*S2/(πA2)-90*J2/(πA2)→O⊿ElseIfW=1:ThenQ+(U-B)→V:“X=”:C+K*cos(V)→X⊿“Y=”:D+K*sin(V)→Y⊿“Q=”:Q+90*S2/(πA2)-90*J2/(πA2)→O⊿IfEnd:IfEnd:T=0=&Goto4:“XL=”:X+Z[1]*cos(O-T)⊿“YL=”:Y+Z[1]*sin(O-T)⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”:Y+Z[2]*sin(O+T)⊿Goto4说明:“A”为缓和曲线参数,W=-1时曲线左转,W=1时曲线右转。“ZJ=”为左边距,“YJ=”为右边距,“PIANJIAO”为偏角,偏角输0时不计算边桩坐标。输出:(X,Y)为中桩坐标,“Q=”为所求点方位角,(XL,YL)为左边桩坐标,(XR,YR)为右边桩坐标。六、竖曲线计算公式:H=X2/(2R)程序:“A”?→A:“H”?→H:“D”?→D:“T”?→T:“R”?→R:“I1”?→U:“I2”?→V:“K(ZHONG-DIAN)”:D+T→B⊿“LY=”:B-A→E⊿Lbl6:“K”?→K:V&U=&1→G:V&U=&-1→G:IfK≤A:ThenD-K→L:H-LU→P:IfEnd:IfK&AAndK&D:ThenK-A→L:H-U(D-K)+GL2/(2R)→P:IfEnd:IfK&DAndK&B:ThenB-K→L:H+V(K-D)+GL2/(2*R)→P:IfEnd:IfK≥B:ThenK-D→L:“H(SHEJI)=”:P⊿Goto6说明:“A”为竖曲线起点桩号,“H”为起点高程,“D”为交点桩号,“T”为切线长,“R”为竖曲线半径,“I1”、“I2”为第一、二坡度。输出:“H(SHEJI)=”为设计高程。注意的是:计算范围不能超出到下一个竖曲线范围内。..卡西欧计算器FX-5800正反算、隧道超欠挖计算程序正算主程序(ZS):Lb10:FIX4:?S:?Z:Prog“PM-SJ”:Abs(S-O)→W:Prog&SUB1&:&XS=&:X◢&YS=&:Y◢F-90→F(需要时可以让他显示,不要时不必输入):Prog“SQX-SJ”:Prog“SQX”:“H=”:H◢Goto0反算主程序(FS)Lb10:FIX4:?S:?X:?Y:Prog“PM-SJ”:X→I:Y→J:Prog&SUB2&:&S=&:O+W→S◢&Z=&:Z◢Prog“SQX-SJ”:Prog“SQX”:“H=”:H◢Goto0隧道3心圆放样主程序(SD-3XY)Lb10:Prog“FS”:1.5→A:1.65→B:0.89→G:2.27→C:3.3→D:2.41→E:0.51→J:“H1”:F:ifF≤H+A:thenE-AbsZ→W:IfEnd:ifF&H+AAndF≤H+A+B:then√(D²-(F-H-A)²)-G-AbsZ→W:IfEnd:ifF&H+A+B:then√(C²-(F-H-A-J)²)-AbsZ→W:IfEnd:“W=”:W◢(水平方向的超欠挖:正为欠,负为超)Goto0正算子程序(SUB1)1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:0.→A:0.→B:0.→K:0.→L:1-L→F:1-K→M:U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X:V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y:G+QEW(C+WD)+90→F:X+ZcosF→X:Y+ZsinF→Y反算子程序(SUB2)G-90→T:Abs((Y-V)cosT-(X-U)sin(T))→W:0→Z:Lbl0:Prog&SUB1&:T+QEW(C+WD)→L:(J-Y)cosL-(I-X)sinL→Z:ifAbsZ&1E-6:thenGoto1:ElssW+Z→W:Goto0:IfEndLbl1:0→Z:Prog&SUB1&:(J-Y)÷sinF→Z子程序(平面线形数据库)PM-SJifS≥500(线元起点里程)AndS&769.256(线元止点里程):Then→U(线元起点X坐标):→V(线元起点Y坐标):500→O(线元起点里程):125°16°31°→G(线元起点方位角):269.265→H(线元长度):10^(45)..→P(线元起点曲率半径):10^(45)→R(线元终点曲率半径):0→Q(线元左右偏标志:左负右正):IfEndifS≥769.256(线元起点里程)AndS&806.748(线元止点里程):Then19787.34→U(线元起点X坐标):→V(线元起点Y坐标):769.256→O(线元起点里程):125°16°31°→G(线元起点方位角):37.492→H(线元长度):10^(45)→P(线元起点曲率半径):221.75→R(线元终点曲率半径):-1→Q(线元左右偏标志:左负右正):IfEndifS≥806.748(线元起点里程)AndS&919.527(线元止点里程):Then→U(线元起点X坐标):→V(线元起点Y坐标):806.748→O(线元起点里程):120°25°54.07°→G(线元起点方位角):112.779→H(线元长度):221.75→P(线元起点曲率半径):221.75→R(线元终点曲率半径):-1→Q(线元左右偏标志:左负右正):IfEndifS≥919.527(线元起点里程)AndS&999.812(线元止点里程):Then→U(线元起点X坐标):→V(线元起点Y坐标):919.527→O(线元起点里程):91°17°30.63°→G(线元起点方位角):80.285→H(线元长度):221.75→P(线元起点曲率半径):→R(线元终点曲率半径):-1→Q(线元左右偏标志:左负右正):IfEndifS≥999.812(线元起点里程):Then→U(线元起点X坐标):→V(线元起点Y坐标):999.812→O(线元起点里程):80°40°50°→G(线元起点方位角):100→H(线元长度):10^(45)→P(线元起点曲率半径):10^(45)→R(线元终点曲率半径):0→Q(线元左右偏标志:左负右正):IfEnd子程序(竖曲线数据库)SQX-SJifS≤999.812(竖曲线终点里程):then0.0357(前坡度:上坡正下坡负)→E:0.0227(后坡度:上坡正下坡负)→F:600→R(竖曲线半径):780→G(变坡点里程):110→C(变坡点高程):IfEnd子程序(竖曲线计算公式)SQXE-F→J:ifJ&0:then-R→R:ElssR→R:Abs(R*J÷2)→T:IfEndifS≤G-T:thenG-S→L:C-LE→H:IfEndifS&G-TAndS≤G:thenG-S→L:(S+T-G)²÷2÷R→N:C-LE+N→H:IfEndifS&GAndS≤G+T:thenS-G→L:(G+T-S)²÷2÷R→N:C+LF+N→H:IfEndifS&G+T:thenS-G→L:C+LF→H:IfEnd..使用说明(1)以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。(2)当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右侧时,Z取正值。(3)当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。(4)当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。(5)当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径。CASIO5800计算器公路竖曲线全线高程计算程序“SQXJSCX”↙Lb11↙CLs:Fix3↙“K=”?k◢(计算点里程输入)Ifk&ANDK≥66894.3:Then-0.00052→A:0→B:67394.3→S:67.37→G:600000→R:Goto2:IfEnd↙Ifk&ANDK≥:Then-0.0048→A:-0.00052→B:68494.3→S:66.8→G:100000→R:Goto2:IfEnd↙Ifk&本段竖曲线终点里程ANDK≥前一竖曲线终点里程:Then-0.0048→前坡(大里程向)A:-0.00052→后坡(小里程向)B:68494.3→竖曲线交点里程S:66.8→交点高程G:100000→曲率半径R:Goto2:IfEnd↙………依次类推,计算原始数据完成输入,坡度换算成小数。Lb12↙S-K→L:A-B→W:Abs(R*W/2)→T:S-T→C:S+T→D↙IfK≤C:ThenG-L*B→H:Goto5:ElseIfK≤S:ThenGoto3:ElseIfK≤D:ThenGoto4:IfEnd:IfEnd:IfEnd↙Lb13↙IfW&0:ThenG+(C-K)^2/2/R-L*B→H:Goto5:ElseIfW&0:ThenG-(C-K)^2/2/R-L*B→H:Goto5:IfEnd:IfEnd↙Lb14↙..IfW&0:ThenG+(K-D)^2/2/R-L*A→H:Goto5:ElseIfW&0:ThenG-(K-D)^2/2/R-L*A→H:Goto5:IfEnd:IfEnd↙Lb15↙H-0.304→H↙(0.304为中心~路肩高差)“H=”:H◢Goto1↙圆曲线缓和曲线线路中边桩放样卡西欧5800坐标计算程序程序名:FYXY&JD&?Q:&JDX&?W:&JDY&?K:R:&QDFWJ&?F:&A0&?N:&LS&?V:&-L,+R&?G:&DKQD&?C:&DKZD&?D:”ZJX&?A:”ZJY”?B8→DimzV÷2-V^(3)÷(240R2)→MV2÷(24R)-V^(4)÷(2688R^(3))→PpRN÷180+V→LM+(R+P)tan(N÷2)→TQ-T→Z[5]Z[5]+V→Z[6]Z[5]+L→Z[8]Z[8]-V→Z[7]Rec(T,F+180)W+I→Z[1]:K+J→Z[2]Rec(T,F+GN)W+I→Z[3]:K+J→Z[4]..Lbl0&DKI&?H:&BIANJU&?S:&JIAJIAO&?EIfHIfH&D:ThenGoto0:IfEndIfHLbl1Rec(Q-H,F+180)W+I→X:K+J→YRec(S,F+E)&X=&:X+I→X◢&Y=&:Y+J→Y◢Goto7Lbl2H-Z[5]→Z90Z2÷(pRV)→OZ-Z^(5)÷(40R2V2)+Z^(9)÷(3456R^(4)V^(4))→XZ^(3)÷(6RV)-Z^(7)÷(336R^(3)V^(3))+Z^(11)÷(42240R^(5)V^(5))→YRec(√(X2+Y2),F+Gtan-1(Y÷X))Z[1]+I→X:Z[2]+J→YRec(S,F+GO+E)&X=&:X+I→X◢&Y=&:Y+J→Y◢Goto7Lbl3播放器加载中，请稍候...
该用户其他文档
下载所得到的文件列表5800计算器全线坐标计算放样程序.doc
文档介绍：
..5800计算器全线坐标计算放样程序(修改版)“XLZBJSCX”◢(第一个程序)Lb10↙Cls:Fix4:30→Dimz↙“XHS=&?G(后视点X):&YHS=&?L(后视点Y):&XZJ=&?M(置镜点X):&YZJ=&?N(置镜点Y):Pol(G-M,L-N):&DH=&:I(后视距)◢J&0=&J+360→J:&FH=&:J?DMS◢(后视方位角)Lbl1↙(If(如果的意思)And(和字的意思)Then(然后的意思))“K=”?K◢(计算...
内容来自淘豆网转载请标明出处.
浏览：24次工地糗事（gdqiushi）——不一样的工地，不一样的故事，万人订阅的微信大号。点击标题下蓝字“工地糗事”免费关注， 笑了 乐了，是为了更好的学习！由于本人刚刚接触5800计算器，看到大地坐标与施工坐标相互转换是两个分开的。现在为了学习一下5800程序输入，把它组合成一个程序文件，请大家试用指点。程序清单:Fix 4:”ALFA=”?→J: ”AXO=”? →C: ”BYO=”? →D↙Lbl 3:”1→AG,2→GA”?Q↙Q=1＝＞Goto 1: Q=2＝＞Goto 2↙Lbl 1:”AA=”?→A:”BA=”?→B: ↙”XG=”:C+ACOS(J)-BSIN(J)▲”YG=”:D+ASIN (J)+BCOS (J)▲Goto 3↙Lbl 2:”XG=”?→X:”YG=”?→Y: ↙”AA=”( X-C) COS(J)+(Y-D)SIN(J)▲”BA=”: ( C-X) SIN (J)+(Y-D)COS (J)▲Goto 3↙说明：ALFA＝大地坐标与施工坐标夹角。AXO，BYO＝施工坐标系的原点的大地坐标AA，BA＝施工坐标X,Y＝大地坐标例：运行程序显示
输入ALFA＝?
大地坐标与施工坐标夹角
13'0'0'AXO＝？
施工坐标系的原点的大地坐标X
施工坐标系的原点的大地坐标Y
1→AG,2→GA?
1为施工转换大地，2为大地转换施工
要转换成大地坐标点的施工坐标A
要转换成大地坐标点的施工坐标B
82.5计算结果XG=YG=3回车1→AG,2→GA?
1为施工转换大地，2为大地转换施工
要转换成施工坐标点的大地坐标X
要转换成施工坐标点的大地坐标Y
3计算结果A=54.8995B=82.5001点击“阅读原文”更多施工技术！　
　文章为作者独立观点，不代表微头条立场
的最新文章
微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.工地糗事（gdqiushi）——不一样的工地，不一样的故事，万人订阅的微信大号。点击标题下蓝字“工地糗事”免微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.史上最齐全的CAD下载链接：/s/1ntoZ09NAutocad20史上最齐全的CAD下载链接：/s/1ntoZ09N请点击右下方[写评微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://kuai.xunlei.微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://pan.baidu.co微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://pan.baidu.co微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://pan.baidu.co微信名：CAD吧每日经典CAD解决方案? 史上最齐全的CAD下载链接：http://pan.baidu.cogdqiushi糗姐每天头条发工地那些事，另外四条挖掘各类笑料，满足工友各类口味！热门文章最新文章gdqiushi糗姐每天头条发工地那些事，另外四条挖掘各类笑料，满足工友各类口味！