Fx5800計算器程序?qū)ΨQ平曲線

1、實用標(biāo)準(zhǔn)文案Fx-5800計算器程序一、程序名稱：B-D-PQX時稱平曲線)ProgZJZB: A?7 A: R？7R:LS？7L:JDL?7N:JX？7U:“JY?2-V :F ? 7 F :180/ 兀 /R Z:ZL/2 f B: L /24/R-LA(4)/2688/RA(3)+LA(6)/506880/RA(5)一P:L/2-LA(3)/240/RA(2)+LA(5)/34560/RA(4)- Q“T= :(R+P)tan(Abs(A)+Q TA“L= :(Abs(A)-2B)/Z+2L -oA“E=(R+P)/Cos(Abs(A/2)-R -EAZH= :N-TEAHY= :E+L

2、Z1QZ= :E+o/2 Z2YH= :E+o-L-Z3“HZ= ：E+oZ4Lbl 8:“XL ？-M:Prog ZBJS :Goto 8二、子程序：ZBJS180/ 兀 /R f Z:ZL/2 B: LA(2)/24/R-LA(4)/2688/RA(3)+LA(6)/506880/RA(5) 一P:L/2-LA(3)/240/RA(2)+LA(5)/34560/RA(4)- Q文檔實用標(biāo)準(zhǔn)文案(R+P)tan(Abs(A)+Q T(Abs(A)-2B)/Z+2L o(R+P)/Cos(Abs(A/2)-R EN-TEE+LZ1E+o/2Z2E+o-L-Z3E+gZ40W:gY:If MK

3、E:Then M-DX:Goto 3:IfEnd:IfMK Z1：Then Goto 1:IfEnd:IfMKZ3:Then Goto 2:IfEnd:IfMKZ4:Then Goto 1:IfEnd: If MZ4:ThenZ4-MX:Goto 3:IfEndLbI 1:If M w Z 1 :Then M-E G:EIse Z 4 -M f G:IfEnd: G-GA(5)/(40RA(2)L(2)+G(9)/3456/(RLr(4)7X:GA(3)-(6RL)-GA(7)/(336RA(3)LA(3)+GA(11)/42240/(RL)A(5)- Y:ZGA(2)/2/LW:Goto 3

4、LbI 2:M- Z 1 G:RSin(B+GZ)+8X:R-RCos(B+GZ)+PY:B+ZGWLbI 3:If M AZ3:Then F+AC:If A 0:Then C+90 - D:IfEnd:EIse C-90 -D:IfEnd:EIse F+180 -C:If A 0:Then F+90 - D:EIse F-90 - D: IfEnd: IfEnd文檔實用標(biāo)準(zhǔn)文案X= :U+(T-X)Cos(C)+YCos(D) - Z7Y= : V+(T-X)Sin(C)+Y Sin(D)-Z8Z7 Z5: Z 8Z6：Prog JLbl 4: B/ ?S:If M Z3:Then Goto

5、 5:EIse Goto 6:IfEndLbI 5:F C:If A 0:Then -WW:EIse WW:IfEndLbI 7: X= :Z7+SCos(C+W+9印Z5“Y= ：Z8+SSin(C+W+90戶Z6Prog J三、子程序：JI=PoI(Z 5-H, Z 6-K):If J 輸入后視點X坐標(biāo)HY ?輸入后視點 Y坐標(biāo)ZX?輸入置儀點X坐標(biāo)ZY ?輸入置儀點 Y坐標(biāo)F=顯示置儀點至后視點方位角 D=顯示置儀點至后視點水平距離A?輸入偏角左-右“+R輸入平曲線半徑LS輸入緩和曲線長度JDL輸入平曲線交點里程JX輸入交點X坐標(biāo)JY輸入交點 Y坐標(biāo)F輸入起邊方位角T=顯示平曲線切線長度

6、文檔實用標(biāo)準(zhǔn)文案L=顯示平曲線曲線長度E=ZH=-顯示直緩點里程HY=QZ=-顯示曲中點里程HZ=XL?輸入放樣點里程X=Y=顯示放樣點中樁Y坐標(biāo)F=D=-顯示置儀點至放樣點距離BZ ?樣左側(cè)10m輸入-10,右側(cè)8m那么輸入8顯示平曲線外距值-顯示緩圓點里程-顯示緩直點里程顯示放樣點中樁X坐標(biāo)顯示放樣方位角-輸入邊距左“-右+,例如：放X=顯示邊樁X坐標(biāo) Y=顯示邊樁Y坐標(biāo)F=顯示放樣方位角D=顯示置儀點至邊樁距離XL?輸入下一個放樣點里程,從而至使程序循環(huán)運行.例如：JD20曲線要素：交點里程：K18+494.346 交點X坐標(biāo)：2330.436 交點Y坐標(biāo)：54893.459 半徑R:

7、150緩和曲線LS長度：65曲線偏角：右轉(zhuǎn)55 47 24起邊方位角F: 27544 30置儀點:X=2474.344 Y=54806.836后視點：X=2348.293 Y=54912.880HX 輸入 2348.293 HY ? 輸入 54912.880文檔實用標(biāo)準(zhǔn)文案ZX 輸入 2474.344 ZY 輸入 54806.836F=顯示 139 55 37D= 顯示 164.725A 輸入55 47 24R 輸入150LS 輸入65JDL 輸入494.346JX輸入 2330.436 JY 輸入 54893.459F輸入 275 44 30T= 顯示 112.474L=顯示211.058E

8、= 顯示21.046ZH=-顯示 381.872HY= 顯示 446.872QZ=-顯示 487.401 YH=顯示 527.930 HZ=顯示 592.930顯示 2316.996 Y=D= 顯示270.718顯示 55026.631 F=輸入360X=顯示 125-32-12 D=顯示 2321.971 Y=顯示 268.269 XL XL輸入360 X=F=顯示 125 32 12X=顯示 2312.021 Y=D=-顯示 273.237 XL?Y=顯示 55027.131 F=BZ輸入5 X=F=顯示 124-36-36 D=顯示55027.131BZ 輸入-5顯示126-26-48顯

9、示2316.996顯示270.718顯示55027.631輸入下一個里程循環(huán)運文檔實用標(biāo)準(zhǔn)文案行XL? 400X=2321.099Y=54987.342F=130-19-50D=236,784XL? 480X=2344.012Y=54911.378F=141-15-58D=167,079XL? 560X=2400.661Y=54856.075F=146-14-50D=88,621BZ?一右 5mX=2326.064Y=54987.926F=129-18-40D=234.053X=2316.133Y=54986.758F=131-19-34D=239.589BZ?一右 5mX=2348.307Y

10、=54913.939F=139-38-35D=165.398X=2339.718Y=54908.817F=142-51-20D=168,891文檔BZ?一左 5mBZ?一左 5mBZ ?一右 5mBZ ?一左 5mX=2403.285X=2398.037Y=54860.331Y=54851.819F=143-01-36F=149-28-51D=88.944D=88,579實用標(biāo)準(zhǔn)文案XL? -600BZ ?一右 5mBZ ?一左 5mX=2435.524Y=54836.476F=142-38-14D=48,842X=2437.908Y=54840.871F=136-57-05D=49,860X

11、=2433.141Y=54832.081F=148-30-17D=48,322JD21曲線要素：交點里程：K18+928.675 交點X坐標(biāo)：2724.458 交點Y坐標(biāo)：54679.804 半徑R: 150緩和曲線LS長度：65曲線偏角：左轉(zhuǎn)75 50 21起邊方位角F: 33131 54置儀點:X=2474.344 Y=54806.836 后視點：X=2348.293 Y=54912.880HX輸入 2348.293HYZX輸入 2474.344ZYF=顯示 139 55 37A 輸入-75 50 21LS?輸入65JDL? 輸入 54912.880?輸入 54806.836D=顯示164

12、.725R ?輸入150?輸入928.675文檔實用標(biāo)準(zhǔn)文案JX?輸入 2724.458JY?輸入 54679.804F?輸入331 3154T=顯示 150.216L=顯示263.547E=顯示41.630ZH=-顯示 778.459HY=顯示 843.459QZ=-顯示 910.232YH顯示 977.005 HZ=顯示 1042.005XL?輸入760X=顯示 2576.179 Y=顯示 54760.207F=顯示335 2351D=顯示112.003 BZ ?輸入-5X=顯示2573.796Y=顯示 54755.812 F=顯示 332-50-23D=顯示111.777XL?輸入760

13、 X=顯示 2576.179Y=顯示54760.207 F=顯示335-23-51 D=顯示 112.003BZ?輸入5 X=顯示2578.563 Y=顯示 54764.602F=顯示 337-56-25 D=顯示112.451 XL ?輸入下一個里程循環(huán)運行XL? 800BZ?一右5mBZ?一左 5mX=2611.260X=2613.747X=2608.773Y=54740.990Y=54745.328Y=54736.653文檔實用標(biāo)準(zhǔn)文案F=334-18-58D=151,926XL? 900X=2681.899Y=54672.358F=327-03-37D=247,312XL? 1000X

14、=2696.480Y=54575.230F=313-48-15D=320,914XL? 1100X=2673.004Y=54478.051F=301-08-29F=336-11-30F=332-25-54D=152.370D=151,647BZ?一右 5mX=2686.333Y=54674.669F=328-03-29D=249,815X=2677.465Y=54670.048F=326-02-33D=244,886BZ ?一右 5m BZX=2701.416Y=54574.437F=314-20-09D=324,917X=2691.543Y=54576.022F=313-15-34D=316

15、.939BZ ?一右 5m BZX=2677.849Y=54476.816F=301-39-35X=2668.159Y=54479.287F=300-36-48文檔BZ?一左 5m?一左 5m?一左 5m實用標(biāo)準(zhǔn)文案D=384,142D=387,721D=380.595對稱平曲線可建立數(shù)據(jù)庫一、程序名稱：A-D-LCP1、假設(shè)該標(biāo)段有7個交點的程序建立：30-DimZ:HX?Z5:“HY?Z6：ZX？-H:ZY？ K:Prog JLbl 9: “XL ？-M:If MK400:Then Prog “JD1 ：EIse If MK 600:Then Prog “JD2 ：EIse If MK 8

16、00:Then Prog “JD3 ：EIse If MK 980:Then Prog “JD4：EIse If MK 1200:Then Prog “ JD5 :EIse If M 1500:Then Prog “ JD6 :EIse Prog “JD7 :IfEnd:IfEnd:IfEnd:IfEnd:IfEnd: IfEnd:Goto92、假設(shè)該標(biāo)段有9個交點的程序建立：30-DimZ:HX?Z5:“HY?Z6：ZX？-H:ZY？ K:Prog JLbI 9: “XL ？-M:If MK400:Then Prog “JD1 ：EIse If MK 600:Then Prog “JD2 :

17、EIse If MK 800:Then Prog “JD3 ：EIse If MK 980:Then Prog “JD4：EIse If MK 1200:Then Prog “JD5 :EIse If MK 1500:Then Prog “JD6 ：EIse If MK 1800:Then Prog JD7 : EIse If M 2000:ThenProg “ JD8 :EIse Prog“JD9 :IfEnd:IfEnd:IfEnd:IfEnd:IfEnd: IfEnd: IfEnd: IfEnd:Goto93、假設(shè)該標(biāo)段有11個交點的程序建立：30-DimZ:HX?Z5:“HY?Z6：Z

18、X？-H:ZY？ K:Prog J文檔實用標(biāo)準(zhǔn)文案LbI 9: “XL ？-M:If M400:Then Prog “JD1 ：EIse If M 600:Then Prog “JD2 :EIse If MK 800:Then Prog “JD3：EIse If M 980:Then Prog “JD4：EIse If M 1200:Then Prog “JD5 :EIse If MK 1500:Then Prog “JD6 ：EIse If M 1800:Then Prog JD7 : EIse If Me 2000:Then Prog aJD8 : EIse If M 2130:Then

19、Prog JD9 : EIse If M 2200:Then Prog JD10 :EIse Prog “ JD11 ： IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd: IfEnd: IfEnd: IfEnd: IfEnd :Goto9說明：1、根據(jù)上述三種情況可根據(jù)實際情況對該程序A-D-LCP進(jìn)行局部根改,紅色局部是可以進(jìn)行修改的.例如：“MK400中400代表的是JD1與JD2之間直 線段上的樁號,“JD1JD11要進(jìn)行根改時除非數(shù)據(jù)庫中名稱發(fā)生改變.2、“IfEnd 的個數(shù)取決于交點個數(shù),例如：有7個交點結(jié)尾時必須有6個“IfEnd ; 有9個交點時結(jié)尾必須有

20、8個“IfEnd :有11個交點時必須有10個“IfEnd .3、該程序最多可存儲17個交點,假設(shè)交點太多可有兩個或兩個以上同樣的程序進(jìn)行 存儲.4、程序完成運行正確后,在交點范圍內(nèi)任意點樁號都可以進(jìn)行放樣,免除了每次測 量時都需輸入曲線要素這一個環(huán)節(jié).5、程序名為：“ZBJ0的程序也是該程序的一個子程序.6、在路線中有斷鏈時,需根據(jù)斷鏈位置來確定M值.二、數(shù)據(jù)庫的建立：子程序文檔實用標(biāo)準(zhǔn)文案1、根據(jù)施工設(shè)計圖可得知的曲線要素如下：JD1的曲線要素：交點里程：K0+247.815交點 X坐標(biāo)：2579154.343 交點 Y坐標(biāo)：906527.4114半徑R: 160緩和曲線LS長度：0 曲線

21、偏角：右轉(zhuǎn) 38 33 08起邊方位角F: 346 28 01JD2的曲線要素：交點里程：K0+501.097交點 X坐標(biāo)：2579387.714 交點 Y坐標(biāo)：906636.3292半徑0:600緩和曲線LS長度：0曲線偏角：右轉(zhuǎn)5 46 00起邊方位角F: 2501, 09JD3的曲線要素：交點里程：K0+659.124交點 X坐標(biāo)：2579523.517 交點 Y坐標(biāo)：906717.2384半徑R: 300緩和曲線LS長度：0 曲線偏角：右轉(zhuǎn)18 06 23起邊方位角F: 30 47 09JD4的曲線要素：交點里程：K0+904.132交點 X坐標(biāo)：2579685.128 交點 Y坐標(biāo)：

22、906902.4459半徑0:90緩和曲線LS長度：0曲線偏角：右轉(zhuǎn)41 30 18起邊方位角F: 48 53 32JD5的曲線要素：文檔實用標(biāo)準(zhǔn)文案交點里程：K1+097.035 交點 X坐標(biāo)：2579683.770 交點 Y坐標(biāo)：907098.3531半徑FR:60緩和曲線LS長度：0曲線偏角：左轉(zhuǎn)52 01 57起邊方位角F: 9023 50JD6的曲線要素：交點里程：K1+429.804 交點X坐標(biāo)：2579947.887交點Y坐標(biāo)：907307.425半徑R: 150緩和曲線LS長度：0曲線偏角：右轉(zhuǎn)37 23 24起邊方位角F: 38 21 53JD7的曲線要素：交點里程：K1+5

23、86.834 交點 X坐標(biāo)：2579987.421 交點 Y坐標(biāo)：907463.1432半徑R: 150緩和曲線LS長度：0曲線偏角：左轉(zhuǎn) 41 49 53起邊方位角F: 75 45 17JD8的曲線要素：交點里程：K1+958.991 交點 X坐標(biāo)：2580300.496 交點 Y坐標(biāo)：907673.7074半徑R: 700緩和曲線LS長度：0 曲線偏角：右轉(zhuǎn) 6 08 01起邊方位角F: 33 55 23JD9的曲線要素：交點里程：K2+092.249 交點 X坐標(biāo)：2580402.547 交點 Y坐標(biāo)：907759.5081半徑R: 200緩和曲線LS長度：0曲線偏角：左轉(zhuǎn)12 36 0

24、7起邊方位角F: 40 03 24文檔實用標(biāo)準(zhǔn)文案JD10的曲線要素:交點里程：K2+174.864交點 X坐標(biāo)：2580476.0163 交點 Y坐標(biāo)：907797.6801半徑R: 150緩和曲線LS長度：0曲線偏角：右轉(zhuǎn)17 57 44起邊方位角F: 27 27 17JD11的曲線要素:交點里程：K2+259.136 交點 X坐標(biāo)：2580535.4428 交點 Y坐標(biāo)：907857.9781半徑R: 100緩和曲線LS長度：0曲線偏角：左轉(zhuǎn) 31 11 28起邊方位角F: 45 25 012、子程序建立：數(shù)據(jù)庫子程序：JD13833 8 f A:160 R:0fL:247.815 7

25、N:2579154.3437U:906527.4114 fV:346 28 1 f F:ProgZBJS子程序：JD25 46 0 f A:600R:0fL:501.097 7 N:2579387.714 7U:906636.3292 7V:251 9 F:Prog“ZBJW子程序：JD318 6 23 f A:300R:0fL:659.124 7 N:2579523.517 7U:906717.23847V:3047 9 f F:ProgZBJS文檔實用標(biāo)準(zhǔn)文案子程序：JD441 30 18 f A:90-R:0fL:904.132 7 N:2579685.128 7U:906902.44597V: 48 53 32 f F:Prog ZBJS子程序：JD5-52 1 57 f A:60-R:0fL:1097.035 7 N:2579683.77 7U:907098.3531 7V: 9023 50 f F:Pr