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

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

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

3、R→E計(jì)算外距2TC→D計(jì)算切曲差KT→Z[3]ZH點(diǎn)Z[3]L→Z[4]HY點(diǎn)“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