整理5800计算器全线坐标计算放样程序Word格式文档下载.docx
- 文档编号:18119306
- 上传时间:2022-12-13
- 格式:DOCX
- 页数:6
- 大小:19.81KB
整理5800计算器全线坐标计算放样程序Word格式文档下载.docx
《整理5800计算器全线坐标计算放样程序Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《整理5800计算器全线坐标计算放样程序Word格式文档下载.docx(6页珍藏版)》请在冰豆网上搜索。
SUB2"
"
S="
:
(O+W)→S◢"
Z="
Z→Z◢Z→Z[17]:
IfN=3:
ThenProg”SDYX”:
IfEnd:
IfN=4:
ThenProg”BIANPO”:
IfEnd:
Goto2
2.SUB1(正算子程序名)
0.1739274226→A:
0.3260725774→B
0.0694318442→K:
0.330009482→L
1-L→F:
1-K→M
G+QEKW(C+KWD)→Z[1]
G+QELW(C+LWD)→Z[2]
G+QEFW(C+FWD)→Z[3]
G+QEMW(C+MWD)→Z[4]
A×
cos(Z[1])→X
(剩號可省略)
X+Bcos(Z[2])→X
X+Bcos(Z[3])→X
X+Acos(Z[4])→X
U+WX→X
Asin(Z[1])→Y
Y+Bsin(Z[2])→Y
Y+Bsin(Z[3])→Y
Y+Asin(Z[4])→Y
V+WY→Y
G+QEW(C+WD)+90→F
X+Zcos(F)→X
Y+Zsin(F)→Y
3.SUB2(反算子程序名)
G-90→T
(Y-V)cos(T)-(X-U)sin(T)→W
Abs(W)→W:
0→Z
LbI4:
T+QEW(C+WD)→L
(J-Y)cos(L)-(I-X)sin(L)→Z
IfAbs(Z)<1E-6:
Then0→Z:
(J-Y)÷
sin(F)→Z
ElseW+Z→W:
Goto4:
IfEnd
注:
1E-6即是10的負6次方,亦即是等於0.000001
輸入時按SHIFT---log---(-)---6
4.数据库(SUB3)
IfS<
226100:
ThenCls:
Stop:
IfEnd
226255.833:
Then226100→O:
99037.9736→U:
4282.3590→V:
201.3266304→G:
1045→P:
1045→R:
253.543→H:
0→Q:
Goto1:
IfS>
AndS<
……
236005.651:
Lbl1:
1÷
P→C:
(P-R)÷
(2HPR)→D:
180÷
π→E:
5、曲线主程序:
1-E.BG(SUB4)
Fix3:
Prog”Z.EBG”:
RAbs(D-C)/2→T:
ifD-C>
θ:
Then1→W:
Else-1→W:
ifend
ifS<
A:
Then-C→I:
ElseD→I:
ifend
Abs(A-S)→L
ifL-T>
θ:
ThenZ+IL→H:
ElseZ+IL+W(T-L)2/2/R→H:
HS="
H◢
曲线数据库:
Z.EBG(SUB4-1)
332.599:
Then0.02793→C:
-0.03309→D:
1800→R:
235→A:
32.7→Z:
goto1:
ifS>
322.599AndK<
734.085:
Then-0.03309→C:
-0.00485→D:
6000→R:
460→A:
25.254→Z:
--
Lbl1
C—前坡:
D—后坡:
R—呵呵,都知道是什么!
A—变坡点:
Z—变坡点设计高
O—从设计高程点处垂直向下的距离:
N—距设计高程处的平距(若你的设计高程线是路中线的话,请把0.75改为0):
J—所求桩号处的横坡.
6.边坡放样程序(BIANPO)(SUB6)
“QPDJL=”?
→Z[3]:
“QPDGD=”:
Prog“(SUB4)”:
H→Z[4]◢“PG=”?
→Z[5]:
PTK→Z[6]:
“P1=”?
→Z[8]:
“P2=”?
→Z[9]:
“P3=”?
→Z[10](没有的话就删):
Z[7]-Z[4]→Z[11]:
IfZ[11]〈0Then
AbsZ[11]→Z[11]:
“T=”:
Z[11]◢Else“W=”:
Z[11]◢IfEn
Z[11]÷
Z[5]→Z[12]:
IfZ[12]〈1ThenZ[8]×
Z[11]→Z[13]:
ElseZ[8]×
Z[5]+Z[9]×
Z[5]×
(Z[12]-1)→Z[13]:
AbsZ[17]-(Z[13]+Z[6]×
Int(Z[12])+Z[3])→Z[14]:
“BP+C-J=”:
Z[14]◢
说明:
Z[3]=QPDJL………………
起坡点离中桩距离
Z[4]=“QPDGD”……………起坡点设计标高
Z[5]=“PG”………………
坡高
Z[6]=“PTK”………………平台宽度
Z[7]=“DMG”………………实测地面高度
Z[8]=“P1”………………
一级边坡坡度
Z[9]=“P2”………………
二级边坡坡度
Z[10]=“P3”………………三级边坡坡度(没有的话就删)
Z[14]=“BP+C-J=”………………边坡超欠挖宽度(+表超,-表欠)
三、使用说明
1、规定
(1)以道路中线的前进方向(即里程增大的方向)区分左右;
当线元往左偏时,Q=-1;
当线元往右偏时,Q=1;
当线元为直线时,Q=0。
(2)当所求点位于中线时,Z=0;
当位于中线左铡时,Z取负值;
当位于中线中线右侧时,Z取正值。
(3)当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替。
(4)当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧的半径。
(5)当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次代替;
与圆曲线相接时,曲率半径等于圆曲线的半径。
止点与直线相接时,曲率半径为无穷大,以10的45次代替;
(6)当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;
止点与直线相接时,曲率半径等于设计规定的值;
2、输入与显示说明
SZ→XY,2.XY→SZ,3.SDYX,4.BIANPO
N?
选择计算方式,输入1表示进行由里程、边距计算坐标;
输入2表示由坐标反算里程和边距。
输入3表示隧道圆心放样和计算实测半径;
输入4表示进行路基边坡放样。
4、SUB3数据库说明:
S待求桩号,O=曲线起点桩号,U曲线起点X坐标,V曲线起点Y坐标,G曲线起点切线方位角,
P曲线起点半径, R曲线终点半径,H=曲线长度,Q转向(直线0,左转-1,右转1)
注:
本程序是经过本人改编后的,程序起头3.SDYX可以输入也可不输
5800计算器全线坐标计算放样程序
“XLZBJSCX”◢
(1)规划环境影响评价的分析、预测和评估内容。
LB1
0↙
CLS:
FIX4:
30→DIMZ↙
“XHS="
?
G(后视点X):
YHS="
L(后视点Y):
XZJ="
M(置镜点X):
YZJ="
N(置镜点Y):
Pol(G-M,L-N):
DH="
I(后视距)◢J<
0=>
J+360→J:
FH="
J→DMS◢(后视方位角)
1↙
“K=”?
K◢(计算里程)
IF
K<
本段曲线终点里程
AND
K≥上段曲线终点里程:
THEN
本段终点里程→Z[1]:
上段曲线终点里程→Z[2]:
1→O(注:
左偏曲线输入-1→O,右偏曲线输入1→O):
偏角→A:
半径→R:
第一缓和曲线→Z[6]:
第二缓和曲线→Z[7]:
交点X→B:
交点Y→C:
小里程向交点方位角→E:
交点向大里程方位角→F:
GOTO
2:
IFEND↙
…………(曲线段分段输入)
补充直线段输入如下
(二)安全预评价范围IFK<
本段直线终点里程AND
K≥本段直线起点里程:
THEN1→O:
本段直线终点里程→Z[3]:
终点X→Z[16]:
终点Y→Z[17]:
方位角→E:
GOTO4:
IFEND
2↙(曲线要素计算)
2)应用环境质量标准时,应结合环境功能区和环境保护目标进行分级。
Z[6]/2-Z[6]^3/(240*R^2)+Z[6]^5/(34560*R^4)→Z[8]↙
(M1)
Z[7]/2-Z[7]^3/(240*R^2)+Z[7]^5/(34560*R^4)→Z[9]↙
(M2)
Z[6]^2/(24*R)-Z[6]^4/(2688*R^3)→Z[10]↙
(P1)
Z[7]^2/(24*R)-Z[7]^4/(2688*R^3)→Z[11]↙
(P2)
π*A*R/180+0.5*(Z[6]+Z[7])→S↙
(曲线总长)
90*Z[6]/(R*π)→Z[14]↙
(第一缓和曲线总偏角)
90*Z[7]/(R*π)→Z[15]↙(第二缓和曲线总偏角,可以省略)
Z[8]+(R+Z[10])TAN(A/2)-(Z[10]-Z[11])/SINA→Z[12]↙
(切线T1)
Z[9]+(R+Z[11])TAN(A/2)+(Z[10]-Z[11])/SINA→Z[13]↙
(切线T2)
B+Z[12]*COS(E+180)→Z[16]↙
(ZH点X)
C+Z[12]*SIN(E+180)→Z[17]↙
(ZH点Y)
Z[1]-S→Z[3]↙
(ZH点里程)
Z[3]+Z[6]→Z[4]↙
(HY点里程)
Z[1]-Z[7]→Z[5]↙
(YH点里程)
GOTO3↙
另外,故障树分析(FTA)和日本劳动省六阶段安全评价方法可用于定性、定量评价。
3↙(判断里程点与曲线关系)
第二节 安全预评价IF
K≤Z[3]
K>
Z[2]:
THEN
4:
IFEND↙
K≤Z[4]
Z[3]:
5:
K≤Z[5]
Z[4]:
6:
K≤Z[1]
Z[5]:
7:
B.可能造成重大环境影响的建设项目,应当编制环境影响报告书LB1
4↙(里程小于直缓点直线独立坐标)
K-Z[3]→X:
0→Y:
E→T:
PROG“TYZBCX”:
GOTO
第1页LB1
5↙(第一缓和曲线独立坐标)
K-Z[3]→H↙
H-H^5/(40*R^2*Z[6]^2)+H^9/(3456*R^4*Z[6]^4)→X↙
H^3/(6*R*Z[6])-H^7/(336*R^3*Z[6]^3)→Y↙
90*H^2/(R*π*Z[6])→T↙
O>
0
:
T+E→T:
ELSE
E-T→T:
T<
360+T→T:
IFEND↙
PROG“TYZBCX”:
环境,是指影响人类生存和发展的各种天然的和经过人工改造的自然因素的总体。
LB16↙(圆曲线独立坐标)
K-Z[4]→H↙
H*180/(R*π)+Z[14]→T↙
R*SINT+Z[8]→X↙
R*(1-COST)+Z[10]→Y↙
LB17↙(第二缓和曲线独立坐标)
Z[1]-K
→H↙
H-H^5/(40*R^2*Z[7]^2)+H^9/(3456*R^4*Z[7]^4)→U↙
H^3/(6*R*Z[7])-H^7/(336*R^3*Z[7]^3)→V↙
90*H^2/(R*π*Z[7])→T↙
Z[13]COSA+Z[12]-U*COSA-V*SINA→X↙
Z[13]*SINA-U*SINA+V*COSA→Y↙
F-T→T:
F+T→T:
子程序:
2.环境影响评价的概念“TYZBCX”↙
(统一坐标计算)
O<
:
-Y→Y:
“QXJ=”:
T◢
(计算里程点切线方位角,可以不显示)
Z[16]+X*COSE-Y*SINE→Z[18]↙
Z[17]+X*SINE+Y*COSE→Z[19]↙
“XI=”:
Z[18]◢
(中线X)
“YI=”:
Z[19]◢
(中线Y)
Pol(Z[18]-M,Z[19]-N):
DI="
I(中桩放样距)◢J<
FI="
J→DMS◢(中桩放样方位角)
仍以森林为例,营养循环、水域保护、减少空气污染、小气候调节等都属于间接使用价值的范畴。
“PJ=”?
P◢
(输入边桩与线路夹角,左-右+)
“PD=”?
D◢
(输入边桩距)
Z[18]+D*COS(T+P)→Z[20]↙
Z[19]+D*SIN(T+P)→Z[21]↙
“XP=”:
Z[20]◢
(边桩X)
“YP=”:
Z[21]◢
(边桩Y)
Pol(Z[20]-M,Z[21]-N):
DP="
I◢(边桩放样距)J<
FP="
J→DMS◢(边桩放样方位角)
RETURN↙
经演算可以放心使用
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 整理 5800 计算器 全线 坐标 计算 程序