曲线段任意点坐标计算及放样程序

曲线任意点坐标计算及放样程序

不对称缓和曲线平面坐标计算程序

R“R”S“L1”U“L2”W“W”P“F”回车

A=90S/R∏：B=90U/R∏：C=S2/24R：

D=U2/24R：E=S/2-S∧3/240R2：F=U/2-U∧3/240R2:F=U/2-U∧3/240R2：Q“T1”=E+（R+C）Tan（AbsW/2）+（D-C）/SinAbsW▲

K“T2”=F+（R+C）Tan（AbsW/2）-（D-C）/TanAbsW▲

O“L”=（AbsW-A-B）R∏/180+S+U▲

A=Z[1]-Q▲

B=A+S▲

E=A+O-U▲

F=A+O▲

G=Z[2]+QCos（P+180）▲

H=Z[3]+QSin（P+180）▲

I=Z[2]+Kcos(P+W) ▲

J=Z[3]+Ksin(P+W) ▲

M”X0”N”Y0”:Prog”A”:Prog”D” ▲

Lb1O:{ZDT}:Z”Z”:Lb10:Z≤A＝＞Goto1：≠＝＞Z＞A＝＞Z≤B＝＞L=Z-A：K=RS：GotoY：≠＝＞Z＞B＝＞Z≤E＝＞L=S：K=RS：GotoY：≠＝＞E＞E＝＞Z≤F＝＞L=F-E：K=RU：GotoY：≠＝＞Z＞F＝＞C=Z-F：Goto8△回车

Lb1 1：C=A-Z：X=G+Ccos（P+180）：Y=H+Csin（P+180）：V=P：Goto9△回车

Lb1 Y：K=0＝＞V=P：X=G：Y=H：Goto 6：≠＝＞X=L-L∧5/40K2+L∧9/3456K∧4-L∧13/599040K∧6：Y=L∧3/6K-L∧7/336K∧3+L∧11/42240K∧5-L∧15/9676800K∧7：C=√（X2+Y2）：

V=90L2/∏R：Q=Tan-1（Y/X）：W＜0＝＞Q=-Q：V=-V：GotoB△回车

Lb1 B：Z＞A＝＞Z≤E＝＞Goto5：≠＝＞Z＞E＝＞Z≤F＝＞Goto7△回车

Lb1 5：X=G+Ccos（P+Q）：Y=H+Csin（P+Q）：V=P+V回车

Z＞A＝＞Z≤B＝＞Goto 9：≠＝＞Z＞B＝＞Z≤E＝＞Goto６△回车

Lb1 6：L=Z-B：Q=90L/∏R：C=2RsinQ 回车

W＜0＝＞Q=-Q：Goto E△回车

Lb1 E：X=X+Ccos（V+Q）：Y=Csin（V+Q）+Y：V=V+2Q：Goto 9△回车

Lb1 7：X=I+Ccos（P+W+180-Q）：Y=J+Csin（P+W+180-Q）：V=P+W-V：Goto 9△回车

Lb1 8：X=I+Ccos（P+W）：Y=J+Csin（P+W）：V=P+W回车

Lb1 9 ：X=X+Dcos（V+T）：“X=“：Pause 0：

Y=Y+Dsin（V+T）▲

Prog“A”：Prog“D”▲GotoO：O=Z

“A”程序

X＞M＝＞Prog“B”：Goto 0：≠＝＞X=M＝＞Prog“C”：≠＝＞X＜M＝＞Prog“B”：Q=Q+180：Lb1 0：Q=Q+360：Q≥360＝＞Q=Q-360▲≠＝＞Q=Q▲

“B”程序

Q=Tan-1（（Y-N）/（X-M））

“C”程序

Y≥N＝＞Q=90▲≠＝＞Q=270▲

“D“程序

C“S”=√（（X-M）2+（Y-N）2）

1、程序启动前，扩充变量储存器，按SHIFT DEFM 3

2、将交点桩号、坐标（X，Y）分别赋值给Z[1]、Z[2]、Z[3]

3、启动程序

R：输入平曲线半径

L1：输入第一缓和曲线长

L2：输入第二缓和曲线长

W：输入转角即线路偏角（左为负，右为正）

F：输入后段切线方位角（按前进方向分）

T1：计算出缓和曲线后段长

T2：计算出前段缓和曲线长

L：计算缓和曲线全长

A：计算出ZH点桩号

B：计算出HY点桩号

E：计算出YH点桩号

F：计算出HZ点桩号

G：计算出ZH点X坐标

H：计算出ZH点Y坐标

I：计算出HZ点X坐标

J：计算出HZ点Y坐标

X0、Y0、输入测站点坐标，X、Y为输入后视点坐标

Q：计算出测站点至后视点方位角

S：计算出测站点至后视点距离，

D：输入边桩至中桩的距离

T：输入中桩切线与边桩的夹角

X、Y为计算出所求点的坐标，

等长曲线L1与L2输值一样

对称缓和曲线CASIO4800计算程序

（袁战文）

Q程序

K=AR∏/180+V“L0”▲

P=V2/24R：T=（R+P）Tan（A/2）+V/2-V

3/240R2▲

B“A0”：G“XJD”：W“Y JD”：F“Y=1：Z=-1”：Prog“X”回车

Lb1 2：｛SDH｝：L=S“KC“-Z”KZH“：D”D=3

“：H”RA=2“回车

L≤0＝＞Prog“ZZ”：≠＝＞L≤V＝＞Prog“HQ”：≠＝＞L≤K-V＝＞Prog“YQ”：

≠＝＞L＜K＝＞Prog “YH”：≠＝＞Prog“HZ”△△△△X ▲

Y▲

M=X:U=Y:Prog “X”

:H=2＝＞Prog “R”: ≠＝＞D=3＝＞△△GOTO 2回车X程序

E”X0”:O”Y0”:M”X1

”:U”Y1”:I=Pol(M-

E,U-O)▲

J＜0＝＞N=J+360▲

≠＝＞N=J▲

HQ程序

X=L-L5/40R2V2:Y

=L3/6RV:Q=90L2/

∏RV:Prog”A”回车

YQ程序

Q=180(L-V)/∏R+90

V/∏R:X=RsinQ+V/

2-V3/240R2:Y=R(

1- CosQ)+P:Prog”A”回车