资源描述：
《卡西欧fx-5800坐标正算程序》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、卡西欧fx-5800坐标正算程序“SO”算方位Lbl0“D”：Pol(X-A，Y-B)→D◢IfJ≥0:ThenJ◢Else“J”:J+360◢IfEnd“ZZ”正算直线坐标A+Rec(Abs(P-K),Q)→XB+J→Y“X”：X+Rec(D,Q+N×90)→X◢“Y”:Y+J→Y◢P?所求桩号A，B：起点x,yK:起点桩号Q：方位角D：边桩距离N？左偏“-1”右偏：“+1”X=Y=所求点坐标“YY”正算圆曲线坐标Q+C×（P-K）÷S×180÷∏→Z“X”：A+C×S×（Sin(Z)-Sin(Q)）+Rec(D,Z+N×90)→X
2、◢“Y”:B-C×S×（Cos(Z)-Cos(Q)）+J→Y◢P:所求点桩号A，B：起点x,yK：起点桩号Q：方位角S：曲线半径D？边桩距离N？左偏“-1”，右偏“+1”X=y=所算点坐标C：线路左转“-1”右转“+1”“H1”正算缓和曲线坐标Abs(P-K)→LT2÷L→HL2×180÷∏÷2÷T2→VQ+C×V→ZL-L∧（3）÷40÷H2+L∧（5）÷3456÷H∧（4）-L∧（7）÷H∧（6）÷599040→EL2÷6÷H-L∧（4）÷336÷H∧（3）+L∧（6）÷42240÷H∧（5）-L∧（8）÷H∧（7）÷（6×161
3、2800）→FIfC<0：Then-F→F：IfEndA+E×Cos(Q)-F×Sin(Q)→X“X”：X+Rec(D,Z+M×N×90)→X◢B+E×Sin(Q)+F×Cos(Q)→Y“Y”：Y+J◢P？所求点桩号A，B：起点x,yK:起算点里程桩号Q：前切线方位角T（是圆曲线要素的A1）=√（根号）缓曲总长×半径C=切线线路方向左转“-1”，右转“+1“M=第一缓曲“+1”，第二缓曲”-1“N：算边桩左偏“-1”，右偏“+1”D：边桩距离坐标正算数据库例子“肇兴隧道右线数据库”Lbl0“P”?P:“N”？N：“D”？DIfP≥16
4、836.5AndP≤17009.624:Then66881.803→A：14635.782→B：16836.5→K:280032030.50→Q:902.044→T:1→C:1→M:Prog“H1”：IfEnd(第一缓曲线)IfP≥17009.624AndP≤17529.681:Then66914.52→A：14465.781→B：17009.624→K:281035049.370→Q:4700→S：Prog“YY”:IfEnd（圆曲线）IfP≥17539.681And17702.805≥P:Then67102.343→A：13799
5、.117→B：17702.805→K:108059031.50→Q:902.044→T:-1→C:-1→M:Prog“H1”：IfEnd(第二缓曲线)IfP≥17702.805AndP≤19550:Then67102.343→A：13799.17→B：17702.805→K:288059031.50→Q:Prog“ZZ”：IfEnd（直线）。。。。。。fx-5800坐标反算程序“FZ”反算直线Lbl0“A”?A:“B”？B：“K”？K：“Q”？Q：“X”？X：“Y”？Y：Pol（X-A，Y-B）→TIfJ≥0:ThenJ◢ElseJ+
6、360→J◢“P”:T×Abs(Cos(J-Q))+K→P◢“D”:T×Sin(J-Q)→D◢Goto0A?B?起点x,yK?起点里程Q?方位角X?y?实测x,yP=实测桩号D=实测偏距左“-”，右“+”“FY”反算圆曲线Lbl0“X”？X：“Y”？YA+Rec（S，Q+C×90）→RB+J→GQ-C×90→ZPol(X-R,Y-G)→T“P”;(Abs(J+360×M-Z)-U×360)×S×∏÷180+K→P◢“D”:T-S→D◢Goto0A?B?起点x,yS？半径Q？方位角K？起点桩号C？线路左转“-1”，右转“+1”M？左转“
7、-1”右转“0”U？输入0X,y?实测x,yP=实测桩号D=偏距实测“FH”反算缓和曲线Lbl0“X”？X:“Y”？Y：“G”？GK+M×Pol(X-A,Y-B)+G→WAbs(W-K)→LT2÷L→HL2×180÷∏÷2÷T2→VL-L∧（3）÷40÷H2+L∧（5）÷3456÷H∧（4）-L∧（7）÷H∧（6）÷599040→EL2÷6÷H-L∧（4）÷336÷H∧（3）+L∧（6）÷42240÷H∧（5）-L∧（8）÷H∧（7）÷（6×1612800）→FIfC＜0:Then-F→F:IfEndA+E×Cos(Q)-F×Sin(
8、Q)→RB+E×Sin(Q)+F×Cos(Q)→OPol(X-R,Y-O)J-(Q+C×V)→UG-M×Sin(U-90)×I→GK+M×Pol(X-A,Y-B)+G→WAbs(W-K)→LT2÷L→HL2×180÷∏÷
