CASIO850P 坐标正算、坐标反算程序.docVIP

程序源清单 清单中子程序“4”和子程序“7”中的数值为示例高速公路全段的曲线元素(直曲表及逐桩坐标表由“海地2000公路优化设计系统”生成，逐桩坐标表用于检验程序输入的正确性，详见后附录一) ZBJS L1 Defm 35:Z[26]=0:Z［27］=1:Prog 1 ZBFS L1 Defm 34:Fixm:｛XY｝:Z［33］=XXp:Z［34］=YYp:Z［26］=2π:Z［27］=1:Prog 1 1 L1 N=Z［16］: V=Z［17］:Z［26］=2π=Goto JΔ｛NV｝:Z［15］=0:Z［11］=0:Z［16］=NX0:Z［17］=VY0:PXc=0=K=Z［16］:L=Z［17］:｛KL｝: DS1ES2KXH1LYH1XXH2YYH2:Z［16］=K:Z［17］=L:T=Pol(X-K,Y-L:M=cos-1((T2+E2-D2)÷2ET:Fixm:U=J+180-M:P=X+EcosU:Q=Y+EsinUΔQYc:Pol(N-P,V-Q:Fixm:Z［18］=J:Lb1 J：X=0:｛X｝: XQXH: 1L2 Lb1 Z:Z［20］=Ans:Z［19］=X:X≠0=X=-1=Lb1K:X=P:Y=Q:S=Z［18］+90:Z［15］=5:Prog2:Goto M:≠ProgE:Goto DΔΔ 1L3 ｛ABCRHWM｝