计算器程序.docx
《计算器程序.docx》由会员分享，可在线阅读，更多相关《计算器程序.docx（11页珍藏版）》请在冰点文库上搜索。
计算器程序
计算器程序
1．QXYS
J“JD”
R
L“LS”
I
O=L÷2-L^3÷240÷R2
P=L2÷24÷R
T=（R+P）tan（I÷2）+0◢
C=L+IR兀÷180
IR兀÷180-L<0=>Goto1└
C“L”◢
E=（R+L2÷24÷R）÷cos（I÷2）-R◢
Z“ZH”=J-T◢
W“HY”=Z+L◢
G“QZ”=Z+（L+IR兀÷180）÷2◢
A“YH”=Z+IR兀÷180◢
S“HZ”=A+L◢
Lbi1
结束
2.ZJF
Fixm
{B}
B“Z（X）=”
BGoto6└
B>S=>Goto6└
B≤G=>D=B-Z:
≠=>D=S-B∟
D≤L=>Goto1:
≠=>Goto2∟
Lbi1
X=D-D^5÷（40R2L2）
Y=D^3÷（6RL）-D^7÷（336R^3L^3）
Goto6
Lbi2
F=90（2D-L）÷兀÷R
X=L÷2-L^3÷240÷R2+RsinF
Y=L2÷24÷R+R（1-cosF）
Lbi6
结束
3.3ZB
v“N（JD）”
U“EO（JD）”
K“N（FW）”
E“Z=2,Y=1”
E=1=>Goto0:
≠=>E=2=>Goto0:
≠=>Goto8∟∟∟
Lbi0
Prog“ZJF”
BGoto6∟
B>S=>Goto7∟
B>G=>Goto4∟
M=X-T
N=（-1）^EY
Goto5
Lbi4
M=（T-X）cosI-YsinI
N=（-1）^E（（T-X）sinI+YcosI）
Goto5
Lbi6
M=B-J
N=0
Goto5
Lbi7
X=B-S+T
M=XcosI
N=（-1）^EXsinI
Lbi5
Y“N”=-NsinK-McosK+V“N”◢
X“E”=NcosK-MsinK+U“E”◢
Goto8
Lbi8
结束
4．4DM
Q“B:
Z=>2,Y=>1”
Lbi0
{P}
P“B（Z÷Y）”
Prog“3ZB”
90÷兀÷R
B>S=>H=I:
≠=>B>A=>H=I-（S-B）2Ans÷L:
≠=>B>W=>H=Ans（L+
2（B-W））:
≠=>B>Z=>H=（B-Z）2Ans÷L:
≠=>H=0∟∟∟∟
H=K-（-1）^EH-90（-1）^Q
N“N（Z÷Y）”=Y-PCosH◢
M“E（Z÷Y）”=X-PsinH◢
Goto0
结束
5．5
Y“N1”
X“E1”
K“F”
K=0=>Goto0:
≠=>Goto1
Goto0
Lbi0
N“N2”
M“E2”
√（（M-X）2+（N-Y）2）◢
（N-Y）÷Ans
M>X=>K=90-sin-1Ans:
≠=>K=270+sin-1Ans∟
K“F”
Lbi1
{B}
B“D”
N“N”=Y+BcosK◢
E“E”=X+BsinK◢
LBI1
注明：
本程序适用于4800
操作顺序
本程序分为1个主程序4个子程序在计算过程中ZJF与3ZB不用管他！
首先进入QXYS
1.JD?
输入交点里程
2.R?
输入半径
3.LS?
输入第一缓和曲线长
4.I?
输入角度
接下来就是自己计算了！
一直往下按直到他出现LBI1
退出主程序进入5
1.N1?
E1?
分别输入交点的XY坐标
2.F？
输入0注意：
（在每次输入新的数据时，此部都输入0）
3.N2?
E2?
分别输入后视点的XY坐标（后视点就是上一个交点。
例如QXYS中输入的是JD1那么在此就输入JD0）
后面就是自己计算！
一直按直到出现LBI1
退出程序进入4DM
1.B:
Z=2,Y=1?
输入放样边桩方向左侧输入2右侧输入1
2.B（Z/Y）?
输入边桩距离
3.N（JD）?
输入本交点X坐标
4.EO（JD）?
输入本交点Y坐标
5.N（FW）？
此部不用动直接往下按
6.Z=2,Y=1?
输入转角方向左转2右转1
7.Z（X）=?
输入放样的里程
下面就是计算结果
N=与E=分别是中桩XY坐标，N（Z/Y）=与E（Z/Y）=分别是边桩XY坐标
计算结束
坐标万能计算
J=90×I÷（R×兀）:
P=I2÷（24×R）:
M=I÷2-（I∧3）÷240÷R2:
L=R×兀×（ABSQ－2×J）÷180:
T=（R+P）×TAN（ABSQ÷2）＋M:
LDI0
｛E，K，W｝:
K:
W:
E
D=E－F:
D≤0=>GOTO1:
≠=>D≤I=>GOTO2:
≠=>D=E－F－I:
D≤L=>GOTO3:
≠=>D=F＋2×I＋L－E:
D≥O=>GOTO4:
≠=>GOTO5∟∟∟∟
LDI1
S=E－F:
C=Z:
U=Z
GOTO6
LDI2
U=D－（D∧5）÷（40×R2×I2）:
V=（D∧3）÷（6×R×I）:
A=90×D2÷（R×I×π）
GOTO7
LDI3
U=M＋R×SIN（J＋180×D÷（R×π））:
V=R＋P－R×COS（J＋180D÷（R×π））:
A=J+180D÷R÷π
GOTO7
LDI7
B=TAN-1（V÷U）:
S=√（U2+V2）:
Q≤0=＞C=Z-B:
U=Z-A:
≠=>C=Z+B:
U=Z+A∟
GOTO6
LDI4
U=D-（D∧5）÷（40×R2×I2）:
V=（D∧3）÷（6×R×I）:
B=TAN-1（V÷U）:
S=√（U2+V2）:
A=D2×90÷（R×I×π）
Q≤0=＞C=Z+Q+B+180:
U=Z+Q+A:
≠=>C=Z+Q－B+180:
U=Z+Q-A∟
GOTO8
LDI8
X=S×COSC+G+T×COSZ+T×COS（Z+Q）:
Y=S×SINC+H+T×SINZ+T×SIN（Z+Q）
GOTO9
LDI5
S=（E-F-2×I-L）:
U=Z+Q:
C=U
GOTO8
LDI6
X=S×COSC+G:
Y=S×SINC+H
GOTO9
LDI9
X=X+W×COS（U+K）◢
Y=Y+W×SIN（U+K）◢
GOTO0
注明：
本程序适用于4800
操作顺序
I？
:
缓和曲线长
R？
:
曲线半径
Q？
:
转向角
K？
:
交角（90度）
W？
:
偏距：
左负右正
E？
：
测设点里程
F？
：
ZH点里程
Z？
：
ZH前进方位角
G？
：
ZH点X坐标
H？
：
ZH点Y坐标
X=:
测设点X坐标
Y=:
测设点Y坐标
匝道计算
名称：
QXY
LDI0:
{K,T,L,}
Q”KQ”:
V”XQ”:
W”YQ”:
O”FQ”:
E”RQ”:
Z”KZ”:
F”RZ”:
K:
T:
L
P=（F-E）÷ABS（Z-Q）:
I=ABS（K-Q）:
G=P×I
H=O+（G+2E）×I×90÷π◢
M=O+（G÷4+2E）×I×45÷π÷2:
N=O+（3G÷4+2E）×I×135÷2÷π
J=O+（G÷2+2E）×I×45÷π
X=V+I÷12×（COSO+4（COSM+COSN）+2COSJ+COSH）+LCOS（H+T）◢
Y=W+I÷12×（SINO+4（SINM+SINN）+2SINJ+SINH）+LSIN（H+T）◢
GOTO0
操作顺序
KQ:
曲线起点里程
XQ:
曲线起点坐标X
YQ:
曲线起点坐标Y
FQ:
起点前进方位角
RQ:
曲率半径1÷R（左偏-1右偏+1）
KZ：
曲线终点里程
RZ：
曲率半径1÷R（左偏-1右偏+1）
K：
测设点里程
T：
偏角
L：
偏距（左负右正）
H：
测设点方位角
X=:
测设点X坐标
Y=:
测设点Y坐标
竖曲线程序
A”BP-KI”:
B”BP-N”:
P”I1”:
M”I2”
P>M=>Q=-1:
≠=>Q=1:
∟K=ABStan-1（（P-M）÷1000）
T=RtanK┘2
L=πRK÷180
LDI0:
S=（T-ABS（A-D”WZ”））÷π÷R×180
DJ”H”=B-P（A-D）÷1000◢
≠=>D>A=>D>A+T=>J”H”=B+M（D-A）÷1000◢
≠=>J”H”=B+M（D-A）÷1000+QR（1÷cosS-1）◢∟
≠=>J”H”=B-P（A-D）÷1000+QR（1÷cosS-1）◢
∟∟
{D}
GOTO0
操作顺序
BP-KI:
竖曲线交点里程
BP-N:
竖曲线交点高程
I1:
交点前坡比（比如坡比为2%就是20上坡为正、下坡为负）
I2:
交点后坡比（比如坡比为-1.8%就是-18上坡为正、下坡为负）
R:
竖曲线半径
KZ：
所求点里程
H：
计算结果
坐标反算
{X,Y,A,B}
X≠10000Y=>Goto0◢◢
LDI0:
A”X1”＞X=>GOTO1:
≠=>GOTO4◢◢
LDI1:
B”Y1”＞Y=>GOTO2:
≠=>GOTO3◢◢
LDI2:
D=tan-1（（B-Y）÷（A-X））◢◢
L=√（（Y-B）2+（X-A）2）◢◢
GOTO5
LDI3:
D=360+tan-1（（B-Y）÷（A-X））◢◢
L=√（（X-A）2+（Y-B）2）◢◢
GOTO5
LDI4:
D=180+tan-1（（B”Y1”-Y）÷（A-X））◢◢
L=√（（X-A）2+（Y-B）2）◢◢
GOTO5
LDI5:
”OK”
操作顺序
X:
前点X坐标
Y:
前点Y坐标
X1:
后点X坐标
Y1:
后点Y坐标
D:
计算结果方位角
L：
距离
坐标正算
{N,E,D,A}
N≠10000E=>GOTO0
LDI0:
X”N1”=N+S×cosA◢
Y”E1”=E+SsinA◢
“OK”
操作顺序
N:
测站点X坐标
E:
测站点Y坐标
S:
距离
A:
方位角
N1:
测设点X坐标
E1：
测设点Y坐标
升级会员 