我的5800p測量程序及公式

zzFILE非常好用的卡西歐5800p程序一、坐標(biāo)反算 （*Y--FD）Deg:Fi*3J（換行）Lbl0J、*0=〃"A:''Y0=〃"B:''*N=〃"C:''YN=〃"DJ（換行）Pol〔〔C-A〕，（D-B）〕J<0=>J+360—Jj（換行）、JL=〃：I，、FWJ=〃：J：?DMSGoto0二、坐標(biāo)正算 （DF--*Y）Deg：Fi*3J（換行）、*0=〃"A；、Y0=〃"B：、L=〃"L：、C=〃"CJ（換行）A+Lcos（C）-*JB+Lsin（C）-YJ、*=〃：*，、y=〃：Y，三、直線段中樁、邊樁坐標(biāo)計算〔該程序從起點往終點計算〕（Z*）1、Deg：Fi*3J（換行） 設(shè)置小數(shù)保存位數(shù)2、Lbl1J程序標(biāo)簽3、''*0〃"*：''Y0=〃"Y：''K0=〃"E：''FWJ=〃"JJ賦值起點坐標(biāo)、樁號、走向方位角4、"K："L："AJ輸入所求的樁號、邊距、相對于主線的方位角〔如果只計算中樁坐標(biāo)，邊距及方位角皆為0〕5、*+（K-E）cos（J）+Lcos（J+A）—CJ 計算坐標(biāo)*6、*P=〃：C，顯示坐標(biāo)*7、Y+(K-E)sin(J)+Lsin(J+A)—DJ計算坐標(biāo)Y8、、YP=〃：D，顯示坐標(biāo)Y9、Goto1J轉(zhuǎn)向程序標(biāo)簽循環(huán)執(zhí)行計算四、圓曲線坐標(biāo)計算程序〔該程序從起點往終點計算〕(YQ*)1、Deg：Fi*3J(換行)2、Lbl0：3、'K0=〃"K:"*："Y："A："R：4、工=-1，R=+1〃："G：5、、ZS=0,FSK0〃："S：6、SK0=>Goto1J7、''Ki〃"Zj8、90(Z-K)MnR)-BJ9、2RsinB—DJ10、、*i=〃：*+Dcos〔A+GB〕-P，11、、Yi=〃：Y+Dsin〔A+GB〕-Q，12、A+180G(Z-K)XnR)-0J13、、ZBJ〃？EJ14、、*iL=〃：P+Ecos(0-90)/、、YiL=〃：Q+Esin(0-90)/.、YBJ〃？FJ17、"*iR=〃：P+Fcos(O+90)，18、"YiR=〃：Q+Fsin(O+90)，19、Goto0J20.、Lbl1：21、"*C〃"U:"YC〃"VJ22、*+Rcos(A+90G)-Mj23、Y+Rsin(A+90G)-Nj24、Pol(U-M,V-N)-Hj25、J<0=>J+360—JJ.、"PJ=〃：R-H—L，27、"*CCZ=〃:M+Rcos(J)-T，.、"YCCZ=〞:N+Rsin(J)—W，、Pol(T-*,W-Y)—ZJ.、"CZZH=〃:K+sin-1(Z：2：R)nR：90，.、Goto0說明：.設(shè)置小數(shù)保存三位。.程序03.賦值起點樁號K0，賦值起點坐標(biāo)*、Y，賦值半徑R,賦值起點走向方位角A。4.賦值曲線轉(zhuǎn)向，左轉(zhuǎn)為-1，右轉(zhuǎn)為+1。.選擇正算S=0，或反算SK0.6.如果SK0，進(jìn)入反算程序。.正算程序：輸入所求樁號Ki。.計算弦切角B。.計算弦長D。.計算中樁坐標(biāo)料并顯示。.計算中樁坐標(biāo)Yi并顯示。.計算i點走向方位角0。.輸入左邊樁距中樁的距離E。.計算左邊樁坐標(biāo)*1并顯示。.計算左邊樁坐標(biāo)YiL并顯示。.輸入右邊樁距中樁的距離F。.計算右邊樁坐標(biāo)*iR并顯示。18.計算右邊樁坐標(biāo)YiR并顯示。19.到程序0。20.反算程序1。.輸入測量坐標(biāo)禮、YC。.計算圓心*坐標(biāo)M。.計算圓心Y坐標(biāo)N。.計算圓心與測點距離H。.計算圓心到測點的走向方位角。.計算偏距PJ并顯示，正值說明測點在圓，負(fù)值說明測點在圓外。.計算垂足坐標(biāo)*久2并顯示.計算垂足坐標(biāo)YCCZ并顯示。。.計算垂足到起點弦長Z。.計算垂足樁號CZZH并顯示.到程序0。五、豎曲線高程計算程序(SQ*)1、Lbl0："LK(JD)=〃？M："H(JD)=〃？N："R=〃？R："I1=〃？I："I2=〃？J：zzoiqqA”〃二HZA”

fl”〃=HZx”O(jiān)n〃=HZXu

a”〃二(川)slHuzz=〔川〕XuNd〃二〔I〕X，〔「〕〔9NVUNVflHZ”06〃=fML〔曲HH〕皆番苴泉坤布耳鎏到劭彩卵呼期、H08。0，H—N+00lvfx(i^-q)：片H”：6NT、01T08。0，H—W—1)XX-N+00lvfx〔wt〕片H”：8iq「6T08。0，H—1)xy—N+001?IX(wt)：片h”：Lm8To”。0，H—N+001?IX(wt)：ZZ=Hn:9iqqLTpugJI:68。0osw：8o;ogu叫工：1+w*j1:￡]qr9TPugJI:￡o;og9Sjg：匕o;ogu叫工：w*j1：%【qrgTpugJI:%o;og9sjg：go;ogu叫工：[-w*JI：16〃=XL:nq「廿X%、工〃用“、￡，工一〔00ZXI—f)XR〕sqy：片工“'%fpugJIX—l-osw：XTu叫工：o<dJI：dTT"KP=〃"HAbs(H-G)-CC-CX5”(40RX2)xDX2))+CX9)X3456RX4)xDX4))-JCX3)X6RD)-CX7)X336RX3)xDX3))+CX11”(42240RX5)xDX5))-KQ+N(CX2”(2RDx(180：n))—FU+JxCos(Q)+KCos(Q+90N)—AV+JxSin(Q)+KSin(Q+90N)—BLbl1"*p=〃：A/"YP=〃：B/"QIE*IANFWJ=〃：F/Lbl2"BIANJU(m)=〃"SS=0=>Goto0LbI3"JIAJIAOL(-),R(+)=〃"EA+SCos(F+E)—米B+SSin(F+E)—YLbI4"*[1]=〃：*/"Y[1]=〃：Y/Goto2FWJ="---輸入交點間方位角ZHUAN*IANGL〔-1〕，R〔1〕=？---輸入曲線轉(zhuǎn)向，左輸-1，右輸1R〔m〕="---輸入曲線半徑LS(m)="---輸入緩和曲線長KZH="---輸入ZH點樁號*ZH="、YZH="---輸入ZH點坐標(biāo)KP="---輸入待求點樁號BIANJU(m)="---輸入邊距(斜交時輸入斜長),不管左右一律正值,當(dāng)不計算邊樁時輸入OJIAJIAOL(-),R(+)="---輸入邊樁與中樁法線方向夾角,左邊輸負(fù)值,右邊輸正值FMLA 1:Original一、施工坐標(biāo)轉(zhuǎn)測量坐標(biāo)〔AB—*Y〕*=*0+Acos〔a〕一Bsin〔a〕，Y=Y0+Asin〔a〕+Bcos〔a〕二、測量坐標(biāo)轉(zhuǎn)施工坐標(biāo)〔*Y—AB〕"(*p，yp)：［*p，Yp〕“：*p=〔*p-*0〕cos〔a〕+〔yp-y0〕sin〔a〕，Yp=(yp-y0)cos〔a〕-〔*p-*0〕sin〔a〕三、弧長公式〔HCGS〕L=(nxRxJ°)