卡西欧程序

aw000

借花献佛

海哥

有关什么内容的？

aw000

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程序上传到论坛来！特此感谢！