正算主程序小陈doc11.docx

资源描述

正算主程序小陈doc11.docx

《正算主程序小陈doc11.docx》由会员分享，可在线阅读，更多相关《正算主程序小陈doc11.docx（8页珍藏版）》请在冰点文库上搜索。

正算主程序小陈doc11.docx

正算主程序小陈doc11

正算主程序[KB-MN]

1→DimZ:

“1,2,3,4,5”?

“1,2,3”?

Prog“DX-1”:

Z→Z[1]

Lbl1:

Fix3:

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[1]:

Lbl0:

Fix3:

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

子程序[BG2]

-2ZF÷（0.01I-Z→Q:

IfGB＞0:

ThenIfS＜Q:

ThenA→H:

Goto1:

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:

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

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

展开阅读全文