fx-4800p缓和曲线中桩坐标及放样计算程序第一次优化

⑵ZH—1程序设计ACMODE51ZHALPHA—1EXE1Defm10∶MB″XM″C″YM″A″JD″D″XJD″F″YJD″N″ZH″O*″HY″H″YH″P″HZ″EG″T1″RL″LS″∶Fixm∶Pol((D-B),(F-C))∶Z［6］=J∶Rec((N-M),Z［6］∶Z［2］=B+I∶Z［3］=C+J∶Lbl0∶｛K｝∶K≤N→S=Z［6］∶Z［10］=K-M∶Prog″XY3″∶Rec(Z［10］,Z［6］∶X=B+I▲Y=C+J▲Goto0∶△K≤O*→Z［5］=K-N∶Prog″XY2″∶Prog″XY1″∶Prog″XY3″∶X=Z［9］▲Y=Z［4］▲Goto0∶△K≤H→Z［5］=O*-N∶Prog″XY2″∶Prog″XY1″∶Z［5］=K-O*∶Z［1］=90Z［5］÷π÷R∶S=S+Z［1］+2Q∶Z［10］=2Rsin(90Z［5］÷ΠR)∶Prog″XY3″∶Rec(Z［10］,S∶X=Z［9］+I▲Y=Z［4］+J▲Goto0∶△K≤P→Z［1］=Z［6］+E∶Rec(G,Z［1］∶Z［7］=D+I∶Z［8］=F+J∶Z［5］=P-K∶Prog″XY2″∶S=180+Z［1］-Q∶Prog″XY3″∶Rec(Z［10］,S∶X=Z［7］+I▲Y=Z［8］+J▲Goto0EXE注：有*号者为英文字母。请注意英文字母O与零0的区别，以后均不再注明。⑶子程序⒈XY1程序ACMODE51XYALPHA1EXE1Rec(Z［10］,S∶Z［9］=Z［2］+I∶Z［4］=Z［3］+J∶⒉XY2程序ACMODE51XYALPHA2EXE1Q=30Z［5］∧2÷πRL∶S=Q+Z［6］∶Z［10］=(Z［5］-Z［5］∧5÷40R∧2L∧2)÷cosQ∶⒊XY3程序ACMODE51XYALPHA3EXE1U″SP″=Z［10］▲S≥0→S″QP″=S▲≠→S″QP″=360+S▲⑷计算例内宜高速公路一段曲线JD72(K55+917.27)坐标为229978.000,478073.000，az=13°21′19″，R=1200m，LS1=LS2=135m，T1=208.062m，L=414.717m，E=8.834M，ZH桩号K55+709.21M，HY桩号K55+844.210M，YH桩号K55+988.92M，HZ桩号K56+123.92M，直线点K55+485.430M，坐标为230332.867，478319.076。用偏角法进行曲线放样。用ZH—1程序计算：ACFILEFUNCTION1ZHALPHA—1EXEEXE输入数据顺序：M?485.43EXE输入直线起点M的桩号尾数(M)，XM?230332.867EXE输入直线起点M的坐标(M)，YM?478319.076EXEJD?917.270EXE输入JD转点的桩号尾数(M)，XJD?229978EXE输入JD转点的坐标(M)，YJD?408073EXEZH?709.21EXE输入直缓点ZH的桩号尾数(M)，HY?844.21EXE输入缓圆点HY的桩号尾数(M)，YH?988.92EXE输入圆缓点YH的桩号尾数(M)，HZ?1123.92EXE输入缓直点HZ的桩号尾数(M)，E?-13°21′19″EXE输入转角(度),即代表ay或az，前者右转，输入正值，后者左转输入负值。R?-1200EXE输入半径(M)。路线左转为负值；右转为正值。LS?135EXE输入缓和曲线长度(M)，T1?208.062EXE输入切线长(M)K?600EXE输入放样点桩号的尾数(M)SP=114.57EXE显示平距(M)QP=214°44′19.19″EXE显示方位角(度),X=230238.718EXE显示放样点的坐标(M)Y=478253.790EXEXM?……EXE输入下一放样点桩号的尾数(M)，重复计算，从略。计算结果見下表测站放样桩号方位角距离(M)坐标(M)(M)°′″XYK55+485.43直线段K55+550214441964.570230279.806478282.282K55+6002144419114.570230238.718478253.790ZHK55+709.21缓和曲线段K55+720214435410.790230140.106478185.411K55+780214263670.789230090.595478151.521K55+800214151090.787230073.932478140.459HYK55+844.21圆曲线段K55+900210110255.785229988.408478088.688K55+940209134495.765229953.058478069.973K55+9602084505115.745229935.154478061.060HZK56+123.92缓和曲线段K55+1000221719123.908229898.911478044.134K55+104021475583.918229862.178478028.302K55+108021295043.920229825.125478013.234K55+110021250223.920229806.529478005.874