求高手帮改4850程序为5800的

CASIO-4850P公路施工测量应用程序(GDL-2006)

SY4(邵永四标)
Lb11:Porg“1”:Porg“P”:Porg“2”:Porg“G”:H=H◢ Goto1
输入：LX 计算点桩号 S 计算点距中桩距离 W 中桩与计算点连线与路线前进方向夹角(顺时针转动)
计算并显示：计算点坐标X ,Y 及LX中桩对应的路线设计高程H

ZX(直线段)
Porg“8”:Lb1 1:Porg“1”:Porg“Z”:Porg“2”:Goto1
已知：LA 第一点桩号 X1 第一点X坐标 Y1 第一点Y坐标
LN 第二点桩号 X2 第二点X坐标 Y2 第二点Y坐标
输入：LX 计算点桩号 S 计算点距中桩距离 W 中桩与计算点连线与路线前进方向夹角(顺时针转动)
计算并显示：计算点坐标X ,Y

YQX(圆曲线)
Prog“8”:R:Prog“7”:Lb11:Prog“1”:Prog“Y”:Prog“2”:Goto 1
已知：LA 第一点桩号 X1 第一点X坐标 Y1 第一点Y坐标
LN 第二点桩号 X2 第二点X坐标 Y2 第二点Y坐标
R:圆曲线半径 Q ：Y=1右转 Z=-1左转
输入：LX 计算点桩号 S 计算点距中桩距离 W 中桩与计算点连线与路线前进方向夹角
计算并显示：计算点坐标X ,Y

HHQX(缓和曲线)
K“ZH”N“HZ”C“XD”D“YD”A“XH”B“YH”RTU“Ls”:Prog“7”:Lb1 1:Prog“1”:Prog“H”:Prog“2” :Goto1

ZH:直缓点桩号K HZ:缓直点桩号N XD:交点X坐标 C
YD: 交点Y坐标D XH:后交点X坐标 A
YH: 后交点Y坐标 B R:圆曲线半径(圆曲线部分) R
T:切线长 T Ls:缓和曲线长 U Y=1右转 Z=-1左转 Q
LX 计算点桩号 V S计算点距该中桩距离 S W 计算点与中桩连线与路线前进方向的夹角 W
计算结果：计算点坐标X ,Y
说明:1.适用于标准的缓和曲线,既第一,第二缓和曲线长度相等。
2.计算范围为：含两端直线段在内的整条曲线。

FHQX(复合曲线)
Porg“8”:H“R1”R“R2”: Porg “7”:Lb1 1: Porg “1” :Porg “F”: Porg “2”:Goto1
LA 缓和曲线上第一点桩号 K X1第一点X坐标 A Y1第一点Y坐标 B
LN 缓和曲线上第二点桩号 N X2第二点X坐标 C Y2第二点Y坐标 D
R1 第一点曲线半径(LA) H R2 第二点曲线半径(LN) R
（如：R1接圆曲线按圆曲线半径输入 R2接直线段按+∞,输入1M(兆)）
其他项同HHQX
说明：LA和LN在缓和曲线段上即可，不必是起点或终点；LA可是大于LN；对应的曲率半径计算要正确。

SQX(竖曲线)
A“K1”B“K2”C“LD”D“HD”R:Lb11:{V}:V“Lx”:Prog“S”:”H=”: H◢
Goto1
已知：K1 前一段路线纵坡A K2 后一段路线纵坡B LD 竖曲线交点桩号C
HD 交点高程D R 竖曲线半径
输入： Lx 计算点桩号
计算:LX桩号的路线设计高程 H

LX S W(桩号反算)
Lb10:V“LC”:{XY}:Z[1]=X:Z[2]=Y:Lb11:Prog“P”:A=X:B:=Y:X=Z[1]:Y=Z[2]:(X-A) 2+(Y-B)2<1m=>”LX=”:V◢
“S=”:S=0◢
“W=”:W=90◢
Goto 0△Pol(X-A,Y-B:K=Icos(J-M:AbsK>1m=>V=V+K:Goto1△ “LX=” :V◢
“S=”:S=I◢
:W=J-M:Abs W>180=>W=W-360Int (W÷360+.5W÷Abs W△“W=”:W◢
Goto 0
已知：猜测桩号LC, 已知点P坐标（X,Y）。
计算：已知点P（X,Y）相对于路线的位置。即对应的桩号LX,距中桩距离S，位于路线的那一侧（W=90在右侧；W=-90在左侧）。
注意：1、本程序在路线曲线要素已编入子程序P，即项目程序正常运行时方可运行。
2、输入程序时注意区别：O和0、G和1G(千兆)、K和1k(千)、M和1M(兆)。

FWFS(方位反算)
A“X0” B“Y0”Fixm:Lb1 1:{XY}:Pol(X-A,Y-B:”L=”:L=I◢
“HR=”:J=J+180(1-AbsJ÷J→DMS◢
Goto 1
已知：两点坐标P0(X0,Y0)；P(X,Y)，计算P0点到P点的距离L和方向角HR（显示度、分、秒）。

子程序
1
{VSW}:V“Lx”SW
2
S=O=>”X=”:X◢
“Y=”:Y◢
≠=>Rec(S,M+W:”X=”:X=X+I◢
“Y=”:Y=Y+J◢
△
3
A“X1”B“Y1”C“X2”D“Y2”
4
Z=0:K>N=>Z=180△P=cosZ
5
X=A+I:Y=B+J
6
Fixm:Pol(C-A,D-B:F=J
7
Q“Y=1; Z=-1”
8
K“LA”A“X1”B“Y1”N“LN”C“X2”D“Y2”
9
K=N:A=C:B=D
X
O=RU÷L:X=L-L^3÷40O2+L^5÷3456O^4-L^7÷599040O^6:Y=L2÷6O-L^4÷336O^3+L^6÷42240O^5-L^8÷9676800O^7
H
U=0=>U=1μ△Prog“4”:Prog“6”:L=P(V-K:H=0:PV>.5P(K+N=>L=P(N-V:H=180:F=F+180Q(N-K-PU)÷πR+H△Rec(T,F:E=C-I:G=D-J:L≦0=>Rec(L,F:M=F+Z+H:O=1M:Goto2△L≦U=>Prog“X”:Pol(X,Y:Rec(I,F+PQJcosH:M=F+90PQLcosH÷πO+Z+H:Goto2△J=45(2L-U)÷πR:I=45U÷πR:M=F+2PQJcosH+Z+H:L=U:Prog“ X”:Rec(2Rsin(J-I,J+I:X=X+I:Y=Y+J:Pol(X,Y:Rec(I,F+PQJcosH:Lb1 2:X=E+I:Y=G+J
S
E=1:A>B=>E=-1△T=.5RAbs(A-B:M=A:V>C=>M=B△Abs(V-C≧T=>H=D+M(V-C:≠=>G=V-C+T:H=D-AT+Gtan(tan-1A+90EG÷πR△

F
M=R(N-K)÷(H-R:U=N-K+M:L=M:Prog“X”:E=X:G=Y:L=U: Prog“X”:Prog“6”:Z=I:Pol(X-E,Y-G:Z=Z÷I:F=F-QJ:V=K=>V=K+1μ△L=V-K+M:Prog“X”:Pol(X-E,Y-G:Rec(ZI,F+QJ:M=F+90QL÷πO：Prog“5”

Z
Prog“4”:Prog“6”:M=F+Z:Rec(V-K,M:Prog“5”:O=R∞:Q=1
Y
Prog“6”:Prog“4”:E=F-90Q(N-K)÷πR+Z:G=90Q(V-K)÷πR :Rec(2QRsinG,E+G:M=E+2G:Prog“5”:O=R

B
Prog“6”:Q=I:Pol(M-E,N-G:Q=Q÷I:Pause 2:F=F-J:Pol(U-E,V-G:Rec(QI,F+J:”X=”:X=A+I◢
“Y=”:Y=B+J◢
P（示例：邵永互通A匝道 及主线K75+000-K79+000）
K=1k:A=35436.25:B=507932.575:N=1127.997:C=35514.845:D=507831.55:V≦N=>Prog“Z”: Goto 2△Prog“9”: N=1190.497:C=35555.216:D=507783.894:H=1G:R=250:Q=1:V≦N=>Prog“F”:Goto2△Prog“9”:N=1509.927:C=35850.194:D=507740.589: V≦N=> Prog“Y”: Goto 2△Prog“9”:N=1572.427:C=35902.559:D=507774.63:H=R:R=1G: V≦N=> Prog“F”: Goto 2△Prog“9”:N=1696.968:C=36004.058:D=507846.799: V≦N=>Prog“Z”:Goto2△Prog“9”:N=1788.305:C=36082.899:D=507892.256:H=1G:R=160:Q=-1: V≦N=> Prog“F”: Goto2△Prog“9”:N=1915.842:C=36206.816:D=507884.079: V≦N=> Prog“Y”:Goto2△K=74313.432:N=75179.345:A=46406.164:B=502972.701:C=44328.424:D=503450.285:U=0:T=433.709:R=6k:Q=-1: V≦N=> Prog“H”:Goto2△Prog“9”:K=76243.835:N=77279.84:C=42443.746:D=504181.828:U=245:T=523.475:R=2k: V≦N=> Prog“H”: Goto2△Prog“9”:K=78285.572:N=79751.194:C=40803.713:D=505758.66:U=266.667:T=745.899:R=2400:Q=1: V≦N=> Prog“H”: Goto 2△Lbl 2

G（示例：邵永互通A匝道 及主线K75+000-K79+000）
A=.02:B=-10m;C=1050:D=112.7:R=2500:V≦1087.5=>Prog“S”:Goto1△A=B:B=.0165:C=1170:D=111.5:R=6225:V≦1400=>Prog“S”:Goto1△A=B:B=-.01335:C=1550:D=117.77:R=4k:V≦1650=>Prog“S”:Goto1△A=B:B=.01289:C=1705:D=115.7:R=4ķ:V≦2ķ=>Prog“S”:Goto1△A=.01:B=-13m:C=75740:D=168.99:R=20ķ:V≦75800=>Prog“S”:Goto1△A=B:B=5m:C=77100:D=151.31:R=15k:V≦77400=>Prog“S”:Goto1△A=B:B=-16m:C=77700:D=154.31:R=16k:V≦78k=>Prog“S”:Goto1△A=B:B=18m:C=78160:D=146.95:R=7300:V≦78600=>Prog“S”:Goto1△A=B:B=-27m:C=79k:D=162.07:R=14k:V≦79400=>Prog“S”:Goto1△Lb1 1

[ 本帖最后由 wuzhen383 于 2011-11-18 19:31 编辑 ]