不对称缓和曲线CASIO4800计算程序

4800计算器程序（缓和曲线任意中、边桩）LBI 0：X：Y：{I}：{J}：A：R：U：N：{D}：{O}：Z：W：W=1＝＞GOTO 1：≠＞GOTO 2←LBI 1：B=90L2÷（ΠRA）：←C=√（（（I-J）-（I-J）5÷（40R2A2））2+（（I-J）3÷（6RA））2）：Q=U+BN÷3：S=U+BN+Z：T=U+BN+Z+180：GOTO 3：←LBI 2：E=90（I-J）÷（ΠR）：C=2R SinE:B=90A÷（ΠR）:Q=U+(B+E)N:S=U+(B+2E)+Z:T=U+(B+2E)N+Z-180:GOTO 3: ←LBI 3：F“XA”=X+C CosQ▲G“YA”=Y+C SinQ▲H“XR”=F+D CosS▲H“YR”=G+D SinS▲H“XL”=F+O CosT▲H“YL”=G+O SinT▲GOTO 0←说明：X Y—-起算点坐标（计算缓和曲线部分输ZH点、计算圆曲线部分输HY点）；I J---为计算桩号，I为大里程，J为小里程，保证（I-J）始终为正；A—-为缓和曲线长；R—-半径；U—-起始方位角（直缓点）；D O—计算边中距；Z—-一般为90度；N—-判别曲线左右偏位，右转输+1、左转输-1；W---当W=1时，程序计算缓和曲线部分，当W=0时，程序计算原曲线部分；F“XA”、 G“YA”---计算桩号的中桩坐标；H“XR”、 H“YR”---计算前进方向（F“XA”、 G“YA”对应）的右边桩坐标，H“XL”、 H“YL”---计算前进方向（F“XA”、G“YA”对应）的左边桩坐标注意：在计算YH至HZ间坐标时，X Y应输入HZ点的坐标值，U为HZ点的方位角-180度，N也相应相反，这时计算的左右边桩与线路前进方向的左右边桩正好相反，计算时要注意取值。

CASIO4800坐标计算程序CASIO4800缓和曲线、圆曲线和直线段上的任意中、边桩坐标计算程序1、该程序适用于计算器 CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。

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）1 A：R：C“LS”：D“JD”2 P=C∧2/24/R-C∧4/2688/R∧33 Q=C/2-C∧3/240/R∧24 B=90C/兀/R5 T=(R+P)tan(AbsA/2)+Q◢6 W=(R+P)/cos(A/2)-R◢7 L=((AbsA)-2B)兀R/180+2C◢8 G=D-T◢9 H=G+C◢10 I=G+L/2◢11 K=G+L-C◢12 M=G+L◢13 N：E：F: J14 A＜0=>S=-1:≠=>S=1⊿15 U=F+A/2+90S16 V=W+R17 B=N+VcosU18 O=E+VsinU19 Lbl 120 {Z}21 Z≤G=>L=T+G-Z22 V=F+18023 U=F24 Goto 2⊿25 Z≤H=>L=Z-G26 V=L-L∧5/(90R∧2C∧2)27 L=30L∧2S/(兀RC)28 P=F+18029 Q=F+L30 U“FW”=F+3L◢31 Goto 4⊿32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀33 U“FW”=L+90S◢34 Goto 5⊿35 Z≤M=>L=M-Z36 V=L-L∧5/(90R∧2C∧2)37 L=30SL∧2/(兀RC)38 P=F+A39 Q=F+A+180-L40 U=F-3L+A◢41 Goto4⊿42 Z>M=>L=Z-M+T43 U=F+A44 V=U45 Goto 246 Lbl 247 X=N+LcosV◢48 Y=E+LsinV◢49 Goto 6⊿50 Lbl 351 {W}52 P“XL”=X+Wcos(U-90) ◢53 Q“YL”=Y+Wsin(U-90) ◢54 P“XR”=X+Wcos(U+90)◢55 Q“YR”=Y+Wsin (U+90) ◢56 Goto 157 Lbl 458 X=N+TcosP+VcosQ◢59 Y=E+TsinP+VsinQ◢60 Goto 661 Lbl 562 X=B+R cosL◢63 Y=O+RsinL◢64 Goto 665 Lbl 666 J=1=> Goto 3⊿67 Goto 1。

4800-对称与非对称缓和曲线坐标计算程序主程序：XY=NH"X0"？M ："Y0"？N ：0→TLbI 1：Prog" JD-X " ：B∧2/24/A→P：B/2-B∧3/240/A∧2→Q：K- Z[1]→C ：C+B →D ：D+(AbsW-90(B+U)/π/A) πA /180→E：E+U→FIf W<0 : Then S= -1：Else 1→S:IfEndLbI 6：If L≤C: Then K-L→O：G-Ocos V→R：H-Osin V→U：V→Z：Goto 3:IfEhdIF L≥F: Then L-F→O: V+W→Z：G+Ocos Z→R：H+Osin Z→U：Goto 3: IfENDIF L<D:Then L-C→O：Prog"ZH--HY"：V+SR→Z：G+（I- Z[1]）cos V-SJsin V→R ：H+（I- Z[1]）sin V+JScos V→U：Goto 3:IFendIF L>E:Then F-L→O ：U→B:Prog"ZH--HY" ：V+W→O ：O-SR→Z：G+（Z[2]-I）cos O-SJsin O→R ：H+（Z[2]-I）sin O+JScos O→U：Goto 3:Ifend180（L-D+B/2）/ π/A→O：Asin O+Q→I：P+A（1-cos O）→J：V+SO→Z：G-（Z[1]-I）cos V-SJsin V→R ：H-（Z[1]-I）sin V+SJcos V→ULbI 3：？T：If T=1:Then Goto 5 ：Else 0→O : Ifend"X0":R◢"Y0":U◢"I":Z◢LbI 4："S"？O：If O=0 : Then Goto 1：IFEndIf O=-1:Then Goto 5 : IfendR-Osin Z→X ：U+Ocos Z→Y ：0→J :0→I：Pol（X-M，Y-N）：J<0=> J+360→J:Ifeng"X1"：X◢"Y1": Y◢"G": J◢"L": I◢Goto 4:IfendLbI 5："XF"？X："YF"？YIf X=-1 : Then 0→T：Goto 4 : IfendPol（X-R，Y-U）：Icos（J-Z）→O ：If AbsO≤0.001: Then L+ O→L◢Isin（J-Z）→Z[3] "XF"◢Goto 5 : Else T=1：L=L+O : Goto 1 : Ifend子程序：ZH--HYAB→U：O-O∧5/40/U∧2→I：O∧3/6/U-O∧7/336/U∧3→J：90O∧2/πU→R数据库子程序：JD-X？L:L≥45250.23 And L＜46500.29: Then 45635.294→K : 3303516.326→G: 34635482.418→H : 154°23′25.3″→V : -23°48′12.4″→W : ？？？？→z[1] : ？？？？→z[2] : 1100→A : 240→B ：250→U : Ifend？L＞.......... ：Ifend：Ifend使用过程“显示”说明：1、M"X0"、N"Y0"为输入测站点坐标。

LX、RX：左侧或右侧点X坐标
LY、RY：左侧或右侧点Y坐标
I：置镜点至左或右点距离
J：置镜点至左或右点方位角
CONT：输入0计算下一里程；输入1则从本程序第一步开始
QX1计算范围：
DK214+832.674~DK216+053.229
QX2计算范围：
DK215+707.196~DK217+253.771(反算)
LbI 5 ↙
H=1=〉Y= -1×Y△ U=B+X cosT-YsinT：V=C+XsinT+YcosT：↙
X=U▲
Y=V▲
PoL（（X-M，Y-N）↙
I ▲
J＜0=〉J=J+360△↙
J ▲
{W}：W“NEXT”：W=1=〉Goto 1△↙
LHale Waihona Puke I 6 ↙ {O}：O“O=”：O=1=〉Goto 7△↙
QX3计算范围：
DK216+623.229~DK219+480.262
QX4计算范围：
DK217+923.771~DK222+114.707(反算)
J ▲
F=T ▲
Goto 6 △↙
LbI 3 ↙
L＞A=〉Goto 4 △ X=L-L5÷40÷（RA）2：Y=L3÷（6RA）-L7÷336÷（RA）3：Z=60×L2÷（πRA）+tan-1（Y÷X）：H=1=〉Z= -1×Z △F=T+Z▲
Goto 5 △↙
LbI 4 ↙
Z=180（Abs（E-D）-A）÷（πR）+90A÷（πR）：X=R sinZ+A÷2-A3÷（240R2）：Y=R（1-cos Z）+A2÷（24R）-A4÷（2688R3）：H=1=〉Z= -1×Z △ F=T+Z▲