内蒙古准兴重载高速fx4850计算器程序.docVIP

(1)T=1=Prog“SJK1”:Prog”QXCS”:Goto0△ Lbi0 (2) Defm4← A“XA”:B“YA”:C“CA”:D“RA”:E“RB”:F“DKA”:G“DKB”:U Deg:hF=Goto0:△P=U(E-D)÷Abs(G-F):Q=Abs(H-F):I=PQ J=C+90Q(I+2UD)÷π:J≥360=J=J-360:≠=J0=J=J+360△ M=C+45Q(I÷4+2UD)÷(2π):N=C+135Q(3I÷4+2UD)÷(2π):K=C+45Q(I÷2+2UD)÷π X=A+Q(cosC+4(cosM+cosN)+2cosK+cosJ)÷12 Y=B+Q(sinC+4(sinM+sinN)+2sinK+sinJ)÷12 “QX-FWJ=”:J→DMS◢ {LOP}:L“W(L)=”:○“W(R)=”:P“N(。)” “X(L)=”:Z[1]=X-Lcos(J+P) ◢ “Y(L)=”:Z[2]=Y-Lsin(J+P) ◢ “X=”:X=X◢ “Y=”:Y=Y◢ “X(R)”:Z[3]=X+○cos(J+P) ◢ “Y(R)”:Z[4]=Y+○sin(J+P) ◢ Lbi0 （3）｛H｝:“DKA” H≤167341.318=A=4504598.471:B=541980.6306:C=58°48°8.35°:D=0:E=0:F=165412.769:G=167341.318:U=0:Goto 0△ H≤167691.318=A=4505597.443:B=543630.2813:C=58°48°8.35°:D=0:E=1÷1300:F=167341.318:G=167691.318:U=-1:Goto 0△ H≤168548.068=A=4505791.826:B=543920.9992:C=51°05°22°:D=1÷1300:E=1÷1300:F=167691.318:G=168548.068:U=-1:Goto 0△ H≤168648.068=A=4506503.686:B=544369.438:C=13°19°46°:D=1÷1300:E=1÷823.372:F=168548.068:G=168648.068:U=-1:Goto 0△ H≤169028.380=A=4506601.907:B=544387.998:C=7°38°47°:D=1÷823.372:E=1÷823.372:F=168648.068:G=169028.380:U=-1:Goto 0△ H≤169388.380=A=4506977.058:B=544351.307:C=341°10°54°:D=1÷823.372:E=0:F=169028.38:G=169388.38:U=-1:Goto 0△ H≤169808.38=A=4507293.649:B=544187.267:C328°39°21°:D=0:E=1÷766.544:F=169388.38:G=169808.38:U=1:Goto 0△ H≤170507.821=A=4507672.501:B=544003.008:C=-15°38°52°:D=1÷766.544:E=1÷766.544:F=169808.38:G=170507.821:U=1:Goto 0△ H≤170587.821=A=4508336.651:B=544126.0028:C=36°37°54°:D=1÷766.544:E=1÷1016.123:F=170507.821:G=171587.821:U=1:Goto 0△ Lbi0 说明：(1)和（2）是主程序，其中（1）是过渡作用，如果子程序数据库多的话可以依次增加，（2）是计算主程序，（3）是数据库，其中A、B是前一曲线要素的坐标，C是方位角，如果是第一缓和曲线，那么 D=0,E=1÷半径，如果是圆曲线，那么D=1÷半径,E=1÷半径，如果是第二缓和曲线，那么D= 1÷半径,E=0，如果是直线，那么D=0,E=0，如果遇到不完整缓和曲线或者不对称缓和曲线，那么D=1÷半径1,E=1÷半径2，F、G是曲线要素桩号，U是左转-1，右转1，直线0.（1）（2）（3）是文件名，这个自己建立一个就可以了。 此数据库是内蒙古**高速**标的数据库。