CASIO fx5800p交点法计算缓和曲线内任意点计算程序.docVIP

CASIO fx-5800p交点法计算缓和曲线内任意点计算程序 SpiraL curve（缓和曲线任意点坐标计算）程序说明：本程序是基于计算对称性缓和曲线而编写的程序，是以交点法为基础，故输入数据多了点。程序思路：根据曲线的交点数据，进而推算曲线要素，并进行曲线内任意点的坐标计算。2013年1月6日增加说明：本程序的主旨是在已知交点各要素的前提下，通过内置程序进行推算，从而得出精确的结果，已知要素只需要输入一次，便可以把该交点范围内的包括中桩，任意角度边桩结果推算出来。LbL 0：Cls19→DimZ???????????????????????????????????? 变量赋值“INTα(s)=”?F?????????????????????????????? 输入交点坐标方位角“JD PEG=”?K????????????????????????????????输入交点桩号“INT X(JD)=”?X???????????????????????????? 输入交点X坐标“INT Y(JD)=”?Y???????????????????????????? 输入交点Y坐标“INT R(s)=”?R??????????????????????????????输入缓和曲线半径“INT L(s)=”?L??????????????????????????????输入缓和曲线长“TURNING ANGLE=”?A???????????????????????? 输入转角“TURNING DIRECTION –L,+R=”?I??????????????输入路线转向：左负右正??I赋值为1L2÷(24×R)→PL÷2-L3÷(240×R2)→Q90×L÷（π×R）→B（R+P）Tan（A÷2）+Q→T????????????????????????计算切线长R（A-2B）×π÷180→O??????????????????????????计算圆曲线长R（A-2B）×π÷180+2L→C?????????????????????? 计算曲线长（R+P）÷cos（A÷2）-R→E???????????????????? 计算外距2T-C→D??????????????????????????????????????计算切曲差K-T→Z[3]??????????ZH点Z[3]+L→Z[4]?????? HY点Z[4]+O→Z[5]?????? YH点Z[5]+L→Z[6]?????? HZ点Z[6]-C÷2→Z[7]????QZ点X+Tcos（F+180）→Z[16]???????? ZH点X坐标Y+TsIn（F+180）→Z[17]???????? ZH点Y坐标L-L3÷（90R2）→GZ[16]+Gcos(F+30×I×L÷(π×R) )→Z[8]????HY点X坐标Z[17]+Gsin(F+30×I×L÷(π×R)) →Z[9]????HY点Y坐标Z[8]+2Rsin(45×O÷(πR))cos(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →Z[14]??QZ点X坐标Z[9]+2Rsin(45×O÷(πR))sin(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →Z[15]??QZ点Y坐标Z[8]+2Rsin(90×O÷(πR))cos(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →Z[10]??YH点X坐标Z[9]+2Rsin(90×O÷(πR))sin(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →Z[11]??YH点Y坐标X+Tcos（F+I×A）→Z[12]?? HZ点X坐标Y+TsIn（F+I×A）→Z[13]?? HZ点Y坐标LbL 2“XIAN SHI QXYS 0→YES,1→NO” →？Z:CLs???? 显示曲线要素？输入：0→YES,1→NOIf Z=0:Then GoTo 3ELse If Z=1:Then GoTo 4:IfEnd:IfEndLbL 3???本段为曲线要素显示结果部分“QIE XIAN C=”:T▲“QU XIAN C=”:C▲“Y QU XIAN=”:O▲“WAI JU=”:E▲“QIE QU CHA=”:D▲“ZH PEG=”:Z[3] ▲“X(ZH)=”:Z[16] ▲“Y(ZH)=”:Z[17] ▲“HY PEG=”:Z[4] ▲“X(HY)=”:Z[8] ▲“Y(HY)=”:Z[9] ▲“QZ PEG=”:Z[7] ▲“X(QZ)=”:Z[14] ▲“Y(QZ)=”:Z[15] ▲“YH PEG=”:Z[5]