CASIO 公路放样计算

CASIOfx-4X00实用测量程序

第1页

CASIOfx-4X00

实用工程测量程序

中铁二十四局福建公司工银鄙,读速款

2004年4月28日

CASIOfx-4X00实用测量程序

第2页

线路中、边桩测量放样程序（Ver3.2）

FlXLCS（主程序，步数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=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（十进制一六十进制子程序，步数19）

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

F32（六十进制一十进制子程序，步数22）

CASIOfx-4X00实用测量程序

第3页

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

F43(缓和曲线上任意点坐标计算子程序，步数57)

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

TTY:X=X-UW

F54(中桩、边桩坐标计算子程序，步数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(测设数据输出子程序，步数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(测设时移桩数据计算子程序，步数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实用测量程序

第4页

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

【使用说明】

1、程序说明

（1）本程序特点：可置镜任意点放样任意点（中桩点、边桩点、导线点）;

人性化设计，提示信息全面，并充分考虑工程术语和习惯；专门设计

的角度输入输出方式；绝对优秀的存储器分配方案。

（2）本程序适用于放射螺旋线作为缓和曲线且前、后缓和曲线长度相同的

单曲线放样，可放样线路中桩和边桩，按里程和坐标放样均可。

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

注意：分、秒必须为两位数，当小于10时，应在前面加“0”。

（4）放样前应准备的数据：建立统一的施工坐标系（正测量坐标系、右手

坐标系），计算控制点和曲线交点坐标、曲线第一切线方位角；整理曲

线要素和放样点桩号、相应的边桩距离（或放样点坐标）。

（5）若按坐标放样，则当程序提示输入曲线要素时，可输入任意值，仅在

提示输入置镜点、后视点和放样点属性时输入“1”，然后输入相应坐

标值。

（6）如果要实时显示放样点的坐标，可在子程序F6行L1的“Fix4:"

后增加以下语句（双引号内）：“X/Y/"或者"X"X〃=X/Y"Y〃=Y

⑺子程序F1行L4中“:U=0:{U}:U"AB":Prog1:K=U"（输入仪器后视

CASIOfx-4X00实用测量程序

第5页

读数）和行L5中“Prog6:"（调用移桩计算子程序）、子程序F6行

L1中“W=K+W:W23600W=W-360Z”（计算仪器前视读数，必

须与前述“输入仪器后视读数”同时取舍）、子程序F8（移桩计算子

程序）可根据需要取舍。

（8）本程序按CASIOfx-4500P计算器设计。若使用CASIOfx-4800P计算

器，应作以下改动：①变量"V”与"I”调换，变量"W”与“J”调

换；②调用子程序时，子程序名应加双引号（"），如：PROG1应改为

PROGT；③“xa应为“八”；④在子程序F1行L1或L2中任意

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

（9）程序步数说明：每个子程序实际占用空间=程序步数+行数+程序名字符

数+2。

2、显示符号说明（按程序运行的显示顺序）

A0第一切线方位角

X-JD、Y-JD交点（JD）的坐标值

A:R+L-曲线转向角（符号规则：右偏取“+”，左偏取

R、L0、K-ZH曲线要素（曲线半径、缓和曲线长度、直缓点里程）

T、L显示曲线的切线长度T和曲线长度L

置镜点属性：已知坐标时输入1,已知里程时输入其它

ZJ:XY=1

值

K/X、Y置镜点数据：里程（K）或坐标（X,Y）

HS:XY41后视点属性：已知坐标时输入1,已知里程时输入其它

CASIOfx-4X00实用测量程序

第6页

值

K/X、Y后视点数据：里程（K）或坐标（X,Y）

DO/A0后视边长和方位角（供检查用，防止输入错误）

AB仪器后视水平度盘读数

放样点属性：已知坐标时输入1,已知里程时输入其它

CS:XY，1

值

K/X、Y放样点数据：里程（K）或坐标（X,Y）

放样点距中线的距离（符号规则：放样点在线路右侧取

BZ:R+L-

“+”，在线路左侧取在中线上取“0”）

AC仪器前视水平度盘度数

DC计算前视平距

实测斜距（当输入为0时终止斜距的录入，计算实测斜

SC、V距的平均值并自动进入读取竖角状态）和竖直角（天顶

距）

SD实测前视平距

MOVE移桩数据，即：离开（+）/靠近（一）置镜点之平距

3、存储器内容

AG0曲线第一切线V极坐标计算

曲线转向角置镜点坐标

BHQ方位角W固定存储器

C曲线交点I后视点坐标p曲线内移值X

放样点坐标

D坐标值J或里程R曲线半径Y

EZH点里程L置镜点里程S缓和曲线长度Z

FHZ点里程M切线增长值T切线长度

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

CASIOfx-4X00实用测量程序

第7页

4、检算数据

测设里程边桩距离前视水平角平距

cs备注

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

左-30.041-43-03153.444已知数据：

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

中间显示结果：T=215.116,L=415.019,D0=103.020,A0=163-09-ll

线路中、边桩测量放样程序（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实用测量程序

第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(十进制一六十进制子程序)

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

F32(六十进制一十进制子程序)

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

F43(缓和曲线上任意点坐标计算子程序)

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实用测量程序

第9页

F54（中桩、边桩坐标计算子程序）

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（测设数据输出子程序）

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（测设时移桩数据计算子程序）

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、

视距测量计算程序（Ver1.1）

F8SJCL（主程序，步数75）

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

\Fix3:D"D"=

CASIOfx-4X00实用测量程序

第10页

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

1、符号说明：T——仪器高，——斜距，"AV"——竖直角(指“天顶

距")，"V"——目标高，"D"——平距，"H"——高差。

2、本程序需调用“十进制一六十进制子程序”。

竖曲线计算程序(Ver1.1)

F9SQX(主程序，步数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、符号说明

竖曲线起测设点标

11、12坡度1、2KSHC

点高

竖1111线终竖曲线半

K(BP)变坡点里程KER

/占、、、径

H(BP)变坡点标高KC测设点里T切线长度

CASIOfx-4X00实用测量程序

第11页

程

2、注意事项

(1)IK12符号：上坡取“+下坡取“一”。单位为“千分之一”,如

5.3%。输入5.3。

(3)行口中“E4”即“10000”，应输入“EXP”+“4”，或“l(r”+“4”

(显示i04)o

极坐标计算程序(Ver1.1)

FlJZB(主程序，步数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、符号说明："POL=>0"——由直角坐标反算极坐标时输入“1”，由极

坐标计算直角坐标时输入其他任意值；"XI"、"Yl"、"X2"、"Y2"

——起终点直角坐标；"X0\"Y0"——起算点直角坐标；"A\

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

2、本程序需调用“十进制f六十进制子程序”、“测设数据输出子程

序”。

CASI04800缓和曲线、圆曲线和直线段上的任意中、边桩坐标计算程序

CASI04800缓和曲线、圆曲线和直线段上的任意中、边桩坐标计算程序

1、该程序适用于计算器CASVOfk-4800P,可计算与线路中心成任意夹角的缓和曲线、圆

CASIOfx-4X00实用测量程序

第12页

曲线、直线段中、边桩坐标及切线方位角。

2、A?输入转角：左转为负，右转为正

3、R?输入圆曲线半径

4、LS?输入缓和曲线长度

5、JD?输入交点桩号

6、J?输入0程序计算中桩，输入1程序计算边桩

7、N?E?输入交点X、Y坐标

8、FW待求点切线方位角

9、当计算交角为60°时，则公式改为(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实用测量程序

第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实用测量程序

第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实用测量程序

第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实用测量程序

第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实用测量程序

第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实用测量程序

第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实用测量程序

第19页

Lbl8

E"E2"=E-XA

Lbl9

符号意义

Z=o,Y=0单、双交点的曲线要素、主点桩号计算

Z¥0,Y=0三交点的曲线要素、主点桩号计算

Z=0,Y*0,W=0单曲线非对称设置缓和曲线的曲线要素、

主点桩号计算

Z=0”w0,W¥0凸曲线非对称设置缓和曲线的曲线要素、

主点桩号计算

JB——如无JB角值，可输入。或按一下“EXE”键；

JC——如无JC角值，可输入。或按一下“EXE”键；

AB,BC——分别是交点A、B、C之间的距离，如无此值，可

输入。或按一下“EXE”键;

E2一一当E2=0时，称为切基线，当E为负值时，称为圆内基

线，反之则称为圆外基线；

HH——两个回旋线的交点桩号。

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实用测量程序

第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实用测量程序

第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实用测量程序

第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

符号意义：

z=o-s形曲线径相衔接的另一缓和曲线长度计算;

Z+0,F=o-外距长度受限制的圆曲线半径计算；

ZrO,FWO-切线长度受限制的圆曲线半径计算.

一、操作说明

1.现场灌沙法压实度估算程序MSD

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

G(TY)?(2)输入土样重G(TY)?

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

HS?(4)输入估计的含水量HS?

CASIOfx-4X00实用测量程序

第23页

SMD=(5)输出湿密度SMD=

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

YSD=(7)输出压实度YSD=

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

计算。

2.实际灌沙法压实度计算程序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实用测量程序

第24页

SMD=(6)输出湿密度SMD=

HN1?(7)输入第一个盒号HN1?

ST+H1?(8)输入第一个湿土+盒重ST+H1?

GT+H1?(9)输入第一个干土+盒重GT+H1?

HZ1=(10)输出第一个盒重HZ1=

HSL1=(11)输出第一个含水量HSL1=

HN2?(12)输入第二个盒号HN2?

ST+H2?(13)输入第二个湿土+盒重ST+H2?

GT+H2?(14)输入第二个干土+盒重GT+H2?

CASIOfx-4X00实用测量程序

第25页

HZ2=（15）输出第二个盒重HZ2=

HSL2=（16）输出第二个含水量HSL2=

PHS=（17）输出两个含水量的平均含水量PHS=

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

YSD=（17）输出压实度YSD=

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

计算。

------------------------二、程序设计

1.现场灌沙法压实度估算程序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.实际灌沙法压实度计算程序YSD

FixmJ

LblOJ

{ABC}J

CASIOfx-4X00实用测量程序

第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

三、扩展变量设置

1.设置说明

Z[l]:标准砂密度

Z[2]:标定的锥体砂重

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

Z[4]〜Z[9]:预留的备用变量

Z[10]〜Z[210]:盒重(按编号顺序，例如第1个盒重存入第109个盒重存入Z[119])

2.扩展变量设置值

(略)

CASIOfx-4X00实用测量程序

第27页

一、程序设计

1.测量放样计算主程序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.线路坐标计算主程序XLZB

Rad」

FixmJ

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

Q=0J

CASIOfx-4X00实用测量程序

第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.线路高程计算主程序XLGC

V=ll:FixmJ

LblOJ

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

Prog”KD”J

Prog"GC”J

C"H="A

Goto0

4.边桩放样计算主程序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实用测量程序

第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.线路坐标计算子程序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实用测量程序

第30页

Y=Y+JJ

U<0nU=U+2iTK

6.曲线要素计算子程序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.线路高程计算子程序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实用测量程序

第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.反求线路桩号子程序FQ

Prog”YS”J

Z[4]=74445.797J

CASIOfx-4X00实用测量程序

第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.坐标转换计算子程序ZH

H=X-Q:W=Y-KJ

Pol(H,W)J

G=J-GJ

H=IcosG:W=IsinG

10.反求缓曲长度子程序HQ

CASIOfx-4X00实用测量程序

第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.边桩放样计算子程序FY

CASIOfx-4X00实用测量程序

第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实用测量程序

第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.路面宽度计算子程序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实用测量程序

第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实用测量程序

第37页

二、扩展变量设置数值

扩展变量设置实际数值表

名称福宁线A14-A

变坡点数目b2

起超点数目C3

台阶数目d6

导线点数目e10

曲线方程数f6

变量总数目72

Z⑴0

ZE2]变量（路面宽度）

Z[3]变量（左右系数）

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实用测量程序

第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

犷展变量设置实际数值表（续表

名称福宁线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实用测量程序

第39页

Z[63]

Z[64]

Z[65]

Z[66]

Z[67]

Z[68]

Z[69]

Z