fx5800计算器公路测量程序设计

FX58002.3C，SClrMat:ClrVar:12→DimZ：Norm2:Do:＂(XY=1，ZD=2Z[3]=35:Prog＂1XY”:WhileEnd:WhileZ[3]=36:Prog＂2ZD＂：WhileEnd:WhileZ[3]=37:Prog＂3GC＂：WhileEnd:WhileZ[3]=21:Prog＂4GD＂：WhileEnd:WhileZ[3]=22:Prog＂5BP＂：WhileEnd:WhileZ[3]=23:Prog＂6FM＂：WhileEnd:While25:”XIEXIESHIYONG”:Prog＂DX＂:Prog＂QX＂:90→A:＂PJ1＂?A:A→B:＂PJ2＂?B:A→Z[1]:B→Z[9]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:Prog＂K＂:?D:0→L:＂L0＂?L:L→Z[10]:Porg＂A＂:Z[2]+Z[1]→A:A-Prog＂JS＂:LpWhileZ≠-1Prog＂QX＂:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:Prog＂K＂:XO＂?X:＂Y0＂?Y:Porg＂B＂:Prog＂ZD＂:LpWhileZ≠-1程序名Prog＂QX＂:0→B:＂H-B＂?B:B→Z[9]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:?D:Prog＂H＂:Fix3:＂ H=＂:Locate6,4,H-Z I=＂:Locate6,4,I：LpWhileZ≠-1Prog＂QX＂:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-C＂:L→P：1→D:Prog＂C＂:Fix3:＂ LGD=＂:Locate6,4,P：＂RGD=＂:Locate6,4,L：LpWhileZ≠-1Prog＂DX＂:Prog＂QX＂:0.5→B:＂TH-GD＂?B:B→Z[7]:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:Prog＂K＂:→M：＂M0＂?M:M→Z[8]:Porg＂B＂:D→P:Prog＂C＂:IfD<0:Then0.75-L→D:ElseL-0.75→D:IfEnd:Prog“H”:H-0.03-Z[8]→G:Prog“W1”:IfG>0:ThenGotoT:-G→H:IfH>E+F:ThenL+M+N+U+C(H-E-F)+BF+AE→S:Goto0:IfEnd:IfH>E:ThenL+M+N+B(H-E)+AE→S:Goto0:IfEnd:IfH<E:ThenL+M+HA→S:GotoLbIT:IfG>W：ThenL+Z[7]+V+J(G-W)+IW→S:Elsend:LbI0:Fix2:P→D：Abs（D）-S→T:＂ LX=＂:Locate6,4,T： TW=＂:Locate6,4,G◢LpWhileZ≠-1Prog＂DX＂:Prog＂QX＂:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:Prog＂K＂:?D:Porg＂A＂:Z[2]+90→A:I+Dcos(A→X:J+Dsin(A→Y:Prog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog“H”:”TW=”:Locate6,4,H-Z[8]:LpWhileZ≠-1Prog＂DX＂:Prog＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂?D:Abs(D)→R:＂LR＂?R:D→Z[7]:R→Z[10]:Z→Z[9]:Prog”C”:L→Z[10]:Prog”K”:Do:Z[10]→Y:＂L0:SZ+,DZ-＂?Y:Y=-1=>Stop:Y=-2=>Break:√(Z[7]2（1-Y2/Z[10]2）)→X：Z[9]+Y→Z:Prog”C”:IfD>0:Thenlse–L-X→D:IfEnd:Prog”A”:Z[2]+90→A→Y:Prog＂XY＂:Prog＂JS＂:LpWhileY≠-1程序名Prog＂DX＂:Do:?X:X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”:LpWhileX≠-1=-2=>Break:Prog＂K＂:→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:IfM<E:ThenR-V→S:S=0=>Goto1:√(S2-(B-A)2)S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M--V-X→L:Goto0:IfEnd:LbI1:√((D-Q)2+(M-A)2)-R-X→L:LbI0:Fix LX=”:Locate H0=”:LocateH◢LpWhileZ≠-交点算子程序(Ａ)IfZ≤O-T:ThenZ-O→S:G→Z[2]:Goto1:IfZ≤O-T+H:ThenZ-O+T→S:Prog“HX”:G+WK→Z[2]:A-GotoIfZ≤Q:Then180(Z-O+T-0.5H)÷R÷Π→S:Prog”AB”:A+R(1-Cos(S→E：B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto2:IfZ≤Q+N:ThenQ+N-Z→S:N→H:Prog“HX”:G+P→E:E-A→A:C→H:GotoZ-Q-N+F→S:G+P→Z[2]:LbIurn:LbI2:U+Acos(E)-Icos(J→D:IfM≠0:ThenPol(M-WS,D:JMΠ÷180→D:IfEnd:LpWhile程序名H2÷R÷24-H∧(4)÷2688÷R∧(3)+H∧(6)÷506880÷R∧(5)-H828800÷R∧(7)→A:H÷2-H∧(3)÷240÷R2+H∧(5)÷34560÷R∧(4)-H(7)÷÷R∧(6)+H 程序名R∧(6)÷H∧(6)+S∧(17)÷÷R∧(8)÷H∧(8)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-÷ 0S2÷Π÷R÷H→K:IfS=0:Then0→M:ElseProg“S1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:IfZ<C-T:ThenG+I(Z-C→H:Goto0:IfEnd:IfZ<C+T:ThenG-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto0:IfEnd:N→I:G+I(Z-C→H:LbI0:IfD=0:ThenH→H:Return:ElseProg“I”:H+I(Abs(D)-高程计算横坡子程序（I）Prog“I1”：IfS=0:ThenM→I:Return:ElseIfW=1:Then((N-×(Z-C)÷S+M→I:Return:Else(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×程序名：C1→S:Prog“G1”:Z-C→E:(B-程序名Z[5]→K：Z[6]→L:Pol(X-K,Y-L:IFJ<0:Then+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J:Fix4:”FWJ=”:cate6,4,J：Fix S=”:LocateIfZ[4]=0:ThenReturn:IfEnd:IfZ[4]=1:ThenProg“X1”:Return:IfEnd：IfZ[4]=2:ThenProg“X2”:Return:IfEnd程序名MatF[1,1]→O:MatF[1,2]→U:MatF[1,3]→V:MatF[1,4]→G:atF[1,5]→P:MatF[1,6]→H:MatF[1,7]→N:MatF[1,8]→T:MatF[1,9]→F:MatF[1,10]→RＦix3:＂ Ｘ=＂：Locate6,4,Ｘ：＂ Ｙ＝＂：Locate6,4,Ｙ：Fix3:＂ＫＭ＝＂：Locate6,4,Ｚ：＂ Ｄ＝＂：Locate6,4,ＤNorm×10-9→H:H→X:90S2÷(RHΠ→K:G-QK→G:N=0=>×10-9→N:→D:P+QK+QD→P:Prog”AB”:(H2-N2)÷24÷R÷sin(Abs(P))-(H∧(4)- +B+E→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:Fix3:”JDKM=”:Locate6,4,O:”JDX=”:Locate6,4,U:”JDY=”:Locate6,4,V◢P►DMS◢”LS1=”:Locate6,4,H:”LS2=”:Locate6,4,N:Locate6,4,T:”T2=”:LocateY“LS1”？“LS2”？输入前段缓和曲线长度，后段缓和曲线长度；“A1”？“A2”？输入前段缓和曲线参数，后段缓和曲线参数；点方位角之差，左转为负，右转为正）；QX Z≤241.086:Then[[-336.478， .639，514392.519，280。”，056，60]]→MatF:Prog”F”: Z≤273.006:Then 17.2”，68。→MatF:Prog”F”:Return: Z≤466.227:Then .76，514799.865，123。25.915。F:Prog”F”:Return:说明：1、交点法：IfZ≤计算交点段终点桩号：Then[[交点桩号，交XY长度，圆半径]]→MatF:Prog”F”:Return:IfEnd1，0。IfZ[4]=1:ThenGoto1:ElseProg“S2”:Return:LbI1:IfZ≤241.09:Then95.356→C:40.742→G:2000→R:-IfZ≤133.601:Then106→C:45.12→G:1525→R:-IfZ≤466.23:Then298→C:50.841→G:1945→R:.0298→I:-N:CGR-竖曲线半径；I－竖曲线前纵坡;N－0→K:1→W:IfZ[4]=1:ThenGoto1:ElseProg“I2”:Return:IfEnd:LbI1:IfD<0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ≤159.419:Then0→S:.06→M:IfZ≤187.987:Then28.568→S:159.419→C:.06→M:.02→N:IfEnd:IfZ≤241.086:Then0→S:.02→M:LbIR:IfZ≤159.419:Then0→S:-.06→M:IfZ≤187.987:Then28.568→S:159.419→C:-.06→M:-.02→N:rn:IfEnd:IfZ≤241.086:Then0→S:.-02→M:IfD<0:ThenGotoL:ElseGotoLbIL:IfZ≤77.872:ThenIfZ≤93.889:ThenEnd:IfZ≤198.567:Then0→S:.05→M:Return:IfEnd:IfZ≤273.006:Then74.439→S:198.567→C:.05→M:.02→N:Return:IfEnd:IfZ≤335:Then0→S:.02→M:Return:IfEnd:Z≤346.235:ThenLbIR:IfZ≤77.872:Then0→S:-IfZ≤93.889:Then16.017→S:77.872→C:-.02→M:-.05→N:IfEnd:IfZ≤198.567:Then0→S:-.05→M:Return:IfEnd:IfZ≤273.006:Then74.439→S:198.567→C:-.05→M:-.02→N:d:IfZ≤335:Then0→S:-.02→M:Return:IfEnd:Z≤346.235:Then11.235→S:335→C:-.02→M:-.015→N:Return:IfEnd:W－方式参数（W=1为一般直线方式，W=2为三次抛物线方式超高）;S－渐变段距离（不是渐变段则输入0）；C-渐变段起点IfZ[4]=1:ThenGoto1:ElseProg“G2”:Return:IfEndLbI1:IfD<0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ≤241.086:ThenLbIR:IfZ≤40.857:ThenfEnd:IfZ≤159.419:ThenZ→C:5.25→A:Return:IfEnd:IfZ≤187.987:Then159.419→C:5.25→A:5.5→B:28.568→S:Return:IfEnd:IfZ≤241.086:ThenIfD<0:ThenGotoL:ElseGotoR:IfEnd:LbIL:IfZ≤466.227:ThenLbIR:IfZ≤321.611:ThenZ→C:5→A:Return:IfEnd:IfZ≤346.235:Then321.611→C:5→A:5.75→B:24.624→S:Return:IfEnd:IfZ≤466.227:ThenZ→C:5.75→A:Return:IfEndIfZ[4]=1:Then5.1→R:1.8→A:1.4→V:0.59→B:0→Q:109。→P:IfZ[4]=2:Then8.75→R:-1.1→A:4.77→V:1.47→B:-.25→Q:51。”→P:IfZ[4]=1:ThenGoto1:ElseProg“W2”:LbI1:IfD<0:ThenGotoL:ElseGotoLbILbIR:IfZ≤110:Then1.25→A:1.25→B:1.5→C:Return:ElseGotoL:IfEnd⑥-2W2(210→E:10→F:2.6→M:2→N:2→S:1.5→I:1.75→J:8→W:2→V:IfD<0:ThenGotoL:ElseGotoLbILbIR:IfZ≤445:ThenGotoL:ElseIfZ≤506.9:Then0.25×(Z-44I－填方第一阶边坡边率；J－填方第二阶边坡边率;W－填方第一阶高5BP1一段缓和曲线或一段圆曲线，需先运行T程序整理点数据。无缓和0。程序中：×10-9为10的负9次方即0. ;Π为圆周率即3. ;√为根号；＂ 果＂A:XY=1，ZD=2，GC=3，GD=4，BP=5，FM=6，ZP=7， 按对应数子键约半秒:12XZ？YZ？为置仪点坐标，第一次运行输一次，以下运行不需再输认键。(后附有导线点坐标子程序,有的可加上)“QX:X1=1,X2=2”?02X0X（XY0Y（YL0?涵洞放样程序中涵距中心桩号前后距离,前为正,后为 H-B？计算面至路面高差（PJ1?PJ2?PJ190TH-GH？＂LD:Z-,Y+＂?桥梁锥坡向左右方向边长，左为负数，右为正数。(即＂LR＂?锥坡向路线前进或向后退方向边长。＂Z0＂?“CQHD”?QX子程序中和TJDKM”？输入交点桩号；“JDX”？“JDY”？X、Y；“FWJ“？输入起点至交点方位角”ZJ“LS1”？“LS2”？输