正算主程序小陈doc11.docx
- 文档编号:11219166
- 上传时间:2023-02-25
- 格式:DOCX
- 页数:8
- 大小:18.22KB
正算主程序小陈doc11.docx
《正算主程序小陈doc11.docx》由会员分享,可在线阅读,更多相关《正算主程序小陈doc11.docx(8页珍藏版)》请在冰豆网上搜索。
正算主程序小陈doc11
正算主程序[KB-MN]
1→DimZ:
“1,2,3,4,5”?
Z:
“1,2,3”?
R:
Prog“DX-1”:
?
X:
?
Y:
Z→Z[1]
Lbl1:
Fix3:
?
K:
?
B:
90→A
Z[1]=1=>Prog“PQ-1”
Z[1]=2=>Prog“PQ-2”
Z[1]=3=>Prog“PQ-3”
Prog“PQXY”:
M-X→I:
N-Y→J:
Prog“C”:
Cls:
Locate1,1,“J=”:
Locate4,1,J°:
Locate1,2,“I=”:
Locate8,2,I:
Locate1,3,“M=”:
Locate6,3,M:
Locate1,4,“N=”:
Locate6,4,N◢
Cls:
Z[1]=1=>Prog“1BG”
Z[1]=2=>Prog“2BG”
Z[1]=3=>Prog“3BG”
Cls:
Goto1
反算主程序[MN-KB]
1→DimZ:
“1,2,3,4,5”?
Z:
Z→Z[1]:
?
K
Lbl0:
Fix3:
?
M:
?
N:
M→D:
N→E
Lbl1:
90→A:
0→B
Z[1]=1=>Prog“PQ-1”
Z[1]=2=>Prog“PQ-2”
Z[1]=3=>Prog“PQ-3”
Prog“PQXY”:
Pol(D-M+×10-9,E-N+×10-9:
Isin(O-J→A:
Icos(O-J→B
IfAbs(A)>0.001:
ThenK+A→K:
Goto1:
ElseD→M:
E→N:
0→E:
Cls:
Locate1,1,“K=”:
Locate6,2,K:
Locate1,3,“B=”:
Locate8,4,B◢
IfEnd:
Goto0
子程序[PQXY]
G÷Abs(G→L:
F2÷(24R→P:
F÷2-F^(3)÷(240R2→Q:
IfR≤100:
ThenP-F^(4)÷(2688R^(3))+F^(6)÷(506880R^(5))-F^(8)÷(154828800R^(7→P:
Q+F^(5)÷(34560R^(4))-F^(7)÷(8386560R^(6))+F^(9)÷(3158507520R^(8→Q:
IfEnd:
Q+(R+P)Ltan(G÷2→T:
πRGL÷180+F→I:
IfK≤H-T:
ThenK-H→J:
Goto1:
IfEnd
IfK≤H-T+F:
ThenK-H+T→J:
1→S:
Goto2:
IfEnd
IfK≤H-T+I-F:
ThenK-H+T→J:
L→S:
Goto3:
IfEnd
IfK<H-T+I:
ThenH-T+I-K→J:
C+G→C:
-1→S:
Goto2:
IfEnd
IfK≥H-T+I:
ThenK-H-I+2T→J:
C+G→C:
Goto1:
IfEnd
Lbl1:
U+Jcos(C→M:
V+Jsin(C→N:
C→O:
Goto5
Lbl2:
C+90J2SL÷(πRF→O:
J-T-J^(5)÷(40R2F2→W:
J^(3)÷(6RF)-J^(7)÷(336R^(3)F^(3→L:
IfR≤100:
ThenW+J^(9)÷(3456(RF)^(4))-J^(13)÷(599040(RF)^(6))+J^(17)÷(175472640(RF)^(8→W:
L+J^(11)÷(42240(RF)^(5))-J^(15)÷(9676800(RF)^(7))+J^(19)÷(353009664(RF)^(9→L:
IfEnd:
SW→W:
LG÷Abs(G→L:
Goto4
Lbl3:
180(J-0.5F)÷(πR→O:
Q-T+Rsin(O→W:
L(P+R(1-cos(O→L:
C+OS→O
Lbl4:
U+Wcos(C)-Lsin(C→M:
V+Wsin(C)+Lcos(C→N
Lbl5:
O+A→O:
M+Bcos(O→M:
N+Bsin(O→N
From:
SENDYCHAN
子程序[BG1]
H+ZAbs(B→A:
IfK≤C:
ThenA→H:
ElseIfK≤C+F:
ThenK-C→S:
Prog“BG2”:
ElseIfK≤D-F:
Then0.01I→Z:
H-GBZ→H:
GB>0=>-Z→Z:
ElseIfK≤D:
ThenD-K→S:
Prog“BG2”:
ElseK>D=>A→H:
IfEnd:
IfEnd:
IfEnd:
IfEnd
子程序[BG2]
-2ZF÷(0.01I-Z→Q:
IfGB>0:
ThenIfS<Q:
ThenA→H:
Goto1:
IfEnd:
IfEnd:
Z+S÷F(0.01I-Z→Z:
H-GBZ→H:
GB>0=>-Z→Z
Lbl1
子程序[J-T]
IfB=0:
Then0→T:
ElseIfGB>0:
ThenIfK≤C:
Then0→T:
ElseIfK≤C+F:
ThenSJ÷F→T:
ElseIfK≤D-F:
ThenJ→T:
ElseIfK≤D:
ThenSJ÷F→T:
ElseK>D=>0→T:
IfEnd:
IfEnd:
IfEnd:
IfEnd:
Else0→T:
IfEnd:
IfEnd
子程序[BG]
IfM>N:
Then1→O:
Else-1→O:
IfEnd:
0.01M→M:
0.01N→N:
RAbs(M-N)÷2→G:
Abs(K-W→Q:
IfK≤W:
ThenA-QM→H:
Q<G=>H-O(K-W+G)2÷(2R→H:
ElseA+QN→H:
Q<G=>H-O(W+G-K)2÷(2R→H:
IfEnd
数据库子程序[PQ-1]
IfK≤第一条弯道终点桩号:
Then曲线起点切线方位角→C:
交点X坐标→U:
交点Y坐标→V:
缓和曲线长度→F:
道路转角(右转时输入为正值,左转时输入负值)→G:
交点桩号→H:
半径→R:
Return:
IfEnd
IfK≤下一条弯道终点桩号:
Then曲线起点切线方位角→C:
交点X坐标→U:
交点Y坐标→V:
缓和曲线长度→F:
道路转角(右转时输入为正值,左转时输入负值)→G:
交点桩号→H:
半径→R:
Return:
IfEnd
超高参数子程序[PQ1]
-设计路面横坡坡度→Z(例:
横坡坡度为2%时,输入-0.02→Z)
IfK≤第一条有超高的圆曲线的HZ点桩号:
Then第一条有超高的圆曲线的ZH点桩号→C:
第一条有超高的圆曲线的HZ点桩号→D:
缓和曲线长度→F:
±全超高值→I(左转时全超高横坡坡度为6%时,输入-6→I):
全加宽值→J(全加宽1.8米时,输入1.8→J):
Goto1:
IfEnd
IfK≤第二条有超高的圆曲线的HZ点桩号:
Then第二条有超高的圆曲线的ZH点桩号→C:
第二条有超高的圆曲线的HZ点桩号→D:
缓和曲线长度→F:
±全超高值→I(右转时全超高横坡坡度为4%时,输入4→I):
全加宽值→J(全加宽1.2米时,输入1.2→J):
Goto1:
IfEnd
……
IfK≤第七条有超高的圆曲线的HZ点桩号:
Then第七条有超高的圆曲线的ZH点桩号→C:
第七条有超高的圆曲线的HZ点桩号→D:
缓和曲线长度→F:
±全超高值→I(右转时全超高横坡坡度为4%时,输入4→I):
全加宽值→J(全加宽1.2米时,输入1.2→J):
Goto1:
IfEnd
IfK>第七条有超高的圆曲线的HZ点桩号:
Then第八条有超高的圆曲线的ZH点桩号→C:
第八条有超高的圆曲线的HZ点桩号→D:
缓和曲线长度→F:
±全超高值→I(左转时全超高横坡坡度为6%时,输入-6→I):
全加宽值(全加宽1.8米时,输入1.8→J):
Goto1:
IfEnd
Lbl1:
I÷Abs(I→G:
Abs(I→I
From:
SENDYCHAN
竖曲线数据库子程序[SQ1]
IfK>0:
Then变坡点桩号→W:
变坡点高程→A:
半径→R:
前坡→M:
后坡→N:
IfEnd
IfK>下一竖曲线起点桩号:
Then变坡点桩号→W:
变坡点高程→A:
半径→R:
前坡→M(例:
坡度为下坡-2.12%时,输入-2.12→M):
后坡→N(上坡为正,下坡为负):
IfEnd
……
导线数据库子程序[DX-1]
IfR=1:
Then导线点G1的X坐标→X:
导线点G1的Y坐标→Y:
IfEnd
IfR=2:
Then导线点G2的X坐标→X:
导线点G2的Y坐标→Y:
IfEnd
IfR=2.1:
Then导线点G2-1的X坐标→X:
导线点G2-1的Y坐标→Y:
IfEnd
IfR=2.2:
Then导线点G2-2的X坐标→X:
导线点G2-2的Y坐标→Y:
IfEnd
IfR=3:
Then导线点G3的X坐标→X:
导线点G3的Y坐标→Y:
IfEnd
填挖方边坡参数子程序[T-W]
V>0=>Goto6:
V<-(挖方第一级平台高度)=>Goto0:
标准断面半幅路面宽+T+路肩宽+边沟宽-第一级边坡坡度乘V→D:
Goto9
Lbl0:
V<-20(例:
挖方第二级平台高度为20米)=>Goto1:
标准断面半幅路面宽+T+路肩宽+边沟宽+第一级边坡坡度乘10米+第一级平台宽-(V+10)乘第二级边坡坡度→D:
Goto9
Lbl1:
V<-30(例:
挖方第三级平台高度为30米)=>Goto2:
标准断面半幅路面宽+T+路肩宽+边沟宽+10米乘第一级边坡坡度+第一级平台宽+10米乘第二级边坡坡度+第二级平台宽-(V+20)乘第三级边坡坡度→D:
Goto9
Lbl2:
V<-40(例:
挖方第四级平台高度为40米)=>Goto3:
标准断面半幅路面宽+T+路肩宽+边沟宽+10米乘第一级边坡坡度+第一级平台宽+10米乘第二级边坡坡度+第二级平台宽+第三级边坡坡度乘10米+第三级平台宽-(V+30)乘第四级边坡坡度→D:
Goto9
Lbl3:
V<-50(例:
挖方第五级平台高度为50米)=>Goto4:
标准断面半幅路面宽+T+路肩宽+边沟宽+10米乘第一级边坡坡度+第一级平台宽+10米乘第二级边坡坡度+第二级平台宽+第三级边坡坡度乘10米+第三级平台宽+第四级边坡坡度乘10米+第四级平台宽-(V+40)乘第五级边坡坡度→D:
Goto9
Lbl4:
V<-60(例:
挖方第六级平台高度为60米)=>Goto5:
标准断面半幅路面宽+T+路肩宽+边沟宽+10米乘第一级边坡坡度+第一级平台宽+10米乘第二级边坡坡度+第二级平台宽+第三级边坡坡度乘10米+第三级平台宽+第四级边坡坡度乘10米+第四级平台宽+第五级边坡坡度乘10米+第五级平台宽-(V+50)乘第六级边坡坡度→D:
Goto9
Lbl5:
标准断面半幅路面宽+T+路肩宽+边沟宽+10米乘第一级边坡坡度+第一级平台宽+10米乘第二级边坡坡度+第二级平台宽+第三级边坡坡度乘10米+第三级平台宽+第四级边坡坡度乘10米+第四级平台宽+第五级边坡坡度乘10米+第五级平台宽+第六级边坡坡度乘10米+第六级平台宽-(V+60)乘第七级边坡坡度→D:
Goto9
Lbl6:
V>8(例:
填方第一级平台高度为8米)=>Goto7:
标准断面半幅路面宽+T+路肩宽+边沟宽(一般填方路肩外侧没有边沟)+填方第一级边坡坡度乘V→D:
Goto9
Lbl7:
V>16(例:
填方第二级平台高度为16米)=>Goto8:
准断面半幅路面宽+T+路肩宽+第一级边坡坡度乘8米+第一级平台宽+(V-8)乘第二级边坡坡度→D:
Goto9
Lbl8:
标准断面半幅路面宽+T+路肩宽+第一级边坡坡度乘8米+第一级平台宽+第二级边坡坡度乘8米+第二级平台宽+(V-16)乘第三级边坡坡度→D:
Goto9
Lbl9:
IfV<0:
ThenAbs(B)<标准断面半幅路面宽+T+路肩宽+边沟宽=>0→D:
ElseAbs(B)<标准断面半幅路面宽+T+路肩宽=>0→D:
IfEnd
From:
SENDYCHAN
子程序[C]
I+×10-9→I:
J+×10-9→J:
Pol(I,J:
J<0=>J+360→J
标高子程序[1BG]
0→P:
0→E
?
E:
?
U
Prog“SQ1”:
Prog“BG”:
Prog“PQ1”:
Prog“BG1”:
Prog“J-T”
IfT≥0.001:
Then“T=”:
T◢
IfEnd:
IfAbs(B)≥标准断面半幅路面宽+T+路肩宽+边沟宽:
ThenIfB<0:
Then-标准断面半幅路面宽-T→B:
Else标准断面半幅路面宽+T→B:
IfEnd:
Prog“SQ1”:
Prog“BG”:
Prog“PQ1”:
Prog“BG1”:
0→E:
H-路肩宽乘路肩横坡(例0.03乘路肩宽)→H:
IfEnd
H-E-P-U→V:
Prog“T-W”:
Cls:
Locate1,1,“V=”:
Locate10,2,V:
Locate1,3,“D=”:
Locate11,4,D◢
本程序适用CASIOfx-5800P
正算主程序[KB-MN]
输入:
1,2,3,4,5---选择待正算的线路1,2,3,4---选择导线点
X---测站X坐标Y---测站Y坐标K---桩号B---距中(左负右正中零)
结果:
J=测站到放样点的方位角I=测站到放样点的平距
M=放样点X坐标N=放样点Y坐标
输入:
E---路面往下结构层的厚度U---实测高程
结果:
T=加宽值
(当输入B<0时,若果显示T,T值表示左幅路面加宽值
当输入B>0时,若果显示T,T值表示右幅路面加宽值
若果没有显示T值,则表示没有加宽)
V=高差(“+”表示填,“-”表示挖)
D=挖方坡顶、填方坡脚至中桩的平距
若果显示D=0,则表示所放的桩是在路幅范围内,而不是边坡填方或开挖桩
备注:
当E=0、U=0时,V值为(桩号K、距中B)的路面设计高程
当放边坡开挖、填方桩时,E必须输入零,计算器会自动动默认E=0
输程序时,例“M-X+×10-9→I”的小“×10”为计算器面板的白色键“×10X”
竖曲线数据库子程序[SQ1]中
前、后坡度尽量保留多位小数,以保证计算精度(一般设计图纸%后才保留两位)
例-2.12%,可能为-2.116324567%
若求斜交时边桩坐标,主程序[KB-MN]中90→A修改为斜交角度→A
若果道路为直线,则数据库子程序[PQ-1]中
直线起点往终点的方位角→C:
起点或往后某一点的X坐标→D:
起点或往后某一点的Y坐标→E:
0→F:
×10-9→G:
起点或对应的某一点桩号→H:
×10-9→R
From:
SENDYCHAN
若果有断链,则平曲线数据库子程序分为[PQ-1]、[PQ-2]、[PQ-3]…
超高参数子程序对应分为[PQ1]、[PQ2]、[PQ3]…
竖曲线数据库子程序对应分为[SQ1]、[SQ2]、[SQ3]…
标高子程序对应分为[1BG]、[2BG]、[3BG]…
反算主程序[MN-KB]
输入:
1,2,3,4,5---选择待反算的线路
K---待反算点附近的大概桩号M---待反算点X坐标N---待反算点Y坐标
结果:
K=反算点的桩号B=反算点的距中(左负右正中零)
当输入B>0时,若果显示T,T值表示右幅路面加宽值
若果没有显示T值,则表示没有加宽)
V=高差(“+”表示填,“-”表示挖)
例:
当路面往下结构层厚度为0.58米时,输入E=0.58、P=0、U=0时,V值为(桩号K、距中B)的路面往下结构层的设计高程
以上标高程序适用绕中轴旋转的二级或二级以下等级的公路
From:
SENDYCHAN
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 主程序 doc11