卡西歐計(jì)算器坐標(biāo)的正反算(已修改)
2025-08-29 08:49 本頁面
【正文】 線路中邊樁任意里程坐標(biāo)正、反算改編程序（CASIO fx4800）可以算任意斜交涵洞軸線的坐標(biāo)，增加T為斜交角度，規(guī)定T為涵軸右側(cè)方向與“線路前進(jìn)方向切線”之間的夾角，當(dāng)涵軸與線路正交時(shí)，T=90,其他操作與原程序一樣；1. 正算子程序(SUB1) [color=Red]A=：B=：K=：L=：F=1L：M=1K：X=U+W(Acos(G+(1/P+KWD))+Bcos(G+(1/P+LWD))+Bcos(G+(1/P+FWD))+Acos(G+(1/P+MWD)))：Y=V+W(Asin(G+(1/P+KWD))+Bsin(G+(1/P+LWD))+Bsin(G+(1/P+FWD))+Asin(G+(1/P+MWD)))：F=G+(1/P+WD)+90：X=X+Zcos(F90+T)：Y=Y+Zsin(F90+T)2. 反算子程序(SUB2)W=Abs((YV)cos(G90)(XU)sin(G90))：Z=0：Lbl 0：Prog SUB1：L=(G90)+(1/P+WD)：Z=(JY)cosL(IX)sinL：AbsZ1E6=Goto1：≠W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog SUB1：Z=(JY)247。sinF（ＳＪＫ主程序） Lb1 4： = XY： = SZ：｛NS｝：S∠下一線元起點(diǎn)里程＝＞O=本線元起點(diǎn)里程：U=本線元起點(diǎn)X：V=本線元起點(diǎn)Y：G=本線元起算方位角：H=本線元長度：P=起點(diǎn)曲率半徑：R=終點(diǎn)曲率半徑：Q=0或1：Prog“TYQXJS”： Goto0Δ←┘(第一線元數(shù)據(jù)要素)S∠下一線元起點(diǎn)里程＝＞O=本線元起點(diǎn)里程：U=本線元起點(diǎn)X：V=本線元起點(diǎn)Y：G=本線元起算方位角：H=本線元長度：P=起點(diǎn)曲率半徑：R=終點(diǎn)曲率半徑：Q=0或1： Goto0Δ←┘(第二線元數(shù)據(jù)要素)S∠下一線元起點(diǎn)里程＝＞O=本線元起點(diǎn)里程：U=本線元起點(diǎn)X：V=本線元起點(diǎn)Y：G=本線元起算方位角：H=本線元長度：P=起點(diǎn)曲率半徑：R=終點(diǎn)曲率半徑：Q=0或1： Goto0Δ←┘(第三線元數(shù)據(jù)要素)。。Goto0Δ←┘(第N1線元數(shù)據(jù)要素)。。Goto0Δ←┘(第N線元數(shù)據(jù)要素)LB1 0：D=(PR)247。(2HPR)：N=1=Goto 1：≠Goto 2Δ←┘Lbl 1：{TZ}：Z：W=Abs(SO)：Prog SUB1：XXS=X◢YYS=Y◢FFS=F90◢C“XC”：E“YC”：I=0：J=0：Pol（XC，YE）：I“I=” ◢J∠0＝＞J“J=”+360◢≠＞J“J=” ◢ΔGoto4←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog SUB2：SS=O+W◢ZZ=Z◢Goto41
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1