casiofx-5800p放樣程序優(yōu)化

《casiofx-5800p放樣程序優(yōu)化》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。

1、CASIOfx-5800P放樣程序（優(yōu)化）-聲明：編程使用的通用積分公式出自李艷陽前輩！在此致敬！本程序加入了測(cè)站，方便喜愛用方位角、平距放樣的朋友！正算主程序[KB-MN]?X:?YLbl1:Fix3:X→S:?K:?B:90→AProg“YS-1”:Prog“ZDYS”:S→X:M-X+×10-9→I:N-Y+×10-9→J:Pol(I,J):J＜0＝＞J+360→J:Cls:Locate1,1,“J=”:Locate4,1,J°:Locate1,2,“I=”:Locate9,2,I:Locate1,3,“M=”:Locate

2、6,3,M:Locate1,4,“N=”:Locate7,4,N◢Cls:Goto1反算主程序[MN-KB]?KLbl0:Fix3:?M:?N:M→E:N→QLbl1:90→A:0→B:Prog“YS-1”:Prog“ZDYS”Pol(E-M+×10-9,Q-N+×10-9):Isin(L-J)→A:Icos(L-J)→BIfAbs(A)＞0.001:ThenK+A→K:Goto1:ElseCls:Locate1,1,“K=”:Locate7,2,K:Locate1,3,“B=”:Locate9,4,B◢IfEnd:Goto0數(shù)據(jù)

3、庫子程序[YS-1]IfK＜線元終點(diǎn)里程:Then線元起點(diǎn)切線方位角→C:線元起點(diǎn)X坐標(biāo)→U:線元起點(diǎn)Y坐標(biāo)→V:線元起點(diǎn)里程→O:線元長(zhǎng)度→F:±線元起點(diǎn)曲率半徑（左轉(zhuǎn)為負(fù)，直線及右轉(zhuǎn)為正）→P:±線元止點(diǎn)曲率半徑→R:Return:IfEndIfK＜下一線元終點(diǎn)里程:Then線元起點(diǎn)切線方位角→C:線元起點(diǎn)X坐標(biāo)→U:線元起點(diǎn)Y坐標(biāo)→V:線元起點(diǎn)里程→O:線元長(zhǎng)度→F:±線元起點(diǎn)曲率半徑→P:±線元止點(diǎn)曲率半徑（左轉(zhuǎn)為負(fù)，直線及右轉(zhuǎn)為正）→R:Return:IfEnd子程序[ZDYS]0.5(1÷R-1÷P)÷F→D:K-O→

4、XU+∫(cos(C+180(X÷P+DX2)÷π,0,X)→MV+∫(sin(C+180(X÷P+DX2)÷π,0,X)→NC+180(X÷P+DX2)÷π+A→L:M+Bcos(L)→M:N+Bsin(L)→N正算主程序[KB-MN]輸入：X---測(cè)站X坐標(biāo)Y---測(cè)站Y坐標(biāo)K---樁號(hào)B---距中（左負(fù)右正中零）結(jié)果：J=測(cè)站到放樣點(diǎn)的方位角I=測(cè)站到放樣點(diǎn)的平距M=放樣點(diǎn)X坐標(biāo)N=放樣點(diǎn)Y坐標(biāo)若果求斜交時(shí)邊樁坐標(biāo)，主程序[KB-MN]中90→A修改為斜交角度→A反算主程序[MN-KB]輸入：K---待反算點(diǎn)附近的大概樁號(hào)M

5、---待反算點(diǎn)X坐標(biāo)N---待反算點(diǎn)Y坐標(biāo)結(jié)果：K=反算點(diǎn)的樁號(hào)B=反算點(diǎn)的距中（左負(fù)右正中零）備注:字母后所帶數(shù)字為次方,如:DX2式中2均為平方。1、當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無窮大，以10的45次代替。2、當(dāng)線元為圓曲線時(shí)，無論其起點(diǎn)、止點(diǎn)與什么線元相接，其曲率半徑均等于圓弧的半徑。3、當(dāng)線元為完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。4、當(dāng)線

6、元為非完整緩和曲線時(shí)，起點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。止點(diǎn)與直線相接時(shí)，曲率半徑等于設(shè)計(jì)規(guī)定的值；與圓曲線相接時(shí)，曲率半徑等于圓曲線的半徑。優(yōu)化：SENDYCHANQQ：82811489本程序經(jīng)過優(yōu)化，減少了數(shù)據(jù)庫的字節(jié)，同時(shí)可以計(jì)算多條線路，修改如下：正算主程序[KB-MN]“1,2,3,4,5”?Z:?X:?YLbl1:Fix3:X→S:?K:?B:90→AZ=1＝＞Prog“YS-1”Z=2＝＞Prog“YS-2”Z=3＝＞Prog“YS-3”Z=4＝＞Prog“YS-4

7、”Z=5＝＞Prog“YS-5”Prog“ZDYS”:S→X:M-X→I:N-Y→J:Prog“C”:Cls:Locate1,1,“J=”:Locate4,1,J°:Locate1,2,“I=”:Locate9,2,I:Locate1,3,“M=”:Locate6,3,M:Locate1,4,“N=”:Locate7,4,N◢Cls:Goto1反算主程序[MN-KB]“1,2,3,4,5”?Z:?KLbl0:Fix3:?M:?N:M→E:N→QLbl1:90→A:0→BZ=1＝＞Prog“YS-1”Z=2＝＞Prog“YS-2”Z

8、=3＝＞Prog“YS-3”Z=4＝＞Prog“YS-4”Z=5＝＞Prog“YS-5”Prog“ZDYS”:Pol(E-M+×10-9,Q-N+×10-9:Isin(L-J→A:Icos(L-J→BIfAbs(A)＞0.001:ThenK+A→K