CASIO 公路放樣計(jì)算

CASIOfx-4X00實(shí)用測(cè)量程序

第1頁

CASIOfx-4X00

實(shí)用工程測(cè)量程序

中鐵二十四局福建公司工銀鄙,讀速款

2004年4月28日

CASIOfx-4X00實(shí)用測(cè)量程序

第2頁

線路中、邊樁測(cè)量放樣程序（Ver3.2）

FlXLCS（主程序，步數(shù)385）

LINorm:Deg:U=O"A0":Prog

l:Q=U:C"X-JD":D"Y-JD":U=A''A:R+L-'':Prog1:

B=AbsU:R:S"LO":E"K-ZH"

L2Fix3:M=.5S-Sxy3/240R2:P=S2/24R:T,,T,,=（R+P）tan.5B+M/

F"L"=TTRB/180

+S，F(xiàn)=F+E:Norm

L3K〃ZJ:XY=>1":KWl=>{L}:V=L"K〃:U=0:Prog4:G=X:H=Y:今

G"X":H"Y紙

{KJ}:K"HS:XY=>1":K=1=>{I}:X=I"X":Y=J〃Y〃：牛>

V=J"K":U=0:Prog4'Fix3

L4V"DO〃=Pol（X-G,Y-H/Fix4:N=W:W<0=〉W=W+360\Prog

2:W"A0"=W/

Norm:U=0:{U}:U"AB":Prog1:K=U

L5Lbl0:U=0:{U}:U"CS:XY=>1〃:U=O=>{UZ}:V=Z"K":

U"BZ:R+L-":A<03U

=-Ui\Prog4:》{XY}:X:Y\Prog5:Prog6:Goto0

F21（十進(jìn)制一六十進(jìn)制子程序，步數(shù)19）

LIU=IntU+FracU/.6+Frac100U/90

F32（六十進(jìn)制一十進(jìn)制子程序，步數(shù)22）

CASIOfx-4X00實(shí)用測(cè)量程序

第3頁

LI60FracW:W=IntW+.OlIntAns+.006FracAns

F43(緩和曲線上任意點(diǎn)坐標(biāo)計(jì)算子程序，步數(shù)57)

LIY=RS:X=V-Vxy5/40Y2:Y=Vxy3(l-Vxy4/56Y2)/6Y+URec(l,90V2/

TTY:X=X-UW

F54(中樁、邊樁坐標(biāo)計(jì)算子程序，步數(shù)195)

LIV>F=>X=T-UsinB+Rec(V-F+T,B：Y=W+UCOSB:Goto0、

L2V>F-S=>V=F-V:Prog3:

Rec(1,B:U=X:X=T+TV-XV-YW:Y=TW-UW+YV:

Goto0I\

L3V>E+S=>Y=P+R-Rec(R-U,180(V-E-.5S)/TTR:X=M+W:Goto0、

L4V>E^V=V-E:Prog3：7?>X=V-E:Y=U^

L5Lbl0:A<0=>Y=-Y

Rec(1,Q:U=X:X=C-TV+XV-YW:Y=D-TW+UW+YV

F65(測(cè)設(shè)數(shù)據(jù)輸出子程序，步數(shù)76)

LIPol(X-G,Y-H:W=W-N:W<0=>W=W+360t\W=K+W:W^360=>

W=W-360N

Fix4:Prog2:W"AC"=W/Fix3:V"DC"=V/Norm

F76(測(cè)設(shè)時(shí)移樁數(shù)據(jù)計(jì)算子程序，步數(shù)92)

LILbl0:Norm:L=0:W=0

L2Lbll:U=0:{U}:U"SC":UW00W=W+U:L=L+l:GotoI'WWO。

{U}:U"V":

CASIOfx-4X00實(shí)用測(cè)量程序

第4頁

Progl:Fix3:W"SD"=W/LXsinU/W"MOVE"=V-W/Goto0\

【使用說明】

1、程序說明

（1）本程序特點(diǎn)：可置鏡任意點(diǎn)放樣任意點(diǎn)（中樁點(diǎn)、邊樁點(diǎn)、導(dǎo)線點(diǎn)）;

人性化設(shè)計(jì)，提示信息全面，并充分考慮工程術(shù)語和習(xí)慣；專門設(shè)計(jì)

的角度輸入輸出方式；絕對(duì)優(yōu)秀的存儲(chǔ)器分配方案。

（2）本程序適用于放射螺旋線作為緩和曲線且前、后緩和曲線長度相同的

單曲線放樣，可放樣線路中樁和邊樁，按里程和坐標(biāo)放樣均可。

（3）角度輸入（出）方式：度,分秒，如56°3'19"輸入（出）為56.0319。

注意：分、秒必須為兩位數(shù)，當(dāng)小于10時(shí)，應(yīng)在前面加“0”。

（4）放樣前應(yīng)準(zhǔn)備的數(shù)據(jù)：建立統(tǒng)一的施工坐標(biāo)系（正測(cè)量坐標(biāo)系、右手

坐標(biāo)系），計(jì)算控制點(diǎn)和曲線交點(diǎn)坐標(biāo)、曲線第一切線方位角；整理曲

線要素和放樣點(diǎn)樁號(hào)、相應(yīng)的邊樁距離（或放樣點(diǎn)坐標(biāo)）。

（5）若按坐標(biāo)放樣，則當(dāng)程序提示輸入曲線要素時(shí)，可輸入任意值，僅在

提示輸入置鏡點(diǎn)、后視點(diǎn)和放樣點(diǎn)屬性時(shí)輸入“1”，然后輸入相應(yīng)坐

標(biāo)值。

（6）如果要實(shí)時(shí)顯示放樣點(diǎn)的坐標(biāo)，可在子程序F6行L1的“Fix4:"

后增加以下語句（雙引號(hào)內(nèi)）：“X/Y/"或者"X"X〃=X/Y"Y〃=Y

⑺子程序F1行L4中“:U=0:{U}:U"AB":Prog1:K=U"（輸入儀器后視

CASIOfx-4X00實(shí)用測(cè)量程序

第5頁

讀數(shù)）和行L5中“Prog6:"（調(diào)用移樁計(jì)算子程序）、子程序F6行

L1中“W=K+W:W23600W=W-360Z”（計(jì)算儀器前視讀數(shù)，必

須與前述“輸入儀器后視讀數(shù)”同時(shí)取舍）、子程序F8（移樁計(jì)算子

程序）可根據(jù)需要取舍。

（8）本程序按CASIOfx-4500P計(jì)算器設(shè)計(jì)。若使用CASIOfx-4800P計(jì)算

器，應(yīng)作以下改動(dòng)：①變量"V”與"I”調(diào)換，變量"W”與“J”調(diào)

換；②調(diào)用子程序時(shí)，子程序名應(yīng)加雙引號(hào)（"），如：PROG1應(yīng)改為

PROGT；③“xa應(yīng)為“八”；④在子程序F1行L1或L2中任意

位置添加“1=0:尸0”語句。

（9）程序步數(shù)說明：每個(gè)子程序?qū)嶋H占用空間=程序步數(shù)+行數(shù)+程序名字符

數(shù)+2。

2、顯示符號(hào)說明（按程序運(yùn)行的顯示順序）

A0第一切線方位角

X-JD、Y-JD交點(diǎn)（JD）的坐標(biāo)值

A:R+L-曲線轉(zhuǎn)向角（符號(hào)規(guī)則：右偏取“+”，左偏取

R、L0、K-ZH曲線要素（曲線半徑、緩和曲線長度、直緩點(diǎn)里程）

T、L顯示曲線的切線長度T和曲線長度L

置鏡點(diǎn)屬性：已知坐標(biāo)時(shí)輸入1,已知里程時(shí)輸入其它

ZJ:XY=1

值

K/X、Y置鏡點(diǎn)數(shù)據(jù)：里程（K）或坐標(biāo)（X,Y）

HS:XY41后視點(diǎn)屬性：已知坐標(biāo)時(shí)輸入1,已知里程時(shí)輸入其它

CASIOfx-4X00實(shí)用測(cè)量程序

第6頁

值

K/X、Y后視點(diǎn)數(shù)據(jù)：里程（K）或坐標(biāo)（X,Y）

DO/A0后視邊長和方位角（供檢查用，防止輸入錯(cuò)誤）

AB儀器后視水平度盤讀數(shù)

放樣點(diǎn)屬性：已知坐標(biāo)時(shí)輸入1,已知里程時(shí)輸入其它

CS:XY，1

值

K/X、Y放樣點(diǎn)數(shù)據(jù)：里程（K）或坐標(biāo)（X,Y）

放樣點(diǎn)距中線的距離（符號(hào)規(guī)則：放樣點(diǎn)在線路右側(cè)取

BZ:R+L-

“+”，在線路左側(cè)取在中線上取“0”）

AC儀器前視水平度盤度數(shù)

DC計(jì)算前視平距

實(shí)測(cè)斜距（當(dāng)輸入為0時(shí)終止斜距的錄入，計(jì)算實(shí)測(cè)斜

SC、V距的平均值并自動(dòng)進(jìn)入讀取豎角狀態(tài)）和豎直角（天頂

距）

SD實(shí)測(cè)前視平距

MOVE移樁數(shù)據(jù)，即：離開（+）/靠近（一）置鏡點(diǎn)之平距

3、存儲(chǔ)器內(nèi)容

AG0曲線第一切線V極坐標(biāo)計(jì)算

曲線轉(zhuǎn)向角置鏡點(diǎn)坐標(biāo)

BHQ方位角W固定存儲(chǔ)器

C曲線交點(diǎn)I后視點(diǎn)坐標(biāo)p曲線內(nèi)移值X

放樣點(diǎn)坐標(biāo)

D坐標(biāo)值J或里程R曲線半徑Y(jié)

EZH點(diǎn)里程L置鏡點(diǎn)里程S緩和曲線長度Z

FHZ點(diǎn)里程M切線增長值T切線長度

K后視水平角N后視方位角U

CASIOfx-4X00實(shí)用測(cè)量程序

第7頁

4、檢算數(shù)據(jù)

測(cè)設(shè)里程邊樁距離前視水平角平距

cs備注

"K〃"BZ〃〃AC〃〃DC〃

左-30.041-43-03153.444已知數(shù)據(jù)：

K8+200'I10.0032-26-07168.389A050

右30.0024-49-45186.988X-JD468.4041

左-30.0354-40-1867.143Y-JD493.4117

K8+320中0.00348-15-1695.768A-42.1530

右30.00344-48-49125.040R400

左-30.0287-35-3279.977L0120

0K8+408中0.00296-55-38105.968K-ZHK8+248.180

右30.00302-29-50133.649ZJ1

左-30.0239-03-58217,525X461.3560

K8+598中0.00245-17-28234.780Y336.9658

右30.00250-36-39254.414HS0

左-30.0228-29-20306.235KK8+298.418

K8+700中0.00233-24-45319.568AB0

右30.00237-54-42335.064

1200.000300.00024-53-50263.957

中間顯示結(jié)果：T=215.116,L=415.019,D0=103.020,A0=163-09-ll

線路中、邊樁測(cè)量放樣程序（Ver3.2）

（forCASIOfx-4800P）

FlXLCS（主程序）

LINorm:Deg:U=O"A0":Prog〃1":Q=U:C"X-JD":D"Y-JD〃:U=A"A:R

+L-":

ProgT:B=AbsU:R:S"LO":E"K-ZH"

CASIOfx-4X00實(shí)用測(cè)量程序

第8頁

L2Fix3:M=.5S-S~34-240R2:P=S2+24R:T"T"=(R+P)tan.5B+MA

F"L"=TTRB4-

180+S/F=F+E:I=0:J=0:Norm

L3K"ZJ:XY=>1":KW1=>I=L"K":U=0:Prog"4":G=X:H=Y:R>

G"X":H"Y"'{K}:

K"HS:XY=>1":K=1=>X=V"X":Y=W"Y":W>

I=W〃K":U=0:Prog〃4"\Fix3

L4Pol(X-G,Y-HT'DO"=I/Fix4:N=J:J<0=>J=J+360\

Prog"2":J"A0"=J，Norm:

U=0:{U}:U"AB〃:Prog〃1":K=U

L5Lbl0:U=0:{U}:U"CS:XY=>1":U=O=>

{UZ}:I=Z"K":U"BZ:R+L-":A<O》U

=-UKProg"4":分{XY}:X:Y\Prog"5":Prog"6":Goto0

F21(十進(jìn)制一六十進(jìn)制子程序)

LIU=IntU+FracU4-.6+Frac100U4-90

F32(六十進(jìn)制一十進(jìn)制子程序)

LI60FracJ:J=IntJ+.01IntAns+.006FracAns

F43(緩和曲線上任意點(diǎn)坐標(biāo)計(jì)算子程序)

LIY=RS:X=I-I-54-40丫2：丫=1八3(1-I-4:56Y2)+6Y+URec(l,90I2

4-TTY:X=X-UJ

CASIOfx-4X00實(shí)用測(cè)量程序

第9頁

F54（中樁、邊樁坐標(biāo)計(jì)算子程序）

LII>F^>X=T-UsinB+Rec（LF+T,B：Y=J+UcosB:Goto0、

L2I>F-S=>I=F-I:Prog"3":

Rec（l,B：U=X:X=T+TI-XI-YJ:Y=TJ-UJ+YI:Goto0\

L3I>E+S^Y=P+R-Rec（R-U,180（I-E-.5S）4-TTR:X=M+J:Goto0、

L4I>E=>I=I-E:Prog"3":分X=I-E:Y=U>

L5Lbl0:A<0=>Y=-Y

Rec（l,Q:U=X:X=C-TI+XI-YJ:Y=D-TJ+UJ+YI

F65（測(cè)設(shè)數(shù)據(jù)輸出子程序）

LIPol（X-G,Y-H:J=J-N:J<00J=J+360\J=K+J:J23600J=J-360CX

Fix4:Prog"2":J"AC"=J/Fix3:I"DC"=I/Norm

F76（測(cè)設(shè)時(shí)移樁數(shù)據(jù)計(jì)算子程序）

LILbl0:Norm:L=0:J=0

L2Lbll:U=0:{U}:U〃SC":UW0=>J=J+U:L=L+l:Gotol\JW0=>

{U}:U"V":

Prog3:J"SD〃=J：LXsinU/J〃MOVE"=I-J/Goto0、

視距測(cè)量計(jì)算程序（Ver1.1）

F8SJCL（主程序，步數(shù)75）

LILbl0:Norm:{SAV}:I:S:U=A"AV":V:Prog1:K=1:U>180=>K=-l

\Fix3:D"D"=

CASIOfx-4X00實(shí)用測(cè)量程序

第10頁

S(sinU)2，H"H"=KD/tanU+I-V/Goto0

1、符號(hào)說明：T——儀器高，——斜距，"AV"——豎直角(指“天頂

距")，"V"——目標(biāo)高，"D"——平距，"H"——高差。

2、本程序需調(diào)用“十進(jìn)制一六十進(jìn)制子程序”。

豎曲線計(jì)算程序(Ver1.1)

F9SQX(主程序，步數(shù)196)

LINorm:C=.001(A"11"-B"I2":R=E4:{R}:R:K=1:CV0=>K=-lN

D"K-BP":

H"H-BP":T=.5RAbsC:E"KS"=D-T^F"KE"=D+T^

L2Lbl0:{L}:L"KC":Z=l:L>F》Z=0L\LVE9Z=0'Fix3:L2D。

M"HC"=H-

ZK(F-L)2/2R+.001B(L-D/豐〉

M"HC"=H-ZK(L-E)2/2R+.OO1A(L-D/'Norm:

Goto0

1、符號(hào)說明

豎曲線起測(cè)設(shè)點(diǎn)標(biāo)

11、12坡度1、2KSHC

點(diǎn)高

豎1111線終豎曲線半

K(BP)變坡點(diǎn)里程KER

/占、、、徑

H(BP)變坡點(diǎn)標(biāo)高KC測(cè)設(shè)點(diǎn)里T切線長度

CASIOfx-4X00實(shí)用測(cè)量程序

第11頁

程

2、注意事項(xiàng)

(1)IK12符號(hào)：上坡取“+下坡取“一”。單位為“千分之一”,如

5.3%。輸入5.3。

(3)行口中“E4”即“10000”，應(yīng)輸入“EXP”+“4”，或“l(fā)(r”+“4”

(顯示i04)o

極坐標(biāo)計(jì)算程序(Ver1.1)

FlJZB(主程序，步數(shù)112)

LILbl0:Norm:{NGHXY}:N"POL=>0"

L2N=0=>K=O:G"X1":H"Y1":X"X2":Y"Y2":Prog5:聲〉

G"X0":H"Y0":U=X"A":

Y"S":Progl:Fix4:V"X"=G+Rec(Y,U/W"Y"=H+W/Goto0

1、符號(hào)說明："POL=>0"——由直角坐標(biāo)反算極坐標(biāo)時(shí)輸入“1”，由極

坐標(biāo)計(jì)算直角坐標(biāo)時(shí)輸入其他任意值；"XI"、"Yl"、"X2"、"Y2"

——起終點(diǎn)直角坐標(biāo)；"X0\"Y0"——起算點(diǎn)直角坐標(biāo)；"A\

"S"——方位角和極距。

2、本程序需調(diào)用“十進(jìn)制f六十進(jìn)制子程序”、“測(cè)設(shè)數(shù)據(jù)輸出子程

序”。

CASI04800緩和曲線、圓曲線和直線段上的任意中、邊樁坐標(biāo)計(jì)算程序

CASI04800緩和曲線、圓曲線和直線段上的任意中、邊樁坐標(biāo)計(jì)算程序

1、該程序適用于計(jì)算器CASVOfk-4800P,可計(jì)算與線路中心成任意夾角的緩和曲線、圓

CASIOfx-4X00實(shí)用測(cè)量程序

第12頁

曲線、直線段中、邊樁坐標(biāo)及切線方位角。

2、A?輸入轉(zhuǎn)角：左轉(zhuǎn)為負(fù)，右轉(zhuǎn)為正

3、R?輸入圓曲線半徑

4、LS?輸入緩和曲線長度

5、JD?輸入交點(diǎn)樁號(hào)

6、J?輸入0程序計(jì)算中樁，輸入1程序計(jì)算邊樁

7、N?E?輸入交點(diǎn)X、Y坐標(biāo)

8、FW待求點(diǎn)切線方位角

9、當(dāng)計(jì)算交角為60°時(shí)，則公式改為(U+60),(U-120)

1A：R：C“LS”：D“JD”

2P=CA2/24/R-CA4/2688/RA3

3Q=C/2-CA3/240/RA2

4B=90C/兀/R

5T=(R+P)tan(AbsA/2)+Q/

6W=(R+P)/cos(A/2)-R/

7L=((AbsA)-2B)兀R/180+2C/

8G=D-T/

9H=G+C/

10I=G+L/2/

11K=G+L-C/

12M=G+L/

13N：E：F:J

14A<0=>S=-l:^=>S=lzd

15U=F+A/2+90S

CASIOfx-4X00實(shí)用測(cè)量程序

第13頁

16V=W+R

17B=N+VcosU

18O=E+VsinU

19Lbl1

20{Z}

21Z〈G=>L=T+G?Z

22V=F+180

23U=F

24Goto2，

25ZWH=>L=Z?G

26V=L-LA5/(90RA2CA2)

27L=30LA2S/(7CRC)

28P=F+180

29Q=F+L

30U“FW”=F+3L/

31Goto4/

32ZWK=>L=F+A/2+90S+180+180(Z-I)S/R/；L

33U“FW”=L+90S/

34Goto5/

35ZWM=>L=M-Z

36V=L-LA5/(90RA2CA2)

37L=30SLA2/(7URC)

38P=F+A

39Q=F+A+180-L

CASIOfx-4X00實(shí)用測(cè)量程序

第14頁

40U=F?3L+A/

41Goto4Z

42Z>M=>L=Z-M+T

43U=F+A

44V=U

45Goto2

46Lbl2

47X=N+LcosV/

48Y=E+LsinVJ

49Goto6N

50Lbl3

51{W}

52P“XL”=X+Wcos(U-90)/

53Q“YL”=Y+Wsin(U-90)/

54P“XR”=X+Wcos(U+90)/

55Q“YR”=Y+Wsin(U+90)/

56Goto1

57Lbl4

58X=N+TcosP+VcosQ/

59Y=E+TsinP+VsinQ，

60Goto6

61Lbl5

62X=B+RcosL/

63Y=O+RsinL，

64Goto6

CASIOfx-4X00實(shí)用測(cè)量程序

第15頁

65Lbl6

66J=l=>Goto3/

67Goto1

DAN

K,,JA,,:H,,JB,,:Q"AB"

F=K+H

Z=0=>Gotolw>Gtot2

Lbll

B=(180-F)/2

U=180-K-B

G=QsinH/sinF

M=QsinK/sinF

X=GsinK/sinU

Goto3

Lbl2

C"JC":V"BC"

22

D=M「(QX+VX+2QVCOSH)

F=F+C

I=sin-1(VsinH/D)

J=sin-1(QsinH/D)

I=K+I

CASIOfx-4X00實(shí)用測(cè)量程序

第16頁

B=(180-I-C-J)/2

U=180-I-B

G=Dsin(C+I)/sinF

M=Dsinl/sinF

X=Gsinl/sinU

Lbl3

S"LS”：O"JD"

K"A1"=^/RsA

Y2

A=s/2-SX3/240RX

J=R+SX724R

K=tan(F/2)

C=TTRF/180

P=0+G

Y=0=>Goto4:>Gtot5

Lbl4

T"T"=A+JKA

L"L"=C+SA

E"E"=J/cos(F/2)-RA

Y"LY"=L-2SA

J，=2T-LA

U"Ti"=T-GA

N"T2"=T-MA

CASIOfx-4X00實(shí)用測(cè)量程序

第17頁

Z"ZH"=P-TA

H"HY"=Z+SA

Q"QZ"=Z+L/2A

H"YH"=H+YA

Y"HZ"=Z+LA

Goto8

Lbl5

W=0=>Goto6:>Gtot7

Lbl6

N"LS2"

Y=R+NX724R

T"TA"=A+(Y-JcosF)/sinFA

v2

U"TB"=N/2-Nx3/240Rx+(J-YcosF)/sinFA

V=tanH(J/(T-A))

E"E』J/sinV-RA

I"LY"=FRTT/180-S/2-N/2A

L"L"=I+S+HA

J"J"=T+U-LA

A"A2"=^RNA

Z"ZH"=P-TA

H"HY"=Z+SA

Q"QZ"=H+I/2A

CASIOfx-4X00實(shí)用測(cè)量程序

第18頁

Y"YH"=H+IA

Y"HZ"=Y+NA

Goto8

Lbl7

A=90S/TTR

N"LS2"=(TTRF-90S)/90A

V2

Z"T1"=2S/3+11SX3/1260RXA

Y"T「=S/3+SXV3/126RX2A

V2

Q"T12"=N/3+NX3/126RXA

L"L"=C+(S+N)/2A

,,Y2

BT2"=2N/3+11NX3/1260RXA

D=sin(180-F)

T=(Y+Q)sin(F-A)/D

U"TA"=Z+TA

M"TB"=B+(Y+Q)sinA/DA

E"E"=^'(TX2+YX-2TYCOSA)▲

J"J"=U+M-S-NA

/

A"A2"=v'RNA

Z"ZH"=P-UA

Q"HH"=Z+SA

Y"HZ"=Q+NA

Goto9

CASIOfx-4X00實(shí)用測(cè)量程序

第19頁

Lbl8

E"E2"=E-XA

Lbl9

符號(hào)意義

Z=o,Y=0單、雙交點(diǎn)的曲線要素、主點(diǎn)樁號(hào)計(jì)算

Z￥0,Y=0三交點(diǎn)的曲線要素、主點(diǎn)樁號(hào)計(jì)算

Z=0,Y*0,W=0單曲線非對(duì)稱設(shè)置緩和曲線的曲線要素、

主點(diǎn)樁號(hào)計(jì)算

Z=0”w0,W￥0凸曲線非對(duì)稱設(shè)置緩和曲線的曲線要素、

主點(diǎn)樁號(hào)計(jì)算

JB——如無JB角值，可輸入?；虬匆幌隆癊XE”鍵；

JC——如無JC角值，可輸入?；虬匆幌隆癊XE”鍵；

AB,BC——分別是交點(diǎn)A、B、C之間的距離，如無此值，可

輸入?；虬匆幌隆癊XE”鍵;

E2一一當(dāng)E2=0時(shí)，稱為切基線，當(dāng)E為負(fù)值時(shí)，稱為圓內(nèi)基

線，反之則稱為圓外基線；

HH——兩個(gè)回旋線的交點(diǎn)樁號(hào)。

FAN

Z=0=>GotoOw>Gtot3

LblO

,,

B"R1":K"R2":C"J1":D"J2":W"LS1:P"XO"

2Y2

T=(B+WX/24B)tan(C/2)+W/2-Wx3/240Bx

CASIOfx-4X00實(shí)用測(cè)量程序

第20頁

G=L-T

A=(l/24K)tan(D/2)

J=l/240Kx2

M=Ktan(D/2)

Lbll

S=P:N=2

Lbl2

2V

Y=APX+P/2-JPX3+M-G

P=P+H:N=N-1

N0=>Z=Y:Goto2A

Y=(Y-Z)/H

Z=S-Z/Y

Abs(Z-S)>E=>P=Z:GotolA

S:"LS2="A

GotoA

Lbl3

U"JA":G"JB":W"LS":P"X0"

C=U+G

F=0=>Goto4w>Goto7

Lbl4

Q"E0"

A=l/cos(C/2)

CASIOfx-4X00實(shí)用測(cè)量程序

第21頁

2

B=Wx/24

Lbl5

S=P:N=2

Lbl6

Y=AP+AB/P-P-Q

P=P+H:N=N-1

N￥0=>Z=Y:Goto6△

Y=(Y-Z)/H

Z=S-Z/Y

Abs(Z-S)>E=>P=Z:Goto5A

S:"R="A

GotoA

Lbl7

A=tan(C/2)

B=WX724

D=Wx'3/240

F=W/2-T

Lbl8

S=P:n=2

Lbl9

2

Y=AP+AB/P-D/PX+F

P=P+H:N=N-1

CASIOfx-4X00實(shí)用測(cè)量程序

第22頁

N￥0=>Z=Y:Goto9△

Y=(Y-Z)/H

Z=S-Z/Y

Abs(Z-S)>E=>P=Z:Goto8A

S:"R="A

LblA

符號(hào)意義：

z=o-s形曲線徑相銜接的另一緩和曲線長度計(jì)算;

Z+0,F=o-外距長度受限制的圓曲線半徑計(jì)算；

ZrO,FWO-切線長度受限制的圓曲線半徑計(jì)算.

一、操作說明

1.現(xiàn)場(chǎng)灌沙法壓實(shí)度估算程序MSD

QG(T+S)?(1)輸入灌沙前(筒+沙)重QG(T+S)?

G(TY)?(2)輸入土樣重G(TY)?

HG(T+S)?(3)輸入灌沙后(筒+余沙)重HG(T+S)?

HS?(4)輸入估計(jì)的含水量HS?

CASIOfx-4X00實(shí)用測(cè)量程序

第23頁

SMD=(5)輸出濕密度SMD=

GMD=(6)輸出干密度GMD=

YSD=(7)輸出壓實(shí)度YSD=

此步操作完成后再按一下巨回返回第⑴步要求重新輸入

計(jì)算。

2.實(shí)際灌沙法壓實(shí)度計(jì)算程序YSD

QG(T+S)?(1)輸入灌沙前(筒+沙)重QG(T+S)?

HG(T+S)?(2)輸入灌沙后(筒+余沙)重HG(T+S)?

G(TY)?(3)輸入土樣重G(TY)?

SKSZ=(4)輸出試坑里的沙重SKSZ=

SKTJ=(5)輸出試坑體積SKTJ=

CASIOfx-4X00實(shí)用測(cè)量程序

第24頁

SMD=(6)輸出濕密度SMD=

HN1?(7)輸入第一個(gè)盒號(hào)HN1?

ST+H1?(8)輸入第一個(gè)濕土+盒重ST+H1?

GT+H1?(9)輸入第一個(gè)干土+盒重GT+H1?

HZ1=(10)輸出第一個(gè)盒重HZ1=

HSL1=(11)輸出第一個(gè)含水量HSL1=

HN2?(12)輸入第二個(gè)盒號(hào)HN2?

ST+H2?(13)輸入第二個(gè)濕土+盒重ST+H2?

GT+H2?(14)輸入第二個(gè)干土+盒重GT+H2?

CASIOfx-4X00實(shí)用測(cè)量程序

第25頁

HZ2=（15）輸出第二個(gè)盒重HZ2=

HSL2=（16）輸出第二個(gè)含水量HSL2=

PHS=（17）輸出兩個(gè)含水量的平均含水量PHS=

GMD=（16）輸出干密度GMD=

YSD=（17）輸出壓實(shí)度YSD=

此步操作完成后再按一下而返回第(1)步要求重新輸入

計(jì)算。

------------------------二、程序設(shè)計(jì)

1.現(xiàn)場(chǎng)灌沙法壓實(shí)度估算程序MSD

FixmJ

LblOJ

{ABCD}J

A“QG(T+S)”：C“G(T+Y)”：B“(HG(T+S)”J

D“HS”J

H=Z[l]C"(A-B-Z[2])J

I=H(l-D4-(100+D))J

J=1OO14-Z{3}J

H“SMD二”/

I“GMD=”/

J“YSD二”/

Goto0

2.實(shí)際灌沙法壓實(shí)度計(jì)算程序YSD

FixmJ

LblOJ

{ABC}J

CASIOfx-4X00實(shí)用測(cè)量程序

第26頁

A“QG(T+S)”:B“HG(T+S)”：C“G(TY)”J

S=A-B=Z[2]:S“SKSZ=”/

T=S-?Z[1]:T“SKTJ="/

H=C+T:H"SMD="/

{GEFNQR}J

G"HN1"：E“ST+H1”：F“GT+H1”J

P=G+10」

G>400=>P=G-290NJ

K=Z[P]」

L=100(E-F)4-(F-K)J

K“HZ1="/

L“HSL1=”/

N“HN2”:Q“ST+H2”：R“GT+H2”J

P=N+10J

N2400=P=N-290、」

U=Z[P]J

M=100(Q-R)4-(R-U)J

U“HZ2="/

M“HSL2="/

D=(L+M)-?2:D“PHS="D

I=H(l-D4-(100+D))J

J=100I4-Z[3]J

I“GMD="/

J“YSD="/

Goto0

三、擴(kuò)展變量設(shè)置

1.設(shè)置說明

Z[l]:標(biāo)準(zhǔn)砂密度

Z[2]:標(biāo)定的錐體砂重

Z[3]:填料的最大干密度

Z[4]?Z[9]:預(yù)留的備用變量

Z[10]?Z[210]:盒重(按編號(hào)順序，例如第1個(gè)盒重存入第109個(gè)盒重存入Z[119])

2.擴(kuò)展變量設(shè)置值

(略)

CASIOfx-4X00實(shí)用測(cè)量程序

第27頁

一、程序設(shè)計(jì)

1.測(cè)量放樣計(jì)算主程序CLFY

V=19:Fixm:RadJ

{OEFG}:0"l.XL2.SD"：E"DZ"：F”DH”:G"AH”J

Pol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62])J

D=TTG+180-J」

Lbl1J

OwInGoto2IX」

{KQ}:K"KF"：Q"BL”J

Prog"ZB”J

X=X+Rec(Q,U+TT4-2):Y=Y+JJ

Goto3J

Lbl2」

{XY}:X"XF":Y"YF”J

Lbl3J

Pol(X-Z[E+52],Y-Z[E+62])J

["S="A

>J+DJ

I>2n=>I=I-2TI

K0=>I=I+2TTKJ

1=18014-nJ

[“A="/

Goto1

2.線路坐標(biāo)計(jì)算主程序XLZB

Rad」

FixmJ

{0}:0"l.ZX2.BX”J

Q=0J

CASIOfx-4X00實(shí)用測(cè)量程序

第28頁

Lbl1J

{K}:K"K"」

Owln{QG}:Q"L"：G"AJ”LJ

Prog"ZB”:X=X+Rec(Q,U+nG4-180):Y=Y+JJ

X“X二”/

Y“Y二”,

0二InU=180U+TT:U"AT二”,

Goto1

3.線路高程計(jì)算主程序XLGC

V=ll:FixmJ

LblOJ

{KQ}:K"K":Q"L"J

Prog”KD”J

Prog"GC”J

C"H="A

Goto0

4.邊樁放樣計(jì)算主程序BZFY

FixmJ

RadJ

{Z}:Z"LCJ2.QZ3.QS"J

Z=2=>Z[ll]=0:Goto1I\J

Z=3=>Goto

{MNGU}:M"DZ"：N"DH“：G"HZ“：U"AH”J

Z[8]=Z[M+52]:Z[9]=Z[M+62]J

C=Z[N+52]:A=Z[N+62]J

Pol(C-Z[8],A-Z[9]):Z[10]=J-nU-^180:Z[ll]=GJ

CASIOfx-4X00實(shí)用測(cè)量程序

第29頁

Lbl1J

Z=2=>Goto

{EBFD}:B"AQ“：E"S“：D“HD"：F“HY”J

Rec(E,Z[10]+nB4-180):X=Z[8]+1:Y=Z[9]+J:Goto3J

Lbl2J

{EBD}:E"N“：B"E":D"Z":F=0:X=E:Y=BJ

Lbl3」

Prog“FQ”J

G=D+Z[11]-F:G"H"/

Prog“FY”J

Goto1

5.線路坐標(biāo)計(jì)算子程序ZB

Prog"YS”J

X=74445.797J

Y=501515.278J

S=771.296-KJ

B=A+C+TTJ

S>L=>Goto1[\J

I=SSS-^64-R4-LJ

J=S-S^5-r-(40RRLL)J

止B-SS+(2RL)-TT:Goto2J

Lbl1J

U=(2S-L)4-R4-2J

I=R(l-cosU)+Z[5]:J=RsinU+Z[6]J

U-B-(S-L-r2)4-R+TT」

Lbl2J

Pol(I,J):尸J+B-TT4-2J

X=Rec(I,J)+XJ

CASIOfx-4X00實(shí)用測(cè)量程序

第30頁

Y=Y+JJ

U<0nU=U+2iTK

6.曲線要素計(jì)算子程序YS

R=280J

L=84.7J

S=-0.6769479859J

A=-2.415291254J

N=-1J

C=l.738343268J

Z[5]=1.067572917J

Z[6]=42.31770592J

>374.9146895J

Z[7]=RC+L

7.線路高程計(jì)算子程序GC

W=13J

Lbl1J

P=Z[W+7]J

K>Z[W]-P=>W=W+1:Goto1

W=13=>W=14b.J

V=W-InGoto2匕」

V=W-1J

J=Z[V+4]J

R=(J-Z[V+3])R(Z[V]-Z[V-l])J

S=(Z[V+5]-J)S(Z[V+l]-Z[V])J

T=Z[V+7]J

Lbl2」

L=K-Z[V]J

CASIOfx-4X00實(shí)用測(cè)量程序

第31頁

LW-TnH=J+RL:Goto3d」

L2T=H=J+SL:Goto3d」

A=2T4-(S-R)J

X=L+A(R+S)H-2J

H=J+XX+2+A-ARS+2」

Lbl3J

A=AbsQJ

AWZ[4]nC=0:Goto62」

I=-1J

Q>0nI=ld」

Lbl4J

Y=23J

Lbl5」

K^Z[Y]=>Y=Y+l:Goto53

0=Z[Y+2]:X=Z[Y+3]:0=10:X=IXJ

Z[Y+2]=0=>0=2、J

Z[Y+3]=0=>X=2、J

N=(Z[Y]-K)4-(Z[Y]-Z[Y-l])J

M=(X-O)(l-3NN+2NNN)+0J

A^Z[2]=>C=(Z[4]-A)M-?100:Goto6KJ

C=0.04(Z[2]-A)-M(Z[2]-Z[4])4-100J

M>4=C=(Z[4]-A)M4-1003

Lbl6」

C=H+C

8.反求線路樁號(hào)子程序FQ

Prog”YS”J

Z[4]=74445.797J

CASIOfx-4X00實(shí)用測(cè)量程序

第32頁

Z[3]=501515.278J

Z[4]=X=>Z[3]=Y=>K=771.296:Q=0:Goto2

Q=Z[4]:K=Z[3]:G=S+TT-4-2J

Prog"ZH”J

G=LL+6+R:Q=L-LLLWR+R」

Pol(G-H,Q-W):K=J+TT+2+L+2+R」

cosK<0=>Gotolb,J

Pol(H-(R+Z[5]),W-Z[6])J

K=771.296-R(TT-J)-L4-2J

Q二R-I」

Goto2J

Lbl1J

K=1:U=LJ

Prog“HQ”J

K=771.296-0:Q=-QJ

Lbl2J

M=1000J

K=Intg(MK+O.5)4-MJ

Q=Intg(MQ+O.5)4-MJ

Z"KD二”/

Q“WB二”/

9.坐標(biāo)轉(zhuǎn)換計(jì)算子程序ZH

H=X-Q:W=Y-KJ

Pol(H,W)J

G=J-GJ

H=IcosG:W=IsinG

10.反求緩曲長度子程序HQ

CASIOfx-4X00實(shí)用測(cè)量程序

第33頁

A=K4-460804-R^64-U^6J

口二吐3840+七5土b5」

C=13K+5760+RM+lT4」

T=KW+384+RN+IT4」

G二448用3+/3」

I=K-r(15RRUU)J

J=KW4-(8RRUU)J

L=H4-(2RU)J

N=KWJ

S=WJ

Lbl7」

M=AS13+PS」O-CS-9+TS-8-GS-6+1S八5-JS八4+LSS-KS+NJ

Q=13AS12+1OPS-9-9CS-8+8TS-7-6GS-5+51S八4-4JS-3+2LS-KJ

0sM+Q」

Abs(0-S)<lE-5=>Goto8、」

S=0J

Goto7J

Lbl8J

T=K000+6+U+R」

P=0-0^54-(40RRUU)J

T二HnP=WnQ=0:Goto9NKJ

Pol(H-T,W-P)J

Q=sin(J+KOO+2+R+U—TT+2)」

S=-U

Q>0nS=M」

Q=S1J

Lbl9

11.邊樁放樣計(jì)算子程序FY

CASIOfx-4X00實(shí)用測(cè)量程序

第34頁

V=11J

U=QJ

Prog”KD”J

Q=-0.75-Z[2]:Z[3]=-lJ

U>0=>Q=0.75+Z[2]:Z[3]=12」

Prog"GC”J

X=G-CJ

XWOnGoto

N=Int((X-0.1)4-8.9)+1J

N>5=>N=5NJ

I=1J

Lbl2J

0=Z[28+I]J

{0}:0"M"J

Z[28+I]=0J

1=1+1」

I>N+lnGoto4'」

Goto2J

Lbl4J

1=0J

W=3.55+Z[2]:H=0.04J

Lbl5J

1=1+1」

I>N-l=>Goto6'」

W=W+2+9Z[I+28]j

H=H+8.9J

Goto5」

Lbl6」

A=XTI:A"O"/

CASIOfx-4X00實(shí)用測(cè)量程序

第35頁

W=W-AbsU

AW1=P=WZ[3]/

bsJ

A>8=>P=(9Z[1+28]+W+2)Z[3]A

KJ

A=AZ[I+28]+WJ

Goto8」

Lbl7J

X=-X」

XW8nA=1.5X+0.75+Z⑵-AbsUKJ

X>8=XW12nA=12.75+Z[2]+l.75(X-8)-AbsUtStSJ

X>12=>A=14.75+Z[2]+l.75(X-8.04)-AbsU〉」

Lbl8」

A=AZ[3]J

A"DB="/

12.路面寬度計(jì)算子程序KD

Z[2]=10.5J

Z[4]=0.5J

K>460=>K<540nz[4]=0

AbsQ^Z[4]=>Goto6NJ

Q>0=>Gotoll\J

K<370.6255nl=50:X二K-370.6255:Goto22

K>430=KW467.384=1=41:X=K-430:Goto2W」

K>467.384nK<532.616nGoto3**」

K^532.616=>K<570z^>I=41:X=570-K:Goto2匕匕」

K>686.596=>I=35:X=K-686.596:Goto2匕」

Goto5、」

Lbl1J

CASIOfx-4X00實(shí)用測(cè)量程序

第36頁

K<350.4277nl=47:X=K-350.4277:Goto2*」

K>430nKW463.545nl=44:X=K-430:Goto2W」

K>463.545=>K<536.455=>Goto

K2536.455=>K<570=>I=44:X=570-K:Goto2NLJ

K>686.596nl=38:X=K-686.596:Goto23

Goto5t\J

Lbl2J

Z[2]=Z[I]XK+Z[1+1]XX+Z[1+2]X+10.5:Goto5J

Lbl3」

Z[2]=299,1044-sin(1.4543+(K-467.384)-280)-280:Goto5J

Lbl4J

Z[2]=280-267.3044-sin(1.4406+(K-463.545)4-280)J

Lbl5」

L=Z[2]+0.75:L"LD="/

Lbl6

CASIOfx-4X00實(shí)用測(cè)量程序

第37頁

二、擴(kuò)展變量設(shè)置數(shù)值

擴(kuò)展變量設(shè)置實(shí)際數(shù)值表

名稱福寧線A14-A

變坡點(diǎn)數(shù)目b2

起超點(diǎn)數(shù)目C3

臺(tái)階數(shù)目d6

導(dǎo)線點(diǎn)數(shù)目e10

曲線方程數(shù)f6

變量總數(shù)目72

Z⑴0

ZE2]變量（路面寬度）

Z[3]變量（左右系數(shù)）

Z[4]變量（中央帶寬）

Z[5]空

Z[6]空

Z[7]空

Z[8]空

Z[9]空

Z[10]空

Z[ll]空

Z[⑵284.56

Z[13]305.00

Z[14]600.00

Z[15]840.00

Z[16]9.838

Z[17]9.9

Z[18]15.8

Z[19]29

Z[20]20.44576

CASIOfx-4X00實(shí)用測(cè)量程序

第38頁

Z..21J52.5

Z[22]空

Z[23]284.56

Z[24]686.596

Z[25]771.296

Z[26]3

Z[27]3

Z[28]0

Z[29]第一邊坡坡度

Z[30]第二邊坡坡度

Z[31]第三邊坡坡度

Z[32]第四邊坡坡度

Z[33]第五邊坡坡度

Z[34]第六邊坡坡度

Z[35]4.36072E-07

獷展變量設(shè)置實(shí)際數(shù)值表（續(xù)表

名稱福寧線A14-A

Z[36]7.86427E-05

Z[37]3.59504E-04

Z[38]1.01209E-05

Z[39]-1.89E-04

Z[40]2.21E-03

Z[41]-4.00801E-04

Z[42]0.0224987

Z[43]3.79289E-03

Z[44]3.31567E-06

Z[45]-1.99117E-04

Z[46]3.56071E-04

Z[47]-2.23383E-04

Z[48]-1.76709E-03

Z[49]-0.011245

Z[50]-2.25118E-05

Z[51]-1.69988E-04

Z[52]-1.32568E-03

Z[53]

Z[54]

Z[55]

Z[56]

Z[57]

Z[58]

Z[59]

Z[60]

Z[61]

Z[62]

CASIOfx-4X00實(shí)用測(cè)量程序

第39頁

Z[63]

Z[64]

Z[65]

Z[66]

Z[67]

Z[68]

Z[69]

Z