FX5800卡西欧计算器应用及程序

8、圆曲线偏角：

9、圆曲线坐标（不加缓和曲线）：

10、圆曲线弦长：

弦长所对的圆心角。

11、圆曲线弧长：

、弧长所对的圆心角。

注：

1、数组定位：Defm 25=12+3×≤≥-2=12+3×5=27 2、本程序不论施工坐标系还是大地坐标系均可使用；

3、百分比坡度与比例坡度的换算关系。百分比坡度4％ 换算成比例坡度：4％=1÷0.04=25

即：4％=1:25=25/1(如用分子式列出：25为分子，1为分母)；

4、当放样中遇到直立陡坡时（坡度90°，有高差），如桩板墙，则程序中的坡度取至极小，至少输入至小数点后四位数，如：0.0001。但不能为0，因为等于0时，就变成了无高差，只有平距了；

5、当边坡桩点放样误差落在允许范围时（程序设置为0.1米，可根据需要另行设置），程序将给出觇牌点的实测坐标、高程、及觇牌点相位于的边坡的挖填高差；

6、输入边坡高差时，上、下边坡都为正数，一级坡和多级边坡的最后一级边坡无高差； 7、程序执行中，所有起算数据、变量不会随之改变；

8、特别注意：当进行边坡桩放样时，可根据需要设置程序中的放样精度参数0.1（红色字样）。

且行天涯 804963666 17 FX5800卡西欧计算器应用及程序

Prog ZYH（坐标放样）- 主程序

Deg:42->DefmZ:“Z=0 Y=1 H=2”?U:N=1=>Goto 6:N=2=>Goto 4:“X0”?O:“Y0”?P:If U≠0:Then “<=- (R) +=>”?R:If U=2:Then ?L:IfEnd:IfEnd:Z[1->I:Z[2->J:Z[3->M:Z[4->N:“K0+”?I:I->Z[1]:“AD”?J:J->Z[2]:“XD”?M:M->Z[3]:“YD”?N :N->Z[4]:「b」0:0->I:「b」1“I=”：I+1->I:12+3I-2->J:Z[J->M:Z[J+1->N:Z[J+2->C:“≤”?M:M->Z[J]:M<0=>Goto 2:If M=0:Then 0->N:“D”?C:Else “h”?N:0->C:IfEnd:N->Z[J+1]:N<0=>Goto 2:C->Z[J+2]:Goto 1:「b」2:I->Z[7]:「b」3:“<- 0 +>”?D:「b」4:Cls:Z[8->I:Z[9->J:“HD”?J:J->Z[9]:“K+”?I:I=0=>Goto 6:I=1=>Goto 3:I->Z[8]:I<0=>Goto 6:Abs(I-Z[1->I:Prog“Z1”:If Z[7]<2 And Z[8]>0:Then Fix 4:“A=”:A▲DMS◢

“D=”:Locate 4,4,S:“XK=”:Locate 5,4,Z[10:“YK=”:Locate 5,4,Z[11◢

Norm 1:Else Goto 6:IfEnd:Goto 4:「b」6:Cls:V->X:?X:X=0=>Goto 0:X=1=>Goto 4:X->V:?Y:?H:Pol(X-O,Y-P:I->W:J->F:F<0=>F+360->F:Z[9->C:Z[8]>0=>Goto 9:Pol(X-Z[3,Y-Z[4:J<0=>J+360->J:J-Z[2->E:If U=0:Then Rec(I,E->I:Goto 8:IfEnd:If U=1:Then If R<0 And J<0:Then –E->E:IfEnd:If R>0 And J>0:Then –E->E:IfEnd:90+E

22-1222

->B:√(I+R-2IAbs(R)cos(B->E:cos((E+R-I)÷2÷E÷Abs(R->B:2ЛAbs(R)B÷360->I:Goto 8:IfEnd:I->K:「b」7:Prog “Z2”:If R<0:Then –B->B:-J->J:IfEnd:Z[2]+B-90->B:Z[3]+Rec(I,Z[2]+J->M:Z[4]+J->N:Pol(M-X,N-Y:Rec(I,J-B:K-J->K:K->I:Abs(J)>.001=>Goto 7:「b」8:Z[1]+I->Q:Prog“Z1”:「b」9:If Z[8]<0:Then Fix 3:“K+=”:Q◢

Norm 1:IfEnd:Z[7]=1=>Goto B:Pol(X-Z[10,Y-Z[11:J<0=>J+360->J:Icos(J-Z[12->G:Abs(H-C->E:0->B:O->N:For 1->T To Z[7:12+3T-2->J:If T=Z[7:Then If T=1:Then EZ[J->K:Else N+Z[J](E-B->K:IfEnd:Goto A:IfEnd:B+Z[J+1->B:If EK:Else N+Z[J]Z[J+1]-(B-E->K:IfEnd:Goto A:Else N+Z[J]Z[J+1]+Z[J+2->N:IfEnd:Next:「b」A:Z[10]+Rec(K,Z[12->M:Z[11]+J->N:Pol(M-O,N-P:I->S:J<0=>J+360->J:J->A:If Abs(M-X)<.2 And Abs(N-Y)<.2:Then “≤≥”:Locate 7,4,T:K+Abs(D->I:Fix 3:“X.2=”:Locate 6,4,M:“Y.2=”: Locate 6,4,N:“K(D)=”:Locate 7,4,I◢

H-B->B:C+B->C:Goto C:IfEnd:「b」B:F-A->J:J<0=>J+360->J:Wcos(J->M:Abs(S-∧

M->I:Fix 3:If M>S:Then “DV=”:Locate 5,4,I:Else“D(=”:Locate 6,4,I:IfEnd:Abs(Wsin(J->I:If J>180:Then “=>”:Locate 4,4,I:Else“<=”:Locate 4,4,I:IfEnd:Z[7]=1=>Goto C:Abs(G-K->I:If G>K:Then “CAO=”:Locate 6,4,I:Else“QIAN=”:Locate 7,4,I:IfEnd:「b」C:Abs(H-C->I:If H>C:Then “hV=”:Locate 5,4,I◢

∧

Else“h(=”:Locate 6,4,I◢ IfEnd:Norm 1:Goto 6

Prog Z1-（子程序）

If U=0:Then Z[2]->M:3->R:Z[2]-90->N:N<0=>N+360->N:Goto 0:IfEnd:If U=1:Then 90I÷π÷Abs(R->J:2J->B:2Abs(Rsin(J->I:IfEnd:If U=2:Then Prog “Z2”:IfEnd:If R<0:Then Z[2]-J->M:Z[2]+90-B->N:Else Z[2]+J->M:Z[2]+270+B->N:IfEnd:「b」0:Z[3]+Rec(I,M->A:Z[4]+J->B:Dcos(N->I:Dsin(N->J:If R<0:Then A+I->A:B+J->B:If D<0:Then N+180->N:IfEnd:Else A-I->A:B-J->B:D>0=>N+180->N:IfEnd:N->Z[12]:A->Z[10]:B->Z[11]:Pol(A-O,B-P:I->S:J<0=>J+360->J:J->A

且行天涯 804963666 18 FX5800卡西欧计算器应用及程序

Prog Z2-（子程序）

∧2∧∧∧∧

Abs(R->J:Pol(I-I(5)÷40÷(JL)+I(9)÷3456÷(JL)(4)-I(13)÷599040÷(JL)

∧∧∧∧∧

(6)+I(17)÷175472640÷(JL)(8)-I(21)÷7.80337152÷(10JL)(10),I(3)÷6÷

∧∧∧∧∧∧

J÷L-I(7)÷336÷(JL)(3)+I(11)÷42240÷(JL)(5)-I(15)÷9676800÷(JL)(7)∧∧∧∧∧

+I(19)÷3530096640÷(JL)(9)-I(23)÷1.8802409472÷10(12)÷(JL)(11):3J->B

2.1.6.1 固定桩号放样示例

直 线 段 示 意 图线 路 左 边 线-D0D端点（K 0+、XD、YD）AD放样点AD端点线 路 中 线线 路 右 边 线DB测站后视

“Z=0 Y=1 H=2”=0

【1】

无 边 坡 放 样

（直线段起始、起算数据相同）

测 站 X0=3754.1236 Y0=3918.4410 放样点里程 左 边 桩 <- 0 +>=-7.5 HD=168.359 放 样 数 据 A=31.4419 D=151.1211 中 桩 <- 0 +>=0 HD=168.439 放 样 数 据 A=34.3320 D=151.9806 起 算 数 据 K0=35.776 AD=26.56501 XD=3700.4060 YD=3915.2031 K+=235.776 右 边 桩 <- 0 +>=7.5 HD=168.359 放 样 数 据 A=37.2004 D=153.2038 XK=3882.6456 YK=3997.9375 XK=3879.2915 YK=4004.6457 XK=3875.9374 YK=4011.3539 实测坐标、高程 实测坐标、高程 实测坐标、高程 19 且行天涯 804963666 FX5800卡西欧计算器应用及程序 X(m) Y(m) 放 样 结 果 ∧X(m) Y(m) 放 样 结 果 H(m) X(m) Y(m) 放 样 结 果

H(m) H(m) 3882.912 3996.426 168.473 3879.768 4005.121 168.772 3876.561 4011.432 167.887 D、0.569 =>、1.426 hV、0.114 DV、0.662 <=、0.121 hV、0.333 DV、0.543 =>、0.316 h、0.472 ∧多 级 边 坡 示 意 图2D168.3591 : 1.5168.439168.3595 1.1 :h1D11 : 1.6h2D2路751.: 1 1 : 1.75h3中线D4边坡桩1 : 1.921 : 1.78D3h4 【2】

9 级 边 坡 桩 放 样 放 样 点 里 程 坡级 ≤ h D 坡级 1 1.5 5.72 / 2 0 / 1.5 3 1.6 8.69 / 4 0 / 2.3 HD=168.359 H(m) 164.185 1 实测坐标、高程 5 1.75 9.54 / 6 0 / 3.5 K+=172.557 7 1.78 13.72 / 8 0 / 4.2 9 1.92 / / 左 边 坡 桩 “<- 0 +>”=-7.5 实测坐标、高程 h2线h161.: 1 边坡桩右 边 坡 桩 “<- 0 +>”=7.5 X(m) 3815.835 Y(m) 3989.491 放 样 结 果 DV、0.101 CAO、1.061 X(m) 3783.205 Y(m) 4055.644 放 样 结 果 DV、0.234 CAO、0.232

<=、0.079 h、40.666 ∧HD=168.359 H(m) 164.184 实测坐标、高程 第一级边坡X(m) 3828.874 ≤≥ Y(m) 3964.112 放 样 结 果 第九级边坡 <=、1.103 h、4.175 H(m) 127.693 ∧X.2=3828.901 Y.2=3964.065 hV、1.546 X(m) 3862.339 Y(m) 3896.931 放 样 结 果 DV、0.169 CAO、0.426 =>、0.408 实测坐标、高程 H(m) 127.702 h、40.657 ∧ 且行天涯 804963666 20