casico4850.doc

CASIO4850匝道坐标计算：用线元法 一、ZADAO程序 1.LL0=0 =Goto 2$ 2.Fixm:{KGHVWABF}:KK0GX0HY0VA0FL1:WL-0 Z=-1 Y-1=0 =Goto 2 $ 3.AR0BR1 4.Lbl 2:{L}:L:Prog Y:O=1e-9:S=90 5.Lbl 4:{OS}:SJJOYC=0 =Goto 2 $ 6.X,Y:X=R+Ocos(Z+S)# Y=U+Osin(Z+S)# Prog D:Goto 4 二、Y程序：用线元法计算坐标的子程序 1.fixm:LK = L0:L# $ 2.LF=L1:L# $ 3.C=L-K:W=0 =R=G+Rec(C,V):U=H+J:Z=V:Z[9]=0:Goto 8 $ 4.W=Abs W/W:A=B =B=0 $ 5.B=0 =C=180C/Pi A:I=AsinC:J=A(1-cosC):Z[9]=1:Goto 7 $ 6.S=A-B:R=(F-K)B/Abs S:U=AR:S=Abs S/S:D=R^2/2U:T=R+SC:E=T^2/2U:Z[9]=U/T:I=T(1-E^2/10+E^4/216-E^6/9360)-R(1-D^2/10+D^4/216-D^6/9360):J=1/3*(T(E-E^3/14+E^5/440-E^7/25200)-R(D-D^3/14+D^5/440-D^7/25200):Pol(Abs I+1n,Abs J):Rec(I,Abs(J-180*D/Pi):C=180*Abs(E-D)/Pi 7.Lbl 7:R=G+IcosV-WJsinV:U=H+IsinV+WJcosV:Z=V+WC 8.Lbl 8 三、BG标高内插计算小程序，可以输入桩号、标高序列，程序会自动判断区间进行线性内插计算。 1.Defm 41:Fixm 2.N:Z[41}# 3.I=1 4.Lbl 1:{I}:I13 =Goto 2 $ 5.X=Z[13+2I]:Y=Z[14+2I]:{XY}:14I-I^20 =Z[13+2I]=XLN:Z[14+2I]=YHN:Z[41]=I:I=I+1:Goto 1 $ 6.Lbl 2:{L}:L:Prog G:Z# Goto 2 四、G 标高内插计算的子程序 1.I=1:C=1k:D=-C 2.Lbl 3:E=L-Z[13+2I 3.E=0 =Z=Z[14+2I:Goto 5 $ 4.E0 =ED =D=E:Y=I:Goto 4 $$ 5.E0 = EC =C=E:X=I$$ 6.Lbl 4:I=I+1:I=Z[41] =Goto 3$ 7.(C-1k)(D+1k)=0 =OE:Z=0#Goto 5 $ 8.E=Z[14+2X]:Z=E+C(Z[14+2Y]-E)/(C-D) 9.Lbl 5 数据库 STAT K≥89845.220=＞K≤90162.947=＞S=2:N=-1:R=2700:Z[1]=76132.744:Z[2]=1163.109:Z[3]=89845.220:F=33°55′58.24″⊿⊿ K≥90162.947=＞K≤90462.947=＞S=4:N=-1:R=2700:L=300:Z[1]=76677.8789:Z[2]=1451.6614:Z[3]=90462.947:F=24°0′26.5″⊿⊿ K≥90642.947=＞K≤90692.947=＞S=3:N=1:R=1350:L=230:Z[1]=76677.8789:Z[2]=1451.6614:Z[3]=90462.947:F=24°0′26.5″⊿⊿ K≥90692.947=＞K≤91480.326=＞S=2:N=1:R=1350:Z[1]=76885.1741:Z[2]=1551.1328:Z[3]=90692.947:F=28°53′17.21″⊿⊿ K≥91480.326=＞K≤91710.326=＞S=4:N=1:R=1350:L=230:Z[1]=77523.4613:Z[2]=2315.0462:Z[3]=91710.326:F=67°11′10.6″⊿⊿ K≥91710.326=＞K≤91963.364=＞S=1: Z[1]=77523.4613:Z[2]=2315.0462:Z[3]=91710.326:F=67°11′10.6″⊿⊿ K≥91963.364=＞K≤92193.364=＞S=3:N=-1:R=1400:L=230:Z[1]=77621.5733:Z[2]=2548.2891:Z[3]=91963.364:F=67°11′10.6″⊿⊿ K≥92193.364=＞K≤92915.436=＞S=2:N=-1