卡西歐5800交點法計算緩和曲線內(nèi)任一點

1、CASIOfx5800p交點法計算緩和曲線內(nèi)任意點交點法計算緩和曲線內(nèi)任意點計算程序計算程序SpiraLcurve（緩和曲線任意點坐標(biāo)計算）程序說明：本程序是基于計算對稱性緩和曲線而編寫的程序，是以交點法為基礎(chǔ)，故輸入數(shù)據(jù)多了點。程序思路：根據(jù)曲線的交點數(shù)據(jù)，進而推算曲線要素，并進行曲線內(nèi)任意點的坐標(biāo)計算。LbL0：Cls19→DimZ變量賦值“INTα(s)=”F輸入交點坐標(biāo)方位角“JDPEG=”K輸入交點樁號“INTX(JD)=”X

2、輸入交點X坐標(biāo)“INTY(JD)=”Y輸入交點Y坐標(biāo)“INTR(s)=”R輸入緩和曲線半徑“INTL(s)=”L輸入緩和曲線長“TURNINGANGLE=”A輸入轉(zhuǎn)角“TURNINGDIRECTION–LR=”I輸入路線轉(zhuǎn)向：左負右正I賦值為1L2(24R)→PL2L3(240R2)→Q90L（πR）→B（RP）Tan（A2）Q→T計算切線長R（A2B）π180→O計算圓曲線長R（A2B）π1802L→C計算曲線長（RP）cos（A2）

3、R→E計算外距2TC→D計算切曲差KT→Z[3]ZH點Z[3]L→Z[4]HY點“HYPEG=”:Z[4]▲“X(HY)=”:Z[8]▲“Y(HY)=”:Z[9]▲“QZPEG=”:Z[7]▲“X(QZ)=”:Z[14]▲“Y(QZ)=”:Z[15]▲“YHPEG=”:Z[5]▲“X(YH)=”:Z[10]▲“Y(YH)=”:Z[11]▲“HZPEG=”:Z[6]▲“X(HZ)=”:Z[12]▲“Y(HZ)=”:Z[13]▲GoTo0L