Fx5800计算器程序对称平曲线.docx
- 文档编号:27281991
- 上传时间:2023-06-28
- 格式:DOCX
- 页数:12
- 大小:20.28KB
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?
——输入下一个放样点里程,从而至使程序循环运行。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Fx5800 计算器 程序 对称 曲线