精品文档
精品文档
PAGE
PAGE9
精品文档
PAGE
FILE
非常好用的卡西欧5800p程序
一、坐标反算(XY--FD)
Deg:Fix3↓(换行)
Lbl0↓
X0=〞A:〝Y0=〞B:〝XN=〞C:〝YN=〞D↓(换行)
Pol((C-A),(D-B))J<0=>J+360→J↓(换行)
JL=〞:I◢〝FWJ=〞:J:?DMSGoto0
二、坐标正算(DF--XY)
Deg:Fix3↓(换行)
X0=〞A;〝Y0=〞B:〝L=〞L:〝C=〞C↓(换行)A+Lcos(C)→X↓B+Lsin(C)→Y↓
〝X=〞:X◢〝Y=〞:Y◢
三、直线段中桩、边桩坐标计算(该程序从起点往终点计算)(ZX)
1、Deg:Fix3↓(换行)设置小数保留位数
2、Lbl1↓程序标签
3、〝X0〞X:〝Y0=〞Y:〝K0=〞E:〝FWJ=〞J↓赋值起点坐标、桩号、走向方位角
4、K:L:A↓输入所求的桩号、边距、相对于主线的方位角(如
果只计算中桩坐标,边距及方位角皆为0)
5、X+(K-E)cos(J)+Lcos(J+A)→C↓计算坐标X
6〝XP=〞:C◢显示坐标X
7、Y+(K-E)sin(J)+Lsin(J+A)→D↓计算坐标Y
8、〝YP=〞:D◢显示坐标Y
9、Goto1↓转向程序标签循环执行计算
四、圆曲线坐标计算程序(该程序从起点往终点计算)(YQX)
1、Deg:Fix3↓(换行)
2、Lbl0:
3、〝K0=〞K:X:Y:A:R:4、〝L=-1,R=+1〞:G:
5、〝ZS=0,FS≠0〞:S:
6、S≠0=>Goto1↓7、〝Ki〞Z↓
8、90(Z-K)÷(∏R)→B↓
9、2RsinB→D↓10、〝Xi=〞:X+Dcos(A+GB)→P◢
11、〝Yi=〞:Y+Dsin(A+GB)→Q◢
12、A+180G(Z-K)÷(∏R)→0↓13、〝ZBJ〞E↓
14、〝XiL=〞:P+Ecos(0-90)◢
15、〝YiL=〞:Q+Esin(0-90)◢
16.〝YBJ〞F↓
17、“XiR=”:P+Fcos(O+90)◢
18、“YiR=”:Q+Fsin(O+90)◢19、Goto0↓
20.、Lbl1:
21、“XC”U:“YC”V↓
22、X+Rcos(A+90G)→M↓
23、Y+Rsin(A+90G)→N↓
24、Pol(U-M,V-N)→H↓25、J<0=>J+360→J↓
26.、“PJ=”:R-H→L◢
27、“XCCZ=”:M+Rcos(J)→T◢
28.、“YCCZ=”:N+Rsin(J)→W◢
29、Pol(T-X,W-Y)→Z↓
、“CZZH=”:K+sin-1(Z÷2÷R)πR÷90◢
、Goto0
说明:
设置小数保留三位。程序0赋值起点桩号K0,赋值起点坐标X、Y,赋值半径R,赋值起点走向方位角A。
赋值曲线转向,左转为-1,右转为+1。
选择正算S=0,或反算S≠0.如果S≠0,进入反算程序。
正算程序:输入所求桩号Ki。
计算弦切角B。
计算弦长D。
计算中桩坐标Xi并显示。计算中桩坐标Yi并显示。
计算i点走向方位角O。
输入左边桩距中桩的距离E。
计算左边桩坐标XiL并显示。
计算左边桩坐标YiL并显示。
输入右边桩距中桩的距离F。计算右边桩坐标XiR并显示。
计算右边桩坐标YiR并显示。
到程序0。
反算程序1。
输入测量坐标XC、YC。
计算圆心X坐标M。
计算圆心Y坐标N。计算圆心与测点距离H。
计算圆心到测点的走向方位角。计算偏距PJ并显示,正值说明测点在圆内,负值说明测点在圆外。
计算垂足坐标XCCZ并显示
计算垂足坐标YCCZ并显示。。
计算垂足到起点弦长Z。计算垂足桩号CZZH并显示
到程序0。
五、竖曲线高程计算程序(SQX)
1、Lbl0:“LK(JD)=”M:“H(JD)=”N:“R=”R:“I1=”I:“I2=”J:
I-J→P:IfP﹥0:Then1→K:Else-1→KIfEnd↓2、“T=”:Abs(R×(J-I)÷200)→T◢
3、“E=”T2÷2÷R→E◢
4、Lbl1
:“LK=”L:IfL≤M-T:ThenGoto6
:ElseGoto2
:IfEnd↓
5、Lbl2
:IfL
≤M:ThenGoto7:ElseGoto3
:IfEnd↓
6、Lbl3
:IfL
≤M﹢T:ThenGoto8:ElseGoto9:IfEnd↓
7、Lbl6
:“H=”:(L-M)×I÷100﹢N→H◢
Goto0↓
8、Lbl7:“H=”:(L-M)×I÷100﹢N-K×(L-M+T)2÷2÷R→H◢
Goto0↓
9、Lbl8:“H=”(L-M)×J÷100﹢