沃瓏建筑室線元法casio萬能坐標計算程序

1、附件(點擊)：程序已更新一、程序：MCW“1.JS2.SZ”:W=1=Z2=0:Goto 1 W=2= O“KOU LING”:O123456=O=0: “OUT” Goto 5O=0: Z1=0:Goto 0Lbi 0ABCREFGU:A“X0”:B“Y0”:C“F0”:R“R0”:E“RN”:F“D0”:G“LS”:U“G” ZZ18+3=A:ZZ18+4=B:ZZ18+5=C:ZZ18+6=1R:ZZ18+7=1E: ZZ18+8=F: ZZ18+9=F+G: ZZ18+10=U：Isz Z1: Goto 0Lbi 1DZ:D：Z：Z2=0:Goto 2 Lbi 2Z2Z1-1 =GoT

2、o 4DZZ28+9=A=ZZ28+3:B=ZZ28+4: C =ZZ 28+5:R=ZZ28+6: E=ZZ28+7: F=ZZ28+8: G=ZZ28+9: U=ZZ28+10: Goto3Isz Z2:Goto 2 Lbi 3N=5:PU（E-R）Abs（G-F）：QAbs（D-F）N ：S=90Q： JC+(NPQ+2UR)NS：L=1XA+Q6(Cos C+Cos J +4（Cos (C+(L+0.5)PQ+2UR)(L+.5)S),L,0,(N-1)）+2（Cos (C+(LPQ+2UR)LS,L,1,(N-1)）+ZCos（J+90)YB+Q6(Sin C+Sin J +4（Si

3、n (C+(L+0.5)PQ+2UR)(L+.5)S),L,0,(N-1)）+2（Sin (C+(LPQ+2UR)LS,L,1,(N-1)）+Z Sin s（J+90)Z=0=“X”:X:Pause 0: “Y” :Y Goto 1 Z“XL”:X:Pause 0: “YL”:Y Goto 1Z0=“XR”:X:Pause 0: “YR”:Y Goto 1 fx4850 CASIO 萬能坐標計算程序MC2007.12.16Z=0=Z Z0=XX X“X” Y “Y” Goto 1 “XL” Y “YL” Goto 1“XR” Y “YR” Goto 1 fx4800 Lbi 4二、說明a、編制

4、說明本程序是運用復化辛普生公式根據(jù)曲線段直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點坐標、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半徑）及里程邊距，對該曲線段范圍內(nèi)任意里程中邊樁坐標進行計算，以及對卡西歐擴充變量的靈活應用，實現(xiàn)了真正意義上的的全線貫通及曲線要素輸入程序化（在不修改程序內(nèi)容的情況下可通過運行程序輸入任意多段曲線元要素）。通過對 N=？ 進行修改，可對公式進行任意等分進行運算。（注：N 為不小于 2 的整數(shù)，N 越大精度越高，計算速度越慢；N 越小精度越低，運算速度越快，一般曲線取 N=4 就能滿足精度要求，在能滿足精度的情況下盡量 N 取小值，已獲

5、得最佳運算速度，不要盲目的追求精度）b、程序操作說明程序分為兩部分：1.JS 為計算，2.SZ 為設置。1、 首先用 Shift+Defm 鍵對計算器內(nèi)存變量進行擴充，擴充變量數(shù)為 8X+2（X 為曲線元段數(shù)，變量數(shù)視內(nèi)存情況盡量大些），運行程序，選 2 進行曲線要素設置，為防止誤操作在正確輸令 123456 時方可進行設置。在執(zhí)行程序中將各段曲線元要素按規(guī)律輸入到擴充內(nèi)存變量中（A“X0”:B“Y0”:C“F0”:R“R0”:E“RN”:F“D0”:G “LS”:U“G”），輸入結(jié)束后退出程序，或?qū)?A“X0”輸入 0，一直向下運行自動退出程序。2、 選 1.JS 進行坐標運算，D 輸入樁號

6、，Z 輸入左右距離（負為左，正為右，0 為中）程序首先自動判斷其在哪一線元內(nèi)，并把其線元要素調(diào)出進行計算，即可對全線進行坐標計算。c、變量說明X0：Y0：F0曲線元起點 X、Y 坐標及起點正切線方位角R0：RN曲線元起點及終點半徑D0：LS：Q曲線元起點樁號、路線長度及線路左右偏標志（左=-1,直線=0,右=1）D曲線元中待求點樁號Z計算邊樁距中線平距，左邊輸入負值，右邊輸入正值，中樁輸入 0X：Y （中）XL:YL （左）XR:YR （右）待求點的 X，Y 坐標擴充變量：ZZ18+3: ZZ18+4: ZZ18+4: ZZ18+6: ZZ18+7: ZZ18+8: ZZ18+9: ZZ18+

7、10: 分別為各線元 X0:Y0:F0;R0:RN:D0:LS:Q,(1) 以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當線元往左偏時，Q=-1；當線元往右偏時，Q=1；當線元為直線時，Q=0。當所求點位于中線時，Z=0，坐標顯示 X Y；當位于中線左側(cè)時，Z 取負值,坐標顯示 XL YL,；當位于中線右側(cè)時，Z 取正值,坐標顯示 XR YR。當線元為直線時，其起點、止點的曲率半徑為無窮大，以 10 的 45 次方代替。(4) 當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。(5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以 1 0 的 45 次方代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以 10 的 45 次方代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。(6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設計規(guī)定的值；與