Fx5800计算器公路测量程序设计从别处买来的，能用.docVIP

FX5800计算器测量程序集2.4 版 ?一、程序功能????主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算 二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总） 0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、DS）；9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。 程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9)===QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”: 计算内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD 程序内容无电子版。。。全在计算中，本人出售单机卡西欧计算器5800，或者带2.4程序计算器(凡购买带程序计算器者即为会员，享有以后所有版本的使用)详情凳陆淘宝网店： HYPERLINK （或加QQ详谈，加QQ注明:淘宝。 23．数据子程序(以下子程序除T程序外，其余子程序根据自己标段设计数据修改) 带有不完整缓和曲线的线元转交点数据程序（T）。只为转交交点的辅助程序，不参入任何主程序中运行。 程序名：T Norm 2: ＂QKM＂？Z：＂XQ＂？U：＂YQ＂？V：＂LS1＂？M：＂LS2＂？O：＂A1＂？A：＂A2＂？B：＂FWJ＂？G：＂ZJ＂？P：？R：P÷Abs(P→Q:A2÷R→H:HM=M→H:H-M→S:B2÷R→N:N-O→C:ON=O→N:H=0=×10-9→H:H→X:90S2÷(RHΠ→K:G-QK→G:N=0=×10-9→N: 90C2÷(RNΠ→D:P+QK+QD→P:Prog＂AB＂:Abs(P→E:(R+C)tan(E÷2)-(C-A)÷sin(E)+D→T:(R+A)tan(E÷2)-(C-A)÷sin(E)+B→F:X→H:Z-S+T→O:Prog＂HX＂:U-(A-T)cos(G)+QBsin(G→U:V-(A-T)sin(G)-QBcos(G→V:Fix 3: ＂JDKM=＂:Locate 6,4,O: ＂JDX=＂:Locate 6,4,U: ＂JDY=＂:Locat