▓菲彩彩票官网▓赔率最高,提款速度最快。菲彩彩票专注彩票经营10余年,信誉口碑业界驰名;在我们菲彩彩票聊天室玩家每天可领取现金红包!我们[菲彩彩票]将给您提供一个安全/稳定/秒速的彩票平台!...

                  
                  

                        
                        

                                          新聞分類
                                          新聞中心

                                          卡西歐5800曲線測量自動程序

                                          作者:詹秋林來源:紅星儀器 日期:2013年1月30日 10:02

                                           

                                          卡西歐5800曲線測量自動程序(僅供參考)

                                          CIRLAY (主運算程序)

                                          1→WLOAD?W :IF W=1:THENZJ?A: R?B: L0?C: ZH KM?D: JDX?E: JDY?F: A0?G: 1 R,-1 L?H:IFEND

                                           

                                          OPP NAME?Q: IF Q=1:THEN X0?U: Y0?V:ELSE ProgCON DAT: IFEND

                                           

                                          Lb1 1:DK+M?Z:IF W1:THEN ProgCIR DAT: IFEND

                                           

                                          M=Z-DM: ProgCENTER

                                           

                                          X=”:X

                                          Y=”:Y

                                          WL?O:IF O=2:THEN  OUT L?L:OUT ANGLER:XW=:X+LCos(P+R)→X

                                          YW=:Y+L Sin(P+R)→Y

                                          ENDIF

                                           

                                          W-QH?K:IF K=3:THENQH L?S:OUT ANGLE?T:XW=:X+SCos(P+R+T+180)→X

                                          YW=:Y+SSin(P+R+T+180)→Y

                                          ENDIF

                                           

                                          FW=:PDMS

                                          Pol(X-U,Y-V)

                                          IF JO:THEN J=J+360: ENDIF

                                           

                                          J=:JDMS

                                          L=:I◢

                                          Goto 1

                                           

                                           

                                          CENTER  (子程序)

                                          3→DimZ:(ABл)÷180+C→Z[1]:C2÷(24B)-C4÷(1688B3)→Z[2]:(B+Z[2])Tan(A÷2)+C÷2-C3÷(240B2)→Z[3]:-1→N:IF MZ[1]-C:THEN Z[1]-M→M: 1→N:IFEND

                                           

                                          IF M≤0:THEN M→X:0→Y:0→P: Goto 1: IFEND

                                           

                                          IF M≤C:THEN M-M5÷(40B2C2)→X :M3÷(6BC)-M7÷(336×B3×C3)→Y:90M2÷(ЛBC)→P: Goto 1:IFEND

                                           

                                          IF M≤Z[1]-C:THEN 180(M-C)÷(ЛB)+90C÷(ЛB)→P:BSin(P)+C÷2-C3÷(240B2)→X :B(1- Cos (P))+Z[2]→Y: IFEND

                                           

                                          Lb1 1:IF N=1:THEN A-P→P:X→I:Y→J:Z[3]+(Z[3]-I) Cos (A)-J Sin( A)→X:(Z[3]-I) Sin (A)+J Cos(A)→Y: IFEND

                                          X→I:HY→J:E+Z[3]Cos(180+G)+ICos(G)-JSin(G)→X:Y=F+Z[3]Sin(180+G)+ISin(G)+JCos(G)→Y:G+HP→P

                                           

                                           

                                          CIR DAT(子程序 曲線要素庫)

                                          IF W=交點號:THEN  轉向角→A:半徑→B:緩和曲線長→C:直緩點里程→D:交點X坐標→E:交點Y坐標→F:切線方位角→G:左或右偏(1,-1)→H:GOTO1:IFENG

                                               (一直將曲線要素數據輸入完)

                                          Lb1 1

                                           

                                           

                                          CON DAT (子程序 導線控制點庫)

                                          IF Q=編號(自定):THEN U=導線控制點X坐標:V=導線控制點Y坐標

                                                (一直將導線控制點數據輸入完)

                                           

                                          主程序運用(CIRLAY)

                                          LOAD?

                                          當為交點號時,調用數據庫;當為1時,手動輸入。

                                          OPP NAME?

                                          輸入控制點編號;當為1時,手動輸入測站點坐標。

                                          DK+M?

                                          輸入待測點里程

                                          WL?

                                          當為2時,計算外移值。

                                          OUT L?

                                          輸入外移值平距,距離用正負判斷左右(左為-,右為+

                                          OUT ANGLE?

                                          輸入外移值與線路中心夾角(右角值)

                                          Q-QH?

                                          當為3時,計算外移值。

                                          QH L?

                                          輸入外移值平距,距離用正負判斷左右(左為-,右為+

                                          OUT ANGLE?

                                          輸入右角值

                                           

                                          所屬類別: 行業動態

                                          該資訊的關鍵詞為:卡西歐5800曲線測量自動程序 

                                          菲彩彩票 菲彩网址 菲彩官网 菲彩国际官网 网上购彩平台 网上购彩平台 菲彩官网 菲彩官网