當前位置:首頁 » 編程軟體 » 5800編程

5800編程

發布時間: 2023-02-04 03:16:48

❶ 5800計算器編程直接跳過結果是什麼原因

1、在計算器的左上方按下「SHIFT」,具體如圖所示。 2、然後再在計算器的右上方按下「MODE」,具體如圖所示。 3、兩個按鍵按下之後就會出現以下的界面選項,其中「1:MthI0」是表示以分數格式顯示,「2:LineI0」則是表示以線性格式即小數形式顯示,鑒於一直出現分數形式的計算結果,可以知道計算機此時應選擇了「1:MthI0」,具體如圖所示。 4、在計算機界面下按代表小數格式的「2」,具體如圖所示。 5、計算機轉換成小數形式,具體如圖所示。

❷ 卡西歐5800編程小寫的i怎麼輸

按「shift」鍵,再按「setup」鍵,再按向下方向鍵,然後選擇「5」,再選擇「1」,就能輸「freqon」字元了。
由於5800隻在用戶公式模式下才能輸入英文小寫字母、希臘文大、小字母及數字字元下標,在程序模式只能輸入大寫英文字母,估計程序中某些用作提示字元的小寫字母或特殊字元是用其他字元代替的。
按「mode",然後按「1」,進入comp模式,按「function",按"6",按「1」,按「exe",鍵執行clrstat命令清除統計存儲器。

❸ 學習卡西歐5800計算器編程學習首先該了解什麼,學習什麼

學習5800計算器編程的基礎:1、初等數學和高等數學基本知識(曲線特徵、線性、矩陣);

2、建立計算模型,把測量上具體的一個問題抽象化,找出共同特點,建立相應的數學模型; 3、解算數學方程;

❹ 卡西歐5800編程計算器基礎

給你個網站 http://www.celiang.net/celiang/article_list.asp?c_id=48&s_id=249 裡面全是卡西歐FX-5800的程序 至於你說的什麼基本方法、是指開機後怎麼進入編程界面么?5800開機後按MODE鍵選5→進入後再選1→輸入程序名稱→點EXE開始編程,程序語言在FUNCTION下拉菜單中能找到、SHIFT+MODE鍵里有前綴名稱、你可以用筆記本把FUNCTION下面的每一個代碼記住、使用久了就熟悉了、我以前也這樣、而且我還沒解除過編程(現在一樣),但使用卡西歐的計算器還是得心應手的、希望能幫助到你、(我給的那個網站是土木工程的、也不知道你是不是同行)

❺ CASIO5800計算機編程

一、 坐標計算源程序
1.主程序(TYQXjs)
"1.SZ => XY":"2.XY => SZ":N:U"X0":V"Y0":O"S0":G"F0":H"LS":P"R0":R"RN":Q:C=1÷P:D=(P-R)÷(2HPR):E=180÷π:N=1=>Goto 1:≠>Go to 2Δ←┘
Lbl 1:{SZ}:SZ:W=Abs(S-O):Prog "SUB1":X"XS"=X◢
Y"YS"=Y◢
Goto 1←┘
Lbl 2:{XY}:XY:I=X:J=Y:Prog "SUB2":S"S"=O+W◢
Z"Z"=Z◢
Goto 2

2. 正運算元程序(SUB1)
A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:M=1-K:X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))):Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))):
F=G+QEW(C+WD)+90:
X=X+ZcosF:Y=Y+ZsinF
3. 反運算元程序(SUB2)
T=G-90:W=Abs((Y-V)cosT-(X-U)sinT):Z=0:Lbl 0:Prog "SUB1":L=T+QEW(C+WD):Z=(J-Y)cosL-(I-X)sinL:AbsZ<1E-6=>Goto1:≠>W=W+Z:Goto 0Δ←┘
Lbl 1:Z=0:Prog "SUB1":Z=(J-Y)÷sinF
二、使用說明
1、規定
(1) 以道路中線的前進方向(即里程增大的方向)區分左右;
當線元往左偏時,
Q=-1;當線元往右偏時,Q=1;當線元為直線時,Q=0。
(2) 當所求點位於中線時,Z=0;當位於中線左鍘時,Z取負值;
當位於中線中線右側時,Z取正值。
(3) 當線元為直線時,其起點、止點的曲率半徑為無窮大,以
10的45次代替。
(4) 當線元為圓曲線時,無論其起點、止點與什麼線元相接,其曲率
半徑均等於圓弧的半徑。
(5) 當線元為完整緩和曲線時,起點與直線相接時,曲率半
徑為無窮大,以10的45次代替;與圓曲線相接時,曲率半
徑等於圓曲線的半徑。止點與直線相接時,曲率半徑為無窮大,
以10的45次代替;與圓曲線相接時,曲率半徑等於圓曲線的半徑。
(6) 當線元為非完整緩和曲線時,起點與直線相接時,曲率半徑等於設計規定的值;
與圓曲線相 接時,曲率半徑等
於圓曲線的半徑。止點與直線相接時,曲率半徑等於設計規定的值;與圓曲
線相接時,曲率半徑等於圓曲線的半徑。
2、輸入與顯示說明
輸入部分:
1. SZ => XY
2. XY = > SZ
N ? 選擇計算方式,輸入1表示進行由里程、邊距計算坐標 ;輸入2
表示由坐標反算里程和邊距。
X0 ?線元起點的X坐標
Y0 ?線元起點的Y坐標
S0 ?線元起點里程
F0 ?線元起點切線方位角
LS ?線元長度
R0 ?線元起點曲率半徑
RN ?線元止點曲率半徑
Q ? 線 元左右偏標志(左偏Q=-1,右偏Q=1,直線段Q=0)
S ? 正算時所求點的里程
Z ?正算時所求點距中線的邊距(左側取負,值右側取正值,
在中線上取零)
X ?反算時所求點的X坐標
Y ?反算時所求點的Y坐標
顯示部分:
XS=××× 正算時,計算得出的所求點的X坐標
YS=××× 正算時,計算得出的所求點的Y坐標
S=××× 反算時,計算得出的所求點的里程
Z=××× 反算時,計算得出的所求點的邊距

❻ 卡西歐5800計算器的詳細編程

其實就是將公式代碼化,然後設定參數和計算步奏,最後加以整合,進行運算,一般最簡單的,編程步奏就是1、設定參數(單位、小數位、資料庫建立)2、設定計算式,顯示結尾(回車結尾不顯結果、直角三角顯結果)3最後以END結束,這是基本的,往後就相應的添加就行了
我以ABC,給你講一下,要算A+B=C,在計算器中就輸入
FiX
3:"A="?A:"B="?B↙
"C=":A+B->C◢
"END"↙

❼ 卡西歐5800計算器的編程語言有哪些

你是想了解函數吧

1.
Norm 1 指數顯示
Norm 2 小數顯示

2.
?→x 只顯示 ?
字元+?→x 顯示 字元+?

?x 顯示 x?
「字元」?x 顯示 字元+?

有→則不顯示該變數當前值

3.(判斷表達式) 語句1 : 語句2。。。
如果判斷表達式為真(或非零),則不跳過語句1.
如果判斷表達式為假(或是零),則會跳過語句1.

4. If...then…else…ifend

如果語句為真,則執行then(不執行else),然後執行ifend.
如果語句為假,則執行else(不執行then),然後執行ifend.

5. Break 中斷語句

中斷For,Do,While循環,並從該循環的下個命令起繼續運行

6. Dsz

使控制變數遞減一,在變數的值為零時執行轉移

7. Isz
Isz<變數>:<語句1> <語句2>,變數應為A~Z
以 1 為增量逐次增加變數的值,當變數的值不等於0 時,執行語句1,否則執行語句2

8. Cls
Dsz<變數>:<語句1> <語句2>。變數應為A~Z。
以1 為減量逐次減小變數的值,當變數的值不等於0 時,執行語句1,否則執行語句2
9. Locate 定位顯示語句

句法 1:Locate <列數>, <行數>,<數值>
句法2:Locate <列數>, <行數>,<表達式>
句法3:Locate <列數>, <行數>, "字元串"
fx-5800P 的屏幕最多可以顯示4 行、16 列字元,因此定位語句中的列數值應為大於等於1、小於等於16 的整數,行數值應為大於等於1、小於等於4 的整數。

10. Lbi n ~ Goto n Goto n~Lbl n

無條件轉移至 Lbi n 位置

11. Getkey

返回與上次按鍵相對應的代碼,Getkey=

12. DO ~ LpWhile循環語句

Do <語句塊> LpWhile<條件>
先執行語句塊,然後測試條件,條件為真時重復執行語句塊,否則執行<條件>後的語句。無,論條件是否為真,語句塊至少被執行一次。

13. Pol
計算兩坐標點之間距離,坐標為(4,4),與原點的距離就是POL(4,4)=4√2
14. Abs
求絕對值
15. Fix
取整數函數Fix(Rnd*11) ,取0 ~ 11的隨機整數
16. Rnd
隨機函數
17. 角度單位設置語句
Deg:設置角度單位為十進制度,按 鍵輸入Deg。執行該語句後,狀態行顯示。
Rad:設置角度單位為弧度,按 鍵輸入Rad。執行該語句後,狀態行顯示。
Grd:設置角度單位為哥恩,按 鍵輸入Grd。執行該語句後,狀態行顯示。
18. Dim
定義變數
19. RCL
鍵面命令,Rcl+A 顯示變數A的當前值
20. STO
鍵面命令,STO+A 給變數A賦值,顯示→A
21. INS
鍵面命令,切換鍵標記樣式,覆蓋與插入切換
22. ←
鍵面命令,角度度分秒格式與小數格式轉換
23. ▶DMS
常將反三角函數計算出的十進制角度轉換成六十進制度分秒形式,cos-1(x)▶DMS
24. Pol
鍵面命令,將直角坐標轉換為極坐標,Pol(△x,△y)
25. Rec
鍵面命令,將極坐標轉換為直角坐標,Rec(r,θ)
26. CALC
鍵面命令,對一個表達式的變數代入不同的值
27. And,Or,Not
<條件1>And<條件2>,<條件1>與<條件2>同時為真時為真。
<條件1>Or<條件2>,<條件1>與<條件2>有一個為真時為真。
Not<條件>,<條件>為假時為真。

28. If~Then~Else~IfEnd

句法1:If <條件> Then <語句塊>IfEnd
條件為真時執行Then 後的語句塊,否則從IfEnd 後開始執行
句法2:If <條件> Then <語句塊1>Else<語句塊2>IfEnd
條件為真時執行語句塊1,否則執行語句塊2,然後執行IfEnd 後的語句
29. For~To~Step~Next
句法1:For <始值> <控制變數>To<終值> <語句塊> Next控制變數的取值從始值開始,步長為1,重復執行語句塊,直至終值為止。一般始值小於終值,如果始值大於終值,則不執行語句塊而是直接執行Next 後的語句。
句法2:For <始值> <控制變數>To<終值>Step<步長> <語句塊> Next
它與 For~To~Next 句法的功能相同,唯一區別是增加了步長語句Step

30. While~WhileEnd 循環語句
句法:While <條件> <語句塊>WhileEnd
先測試條件,當條件為真時執行語句塊,然後再測試條件,條件為真時重復執行語句塊,直到,條件為假時執行WhileEnd 後的語句結束循環

31. Prog~Return 調子程序語句

句法:Prog "subfilename"
按鍵 輸入Prog。
fx-5800P 的子程序是獨立於主程序的程序,它也保存在計算器內存中,主程序與子程序的變數都是全局的,子程序執行完成後通過Return 語句返回主程序,繼續執行主程序中Prog 語句後的語句.

32. Return 返主程序語句

在子程序中應至少有一條Return 語句,當執行到該語句時,控制執行返回調用該子程序的主程序。主程序中一般不應有Return 語句,若在主程序中使用了Return 語句,程序執行到該語句時會停止執行。

33.Stop 終止程序語句

程序被Stop 語句終止後就不再執行任何語句,通常用於調試程序設置臨時中斷點,程序調試通過後,將其刪除。

34. 清除語句
① Cls:清除屏幕顯示的文字、表達式及計算結果。
② ClrStat:清除統計串列List X,List Y,List Freq。
③ ClrMemory:清除字母變數A~Z 與數值答案寄存器。
④ ClrMat:清除矩陣Mat A~Mat F 與矩陣答案寄存器Mat Ans
的內容與維數。
⑤ ClrVar:清除內置公式變數及用戶自定義公式變數的值。
其中後四個語句為按 (CLR)鍵調出清除語句菜單選擇。
額外變數 Z[n]的數值沒有專門的語句命令清除,只能執行語句0 DimZ 清除。

35. 數值顯示格式設置語句
Fix :n 為0~9 間的整數,設置以n 位固定小數格式顯示計算結果,按鍵輸
入Fix。執行該語句後,狀態行顯示FIX。
Sci :n 為0~9 間的整數,設置以n 位固定小數科學格式顯示計算結果,按鍵
輸入Sci。執行該語句後,狀態行顯示SCI。
Norm :n 為1 或2,設置以正常格式顯示計算結果,按鍵輸入Norm。
ENG:其下有EngOn 與EngOff 兩個語句,EngOn 為打開工程格式顯示;按
鍵輸入EngOn,執行該語句後,狀態行顯示ENG;EngOff 為關閉工程格式顯示,按
鍵輸入 EngOff,執行該語句後,狀態行的ENG 消失。

36. END

結束程序運行

❽ 如何學習5800計算器編程

1,熟悉卡西歐5800裡面所有牽扯到測量的功能。x0dx0a2,fx-5800裡面的編程語言basic的一些語法,並結合測量的例子來說明。這樣跟容易今後上手。x0dx0a3,對一些例子的分析,包括思路和語法講解。x0dx0a4,在實際工作中,用到最多的函數和程序的分享。x0dx0a最後聲明一點,一定要動手,就是看著文章,手裡面要拿個5800,要不然一切都是白扯。這系列fx-5800教程是默認為會用fx-5800輸入一些基本的字元的。這些都可以參考fx-5800的說明書。電子版fx-5800說明書下載。x0dx0a這里在灌輸一個編程思想。x0dx0a 編程要有個思路,x0dx0a 1、輸入部分。x0dx0a 2、計算部分。x0dx0a 3、輸出部分。x0dx0a比方說要正算方位角,首先知道A(x,y),b(m,n) 這是輸入部分。x0dx0a計算部分:pol(x-m,y-n)x0dx0a輸出部分:i,j (i=兩點的距離,j=兩點的方位角)x0dx0a這就是編程。測量上的編程,把它轉化為5800程序就是x0dx0a1 "x"?x:"y"?: "m"?m:"n"?n x0dx0a2 x0dx0a3 pol(x-m,y-n)x0dx0a4 x0dx0a5 i_:j_

❾ 怎樣學習卡西歐5800編程啊

1,一般5800自帶的程序,說明書里都有說明,研究一下就知道了。
2,但,要用到別的程序,比如道路坐標計算、道路高程之類的程序,就要需要編程,編好後,直接運行主程序就OK了。
3,如想知道如何更進一步編程,請另外向高手提問。
【資料】
《卡西歐fx-5800P計算器與道路施工放樣程序》詳細介紹了卡西歐fx-5800P編程計算器的基本操作、編程方法與技巧,匯總了道路坐標計算的相關
計算理論和公式,編制了分別適用於道路主線、立交匝道的平面坐標放樣計算程序,以及一套比較實用的道路施工放樣綜合程序。書中的程序吸收了目前最新的編程
方法與技巧,內容從易到難、從簡到繁,程序功能從單一到綜合,層層遞進。書中最後的道路施工放樣綜合程序已經具備了路線三維參數查詢、坐標反算、平面放樣
計算、路基填挖施工放樣計算、隧道超欠挖計算等多種功能,適用於道路、立交匝道、橋梁涵洞、隧道以及其它道路構造物的現場放樣計算。

❿ 卡西歐5800計算器如何編程

公路平/豎曲線放樣、坐標反算樁號GL.3-25PHF程序fx-5800p
F1 GL.3-25PHF (K+,XY ≠ 0?)輸入其他進入反算。輸入0時進入測站點、後視點坐標(X0,Y0,H0)、(X1,Y1)輸入及兩點距離(D0)、方位角(T0)輸出。H0=0時,不計算豎曲線。
L1 Z[1→Q:Lbl 8:「GL.3-25PHF=」?Q:Q→Z[1]:IF Q<3 Or Q>25:Then Goto 8:IfEnd:0→V:0→N:「K,X≠0」?V:V≠0=>Goto 0:「X0」?C:「Y0」?D:「H0」?H:「X1」?E:E-C→I:「Y1」?F:F-D→J:Prog「1」:「T0O=」:J▲DMS◢「D0=」:I◢ 放樣點樁號(Kp+)斜交角(ApO)距離(Sp)輸入 143
L2 Lbl 0:Z[1→Q:If V=0:Then 90→Z:「Kp+」?K:「ApO」?Z:「Sp」?B:Goto 4:IfEnd:If N≠-2:Then「Xp」?C:「Yp」?D:1T→P:1→G:IfEnd:Lbl 7:C-Z[4+G→I:D-Z[Q+4+G→J:Prog「1」:If N=-2:Then I→P:J→Z:G→B:Goto 4:IfEnd:If P-I>0:Then I→P:J→Z:G→B:IfEnd:If G<Q-2:Then G+1→G:Goto 7:IfEnd:Lbl 4:1→G:Z[3]→W:Lbl 5:Z[1→Q
L3 Q-2→N:Z[3→A:Z[4+G→X:Z[Q+4+G→Y:Z[2Q+3+G→R:R=0 =>1μ→R:Z[3Q+1+G→L:Z[3+G]-X→I:Z[Q+3+G]-Y→J:Prog「1」:J→O:Z[5+G]-X→I:Z[Q+5+G]-Y→J:Prog「1」:J→U:Prog「P」
L4 If V≠0:Then If G<B:Then G+1→G:W+I-2T+S→W:Goto 5:IfEnd:Prog「F」:Goto 0:IfEnd:N=0=> Goto 0:N=-1=>Goto 5:H=0=>Goto 0:1→G:Lbl 6:Z[1→Q
L3 Q-2→N:Z[4Q+1→A:Z[4Q+G→W:Z[5Q+G→U:Z[6Q-1+G→R:Z[5Q-1+G]-U→I:Z[4Q-1+G]-W→J:Prog「1」:J→O:Z[5Q+1+G]-U→I:Z[4Q+1+G]-W→J:Prog「1」:Prog「H」:N=-1=>Goto 6:Goto 0
F2 CS.3-25PHF (參數輸入完成時,可取消此子程序) I?輸入0時進入轉點號N?(N-P為平曲線、N-H為豎曲線,均輸入1至8、15、25的整數)及其參數的輸入(平曲線K?、X?、Y?、R?、L?)、(豎曲線K?、H?、R?)輸入樁號、坐標或高程、園半徑、緩和曲線長度。
L1 ?I:If I=0:Then 172→DimZ:1→N:IfEnd:Z[1→Q:Lbl 8:「GL.3-25PHF=」?Q:Q→Z[1]:IF Q<3 Or Q>25:Then Goto 8:IfEnd:While N≤Q:「N-P」?N:N>Q=>Goto 1:If N=2:Then ?K:K→Z[3]:IfEnd:?X:X→Z[3+N]:?Y:Y→Z[Q+3+N]:N=1 Or N=Q=>Goto 0:?R:R→Z[2Q+2+N]:?L:L→Z[3Q+N]:Lbl 0:WhileEnd:Lbl 1:1→N
L2 While N≤Q:「N-H」?N: N>Q=>Goto 8:?K: K→Z[4Q-1+N]:?H:H→Z[5Q-1+N]:N=1 Or N=Q=> Goto 2:?R:R→Z[6Q-2+N]:Lbl 2:WhileEnd
F3 P
L1 Prog「2」:If M=180:Then 0→T:Goto 1:IfEnd:L÷2-L^3÷240÷R2+(L2÷24÷R+R)tan(.5M→T:Lbl 1:RMπ÷180+L→S:V≠0=>Goto 0:If K<A-T:Then「K+!」:K◢0→N:Goto 0:IfEnd:If G≥N And K>W-T+S:Then「K+!」:K◢0→N:Goto 0:IfEnd:If K>W-T+S:Then G+1→G:W+I-2T+S→W:-1→N:Goto 0:IfEnd:Prog「5」 警告樁號(K+!)的輸入已超出范圍。 測站點、放樣點間的距離(Dp)、方位角(TpO)輸出。放樣點的坐標(Xp,Yp,Hp0)輸出。
L2 X+TA-MA+NJ→X:Y +TJ-MJ-NA→Y:X-C→I:Y-D→J:Prog「Z1」:「TpO=」:J▲DMS◢「Dp=」:I◢「Xp」:X◢「Yp」:Y◢1→N:Lbl 0
F4 1
L1 If I=0 And J=0:Then 180→J:Else Pol(I,J:J<0=>J+360→J:IfEnd
F5 2
L1 O-J→M:M<0=>M+360→M:If M<180:Then 180-M→M:1→Q:Else M-180→M:-1→Q:IfEnd
F6 3
L1 90(2I-L)÷π÷R→A:RsinA+L÷2-L∧(3)÷240÷R2→M:L2÷24÷R+R(1-cosA→N:A-J→A:M-QBcosA→M:QN-BsinA→N
F7 4 (緩和段計算:可適當選取2至6項,當無緩和曲線時,可僅選1項,以減少位元組。)
L1 RL→A:I-I∧(5)÷40÷A2+ I∧(9)÷3456÷A∧(4)-I∧(13)÷599040÷A∧(6)+I∧(17)÷175472640÷A∧(8)-I∧(21)÷78033715200÷A∧(10→M
L2 I∧(3)÷6÷A-I∧(7)÷336÷A∧(3)+I∧(11)÷42240÷A∧(5)-I∧(15)÷9676800÷A∧(7)+I∧(19)÷350096640÷A∧(9)-I∧(23)÷1880240947200÷A∧(11→N: 90I2÷π÷A-J→A:M-Qbcos(A→M:QN-Bsin(A→N
F8 5
L1 K-W+T→I:Z→J:If I<S-L:Then If I≤0:Then I+Bcos(Z→M:BsinZ→N:Goto 2:IfEnd:Q=1=>180-Z→J:If I≤L:Then Prog「4」:Else Prog「3」:IfEnd:Lbl 2:O→J:Goto 3:IfEnd:S-I→I
L2 If I≤0:Then I-Bcos(Z→M:-Bsin(Z→N:Else Q≠1=>180-Z→J:Prog「4」:-N→N:IfEnd:U→J:Lbl 3:cos(J→A:sin(J→J
F9 H (不需要計算中樁高程時,可取消此子程序) 警告樁號(K+!)的輸入已超出范圍
L1 Prog「2」:If M=180:Then 0→T:Goto 1:IfEnd:Rtan(.5M→T:Lbl 1:If K< Tsin(O+A:Then「K+!」:K◢Goto 0:IfEnd:If G≥N And K>W-Tsin(O:Then「K+!」:K◢Goto 0:IfEnd:If K>W-Tsin(O:Then G+1→G:-1→N:Goto 0:IfEnd
L2 U+Tcos(O+Rcos(O-90Q→M:W+Tsin(O+Rsin(O-90Q→N:K-W-Tsin(O→L:If L≤0:Then U+(T+L÷sin(O))cos(O→H:「Hp0=」:H◢Goto 0:IfEnd:M+Q√(R2-(K-N)2)→H:「Hp0=」:H◢Lbl 0 中樁高程輸出(Hp0=)
F10 F (不需要反算時,可取消此子程序) 轉點半徑為0時可能輸出的兩種樁號、偏離距離(K1+=、K2+=、Sp1=、Sp2=)情況
L1 Z-O→I:U-Z→J:IF Abs(I≤90:Then If T≤Pcos(I:Then W-Pcos(I→K:-Psin(I→B:If Abs(J≥90:Then Goto 9:Else「K1+=」:K◢「Sp1=」:B◢IfEnd:IfEnd:IfEnd:IF Abs(J≤90:Then If T≤Pcos(J:Then W-2T+S+ Pcos(J→K:-Psin(J→B:If Abs(I≥90:Then Goto 9: Else「K2+=」:K◢「Sp2=」:B◢Goto 0:IfEnd:IfEnd:IfEnd:If Pol(C-X-Tcos(O),D-Y-Tsin(O))<Pol(C-X-Tcos(U),D-Y-Tsin(U)):Then-1→H:Else 1→H:IfEnd:(R+L2÷24÷R)÷cos(.5M→N:O-Q(90-.5M→J:C-X-Ncos(J→I:D-Y-Nsin(J→J:Prog「1」
L2 cos-1((I2+N2-P2)÷2÷I÷N→N:If N≤.5M-90L÷π÷R:ThenW-T+.5S+HπNR÷180→K:Q(R-I→B:Goto9:IfEnd:If L=0:Then-2→N:G+H→G:Goto 0:IfEnd:「Z.H.Y-100!-Y.H.Z」◢0→B:0→Z警示准備進入緩和段的樁號反算,計算約需100秒。
L3 If H=-1:ThenW-T→E:E+L→G:ElseW-T+S→E:E-L→G:IfEnd:Lbl8:Z+1→Z:(E+G)÷2→F:Z=1=>E→K:Z=2=>F→K:Z=3=>G→K:Prog「5」
L4 C-X-TA+MA-NJ→I:D-Y-TJ+MJ+NA→J:C-I→M:D-J→N:Prog「1」
L5 If Z=1:Then I→P:Goto 8:IfEnd:If Z=2:Then I→V:Goto 8:IfEnd:If Abs(E-G>1μ:Then If P>V And P>I:then F→E:0→Z:Goto 8:IfEnd:If I>P And I>V:Then F→G:0→Z:Goto 8:IfEnd:IfEnd:F→K:I→B:J→V
L6 If H=-1:Then X+Tcos(O)-M→I:Y+Tsin(O)-N→J:Else X+Tcos(U)-M→I:Y+Tsin(U)-N→J:IfEnd:Prog「1」:J→O:V→J:Prog「2」:-HQB→B:Lbl 9:「K+=」:K◢「Sp=」:B◢N=0:Lbl 0 反算樁號、偏離距離輸出(K+=、Sp=)

全站儀後方交會(兩已知點,任意設站,觀測兩邊多餘一角可計算測站點坐標)
F D1�6�1D2–XY
L1 「X1」?C:「Y1」?D:「X2」?E:「Y2」?F:(E–C)2+(F–D)2→M:「D1」?S:T「D2」:「Ap°」?U
L2 cos -1((M+S 2–T 2)÷2÷S÷√(M→V:cos -1((M+T 2–S 2)÷2÷T÷√(M→W
L3 180–U–V–W→P:If Abs(P≥0°0°30°:Then「Μp°!」:P▲DMS◢IfEnd:1÷tan(V→V:1÷tan(W→ W
L4 (CW+EV+D–F)÷(V+W→X:(DW+FV+E–C)÷(V+W→Y:「Xp=」:X◢「Yp=」:Y
兩線交點、坐標變換
F L×L�6�1XY–AB
L1 「0–1–2=>L×L�6�1X–A�6�1A–X」?I:If I=0:Then Lbl 0:「XA-1」?C:「YA-1」?D:「XA-2」?E:「YA-2」?F:C–E→K:D–F→L:「XB-1」?O:「YB-1」?P:「XB-2」?Q:「YB-2」?R:O–Q→M:P–R→N
L2 (K(OR–QP)–M(CF–ED))÷(ML–KN→X:「Yp」:(LX+CF–ED)÷K→Y:「Xp」:X◢「Yp」:Y◢Goto 0:IfEnd
L6 If I=1:Then「X0」?C:「Y0」?D:「T°=」?J:Lbl 1:「Xp=」?E:「Yp=」?F:(E–C)cos(J)+(F–D)sin(J)→A:(F–D)cos(J)–(E–C)sin(J)→B:「Ap=」:A◢「Bp=」:B◢Goto 1:IfEnd
L7 If I=2:Then:「X0」?C:「Y0」?D:「T°=」?J:Lbl 2:E「Ap=」:F「Bp=」:C+Ecos(J)–Fsin(J→X:「Xp=」:X◢D+Esin(J)+Fcos(J→Y:「Yp=」:Y◢Goto 2:IfEnd
坡頂開挖線放樣程序
F P�6�1D�6�1×–– H0、H0×為任意點(下點)的設計、地面高程,S0×、H1δ為坡度方向到另外1點(上點)的距離、高程,i設計的坡度,上點平移⊿Sp距離後到達坡頂開挖線。
L1 「H0=」?H:「H0×=」?M:「S0×=」?P:「H1δ=」?N:「i=」?I:P((M–H)÷(M–N+P×I)–1→S:B=P+S:「◢Sp=」:S
地形圖等分線程序
F H1-0�6�15-H2
L1 Lbl 0:「H1」?A:「H2」?B:「S0」?S:(A–B)÷S→K
L2 10A–10 Int A→L:If L-5≥0:Then L–5→L:0.1L÷K→E:「S1=」:E◢0.5÷K→F:「Sn=」:F◢Int(KS÷0.5→G:「N=」:G◢Goto 0:IfEnd
方格網4點求格交點高程程序
F H1-H4�6�1�6�1S0-3
L1 「H1」?A:「H2」?B:「S01」?K:「SP1」?L: A+(B-A)L÷K→E:「H3」?C:「H4」?D:「S02」?M:「SP2」?N: C+(D-C)N÷M→F:「S03」?O:「SP3」?P:E+(F-E)P÷O→H:「H=」:H

方格網2點求格交點高程程序
F H1-H2�6�1�6�1S0-2
L1 「H1」?A:「H2」?B:「S0」?L:「S1」?M:A+(B-A)M÷L→H:「H=」:H

熱點內容
利用python進行數據分析pdf 發布:2024-03-28 20:33:36 瀏覽:560
php模擬post提交 發布:2024-03-28 20:23:14 瀏覽:542
phptxt下載 發布:2024-03-28 20:12:37 瀏覽:476
如何更衣櫃密碼鎖密碼設置 發布:2024-03-28 19:42:09 瀏覽:484
如何將一台電腦當雲伺服器嗎 發布:2024-03-28 19:22:39 瀏覽:882
銀行dsk密碼什麼意思 發布:2024-03-28 19:22:35 瀏覽:10
我的世界伺服器怎麼解除ban人 發布:2024-03-28 19:21:47 瀏覽:828
ss怎麼用安卓 發布:2024-03-28 18:51:39 瀏覽:688
腳本注入到其他軟體運行 發布:2024-03-28 18:30:02 瀏覽:721
網易我的世界皮膚能用到伺服器嗎 發布:2024-03-28 18:24:44 瀏覽:805