免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

fx－5800魔鬼程序終結版（好友提供，感謝）

程序 DD (線路調度)

2000→Dimz↙ 擴展額外變量（根據內存情況定義）

''：'Z A B C D E F G'↙ 從8條線路中選擇1條

Do↙

IfGetkey=27：Then 45→Z[41]：305→Z[42]：386→Z[43]：Break：IfEnd↙

IfGetkey=51：Then440→Z[41]：672→Z[42]：744→Z[43]：Break：IfEnd↙

If Getkey=52：Then 792→Z[41]：996→Z[42]：1059→Z[43]：Break：IfEnd↙

If Getkey=53：Then1101→Z[41]：1277→Z[42]：1331→Z[43]：Break：IfEnd↙

IfGetkey=54：Then1367→Z[41]：1515→Z[42]：1560→Z[43]：Break：IfEnd↙

IfGetkey=55：Then1590→Z[41]：1710→Z[42]：1746→Z[43]：Break：IfEnd↙

IfGetkey=56：Then1770→Z[41]：1862→Z[42]：1889→Z[43]：Break：IfEnd↙

IfGetkey=43：Then1907→Z[41]：1971→Z[42]1989→Z[43]:Break:IfEnd↙

LpWhile Getkey≠73↙

Z[41]

4.數(shù)據輸入：SR

Z[41→C ：Z[42→W ：Z[43→M←┘

”PW”?N:N≠2013=>Step←┘ 輸入密碼 2013

“ZB1,GC2,CG3” ?N:Cls: 坐標數(shù)據按1，高程數(shù)據按2，超過數(shù)據按3。

N=2＝>Goto 2：N=3＝>Goto 3：

Lbl 1:

Z[C→A: ”K”?A: A→Z[C]: 輸入線源起點樁號

Z[C+1→A: ”X”?A: A→Z[C+1]: 輸入線源起點坐標X

Z[C+2→A: ”Y”?A: A→Z[C+2]: 輸入線源起點坐標Y

Z[C+3→A: ”FW”?A: A→Z[C+3]: 輸入線源起點切線方位角

Z[C+4→A: ”P”?A: A→Z[C+4]: 輸入線源起點半徑

Z[C+5→A: ”R”?A: A→Z[C+5]: 輸入線源終點半徑

Z[C+7→A: ”Q”?A: A→Z[C+7]: 輸入線源方向，直線輸入0，左轉輸入-1，右轉輸入1

C+7→C: Goto 1←┘

Lbl 2:

Z[W→A: ”GC”?A: A→Z[W]: 輸入變坡點高程

Z[W+1→A: ”JD”?A: A→Z[W+1]: 輸入邊坡點樁號

Z[W+2→A: ”R”?A: A→Z[W+2]: 輸入豎曲線半徑（起點與終點半徑輸入0）

W+3→W: Goto 2←┘

Lbl 3:

Z[M→A: ”Q(-Z+Y)”?A: A→Z[M]: 輸入平曲線方向，左轉輸入-1 右轉輸入1。

Z[M+1→A: ”QK”?A: A→Z[M+1]: 輸入超高起點樁號

Z[M+2→A: ”HY”?A: A→Z[M+2]: 輸入緩圓點樁號

Z[M+3→A: ”YH”?A: A→Z[M+3]: 輸入圓緩點樁號

Z[M+4→A: ”ZK”?A: A→Z[M+4]: 輸入超高終點樁號

Z[M+5→A: ”ⅰ”?A: A→Z[M+5]: 輸入超高最大橫坡

M+6→M: Goto 3←┘

1.正算主程序 GSZS

？K：'L(-Z ,+Y) '？L：'W(+Q, -H) '?W：”α”？M：

Prog'SUB1'：X+Lcos(F+M→X：Y+Lsin(F+M→Y：

'T(0,1)'？T ：

If T=0：Then X+Wcos(F)→X： Y+Wsin(F)→Y：

Eles X+Wcos(F+M-90→X： Y+Wsin(F+M-90→Y：

If End：Cls:

'FWJ=': Loscate 5,1,F°:

”X=”：Loscate 3,2,X :

”Y=”：Loscate 3,2,Y←┘

Prog' SJGC '：

＂SJGC=＂：Locate 6,1,H

2. 反算主程序 GSFS

X：X→U：?Y: Y→V ：

Z[41→C:

Z[C]+Abs((Y-Z[C+2])Cos(Z[C+3]-90)-(X-Z[C+1])Sin(Z[C+3]-90))→K: Lbl 0：Prog 'SUB1'：Pol(U-X,V-Y):

Rec(I,J-F:I+K→K

Abs(I)＞0.001=> Goto 0：J→A:Cls:

”K=”:Locate3,1, K :

”L=” Locate3,2,A←┘

3. 正算子程序(SUB1) 不獨立運行，供其他程序調用

Z[41→C: Lbl 1: Z[C→O: Z[C+7→H: If K≥OAnd K≤H: Then Z[C+1→N: Z[C+2→E:Z[C+3→G: Z[C+4→P: Z[C+5→R: Z[C+6→Q: Goto 0: If End：

C+7→C: Goto 1←┘

Lbl 0:

(P-R)÷(2(H-O)PR)→D：Abs(K-O)→J：

0.1184634425→Z[1]:0.2393143352→Z[2]:0.2844444444→Z[3]: 0.0469100770→Z[4]:0.2307653449→Z[5]:

N+J(Z[1]cos(G+QZ[4]J(1÷P+ Z[4]JD)×180÷π)

+ Z[2]cos(G+QZ[5]J(1÷P+ Z[5]JD)×180÷π)

+ Z[3]cos(G+0.5QJ(1÷P+0.5JD)×180÷π)

+ Z[2]cos(G+Q(1- Z[5])J(1÷P+(1- Z[5])JD)×180÷π)

+ Z[1]cos(G+Q(1- Z[4])J(1÷P+(1- Z[4])JD) ×180÷π))→X:

E+J(Z[1]sin(G+Q Z[4]J(1÷P+ Z[4]JD)×180÷π)

+ Z[2]sin(G+Q Z[5]J(1÷P+ Z[5]JD)×180÷π)

+ Z[3]sin(G+0.5QJ(1÷P+0.5JD)×180÷π)

+ Z[2]sin(G+Q(1- Z[5])J(1÷P+(1- Z[5])JD)×180÷π)

+ Z[1]sin(G+Q(1- Z[4])J(1÷P+(1- Z[4])JD) ×180÷π))→Y：

G+QJ(1÷P+JD) ×180÷π→F：

F＞360＝＞F-360→F: F＜0＝＞F+360→F:Return

高程主程序（SQXYS）

＂Z?。?Z:＂Y?。?S:

Lbl 3：Z→P: S→Y:?K：＂ZBJ＂?L：＂YBJ＂?B：＂JGC＂?T： Prog＂GC＂←┘

0→Q : Z[43→C：

Lbl 5：Z[C→Q：

If Q=1:Or Q=-1 : Then Z[C+1→E: Z[C+4→J: If K≥EAnd K≤J: Then Z[C+2→F: Z[C+3→I: Z[C+5→G: Goto 6: If End：C+6→C:Goto 5: If End：

Lbl 6：Q=0＝>Goto 2：Q=-1＝>Goto 1：

If Q=1: And K

Else If Q=1 And K

Else If Q=1 And K

If End：If End：If End:P >-S＝>-P→Y:Goto 2：←┘

Lbl 1：

If Q=-1: And K

Else If Q=-1 And K

Else If Q=-1 And K

If End：If End：If End :Y>- Z: >-Y→P:←┘

Lbl 2：Cls:

＂SJGC=＂：Locate6,1,H-T

＂ZGC=＂：Locate6,2,HL÷(L+0.000001)+LP-T

＂YGC=＂：Locate6,3,HB÷(B+0.000001)+BY-T◢

Cls: Goto 3:

輸入：Zⅰ=左橫坡、Yⅰ=右橫坡、 K=樁號

ZBJ=左邊距、YBJ=右邊距、JGC=結構層厚度

顯示：SJGC=中樁高程， ZGC=左邊樁高程，YGC=右邊樁高程

高程子程序：（GC ）不獨立運行，供其他程序調用

Z[42→C：C+3→C←┘

Lbl 0←┘

(Z[C]- Z[C-3])÷(Z[C+1]- Z[C-2])→E:

(Z[C+3]- Z[C])÷(Z[C+4]- Z[C+1])→F:

If K≤Z[C+1]+Abs（E-F）×Z[C+2]÷2: Then Z[C→H: Z[C+1→D: Z[C+2→R:

Goto 4: If End:C+3→C: Goto 0←┘

Lbl 4←┘

D- Abs（E-F）R÷2→O: E -R→R←┘

If K≤O: Then H+(K-D)E→H：Else H+(K-D)E- (O-K)^2÷2÷R→H：If End ←┘

程序（ COPY ） (數(shù)據庫復制—— 整理數(shù)據庫的工具)

'PW'?N：N≠2013=> Stop↙ 保護密碼 ?

A：?B：?N↙ 源地址? 目標地址? 數(shù)據單元個數(shù) ?

0→T↙Do↙IszT↙

Z[A→Z[B]↙

Isz A：IszB↙

LpWhileT<>

A

一、程序功能及原理

1.功能說明：

本程序由三個主程序——正算主程序(GSZS)、反算主程序(GSFS) 、高程主程序（SQXYS）和兩個子程——正算子程序(SUB1)、高程子程序（SJGC）組成，可以根據——直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點坐標、起點里程、起點切線方位角、起點曲率半徑、止點曲率半徑），縱段的要素（變坡點高程變坡點樁號豎曲線半徑）對全線范圍內任意里程中邊樁坐標進行正反算和中邊樁高程及超高計算。本程序可以在CASIO fx-5800P計算器上運行。可實現(xiàn)坐標正反算和高程及超高的全線貫通。

2．計算原理：

坐標正反算利用Gauss-Legendre 5點通用公式。

二、說明

程序 DD (線路調度)

根據線路數(shù)據量大小和內存使用情況設置數(shù)據庫起始地址，(數(shù)據庫按先后順序依次為（平曲線、豎曲線、超高)注意不要重疊，不要和數(shù)據庫起始地址寄存器沖突，為合理利用內存可把數(shù)據庫起始地址寄存器設置在擴展存儲區(qū)的最高端。其實這一步就是改變程序中帶下劃線處的紅色數(shù)字,不帶下劃線的程序不要改變。

數(shù)據輸入程序：（SR）

1，坐標數(shù)據（1）樁號：當線路最后一段線源輸入完畢后要輸入終點樁號。

（2）半徑：當線元為直線時，其起點、止點的曲率半徑為無窮大，以10的45次代替。當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。

當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次代替；起點與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以10的45次代替；止點與圓曲線相接時，曲率半徑等于圓曲線的半徑。

當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規(guī)定的值；起點與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設計規(guī)定的值；止點與圓曲線相接時，曲率半徑等于圓曲線的半徑。

2，高程數(shù)據：當起點或終點不是變坡點，半徑R輸入0。

主程序輸入與顯示：

(1)輸入部分：

正算時可輸入里程K、左右邊距'L(-Z,+Y) '（當所求點位于中線時，L=0；當位于中線左側時，L取負值；當位于中線右側時，L取正值）、前后距離'W(+Q, -H) ' (W計算構造物角點用，如果不需要可輸入0，當位于K前側時，W取正值；當位于K后側時，W取負值)、右交角M（0～180的正值）、及判斷計算模式'T(0,1)'（當構造物是斜交時輸入0計算平行四邊形，輸入1計算矩形）可實現(xiàn)全線坐標高程計算，反算時可僅輸入實測點坐標X Y，即可算出該點所對應的線路的里程樁號和左右偏距。

（2）顯示部分：

X=×××正算時，計算得出的所求點的X坐標Y=×××正算時，計算得出的所求點的Y坐標

SJGC=×××計算得出中樁設計高程，

K=××× 反算時，計算得出的所求點的里程

L=××× 反算時，計算得出的所求點的邊距

放樣程序 FY

Prog”GSZS”：？X：？Y：Prog”LTKZD”:？L: ？P: Pol(N-U，E-V):

J<0＝>J+360→J: “HSJL=”:I◢

J→O:If X=0: Then U+LCos(J+P)→U:V+LSin(J+P)→V:

”X=”:U◢:”Y=”:V◢: Eles Pol(X-U, Y-V): J<0＝>J+360→J:

J→H:H-O→J:J<0＝>J+360→J:“ANG=”:J◢“QSJL=”:I◢

凌鐵大橋控制點數(shù)據庫 LTKZD

C=23:D=24:E=25:F=26:G=27:H=28:I=29←┘:

A: If A=11 Then****→U:****→V :Goto 0: Return: If End←┘

If A=12 Then****→U:****→V :Goto 0: Return: If End←┘

If A=13 Then****→U:****→V :Goto 0: Return: If End←┘

If A=15 Then****→U:****→V :Goto 0: Return: If End←┘

(注：如有多個控制點繼續(xù)添加入數(shù)據庫LTKZD中)

Lbl 0：?B :

If B=11 Then ****→N:****→E: Return: If End←┘

If B=12 Then ****→N:****→E: Return: If End←┘

If B=13 Then ****→N:****→E: Return: If End←┘

If B=15 Then ****→N:****→E: Return: If End←┘

(注：如有多個控制點繼續(xù)添加入數(shù)據庫LTKZD中)

無定向程序（WDXDX）

＂JSDS=＂?→N: ＂QX=＂?U: ＂QY=＂?V: ＂ZX=＂?X: ＂ZY=＂?Y:Pol(X-U,Y-V):J→B: J→Q: U→E: V→F:B-180→B:0→T:

For 0→I To N

＂JIAODU=＂?A: A→Z[4I+1]: B+180+ Z[4I+1]→Z[4I+1]: Z[4I+1]→B:

＂JULI=＂?D: D→Z[4I+2]: T+Z[4I+2]→T

E+Z[4I+2]Cos(B)→Z[4I+3]: F+Z[4I+2]Sin(B)→Z[4I+4]:

Z[4I+3]→E: Z[4I+4]→F:

Next

Pol(E-U,F-V): Q-J→O: U→E: V→F:

For 0→I To N

E+Z[4I+2]×Cos(Z[4I+1]+O)→Z[4I+3]:

F+Z[4I+2]×Sin(Z[4I+1]+O)→Z[4I+4]:

Z[4I+3] →E: Z[4I+4]→F:

Next

E-X→E: F-Y→F: Cls:＂K=＂:T÷√(E2+F2)◢

0→C

For 0→I To N

C+[4I+2]→Z[4I+2]: Z[4I+2]→C:

Z[4I+3]-E÷T×Z[4I+2]→Z[4I+3]

Z[4I+4]-F÷T×Z[4I+2]→Z[4I+4]

Cls:

＂X=＂: Locate2,1,I+1: Locate 3,1,”=”: Locate 4,1, Z[4I+3]

＂Y=＂: Locate2,2,I+1: Locate 3,2,”=”: Locate 4,2, Z[4I+4]

Next

測量構造物位置程序（ZBFS）

K:?M: Prog'SUB1'：Cls:'Z(0),X（1）'？T ：Lbl 1: 'X='？U：'Y='？V：

Pol(U-X,V-Y: Rec(I,F+M-J:

If T?0: Then I-Jtan(90-M) →I:J ÷cos(90-M) →J: If End ←┘

Cls:'ZY=':Locate 4,1, I ”L=”Locate 4,2,J◢←┘Goto 1:

（1）輸入部分：

？U 所求點X坐標

？V 所求點Y坐標

？K 基準點樁號

？T 判斷正算,斜算

(2)顯示部分X 所求點距基準點距離（右為正，左為負）

Y所求點距基線的前后距離（前為正，后為負）

錐坡（ZHUIPO）

？K：'L(-Z ,+Y) '？L：”α”？M： Prog'SUB1'

X+Lcos(F+M→X：Y+Lsin(F+M→Y：Cls:

'HS'？A ：' HJ '？B ：'P1'？E ：'P2'？Z ：

'0T(0)，WT（1）'？T ：

Lbl 1：？N ：

E（A-B）N÷sin(M→U ：L＜0＝>-U→U：

Z（A-B）÷sin(M)√(1- N2) →V ：T?0：＝> - V→V：

Cls:

'X='：Locate 3,1,X+U cos(F+M)+ V cos(F

'Y='：Locate 3,2,Y+U sin(F+M)+V sin(F:

Goto 1：

輸入部分：

HS 錐頂高程

HJ 錐基高程

P1 坡率1（橫橋向）按1：M表示

P2 坡率2（縱橋向）按1：N表示

T 0號臺輸入0，橋尾輸入1

N 將長軸a分成N等份以小數(shù)表示

隧道超欠挖程序：（CQW）

“H1=” ？Z：輸入實測高程

Prog”GSFS”: Prog”SJGC”:

”SJGC=”:Locate 6,3,H

IF Z-H>5.845:Then 7.45→R：0.45→G：0→L：Else

IF Z-H≤5.845 And Z-H>-1.169:Then 6→R：1.5→G：1→L：Else

IF Z-H<-1.169:then 16.5→r：14.05→g：0→l：ifend:="" ifend:="">

“+C-Q=”: Locate 6,4,√((Abs(A)- L)2+(Z-H-G)2)-R

紅色數(shù)字為上、下圓弧的弦線高程減去路面設計高程（例如下圓弧弦線高程減去設計高程等于-1.169）

說明：R=圓半徑：G=圓心至路面設計高程之差（如果圓心位于路面以下要輸入負值） ： L=圓心至隧道中心線的左右偏距（無論左右均為正值）

顯示：

K=××× 反算計算得出的所求點的里程

L=××× 反算計算得出的所求點的邊距

SJGC=中樁高程，

+C-Q=超欠挖“+”為超挖“-”為欠挖

鏈接: http://pan.baidu.com/s/1sj15Put 密碼: j5ar

更多精彩請關注微信號：37655317