Fx5800计算器程序对称平曲线.docx

Fx5800计算器程序对称平曲线.docx

《Fx5800计算器程序对称平曲线.docx》由会员分享，可在线阅读，更多相关《Fx5800计算器程序对称平曲线.docx（12页珍藏版）》请在冰豆网上搜索。

Fx5800计算器程序对称平曲线

Fx-5800计算器程序

一、程序名称：

B-D-PQX（对称平曲线）

Prog“ZJZB”:

“A”?

→A：

“R”?

→R：

“LS”?

→L：

“JDL”?

→N：

“JX”?

→U：

“JY”?

→V：

“F”?

→F：

180/π/R→Z:

ZL/2→B:

L2/24/R-L^（4）/2688/R^（3）+L^（6）/506880/R^（5）→P:

L/2-L^（3）/240/R^

（2）+L^（5）/34560/R^（4）→Q

“T=”:

（R+P）tan（Abs（A/2））+Q→T▲

“L=”:

（Abs（A）-2B）/Z+2L→o▲

“E=”（R+P）/Cos（Abs（A/2））-R→E▲

“ZH=”:

N-T→E▲

“HY=”:

E+L→Z〔1〕▲

“QZ=”:

E+o/2→Z〔2〕▲

“YH=”:

E+o-L→Z〔3〕▲

“HZ=”:

E+o→Z〔4〕▲

LbI8:

“XL”?

→M:

Prog“ZBJS”:

Goto8

二、子程序：

ZBJS

180/π/R→Z:

ZL/2→B:

L^

（2）/24/R-L^（4）/2688/R^（3）+L^（6）/506880/R^（5）→P:

L/2-L^（3）/240/R^

（2）+L^（5）/34560/R^（4）→Q

（R+P）tan（Abs（A/2））+Q→T

（Abs（A）-2B）/Z+2L→o

（R+P）/Cos（Abs（A/2））-R→E

N-T→E

E+L→Z〔1〕

E+o/2→Z〔2〕

E+o-L→Z〔3〕

E+o→Z〔4〕

0→W:

0→Y:

IfM≤E:

ThenM-E→X:

Goto3:

IfEnd:

IfM≤Z〔1〕:

ThenGoto1:

IfEnd:

IfM≤Z〔3〕:

ThenGoto2:

IfEnd:

IfM＜Z〔4〕:

ThenGoto1:

IfEnd:

IfM≥Z〔4〕:

ThenZ〔4〕-M→X:

Goto3:

IfEnd

LbI1:

IfM≤Z〔1〕:

ThenM-E→G:

EIseZ〔4〕-M→G:

IfEnd:

G-G^（5）/（40R^

（2）L^

（2））+G^（9）/3456/（RL）^（4）→X:

G^（3）-（6RL）-G^（7）/（336R^（3）L^（3））+G^（11）/42240/（RL）^（5）→Y:

ZG^

（2）/2/L→W:

Goto3

LbI2:

M-Z〔1〕→G:

RSin（B+GZ）+Q→X:

R-RCos（B+GZ）+P→Y:

B+ZG→W

LbI3:

IfM≥Z〔3〕:

ThenF+A→C:

IfA＞0:

ThenC+90→D:

IfEnd:

EIseC-90→D:

IfEnd:

EIseF+180→C:

IfA＞0:

ThenF+90→D:

EIseF-90→D:

IfEnd:

IfEnd

“X=”:

U+（T-X）Cos（C）+YCos（D）→Z〔7〕▲

“Y=”:

V+（T-X）Sin（C）+YSin（D）→Z〔8〕▲

Z〔7〕→Z〔5〕:

Z〔8〕→Z〔6〕:

Prog“J”

LbI4:

“BZ”?

→S:

IfM≤Z〔3〕:

ThenGoto5:

EIseGoto6:

IfEnd

LbI5:

F→C:

IfA＜0:

Then-W→W:

EIseW→W:

IfEnd:

Goto7

LbI6:

F+A→C:

IfA＞0:

Then-W→W:

EIseW→W:

IfEnd

LbI7:

“X=”:

Z〔7〕+SCos（C+W+90）→Z〔5〕▲

“Y=”:

Z〔8〕+SSin（C+W+90）→Z〔6〕▲

Prog“J”

三、子程序：

J

I=PoI（Z〔5〕-H,Z〔6〕-K）:

IfJ＜0:

ThenJ+360→J:

EIseJ→J:

IfEnd

“F=”:

J◆DMS

“D=”:

I▲

四、子程序：

ZJZB

30→DimZ:

“HX”?

→Z〔5〕:

“HY”?

→Z〔6〕:

“ZX”?

→H:

“ZY”?

→K:

Prog“J”

五、B-D-PQX（对称平曲线）说明

1、▲——代表计算器中显示符号（黑色实心三角符号，在计算器中输入方法：

SHIFT+X2）。

2、◆DMS——在计算器中输入方法：

FUNCTION+5+4。

3、在程序中小写字母o——代表大写字母O，而0——代表阿拉伯数字零，请注意区分。

4、该程序只适用于对称平曲线放样，放样方法：

方位角放样。

5、该程序放样范围为该曲线及相邻两段直线。

程序输入说明：

HX？

——输入后视点X坐标HY？

——输入后视点Y坐标

ZX？

——输入置仪点X坐标ZY？

——输入置仪点Y坐标

F=——显示置仪点至后视点方位角D=——显示置仪点至后视点水平距离

A？

——输入偏角（左“-”右“+”）R？

——输入平曲线半径

LS？

——输入缓和曲线长度JDL？

——输入平曲线交点里程

JX？

——输入交点X坐标JY？

——输入交点Y坐标

F？

——输入起边方位角T=——显示平曲线切线长度

L=——显示平曲线曲线长度E=——显示平曲线外距值

ZH=——显示直缓点里程HY=——显示缓圆点里程

QZ=——显示曲中点里程HZ=——显示缓直点里程

XL？

——输入放样点里程X=——显示放样点中桩X坐标

Y=——显示放样点中桩Y坐标F=——显示放样方位角

D=——显示置仪点至放样点距离BZ？

——输入边距（左“-”右“+”，例如：

放样左侧10m，输入-10，右侧8m则输入8）

X=——显示边桩X坐标Y=——显示边桩Y坐标

F=——显示放样方位角D=——显示置仪点至边桩距离

XL？

——输入下一个放样点里程，从而至使程序循环运行。

示例：

JD20曲线要素：

交点里程：

K18+494.346交点X坐标：

2330.436交点Y坐标：

54893.459半径（R）：

150缓和曲线（LS）长度：

65曲线偏角：

右转55°47′24″起边方位角（F）:

275°44′30″

置仪点：

X=2474.344Y=54806.836后视点：

X=2348.293Y=54912.880

HX？

——输入2348.293HY？

——输入54912.880

ZX？

——输入2474.344ZY？

——输入54806.836

F=——显示139°55′37″D=——显示164.725

A？

——输入55°47′24″R？

——输入150

LS？

——输入65JDL？

——输入494.346

JX？

——输入2330.436JY？

——输入54893.459

F？

——输入275°44′30″T=——显示112.474

L=——显示211.058E=——显示21.046

ZH=——显示381.872HY=——显示446.872

QZ=——显示487.401YH=——显示527.930HZ=——显示592.930

XL？

——输入360X=——显示2316.996Y=——显示55027.131

F=——显示125°32′12″D=——显示270.718BZ？

——输入-5

X=——显示2312.021Y=——显示55026.631F=——显示126-26-48

D=——显示273.237XL?

——输入360X=——显示2316.996

Y=——显示55027.131F=——显示125-32-12D=——显示270.718

BZ？

——输入5X=——显示2321.971Y=——显示55027.631

F=——显示124-36-36D=——显示268.269XL？

——输入下一个里程（循环运行）

XL？

—400BZ？

—右5mBZ？

—左5m

X=2321.099X=2326.064X=2316.133

Y=54987.342Y=54987.926Y=54986.758

F=130-19-50F=129-18-40F=131-19-34

D=236.784D=234.053D=239.589

XL？

—480BZ？

—右5mBZ？

—左5m

X=2344.012X=2348.307X=2339.718

Y=54911.378Y=54913.939Y=54908.817

F=141-15-58F=139-38-35F=142-51-20

D=167.079D=165.398D=168.891

XL？

—560BZ？

—右5mBZ？

—左5m

X=2400.661X=2403.285X=2398.037

Y=54856.075Y=54860.331Y=54851.819

F=146-14-50F=143-01-36F=149-28-51

D=88.621D=88.944D=88.579

XL？

—600BZ？

—右5mBZ？

—左5m

X=2435.524X=2437.908X=2433.141

Y=54836.476Y=54840.871Y=54832.081

F=142-38-14F=136-57-05F=148-30-17

D=48.842D=49.860D=48.322

JD21曲线要素：

交点里程：

K18+928.675交点X坐标：

2724.458交点Y坐标：

54679.804半径（R）：

150缓和曲线（LS）长度：

65曲线偏角：

左转75°50′21″起边方位角（F）:

331°31′54″

置仪点：

X=2474.344Y=54806.836后视点：

X=2348.293Y=54912.880

HX？

——输入2348.293HY？

——输入54912.880

ZX？

——输入2474.344ZY？

——输入54806.836

F=——显示139°55′37″D=——显示164.725

A？

——输入-75°50′21″R？

——输入150

LS？

——输入65JDL？

——输入928.675

JX？

——输入2724.458JY？

——输入54679.804

F？

——输入331°31′54″T=——显示150.216

L=——显示263.547E=——显示41.630

ZH=——显示778.459HY=——显示843.459

QZ=——显示910.232YH——显示977.005HZ=——显示1042.005

XL？

——输入760X=——显示2576.179Y=——显示54760.207

F=——显示335°23′51″D=——显示112.003BZ？

——输入-5

X=——显示2573.796Y=——显示54755.812F=——显示332-50-23

D=——显示111.777XL?

——输入760X=——显示2576.179

Y=——显示54760.207F=——显示335-23-51D=——显示112.003

BZ？

——输入5X=——显示2578.563Y=——显示54764.602

F=——显示337-56-25D=——显示112.451XL？

——输入下一个里程（循环运行）

XL？

—800BZ？

—右5mBZ？

—左5m

X=2611.260X=2613.747X=2608.773

Y=54740.990Y=54745.328Y=54736.653

F=334-18-58F=336-11-30F=332-25-54

D=151.926D=152.370D=151.647

XL？

—900BZ？

—右5mBZ？

—左5m

X=2681.899X=2686.333X=2677.465

Y=54672.358Y=54674.669Y=54670.048

F=327-03-37F=328-03-29F=326-02-33

D=247.312D=249.815D=244.886

XL？

—1000BZ？

—右5mBZ？

—左5m

X=2696.480X=2701.416X=2691.543

Y=54575.230Y=54574.437Y=54576.022

F=313-48-15F=314-20-09F=313-15-34

D=320.914D=324.917D=316.939

XL？

—1100BZ？

—右5mBZ？

—左5m

X=2673.004X=2677.849X=2668.159

Y=54478.051Y=54476.816Y=54479.287

F=301-08-29F=301-39-35F=300-36-48

D=384.142D=387.721D=380.595

对称平曲线（可建立数据库）

一、程序名称：

A-D-LCP

1、假如该标段有7个交点的程序建立：

30→DimZ:

“HX”?

→Z〔5〕:

“HY”?

→Z〔6〕:

“ZX”?

→H:

“ZY”?

→K:

Prog“J”

LbI9:

“XL”?

→M:

IfM＜400:

ThenProg“JD1”:

EIseIfM＜600:

ThenProg“JD2”:

EIseIfM＜800:

ThenProg“JD3”:

EIseIfM＜980:

ThenProg“JD4”:

EIseIfM＜1200:

ThenProg“JD5”:

EIseIfM＜1500:

ThenProg“JD6”:

EIseProg“JD7”:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

Goto9

2、假如该标段有9个交点的程序建立：

30→DimZ:

“HX”?

→Z〔5〕:

“HY”?

→Z〔6〕:

“ZX”?

→H:

“ZY”?

→K:

Prog“J”

LbI9:

“XL”?

→M:

IfM＜400:

ThenProg“JD1”:

EIseIfM＜600:

ThenProg“JD2”:

EIseIfM＜800:

ThenProg“JD3”:

EIseIfM＜980:

ThenProg“JD4”:

EIseIfM＜1200:

ThenProg“JD5”:

EIseIfM＜1500:

ThenProg“JD6”:

EIseIfM＜1800:

ThenProg“JD7”:

EIseIfM＜2000:

ThenProg“JD8”:

EIseProg“JD9”:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

Goto9

3、假如该标段有11个交点的程序建立：

30→DimZ:

“HX”?

→Z〔5〕:

“HY”?

→Z〔6〕:

“ZX”?

→H:

“ZY”?

→K:

Prog“J”

LbI9:

“XL”?

→M:

IfM＜400:

ThenProg“JD1”:

EIseIfM＜600:

ThenProg“JD2”:

EIseIfM＜800:

ThenProg“JD3”:

EIseIfM＜980:

ThenProg“JD4”:

EIseIfM＜1200:

ThenProg“JD5”:

EIseIfM＜1500:

ThenProg“JD6”:

EIseIfM＜1800:

ThenProg“JD7”:

EIseIfM＜2000:

ThenProg“JD8”:

EIseIfM＜2130:

ThenProg“JD9”:

EIseIfM＜2200:

ThenProg“JD10”:

EIseProg“JD11”:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

IfEnd:

Goto9

说明：

1、根据上述三种情况可根据实际情况对该程序（A-D-LCP）进行局部根改，红色部分是可以进行修改的。

例如:

“M＜400”中400代表的是JD1与JD2之间直线段上的桩号，“JD1～JD11”要进行根改时除非数据库中名称发生改变。

2、“IfEnd”的个数取决于交点个数，例如:

有7个交点结尾时必须有6个“IfEnd”；有9个交点时结尾必须有8个“IfEnd”；有11个交点时必须有10个“IfEnd”。

3、该程序最多可存储17个交点，若交点太多可有两个或两个以上同样的程序进行存储。

4、程序完成运行正确后，在交点范围内任意点桩号都可以进行放样，免除了每次测量时都需输入曲线要素这一个环节。

5、程序名为：

“ZBJS”的程序也是该程序的一个子程序。

6、在路线中有断链时，需根据断链位置来确定M值。

二、数据库的建立：

（子程序）

1、根据施工设计图可得知的曲线要素如下：

JD1的曲线要素：

交点里程：

K0+247.815交点X坐标：

2579154.343交点Y坐标：

906527.4114半径（R）：

160缓和曲线（LS）长度：

0曲线偏角：

右转38°33′08″起边方位角（F）:

346°28′01″

JD2的曲线要素：

交点里程：

K0+501.097交点X坐标：

2579387.714交点Y坐标：

906636.3292半径（R）：

600缓和曲线（LS）长度：

0曲线偏角：

右转5°46′00″起边方位角（F）:

25°01′09″

JD3的曲线要素：

交点里程：

K0+659.124交点X坐标：

2579523.517交点Y坐标：

906717.2384半径（R）：

300缓和曲线（LS）长度：

0曲线偏角：

右转18°06′23″起边方位角（F）:

30°47′09″

JD4的曲线要素：

交点里程：

K0+904.132交点X坐标：

2579685.128交点Y坐标：

906902.4459半径（R）：

90缓和曲线（LS）长度：

0曲线偏角：

右转41°30′18″起边方位角（F）:

48°53′32″

JD5的曲线要素：

交点里程：

K1+097.035交点X坐标：

2579683.770交点Y坐标：

907098.3531半径（R）：

60缓和曲线（LS）长度：

0曲线偏角：

左转52°01′57″起边方位角（F）:

90°23′50″

JD6的曲线要素：

交点里程：

K1+429.804交点X坐标：

2579947.887交点Y坐标：

907307.425半径（R）：

150缓和曲线（LS）长度：

0曲线偏角：

右转37°23′24″起边方位角（F）:

38°21′53″

JD7的曲线要素：

交点里程：

K1+586.834交点X坐标：

2579987.421交点Y坐标：

907463.1432半径（R）：

150缓和曲线（LS）长度：

0曲线偏角：

左转41°49′53″起边方位角（F）:

75°45′17″

JD8的曲线要素：

交点里程：

K1+958.991交点X坐标：

2580300.496交点Y坐标：

907673.7074半径（R）：

700缓和曲线（LS）长度：

0曲线偏角：

右转6°08′01″起边方位角（F）:

33°55′23″

JD9的曲线要素：

交点里程：

K2+092.249交点X坐标：

2580402.547交点Y坐标：

907759.5081半径（R）：

200缓和曲线（LS）长度：

0曲线偏角：

左转12°36′07″起边方位角（F）:

40°03′24″

JD10的曲线要素：

交点里程：

K2+174.864交点X坐标：

2580476.0163交点Y坐标：

907797.6801半径（R）：

150缓和曲线（LS）长度：

0曲线偏角：

右转17°57′44″起边方位角（F）:

27°27′17″

JD11的曲线要素：

交点里程：

K2+259.136交点X坐标：

2580535.4428交点Y坐标：

907857.9781半径（R）：

100缓和曲线（LS）长度：

0曲线偏角：

左转31°11′28″起边方位角（F）:

45°25′01″

2、子程序建立：

（数据库）

子程序：

JD1

38°33′8″→A:

160→R:

0→L:

247.815→N:

2579154.343→U:

906527.4114→V:

346°28′1″→F:

Prog“ZBJS”

子程序：

JD2

5°46′0″→A:

600→R:

0→L:

501.097→N:

2579387.714→U:

906636.3292→V:

25°1′9″→F:

Prog“ZBJS”

子程序：

JD3

18°6′23″→A:

300→R:

0→L:

659.124→N:

2579523.517→U:

906717.2384→V:

30°47′9″→F:

Prog“ZBJS”

子程序：

JD4

41°30′18″→A:

90→R:

0→L:

904.132→N:

2579685.128→U:

906902.4459→V:

48°53′32″→F:

Prog“ZBJS”

子程序：

JD5

-52°1′57″→A:

60→R:

0→L:

1097.035→N:

2579683.77→U:

907098.3531→V:

90°23′50″→F:

Prog“ZBJS”

子程序：

JD6

37°23′24″→A:

150→R:

0→L:

1429.804→N:

2579947.887→U:

907307.425→V:

38°21′53″→F:

Prog“ZBJS”

子程序：

JD7

-41°49′53″→A:

150→R:

0→L:

1586.834→N:

2579987.421→U:

907463.1432→V:

75°45′17″→F:

Prog“ZBJS”

子程序：

JD8

6°8′1″→A:

700→R:

0→L:

1958.991→N:

2580300.496→U:

907673.7074→V:

33°55′23″→F:

Prog“ZBJS”

子程序：

JD9

-12°36′7″→A:

200→R:

0→L:

2092.249→N:

2580402.547→U:

907759.5081→V:

40°3′24″→F:

Prog“ZBJS”

子程序：

JD10

17°57′44″→A:

150→R:

0→L:

2174.864→N:

2580476.0163→U:

907797.6801→V:

27°27′17″→F:

Prog“ZBJS”

子程序：

JD11

-31°11′28″→A:

100→R:

0→L:

2259.136→N:

2580535.4428→U:

907857.9781→V:

45°25′1″→F:

Prog“ZBJS”

三、程序运行说明：

运行程序：

A-D-LCP

HX？

——输入后视点X坐标HY？

——输入后视点Y坐标

ZX？

——输入置仪点X坐标ZY？

——输入置仪点Y坐标

F=——显示置仪点至后视点方位角D=——显示置仪点至后视点水平距离

XL？

——输入放样点里程X=——显示放样点中桩X坐标

Y=——显示放样点中桩Y坐标F=——显示放样方位角

D=——显示置仪点至放样点距离BZ？

——输入边距（左“-”右“+”，例如：

放样左侧10m，输入-10，右侧8m则输入8）

X=——显示边桩X坐标Y=——显示边桩Y坐标

F=——显示放样方位角D=——显示置仪点至边桩距离

XL？

——输入下一个放样点里程，从而至使程序循环运行。