【天端--工程在线】

标题: 卡西欧程序 [打印本页]

作者: aw000 时间: 2007-4-2 11:31
标题: 卡西欧程序
借花献佛

CASIO测量程序-请以只读方式打开.rar

9.3 KB, 下载次数: 239

作者: 海哥 时间: 2007-4-2 15:15
有关什么内容的？

作者: aw000 时间: 2007-4-2 17:27
标题: 回复 #2 海哥的帖子
1、平曲线计算程序。
①主程序：程序名PQX-JS
G”J(X)”:H”J(Y)”:M”J(K)”:R

”LS1”:W”LS2”:T”T1”:U”T2”:Z”Z(K)”:C”Q(F)”

”Z(F)”:J=C+180-D:J>360=>J=J-360△
J<180=>

=1:≠>P=-1△Q=M-T:A=G+Tcos(C+180):
B=H+Tsin(C+180):E=G+UcosD:F=H+UsinD
Lbl 0:Fixm:{K}:K≤Q=>N=C:X=A+Rec(Q-K,N+180)▲
Y=B+J▲
Prog”PQ2”:Goto0△K≥Z=>N=D:X=E+Rec(K-Z,N) ▲
Y=F+J▲
Prog”PQ2”:Goto0△Z-K<W=>Z[3]=W

=-P:S=Z-K:
V=D+180:Prog”PQ1”:N=V+3NP+180:
X=E+I▲
Y=F+J▲
Prog”PQ2”:P=-P:Goto0△Z[3]=L:V=C:
K-Q<L=>S=K-Q:Prog”PQ1”:N=V+3NP:X=A+I▲Y=B+J▲
Prog”PQ2”:Goto0△
S=K-Q-L:Z[4]=V+90P(L+S)÷R÷Л:Z[5]=2Rsin(S÷R÷Л×
90):N=Z[4]+90PS÷R÷Л:Z[6]=N:S=L:L=0=>I=0:J=0:
≠>Prog”PQ1”:N=Z[6]:X=A+I:Y=B+J:X=X+Rec(Z[5],Z[4]) ▲
Y=Y+J▲
Prog”PQ2”:Goto0
②子程序
⑴子程序名：PQ1
I=S-S∧5÷（40R2Z[3]2）+S∧9÷（3456R∧4Z[3] ∧4）:
J=S∧3÷(6RZ[3])-S∧7÷(336R∧3Z[3] ∧3):Pol(I,J):
N=J:Rec(I,V+PJ)
⑵子程序名：PQ2
Z[1]=X:Z[2]=Y:Lbl 1:{OJ}:O”B”:O>0=>X=Z[1]+Rec(O,N+J) ▲
⑴程序中符号说明：
请看清楚程序中各个符号与字母变量，经本人多次校核，无本人输入错误。
程序中字母（Л）为拼音PAI（3.1415926）也就是圆周率。
程序变量说明：
J（X）：交点X坐标
J（Y）：交点Y坐标
J（K）：交点桩号
R ：圆曲线半径
LS1  ：第一缓和曲线长度
LS2  ：第二缓和曲线长度
T1 ：第一切线长度
T2 ：第二切线长度
Z（K）：直缓点（HZ）桩号（或圆缓点桩号（YH），
缓直点桩号（HZ））
Q（F）：起点计算方位角
Z（F）：终点计算方位角
K ：待求点桩号
B ：边桩距离
J    ：法线角度，左负右正，一般路基路面为±90°桥涵请参照图纸
特别说明：当第一缓和曲线长度为0或第二缓和曲线长度为0或两者皆为0时请输入0.000000000001或更小。
角度输入方式为300°20′15”。

直线、曲线及转角一览
交

点

号交点
坐标交点
桩号转角值曲线要素值曲线位置直线长度及方位角
X Y 左转右转半径R 第一缓和曲线长度LS1 第二缓和曲线长度LS2 第一切线长度T1 第二切线长度T2 第一缓和曲线起点ZH 第二缓和曲线终点HZ 计算方位角
1 563297.147 416538.554 K27+869.459 10°43′38” 3620 325 325.294 502.486 502.609 K27+691.973 K28+369.875 30°27′32”
2 564230.434 417087.402 K28+949.974 26°4′60” 1800 325.294 325 580.099 579.972 K28+695.169 K29+514.45 4°22′33”
3 566905.91 417292.131 K31+617.776 6°38′56” 8000 0 0 464.707 464.707 K31+153.069 K34+194.328 11°1′29”

说明：上图表如看不清楚请放大为120%查看数据，制表时已省略其中一部分程序中应用不到的数据。
示例：交点2坐标计算
分析：交点2坐标计算范围为K28+369.87~K29+514.45，也就是ZH点~HZ点范围内的坐标。如LS1或LS2或两者皆为0时则计算范围为HY（ZY）点~YH（YZ）点内的坐标。
J（X）：564230.434
J（Y）：417087.402
J（K）：K28+949.974
R ：1800
LS1  ：325.294
LS2  ：325
T1 ：580.099
T2 ：579.972
Z（K）：K29+514.45
Q（F）：30°27′32”
Z（F）：4°22′33”
K ：28500
输入以上数据时请注意每输入完一个数据请按EXE键，程序先计算得出K28+500中桩坐标为：
X=563842.875，Y=416858.759
按EXE键
B ：4.75
J ：90
计算结果为：
X=563840.526，Y=416862.888
当B输入0时返回输入待求点桩号。

2、竖曲线计算程序
程序名：SQX-JS
Q”S[Z]”:T:N”I[1]”:O”I[2]”:W”H[Z]”
Lbl  1:{M}:M”K”:L=M-Q:R=2T÷(O-N)
Lbl  2：{H}：H=W+（L+0.5×R（N+ O））2÷(2R）-0.5RNO▲
Goto 1△

程序说明：
S[Z]  ：变坡点桩号
T    ：变坡点切线长
I[1]  ：变坡点前坡度
I[2]  ：变坡点后坡度
H[Z]  ：变坡点高程
K    ：待求点桩号
H    ：程序计算出的待求点高程

示例：
S[Z]  ：28369.875
T    ：580.099
I[1]  ：29.630
I[2]  ：4.75
H[Z]  ：325
K    ：28949.974
H    ：3080.470

特别说明：注意变坡点的位置，也就是说要自行判断I[1]或I[2]
是上坡还是下坡，上坡为正，下坡为负。输入时如：3%则输入0.03，-3%输入-0.03。程序只计算切线T长范围内高程。

3、坐标正算
程序名：ZBZS
Lbl 0:{ABDJ}:A”X(0)”:B”Y(0)”:D:J
X=A+DCosJ▲
Y=B+DSinJ▲
Goto 0

程序说明：
X（0）  ：已知点X坐标
Y（0）  ：已知点Y坐标
D    ：已知距离
J    ：已知方位角

示例：
X（0）  ：563730.3927
Y（0）  ：416793.338
D    ：4.375833333
J    ：4.128853762

特别说明：
程序计算出的方位角J需手动转换为角度，具体方法为黄色键
SHIFT+°′”
另：本人水平有限，请求各位高手帮忙解决能自动将Ｊ换算为
角度的方法，并请在论坛回复，谢谢！

4、坐标反算
程序名：ZBFS
Lbl 0:{EFGH}:E”X1”:F”Y1”:G”X2”:H”Y2”:K=G-E:
L=H-F:D=√（K2+L2）：K>0=>Goto 1△K≤0=>Goto2△
Lbl 1:L≥0=>Goto3△L<0=>Goto 4△
Lbl 2:K=0=>Goto 5△K<0=>Goto 6△
Lbl 3:J=tan-1(L÷K)▲
D▲
Goto 0
Lbl 4:J=360+ tan-1(L÷K)▲
D▲
Goto 0
Lbl 5:L>0=>Goto 7△L<0=>Goto 8△
Lbl 6:J=180+ tan-1(L÷K) ▲
D▲
Goto 0
Lbl 7:J=90▲
D▲
Goto 0
Lbl 8:J=270▲
D▲
Goto 0

程序说明：
X（1）：已知点X1坐标
Y（1）；已知点Y1坐标
X（2）：已知点X2坐标
Y（2）：已知点Y2坐标
J ：程序计算得出两点之间方位角
D ：程序计算得出两点之间距离
√ : 平方根符号
示例：
X（1）：564808.7154
Y（1）；417131.653
X（2）：564230.434
Y（2）：3080.47025
J ：269.9199783
D ：414051.5866
特别说明：
程序计算出的方位角J需手动转换为角度，具体方法为黄色键
SHIFT+°′”
另：本人水平有限，请求各位高手帮忙解决能自动将Ｊ换算为
角度的方法，并请在论坛回复，谢谢！

5、超高段横坡坡率计算
程序名：CGDHPPL

K“I[1]“：M”I[2]“：L：Lbl 1:{X}:X
Lbl 2:{U}:D=X÷L:I=(M-K)×(1-3D2+2D2)+K▲
Goto 1

程序说明：
I[1] :超高起点横坡坡率
I[2] :超高终点横坡坡率
L    :超高段路线长度
X    :待求点距离，该距离是指与超高起点位置的距离，如
      超高起点为K0+100，如求K0+120桩号坡率则输入20即可
I    :程序计算出待求点横坡坡率

示例：
I[1] :0.01
I[2] :0.02
L    :100
X    :240
I    :-0.0376

趁着今天下雨，把以上程序终于打入电脑内了，希望大家能派上用场，同时也希望各位能奉献自己的程序出来供大家学习及使用。
第一个程序是我从网上下载下来的，下载后发现不能使用，花了大量时间对其进行了修改，现在已经能毫无问题的使用了，在此感谢原作者！同时希望各位能自主开发更好的程序并提供给大家使用。
在此本人求助高手提供卵型曲线、匝道、复曲线、回头曲线的CASIO 4800程序上传到论坛来！特此感谢！

欢迎光临【天端--工程在线】 (http://sqdadi.com/bbs/)