我的p測量程序及公式

1、FILE非常好用的卡西歐5800p程序一、坐標(biāo)反算 (XY-FD)Deg： Fix 3 (換行)Lbl 0X0=?A:Y0=?B:XN=?C:YN=?D(換行)Pol（C-A）,(D-B)）J0J+360J(換行)JL=：I FWJ=：J：DMSGoto 0二、坐標(biāo)正算 (DF-XY)Deg： Fix 3 (換行)X0=?A；Y0=?B：L=?L：C=?C(換行)A+Lcos(C)X B+Lsin(C)YX=：X Y=：Y三、直線段中樁、邊樁坐標(biāo)計(jì)算（該程序從起點(diǎn)往終點(diǎn)計(jì)算）(ZX)1、Deg： Fix 3 (換行) 設(shè)置小數(shù)保留位數(shù)2、Lbl 1 程序標(biāo)簽3、X0?X：Y0=?Y：K0=?E

2、：FWJ=?J賦值起點(diǎn)坐標(biāo)、樁號(hào)、走向方位角4、?K：?L：?A 輸入所求的樁號(hào)、邊距、相對(duì)于主線的方位角（如果只計(jì)算中樁坐標(biāo)，邊距及方位角皆為0）5、X+(K-E)cos(J)+Lcos(J+A)C 計(jì)算坐標(biāo)X6XP=：C 顯示坐標(biāo)X7、Y+(K-E)sin(J)+Lsin(J+A)D 計(jì)算坐標(biāo)Y8、YP=：D 顯示坐標(biāo)Y9、Goto 1 轉(zhuǎn)向程序標(biāo)簽循環(huán)執(zhí)行計(jì)算四、圓曲線坐標(biāo)計(jì)算程序（該程序從起點(diǎn)往終點(diǎn)計(jì)算） (YQX)1、 Deg： Fix 3 (換行)2、 Lbl 0：3、 K0=?K：?X：?Y：?A：?R：4、 L=-1，R=+1：?G：5、 ZS=0，F(xiàn)S0：?S：6、 S0 =

3、Goto 17、 Ki?Z8、 90(Z-K)(R)B9、 2RsinBD 10、Xi=：X+Dcos（A+GB）P11、Yi=：Y+Dsin（A+GB）Q12、A+180G(Z-K)(R)013、ZBJ？E14、XiL=:P+Ecos(0-90) 15、YiL=:Q+Esin(0-90) 16. YBJ？F17、 “XiR=”:P+Fcos(O+90)18、 “YiR=”:Q+Fsin(O+90)19、 Goto 020.、Lbl 1：21、 “XC”?U: “YC”?V22、X+Rcos(A+90G)M23、Y+Rsin(A+90G)N24、 Pol(U-M,V-N)H25、J0 =J+3

4、60J26.、“PJ=”:R-HL27、 “XCCZ=”: M+Rcos(J)T28.、“YCCZ=”: N+Rsin(J)W29 、Pol(T-X,W-Y) Z30.、“CZZH=”: K+sin-1(Z2R)R9031.、Goto 0說明：1.設(shè)置小數(shù)保留三位。2.程序03.賦值起點(diǎn)樁號(hào)K0，賦值起點(diǎn)坐標(biāo)X、Y，賦值半徑R,賦值起點(diǎn)走向方位角A。4.賦值曲線轉(zhuǎn)向，左轉(zhuǎn)為-1，右轉(zhuǎn)為+1。5.選擇正算S=0，或反算S0.6.如果S0，進(jìn)入反算程序。7.正算程序：輸入所求樁號(hào)Ki。8.計(jì)算弦切角B。9.計(jì)算弦長D。10.計(jì)算中樁坐標(biāo)Xi并顯示。11.計(jì)算中樁坐標(biāo)Yi并顯示。12.計(jì)算i點(diǎn)走向方

5、位角O。13.輸入左邊樁距中樁的距離E。14.計(jì)算左邊樁坐標(biāo)XiL并顯示。15.計(jì)算左邊樁坐標(biāo)YiL并顯示。16.輸入右邊樁距中樁的距離F。17.計(jì)算右邊樁坐標(biāo)XiR并顯示。18.計(jì)算右邊樁坐標(biāo)YiR并顯示。19.到程序0。20.反算程序1。21.輸入測量坐標(biāo)XC、YC。22.計(jì)算圓心X坐標(biāo)M。23.計(jì)算圓心Y坐標(biāo)N。24.計(jì)算圓心與測點(diǎn)距離H。25.計(jì)算圓心到測點(diǎn)的走向方位角。26.計(jì)算偏距PJ并顯示，正值說明測點(diǎn)在圓內(nèi)，負(fù)值說明測點(diǎn)在圓外。27.計(jì)算垂足坐標(biāo)XCCZ并顯示28.計(jì)算垂足坐標(biāo)YCCZ并顯示。29.計(jì)算垂足到起點(diǎn)弦長Z。30.計(jì)算垂足樁號(hào)CZZH并顯示31.到程序0。五、豎曲線

6、高程計(jì)算程序 (SQX)1、 Lbl 0：“LK(JD)=”？M：“H(JD)=”？N：“R=”？R：“I1=”？I：“I2=”？J：I-JP：If P0：Then 1K：Else -1K If End2、“T=”：Abs （R(JI)200）T3、“E=”T2RE4、Lbl 1：“LK=”？L：If LM-T：Then Goto 6：Else Goto 2：If End5、Lbl 2：If LM：Then Goto 7：Else Goto 3：If End6、Lbl 3 ：If LMT：Then Goto 8：Else Goto 9：If End7、Lbl 6：“H=”：(L-M)I100N

7、H Goto 08、Lbl 7：“H=”：(L-M)I100NK(LMT)2RH Goto 09、Lbl 8：“H=”（L-M）J100N-K(LMT)2RH Goto 010、 Lbl 9：“H=”：(L-M)J100NH Goto 0六、緩和曲線段內(nèi)任意點(diǎn)坐標(biāo)計(jì)算程序（HHQX）“FWJ=”？Q“ZHUAN XIANG L（-1），R（1）=”？N“R（m）=”?R“LS(m)=”?D“KZH=”?G“XZH=”?U“YZH=”?VLbI 0“KP=”?HAbs(H-G)CC-C(5)(40R(2)D(2)+C(9)(3456 R(4)D(4) JC(3)(6RD)-C(7)(336R(3

8、)D(3)+C(11)(42240R(5)D(5) KQ+N(C(2)(2RD(180) FU+JCos(Q)+K Cos(Q+90N) AV+JSin(Q)+K Sin(Q+90N) BLbI 1“XP=”：A “YP=”：B “QIEXIANFWJ=”：F LbI 2“BIAN JU(m)=”?SS=0Goto 0LbI 3“JIA JIAOL(-),R(+) =”?EA+S Cos(F+E) XB+S Sin(F+E) YLbI 4“X1=”：X “Y1=”：Y Goto 2 FWJ=?-輸入交點(diǎn)間方位角ZHUAN XIANG L（-1），R（1）=？-輸入曲線轉(zhuǎn)向，左輸-1，右輸1R（

9、m）=?-輸入曲線半徑LS(m)=?-輸入緩和曲線長KZH=?-輸入ZH點(diǎn)樁號(hào)XZH=? 、YZH=?-輸入ZH點(diǎn)坐標(biāo)KP=?-輸入待求點(diǎn)樁號(hào)BIAN JU(m)=?-輸入邊距(斜交時(shí)輸入斜長),不論左右一律正值,當(dāng)不計(jì)算邊樁時(shí)輸入OJIA JIAOL(-),R(+) =?-輸入邊樁與中樁法線方向夾角,左邊輸負(fù)值,右邊輸正值FMLA-1:Original一、 施工坐標(biāo)轉(zhuǎn)測量坐標(biāo)（ABXY） X=X0+Acos（）Bsin（）Y=Y0+Asin（）+Bcos（）二、測量坐標(biāo)轉(zhuǎn)施工坐標(biāo)（XYAB） “(xp，yp)：（Xp，Yp）”：Xp=（xpx0）cos（）+（ypy0）sin（）Yp =(ypy0)cos（）（xpx0）sin（）三、弧