卡西欧fx导线标计算程序

合集下载

CASIOfx4500PA计算器程序和操作

CASIOfx-4500PA计算器程序和操作一、水准测量高程计算程序1、程序名：H-（1）第一行：L1 lbl 0 第二行：L2 Z：A：｛BK｝第三行：L3 H=Z＋A－B◢第四行：L4 V=K-H ◢第五行：L5 Goto 02、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示H-（1）文件名为止：③按EXE键，显示Z？，输入水准点BM后视点高程：如129.919；④按EXE键，显示A？，输入后视水准尺读数：如1.633；⑤按EXE键，显示B？，输入前视水准尺读数：如4.186；⑥按EXE键，显示H=127.366，此结果是K3＋300中桩地面髙程；⑦按EXE键，显示K？，输入K3＋300中桩设计高程127.032；⑧按EXE键，显示V=K-H，-0.334此结果是K3＋300中桩挖出数据；⑨按EXE键，显示B？，连续算下去……（－挖；＋填）。

二、坐标反算程序①1、程序名；1ZBFS第一行：L1 AB：Fixm：｛CD｝第二行：L2 Pol(C-A，D-B）◢第三行: L3 W<0 =〉W=W+360第四行：L4 lntW＋0.01lnt（）＋0.006 Frac（60 Frac W）◢2、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示1ZBFS文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567（也可当测站）；④按EXE键，显示B？，输入第一点y坐标：如814.454（也可当测站）；⑤按EXE键，显示C？，输入第二点x坐标：如406.260 （也可作后视点）；⑥按EXE键，显示D？，输入第二点y坐标：如1029.145（也可作后视点）；⑦按EXE键，显示Pol(C-A，D-B）：218.89476为两点间距离；⑧按EXE键，显示lntW＋0.01lnt（60 Frac W）＋0.006 Frac（60 Frac W）78.45108两点方位角；(即是78°45′11″)三、坐标正算程序1、程序名；2ZBZS第一行：L1 AB：Lbl5：｛ST｝第二行：L2 C=A＋Rce（S，T）◢第三行：L3 D=B＋W◢第四行：L4 Goto52、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示2ZBZS文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567；④按EXE键，显示B？，输入第一点y坐标：如814.454；⑤按EXE键，显示S？，输入两点间距离：如218.89476；⑥按EXE键，显示T？，输入两点方位角：如78°45′10.8″；⑦按EXE键，显示C=A＋Rce（S，T），为第二点x坐标：如406.260；⑧按EXE键，显示D=B＋W，为第二点y坐标：如1029.14499；四、坐标反算程序②1、程序名；ZF第一行：L1 Lbl 0第二行：L2 A：B：｛CD｝：C≤0 G=〉oto2第三行：L3 X=C－A第四行：L4 Y=D－B第五行：L5 S=Pol（X，Y）◢第六行：L6 T=W第七行：L7 T＜0=〉第八行：L8 T=W ◢第九行：L9 Goto 0第十行：L10 Lbl 1第十一行：L11 T″T″=360＋T◢第十二行：L12 Goto 0第十三行：L3 lbl 2第十四行：L14 ｛AB｝第十五行：L15 Goto 02、操作步骤①开机：按AC键：②呼出文件名：按FILE键，显示ZF文件名为止：③按EXE键，显示A？，输入第一点x坐标：如363.567 ；④按EXE键，显示B？，输入第一点y坐标：如814.454；⑤按EXE键，显示C？，输入第二点x坐标：如354.618；⑥按EXE键，显示D？，输入第二点y坐标：如553.341；⑦按EXE键，显示Pol(C-A，D-B）S=Pol（X，Y）：261.2663为两点间距离；⑧按EXE键，显示T=268.0371接着按SHIFT °′″键显T=268°2′13.55″为两点的方位角；⑨按EXE键，显示C？，输入下一点x值；⑩重复以上操作方法（略）五、线路直线段点坐标计算程序(1) ㈠本可计算前切线YZ至ZY点(或后切1、程序名；Z-X,Y(1) 线ZY至YZ)间直线上任点中、边桩坐标。

卡西欧FX5800线路曲线坐标计算程序

卡西欧FX5800---辛普森公式(万能公式)复化辛普森公式1.Lbl 0：“XA=”?A：“YA=”?B: “CA=”?C：“1/RA=”?D：“1/RB=”?E：“DKA=”?F:“DKB=”?G2.Lbl 1:“DKI=”?H：“DL=”?O：“DR=”?R：IF H＞G:THEN Goto0 IFEND3.(E-D)/Abs(G-F)→P:Abs(H-F) →Q: P×Q→I:D+I→T4.C+(I+2D)×Q×90/π→J5. C+(I/4+2D)Q×45/(2π) →M: C+(3I/4+2D)Q×135/(2π) →N6. C+(I/2+2D)Q×45/π→K7. A+Q(cosC+4(cosM+cosN)+2cosK+cosJ)/12 →X8.B+Q(sinC+4(sinM+sinN)+2sinK+sinJ)/12 →Y9.”FW=”:J▲DMS ▲10. “X=”:X▲11. “Y=”:Y▲12.“XL=”: X+Ocos(J-90) →U ▲13.“YL=”: Y+Osin(J-90) →V▲14.“XR=”:X+Rcos(J+90)→ W▲15.“YR=”:Y+Rsin(J+90)→ Z▲16.Goto 1程序结束程序说明：A- 曲线元起点A的坐标；B- 曲线元起点B的坐标；C- 曲线元起点A的切线坐标方位角；F- 曲线元起点A的里程；G- 曲线元起点B的里程；H- 曲线上待求点i的里程；D- 曲线元起点A的曲率；E- 曲线元终点B的曲率；XL-左边线点位X坐标；YL-左边线点位Y坐标；XR-右边线点位X坐标；YR-右边线点位Y坐标；X- 中线点位纵坐标；Y- 中线点位横坐标；DL-左边线距中线平距；DR-右边线距中线平距；该程序需要输入的数据为：（1）.曲线元起点A的坐标及切线坐标方位角，计算器上用“XA”，“YA”，“CA”显示；（2）.曲线元起点A和B的曲率，计算器上用I÷RA，I÷RB显示（曲线左偏时取“-”）；（3）.曲线元起点A和终点B的里程，计算器上用“DKA”，“DKB”显示；（4）.输入待求点里程和该点距左右的水平距离，计算器上用“DKI”，“DL”，“DR”显示；每算完一个待求点的中线及边线坐标，程序又让输入下一点的“DKI”，“DL”，“DR”当输入的“DKI”大于“DKB”时，此时输入下一个曲线元起点的曲率和里程，即可计算下一个曲线中线及边线点位坐标。

fx9750卡西欧9750公路线元法计算程序

新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD程序和ZA程序中的数据部分即可,其余不需作任何的改动。

2.因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S 程序对数据按桩号进行排序，在程序中通过调用GG程序来进行内插计算，SG=-1得左标高，SG=1得右标高（若SG输入0,则可进行一般的线性内插计算）。

3.在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。

4．相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z[10]，N中，X坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。

4.程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算，Z[2]＝0为线元法，否则为交点法。

一、PQX程序：计算中边桩坐标及近似的桩号反算，在运行模式直接调用。

① Z*10+→S:”XO”?S:S→Z*10+:”YO”?N:Prog “AU”② Lbl 2:?L:Prog “Z”:Prog “E”:1n→O:90→S③ Lbl 4:”JJ”?S:”YC”?O:SO=0 =>Goto 2‘原来lbl 后没有标号４的。

④ O=-1 =>Goto 6⑤ “X,Y”:R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog“D”:Goto 4⑥ Lbl 6:Z*7+→X:Z*8+→Y:”XF”?X:”YF”?Y:XY=0 =>Goto 4⑦ X→Z*7+:Y→Z*8+:Pol(X-R,Y-U+1p):Z+S-J→J:”YC,DL,L”:ICos(J)→O▲ISin(J)→I▲L+I▲Goto 6二、P程序：在程序中提供一个自由运算的模式。

卡西欧fx-5800 坐标正算程序

卡西欧fx-5800 坐标正算程序“SO”算方位Lbl 0“D”：Pol(X-A，Y-B) →D◢If J≥0:Then J◢Else “J”:J+360◢IfEnd“ZZ”正算直线坐标A+Rec(Abs(P-K),Q) →XB+J→Y“X”：X+Rec(D,Q+N×90) →X◢“Y”:Y+J→Y◢P?所求桩号 A，B：起点x,y K:起点桩号 Q：方位角D：边桩距离 N？左偏“-1”右偏：“+1”X= Y= 所求点坐标“YY”正算圆曲线坐标Q+C×（P-K）÷S×180÷∏→Z“X”：A+C×S×（Sin(Z)-Sin(Q)）+Rec(D,Z+N×90) →X◢“Y”:B-C×S×（Cos(Z)-Cos(Q)）+J→Y◢P:所求点桩号 A，B：起点x,y K：起点桩号Q：方位角 S：曲线半径 D？边桩距离N？左偏“-1”，右偏“+1”X= y= 所算点坐标 C：线路左转“-1”右转“+1”“H1”正算缓和曲线坐标Abs(P-K) →LT2÷L→HL2×180÷∏÷2÷T2→VQ+C×V→ZL-L∧（3）÷40÷H2+L∧（5）÷3456÷H∧（4）-L∧（7）÷H∧（6）÷599040→EL2÷6÷H- L∧（4）÷336÷H∧（3）+ L∧（6）÷42240÷H∧（5）- L∧（8）÷H∧（7）÷（6×1612800）→FIf C<0：Then-F→F：IfEndA+E×Cos(Q)-F×Sin(Q) →X“X”：X+Rec(D,Z+M×N×90) →X◢B+E×Sin(Q)+F×Cos(Q) →Y“Y”：Y+J◢P？所求点桩号 A，B：起点x,y K:起算点里程桩号Q：前切线方位角 T（是圆曲线要素的A1）=√（根号）缓曲总长×半径C=切线线路方向左转“-1”，右转“+1“M=第一缓曲“+1”，第二缓曲”-1“N：算边桩左偏“-1”，右偏“+1”D：边桩距离坐标正算数据库例子“肇兴隧道右线数据库”Lbl 0“P”?P:“N”？N：“D”？DIf P≥16836.5 And P≤17009.624:Then 66881.803→A：14635.782→B：16836.5→K:280032030.50→Q:902.044→T:1→C: 1→M:Prog“H1”：IfEnd (第一缓曲线)If P≥17009.624 And P≤17529.681:Then 66914.52→A：14465.781→B：17009.624→K:281035049.370→Q:4700→S：Prog“YY”:IfEnd （圆曲线）If P≥17539.681 And 17702.805≥P:Then 67102.343→A：13799.117→B：17702.805→K:108059031.50→Q:902.044→T:-1→C: -1→M:Prog“H1”：IfEnd (第二缓曲线)If P≥17702.805 And P≤19550:Then 67102.343→A：13799.17→B：17702.805→K:288059031.50→Q: Prog“ZZ”：IfEnd （直线）。

卡西欧Fx5800p道路三维坐标计算程序(线元法)

卡西欧5800p道路三维坐标计算程序（线元法）QXJS-000 主程序（文件名）Lbl 4：＂1.SZ=>NE＂:＂2.NE=>SZ＂:?Q:?S: Prog＂QXJS-SUB0＂↙Lblθ:Q=1 => Goto1:Q=2 => Goto2:↙θ为阿拉伯数字零Lbl 1:?Z:Prog＂QXJS-SUB1＂:Cls：＂N=＂:Locate5,1,N: （X坐标在第一行第五列显示）＂E=＂:Locate4,2,E: （Y坐标在第二行第四列显示）＂ZH=＂:Locate4,3,S:Locate9,3,＂BJ=＂:Locate12,3,Z: （桩号在第三行第四列显示）F▶DMS◢（方位角在第四行显示）Prog＂SQX-000＂: Goto4↙Lbl 2: ＂N=＂:?B: ＂E=＂:?C:B→N: C→E:Prog＂QXJS-SUB2＂: ＂S=＂:S ◢＂Z=＂:Z◢Goto4↙QXJS-SUB0 平面数据库子程序（文件名）Goto1↙Lbl 1 :IF S<***（线元终点里程）:Then***→A（线元起点方位角）:***→O （线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→L（线元起点至终点长度）: Return:IfEnd↙ (一个完整的线元)。

IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙ (下一个完整的线元)，……无限添加线元。

QXJS-SUB1 正算子程序（文件名）0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫( cos(A+(X÷P+DX2)×180÷π,θ,X)→N↙V+∫( sin(A+(X÷P+DX2)×180÷π,θ,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →EQXJS-SUB2 反算子程序（文件名）Lbl1:θ→Z:1→Q：Prog＂QXJS-SUB0＂: Prog＂QXJS-SUB1＂↙Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙Abs(W)>0.0001 => Goto1↙Lbl 2: θ→Z：Prog＂QXJS-SUB1＂:(C-E) ÷sin(F+90) →Z使用使用说明：1、规定以道路中线的前进方向（即里程增大的方向）区分左右；当线路左转时，P、R取负值，当线路右转时，P、R取正值，当线路为直线时，P、R以10的45次方代替，即10^(45)。

卡西欧fx-4800测量计算程序

O —X N Y N计算L1 ZX？输入置镜点X 坐标X “ ZX ” Y “ ZY ” ZKA “ ZH ” B ZY？输入置镜点丫坐标“ XZH ” S“ YZH ” O“ EJ”：R“ R Z？输入置镜点高程(L- , R+ ) ” = 9 — Goto E / I “ LS ”K？输入仪器高度L : Lbl E : Q= 9 : J “ HX ” U ZH？输入直缓点里程Goto 6 ： Lbl 9 XZH？输入直缓点X 坐标L2 YZH？输入直缓点丫坐标G : “ — E ” 丄Lbl 1 : {N} : N “ —L” ：EJ？输入直缓点方位角W=Abs ( A-AbsN ： N= 9 — Goto 9 R(L— , R +)？输入圆曲线半径,/ E=O: F= 9 : P= 9 : R 工9 — Q=90/ 左偏为负, 右偏为正n R : Goto2 / Rec ( W, 18 9 +O : LS？输入直缓点至缓圆点长度Goto4 / Lbl 2 L？输入完整曲线长度,即两倍L3 LS 加圆曲线长I < W — E=Q ( W-I : Goto 3 / HX？输入后视点X 坐标P=QW2/I Rec( W-Wx y5/9 9 R2I 2 , HY？输入后视点丫坐标P/3+O : Goto4 / Lbl 3 —E 显示后视方位角L4 —L？输入计算里程W > L-I — Goto 1 / F=2RsinE : E = 显示视方位角P=E+O+IQ FcosP+Rec ( I － Ix y3/9 S = 显示前视距离9 R2, IQ/3+O Lbl 4 M？输入1 进入①中桩计算模L5 式, 输入9 进入②边桩计算模式 , Q=B+Ans J=Q F=S+W+FsinP 输入竖直角度进入③测距仪计算U=Ans : N > 9 — Goto 6 / Lbl 5 模式L6{D} : D= 9 — Goto 1 / D=1 — Goto 8 ① 中桩计算模式/ H=P+E — 9 9 AbsD/D : J=Q+Rec XD = 显示计算里程中桩X 坐标( Abs D , P+E-9 9 AbsD/D YD = 显示计算里程中桩Y 坐标U=F+W Lbl 6 —L？输入下一计算里程L7 ② 边桩计算模式Pol ( J-X , U-Y : W v 9 — W+36 D？输入边桩距离,左侧输正值, 9 :工—W / Q=9 —G=Ans : Goto 右侧输负值9 / “ E=” 丄V: “ S=” 丄Lbl 7 E = 显示前视方位角L8 s= 显示前视距离{CMTH} : M= 9 — Goto 5 / M =1 M？输入1 显示边桩坐标—Goto 8 / C Abs sinM : “ — D= ”—L？输入下一计算里程丄V— Ans : “ / S=” 丄Z= 9 — Goto 7 ③测距仪计算模式/ T= 9 — Goto 7 / C？输入斜距K-T+H+Z+CcosM : “ —H ” 丄Goto —D = 显示平距5 / Lb1 8 / S= 显示距离仪器？mL9 说明“ 9 ” 为零 , O 为英文字J: “XD= ” 丄U: “ YD = ” 丄Goto 1C “ X 9 = ”：D “ Y 9 = ”：E “ W 9 = ”： N=Ans : R “ R= ”： L “ L 卩。

CASIO fx-9860计算器三维线路计算程序

程序清单AADo:Deg:ClrText“F1 Fangyang”“F2 Jiance”“F3 suidao”…FN:6→V:3→I:Prog “GN”…XL:3→V:Prog “GN”Prog “FN”:ClrText“Cont”:1→W:Prog “SC”LpWhile F=1ZZList 7[1]→I:List 8[I]→I:1→V Do:I+1→I:List 9[I+1]→Q LpWhile K>Q-List 12[I+1]List 10[I]→M:List 11[I]→NList 16[I]→S:List 17[I]→RList 9[I]→Q:-List 12[I]→J6→W…Q H:Q+J→Q:Prog “SC”:Prog “GN”K-Q→J:1E-20→B:List 13[I]→OO<0=>1÷List 17[I-1]→BAbsO→O:(1÷R-B)÷2÷O→CZX:If J<0:Then Prog “SC”Return :IfEnd7→W…HQ:If J<O:Then Prog “SC”Return:IfEnd…HY:O→J:Prog “SC”:Prog “GN”Q+O→Q:K-Q→J:List 14[I]→O8→W…YQ:If J<O:Then Prog “SC”Return:IfEnd…YH:O→J:Prog “SC”:Prog “GN”Q+O→Q:K-Q→J:List 15[I]→O1÷R→B: 1E20→RO<0=>List 17[I+1]→RAbs O→O: (1÷R-B)÷2÷O→C7→W…HQ:If J<O:Then Prog “SC”Return:IfEnd…HZ:O→J: Prog “SC”:Prog“GN”K-Q-O→J6→W…ZX:Prog “SC”主程序设置角度单位为度F1放样F2 检测F3 隧道接受F1~F3功能键选择输入线路号执行上述按键对应的F1~F3功能是否继续F1是F2 否按键为F1时重新开始中桩计算子程序获取平曲线数据行号,指定沿曲线按导线递推读取下一曲线交点里程JD直到里程小于下一曲线起点(JD-T)读取交点坐标读取切线方位角和圆半径读取交点里程和负的切线长直线计算功能由交点推算到起缓求第一缓曲测线长、默认起点曲率、缓曲长若第一缓长为负令前曲圆曲率为起点曲率第一缓长改为正,求缓曲变化系数K小于曲线起点按直线计算跳出子程序缓曲计算功能K小于缓圆按缓曲计算跳出子程序由曲线起点推算到缓圆求圆曲段测线长及圆曲长圆曲计算功能K小于圆缓按圆曲计算跳出子程序由缓圆推算到圆缓求第二缓曲测线长、缓曲长求起点曲率、默认终点半径若第二缓长为负令后曲圆半径为终点半径第二缓长改为正,求缓曲变化系数缓曲计算功能K小于曲线终点按缓曲计算跳出子程序由圆缓推算到缓终求直线长直线计算功能K大于曲终按直线计算…FY:If:F=1:Then Do:ClrText“Fangyang”5→V:Prog “GN”:I=0=>ReturnProg “ZZ”:Prog “GN”Do:ClrText:4→W:0→L“F1 Daoxian”:“F2 Shexian”:“F3 2Bian”…FN:6→V:3→I:Prog “GN”:F→V:F=3=>2→V “J”?->r:r→J: “A”→θ: θ→A…SX.DX:ClrText:Prog “GN”…“XY”:Prog “SC”…SX:If F=3:Then -J→r:A→θProg “GN”:Prog “SC”:IfEnd: “OK”▲ClrText:“F1 Next”: “F2 K?”: “F3 Quit”…FN:6→V:3→I:Prog “GN”LpWhile F=1:LpWhile F=2Return:IfEnd…JC:If F=2:Then Do:ClrText“Jiance”:0→List 25[1]“F1 Lumian”:“F2 Bianpo”:“F3 2D”…FN:6→V:3→I:Prog “GN”:F→U…K?:5→V:Prog “GN”:I=0=>Return Do:…FS: “X”?→X:“Y”?→Y7→V:Prog “GN”: I=0=>Return… “KJ”:ClrText:0→L:5→W:Prog “SC”If U≠3:Then “Z”?→ZList 7[1]→I:List 8[I]→AIf List 25[1]=0:Then…ZG:8→V:Prog “GN”3→W:Prog “SC”:…DM:0→W:Prog “SC”…LJ:9→W:Prog “SC”:IfEndIf U=1:Then “-H”?→R:Else Z-G→R:IfEnd …PK:0→V:Prog “GN”If U=1:Then AbsJ→r:Z-R-H-(r-K)C→R:r-K-Q→J Else Abs J-E-Q→J:List 25[1]→Q:J→List 25[1]Q≠0=>QJ÷(Q-J)→J:IfEnd… “dKdH”:0→L:2→W:Prog “SC”: “OK”▲If U=2:Then ClrText“Next PJ”:1→W:Prog “SC”:F=1=>0=>List 25[1] IfEnd:IfEnd:ClrText“F1 Next”: “F2 Menu”: “F3 Quit”…FN:6→V:3→I:Prog “GN”LpWhile F=1:LpWhile F=2Return:IfEnd 放样计算“放样”输入里程中桩坐标计算指定显示坐标模式F1 导线,F2 射线,F3 二边接受F1~F3功能键读取测线长,转角执行导线或射线计算显示坐标如按键是F3再算对称点计算,显示图形第二点坐标F1 下一点,F2 更换中桩,F3 退出放样接受F1~F3功能键执行上述按键对应的F1~F2功能如是F3 退出检测计算“检测”F1 路面,F2 边坡,F3 2维”接受F1~F3功能键输入近似里程输入待检坐标执行反算求出里程和位置显示里程和位置如不是F3则输入测点高程获取纵横断面数据行号如第一次测断面则计算中桩高显示中桩高,获取断面数据行号计算硬(土)路肩高,宽,如F1待检层距路面高,F2 计算测点和土路肩高差求测点边坡宽(相对路肩)如F1求相对路面边的高宽超欠如F2 求相对土路肩高差和边坡宽基本超欠如不是第一点则考虑原地面坡度修正宽超欠显示高差,宽度超欠如F2 检测边坡时询问“下一坡脚F1是F2否”F1则将上次测点距边坡归零如是F3不执行输入测点高及以上语句F1 继续原来功能F2 返回功能选单F3退出检测接受F1~F3按键执行上述按键对应的F1~F2功能如是F3退出If V=1 Or V=2:Then S+θ→θ:{M,N}+Rec(r, θ)List Ans[1]→r:List Ans[2]→θIf V=1:Then r→M: θ→N:S+A→S:IfEndReturn:IfEndIf V=3:Then Dim List 6→Q:Q=1=>StopDo:ClrText: “”:?→I:Int Abs I+1→ILpWhile I<2 Or I>Q:I→List 7[I]Return:IfEndIf V=4 Or V=5:Then List 7[1]→IList 6[I]→Q:List 7[I]→M:If V=5:Then ClrText “XL”: “QDK”: “ZDK”:Locate 4,1,I-1Locate4,2,Q:Locate4,3,M: “K”?→K:IfEndIf K<Q Or K>M:Then 0→I: “K over”▲Else List 8[I]→I:IfEnd:Return:IfEndIf V=6:Then Do:Do:8.9-G etKey÷10→FLpWhile Frac F≠0:LpWhile F>I: Return:IfEndIf V=7:Then Do:Prog “ZZ”:Prog “GN”Pol(X-M,Y-N):List Ans[1]→MRec(M,List Ans[2]-S:List Ans[2]→JP*list Ans[1]÷(P-J)→Q:K+Q→K4→V:Prog “GN”:I=0=>ReturnLpWhile Abs Q>1milli:Return:IfEndIf V=8=:Then List 9[A]→θIf θ<0:Then ClrText:“ZG”:1→W:Prog “SC”If F=1:Then –θ→θ:Return:Else 0→θ:IfEnd:IfEndIf θ=0:Then “ZG”?→θ: -θ→List 9[A] :Return: :IfEnd θ→I:Do:List 18[I+1]→P:List 21[I]→NList 19[I]→Q:List 18[I]→O:I+1→I:P-O→PNAbs P÷P→N:Abs(NP÷2)→PLpWhile K>Q+P:K-Q→Q:List 20[I]+OQ→θQ+P→Q:Q>0=>θ+Q2÷2÷N→θ:Return:IfEndIf V=9:Then If r<0:Then Do:List 22[I]→PList 23[I]→Q:I+1→I:List 22[I]→N:List 23[I]→O LpWhile K>N:IfEndElse Do:List 22[I]→P:List 24[I]→Q:I+1→IList 22[I]→N:List 24[I]→O:LpWhile K>N:IfEnd (K-P)÷(N-P)→P:3P^(2^S)-2P^(3^S)→PQ+P(O-Q)→I:Return:IfEndIf V=0:Then D→I: Do:List 25[I]→P:List 26[I]→Q I+1→I: List 25[I]→N:List 26[I]→OLpWhile R<Q Or R>O(R-P) ÷(N-P)→P: Q+P(O-Q)→Q:Return:IfEnd 计算下一点坐标射线计算如果V=1把终点作为起算点(导线)输线路号,无数据时退出输入线路号如有数据,线路所在行号保存到List 7[1]检查里程取得起点里程终点里程线路起终点里程显示已知数据,提示输入里程如果里程不在范围则“K超范围”否则输出平曲线数据所在行号识别按键F1~FI只对F1~FI有效反算,先算出中桩坐标求出测点到中桩距离求出到切线垂直距离计算切线方向改正量检验里程是否超限切线改正量小于1mm则结束计算中桩高程如果上次高程为手输,则询问是保留F1 是F2 否F1用原数据,F2 重输入手工输入中桩高自动计算中桩高,读出后坡,半径变坡里程,前坡,求坡差求半径和切线长如果在竖曲线内则计算直坡各点高在竖曲线上的加上改正量直线或3次抛物线内插求值查左线数据库,查右线数据库求出比例系数内插求值边坡宽直线内插求值查询变坡点找到高程点所在坡面直线内插求出边坡宽SCIf W=1:Then “F1 Yes”: “F2 No”6→V:2→I:Prog “GN” :Return:IfEndIf W=2:Then “dG=”:”dK=”:L+2→LLocate 4,L-1,R:Locate 4,L,J:Return:IfEndIf W=3:Then “ZG=”:L+1→LLocate 4,L,θ: Return:IfEndIf W=4:Then “X=”:”Y=”:L+2→LLocate 3,L-1,r:Locate 3,L, θ:Return:IfEndIf W=5:Then “K=”:”J=”:L+2→LLocate 3,L-1,K:Locate 3,L, J:Return:IfEndIf W=6:Then 0→A:0→θ:J→r:1E20→P:Return:IfEnd If W=7:Then J r List 2(CJList 2+B)→List 3Jlist 1cosList 3:Sum List Ans→rJlist 1sinList 3:Sum List Ans→θJ r(CJ+B)→A:Pol(r, θ):List Ans[1]→rList Ans[2]→θ:1÷(2CJ+B)→P: Return:IfEndIf W=8:Then J r÷R→A:A÷2→θ2Rsinθ→r:R→P: Return:IfEndIf W=9:Then J→r:List 10[A]→MList 14[A]→R:List 11[A]→TList 12[A]→C:List 15[A]-1→SIf S=-2:Then ClrText“Next Lm”:1→W:Prog “SC”:F-3→S:IfEndIf S=-1:Then S→List 15[A]“CG”?→C:C→List 12[A]“KD”?→M:M→List 10[A]“TJ”?→T:T→List 11[A]“CZ”?→R:R→List 14[A]Else If S=0 Or S=1:Then 7→V:C→IProg “GN”:I→C:T→I:Prog “GN”:I→TM→I:Prog “GN”:I→M:R→I: Prog “GN”:I→RIf R<0:Then If Abs C>0.02:Then –JC→rM→I:Prog “GN”:I→R:R(Abs C-0.02)+θ→θ:IfEnd 0→R:IfEnd:θ+MC→HIf C<-0.04:Then H+TC→θ:Else H-0.04T→θ:IfEnd R+M→K:K+T→r:Return:IfEndIf W=0:Then List 13[A]→IIf I<0:Then 2→D:If I=-1:Then ClrText“New Dm”:1→W:Prog “SC”:F-2→I:IfEndIf I=0:Then “H”?→List 25[D]:“W”? →List 26[D] Do:D+1→D:“H”?→List 25[D]:“W”? →List 26[D] ClrText: “Next Bp”:1→W:Prog “SC”:LpWhile F=1 2→D:-1→List 13[A]:IfEnd:Return:IfEnd7→V:Prog “GN”:O→D:Return:IfEnd输出等子程序是否选项F1 是F2 否接受F1, F2键高度和宽度误差显示显示数值高程输出显示显示数值坐标输出显示显示数值位置输出显示显示数值直线延长计算,转角,偏角,弦长,半径缓曲延长计算,分偏角计算坐标分量计算坐标分量计算转角,弦长偏角,半径圆曲延长计算,转角,偏角弦长,半径路肩高宽计算,路面保存位置分隔带,土路肩宽保存位置超高保存位置,线路等级(内插方式)或数据写入状况如上次数据是手工临时输入提示是用原数据还是重输如要求重输,则先改写数据写入状态为已输入输入超高输入路面宽输入土路肩宽输入分隔带半宽如已知线路等级则按内插方式计算C超高,T,土路肩宽M路面宽,分隔带宽如分隔带宽小于0,且超高大于2%计算曲线内侧路面宽,改正中桩高计算路面边高以-4%坡为界,分别计算土路肩高计算路面宽,土路肩宽断面号查询如临时断面数据已输入提示用原断面还是重输入如要求重输,先输入第一个边坡点输入第二个边坡点提示是否还输入下一点将数据状态改为已输入,输出2为断面数据位置否则查表找出断面数据位置.使用说明书一、数据准备1、高斯公式常数表高斯公式五节点10个常数保存在LIST第1、2列，共占5行。

CASIOfx测量放线程序

CASIO-fx5800测量程序任意平曲线极坐标与直角坐标放样,求中桩和边桩（偏距）ZJD-X ——置镜点X ?ZJD-Y ——置镜点Y ?HSD-X ——后视点X ?HSD-Y ——后视点Y ?ZH-X ——直缓点X ?ZH-Y ——直缓点Y ?ZH-DK ——直缓点里程？ZH-JD ——直缓点至交点的方位角（切线方位角）？LO ——缓和曲线长？R ——半径？Z:!:Y(1:2:3) ——输入1表示左偏，2表示中桩（不偏），3表示右偏。

Z-m ——提示输入左偏距？Y-m ——提示输入右偏距？A ——转向角a ？（交点转向角？）(1)ZUO ZHUAN,(2)YOU ZHUAN ——曲线1为左转，2为右转？左转右转概念为 ZH~HY（直缓点到缓圆点判定的）输入1表示右转曲线，2表示左转曲线，左右转曲线的判定需依照A点——B点的顺序，例如一条右转曲线的ZH点到HY点，输入时，咱们以ZH点为A点，HY点为B点，那么，曲线为右转，若是以HY点为A点，ZH点为B点，那么曲线为左转。

X= ——待求点X坐标Y= ——待求点Y坐标HSJL ——置镜点到后视点的距离HSFWJ ——后视方位角S= ——前视距离°°°——前视方位角主程序：1CLFY （测量放样）Prog”A”』Lb1 9』Prog”B”』Prog”D”』Prog”E”』Goto 9』子程序“A”4→DimZ:”ZJD-X”?C:”ZJD-Y”?D:”HSD-X”?E:”HSD-Y”?F:”ZH-X:”?G:”ZH-Y”?H:”ZH-DK”?K:”ZH-JD FWJ°”?W:”LO”?N:”R”?R:”A°”?A:“(1)ZUO ZHUAN,(2)YOU ZHUAN”?U』(N/2)-(N3/(240R2))→M』 N2/(24R)→P』 90×N/(∏R)→Z[2]』 (R+P)×tan(A/2)+M→T』∏RA/180+N→L』子程序“B”“DK”?V:”Z:!:Y(1:2:3)”?Q』 V-K→S』If S≤0:then Goto 1:ifEnd』 If S≤N:then Goto 2:ifEnd』If S≤L-N:then Goto 3:ifEnd』 If S≤L:then Goto 4:ifEnd』If S＞L:then Goto 5:ifEnd』 Lb1 1』 W+180→B』 Rec(-S,B)』 G+I→X』H+J→Y』 0×Z[1]→Z[1]』 Prog”H”: Prog”E”: Prog”B”』Lb1 2』 S-S5/(40R2N2)→X』 S3/(6RN)→Y』 S2/(2RN)×180/∏→Z[1]』Pol(X,Y)』tan-1(Y/X)→J』 Goto 0』 Lb1 3』180×(S-N)/(∏R)+Z[2]→Z[1]』 Rsin(Z[1])+M→X』 R(1-cos(Z[1]))+P→Y』Pol(X,Y)』 tan-1(Y/X)→J』 Goto 0』 Lb1 4』A-(3((L-S)2/(6RN)×180/∏))→Z[1] 』 (L-S)-(L-S)5/(40R2N2)→X』(L-S)3/(6RN)→Y』 Pol(X,Y)』 tan-1(Y/X)→J』 J+90-A→J:if J＜0:thenJ×-1→J:ifEnd』 T+cos(A)×T→X』 sin(A)×T→Y』X-sin(J)×I→X』 Y-cos(J)×I→Y』 if X=0:then 90→J:ifEnd』Pol(X,Y)』 tan-1(Y/X)→J』 if J＜0:then 180-J→J:ifEnd』 Goto 0』Lb1 5 』 T+cos(A)((S-L)+T)→X』 sin(A)(T+(S-L))→Y』Pol(X,Y)』 tan-1(Y/X)→J』 A×1→Z[1]』 Lb1 0子程序“D“If U=1:then Goto 2:ifEnd』 If U=2:then Goto 3:ifEnd』Lb1 2』 W-J→B』 Rec(I,B)』 I+G→X』 J+H→Y』 Prog”H” Goto 1』Lb1 3』 W+J→B』 Rec(I,B)』 I+G→X』 J+H→Y』 Prog”H” Goto 1』Lb1 1』子程序“E“Pol(E-C,F-D)』 if J＜0:then J+360→J:ifEnd』“X=”:X◢』“Y=”:Y◢“HSJL S=”:I◢“HSFWJ A°=”:J►DMS◢Pol(X-C,Y-D)』 if J＜0:then J+360→J:ifEnd』“S=”:I◢“°°°”:J►DMS◢子程序“H“If Q=1:then Goto 1:ifEnd』If Q=3:then Goto 2:ifEnd』If Q=2:then Goto 3:ifEnd』Lb1 1』 W-Z[1]-90→Z』“Z-m”?O』 Rec(O,Z)』 X+I→X』 Y+J→Y』Goto 3』 Lb1 2 W-Z[1]+90→Z』“Y-m”?O』 Rec(O,Z)』 X+I→X』 Y+J→Y』Lb1 3坐标反算：Lb1 1』“1X=”?B:”1Y=”?C:”2X=”?D:”2Y=”?E』Pol(D-B,E-C) 』if J＜0:then J+360→J:ifEnd』“HD=”:I◢“FWJ A°”:J►DMS◢Goto 1坐标正算:Lb1 1』“X0=”?B:”Y0=”?C:”FWJ A°=”?F:”HD=”?L 』B+cos(F)×L →X:”X=”:X◢C+sin(F)×L →Y:”Y=”:Y◢Goto 1。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

卡西欧fx导线标计算程序————————————————————————————————作者：————————————————————————————————日期：卡西欧fx-4800计算器（2007年07月08日）一.计算线路平曲线坐标计算主程序XYZ2及子程序XYZ1：子程序名XYZ1X=S×(1-S∧4÷40÷A∧4+S∧8÷3456÷A∧8-S∧12÷599040÷A∧12)Y=S∧3÷6÷A2×(1-S∧4÷56÷A∧4+S∧8÷7040÷A∧8-S∧12÷1612800÷A∧12)主程序名XYZ2{BOT}: ZJ'' KØ'' E'' XØ''H'' YØ''C'' AØ''A''√RL'':Z=1 F=K-J: G=Ø: D=ØZ=2 L=K-J:D=(AbsL÷R)r: F=R×sin(L÷R)r:G=F×tan(D÷2)Z=3 S=K-J:D=9Ø×R×S2÷(π×A2×AbsR):prog''XYZ1'':F=X:G=Y×AbsR÷RZ=4 S=A2÷AbsR:P=K-J:L=S-AbsP:C=C+9Ø×A2÷(π×R×AbsR): D=-9Ø×L2×AbsR÷(π×R×A2):prog''XYZ1'':F=X:G=Y:S=L:prog''XYZ1'':F=P×(F-X)÷AbsP:G=P×(Y-G)×AbsR÷(R×AbsP)C+D ◢X=E+F×cosC+G×cos(C+9Ø)+B×cos(C+D+O)+T×cos(C+D) ◢Y=H+F×sinC+G×sin(C+9Ø)+B×sin(C+D+O)+T×sin(C+D)说明：①、 Z表示平曲线的线型：Z=1表示直线，Z=2表示圆曲线，Z=3表示缓和曲线，Z=4表示不完全缓和曲线。

②、KØ（J）表示起始点的里程，XØ（E）表示其始点的X坐标，YØ（H）表示其始点的Y坐标。

注意：在计算器中0123456789中的0显示为Ø，以与英语字母的OPQ中O区分开。

③、AØ（C）表示起始点的方位角；√RL（A）表示平曲线的曲线半径与缓和曲线长度乘积的开平方，K表示待求坐标点的里程。

④、R表示平曲线的曲线半径R，左偏输入负值-R，右偏输入正值+R。

⑤、C+D为待求坐标点处的切线方位角，此值为程序自动输出的中间变量，不用人工输入此值。

⑥、B表示计算第一偏距；O表示计算第一夹角（按顺时针）；T表示计算第二偏距，前进大里程方向输入负值+T，后退小里程输入正值-T。

详见下图所示：线路前进方向坐标放样待求点TOB该程序可计算平曲线线路上任意一点坐标和及其线路方位角。

以及与线路任意夹角任意距离处的任意一点的边桩坐标。

举例如下：某曲线资料为：α左偏=29-15-30，R=1600m,L=140m,T=487.35ZH点里程:DK12+343.93,ZH点坐标:(12343.930,500.000)ZH点方位角:00-00-00,HY点里程:DK12+483.930。

1）.缓和曲线上点的坐标具体计算见下：①例如计算DK12+441.63处(位于缓和曲线上)的线路上的坐标步骤依次为：依次按键MODE 5 2 选择程序名XYZ2 按 EXE 计算器显示 Z？输入 3按EXE计算器显示KØ？输入12343.93按EXE计算器显示XØ？输入12343.93按EXE计算器显示YØ？输入500按EXE 计算器显示AØ？输入0按EXE 计算器显示√RL？输入√(1600×140)按 EXE计算器显示K？输入12441.63 按 EXE 计算器显示 R？输入(-)1600按EXE 计算器显示 C+D –1.2207699713按SHIFT °′″计算器显示–1°13′14.77″按EXE 计算器显示B？输入0按EXE 计算器显示 O？输入0 按EXE 计算器显示T？输入0按EXE 计算器显示 X=12441.62556 按EXE计算器显示Y=499.3061424。

因此DK12+441.63处(位于缓和曲线上)的线路上的坐标为(12441.626，499.306)。

②同样可计算出HY点（里程DK12+483.930）处的线路上的坐标为(12483.9032，497.9586)以及HY点线路上该处的切线方位角-2°30′24.09″（即C+D）。

③若计算DK12+441.63处（位于缓和曲线上）右偏0.03米法线上的墩中心坐标步骤依次为：依次按键MODE 5 2 选择程序名：XYZ2 按 EXE 计算器显示 Z？输入 3按EXE计算器显示KØ？输入12343.93按EXE计算器显示XØ？输入12343.93按EXE计算器显示YØ？输入500按EXE 计算器显示AØ？输入0按EXE 计算器显示√RL？输入√(1600×140)按 EXE计算器显示K？输入12441.63 按 EXE 计算器显示 R？输入(-)1600按EXE 计算器显示 C+D–1.2207699713按SHIFT °′″计算器显示–1°13′14.77″按EXE计算器显示B？输入0.03按EXE 计算器显示 O？输入90 按EXE 计算器显示 T？输入0按EXE 计算器显示 X=12441.6262 按 EXE计算器显示Y=499.3361356。

因此 DK12+441.63处(位于缓和曲线上) 右偏0.03米法线上的墩中心坐标为(12441.626，499.336)。

④若要计算DK12+441.63 (位于缓和曲线上) 在ZH-xy小坐标系下的坐标步骤依次为：依次按键MODE 5 2 选择程序名XYZ2 按 EXE 计算器显示 Z？输入 3按EXE计算器显示KØ？输入12343.93按EXE计算器显示XØ？输入0.000按EXE计算器显示YØ？输入0.000按EXE 计算器显示AØ？输入0按EXE 计算器显示√RL？输入√(1600×140)按 EXE计算器显示K？输入12441.63 按 EXE 计算器显示 R？输入(-)1600按EXE 计算器显示 C+D –1.2207699713按SHIFT °′″计算器显示–1°13′14.77″按EXE计算器显示B？输入0按EXE 计算器显示 O？输入0 按EXE 计算器显示 T？输入0按EXE 计算器显示 X=97.69556486 按 EXE计算器显示Y=-0.6938575846。

因此DK12+441.63(位于缓和曲线上)在ZH-xy小坐标系下的坐标为(97.6956，-0.6939)。

这里的计算结果与用程序名为HHQXFY的计算结果相同(详见第8页中五.缓和曲线上任一点的放样程序)。

⑤同样可计算出HY点（里程DK12+483.930）在ZH-xy小坐标系下的坐标为(139.9732，-2.0414)以及HY点线路上该处的切线方位角-2°30′24.09″（即C+D）。

2）.圆曲线上点的坐标具体计算见下：①例如计算DK12+539.84处(位于圆曲线上)的线路上的坐标步骤依次为：依次按键MODE 5 2 选择程序名XYZ2 按 EXE 计算器显示 Z？输入2按EXE计算器显示KØ？输入12483.93按EXE计算器显示XØ？输入12483.9032(此值来源于1)中的②的计算结果)按EXE计算器显示YØ？输入497.9586(此值来源于1)中的②的计算结果)按EXE 计算器显示AØ？输入(-) 2 °′″ 30 °′″ 24.09 °′″(此值来源于1)中的②的计算结果)按EXE 计算器显示√RL？输入√(1600×140)按 EXE计算器显示K？输入12539.84 按 EXE 计算器显示R？输入(-)1600按EXE 计算器显示C+D–4.508821062按SHIFT °′″计算器显示–4°30′31.76″按EXE 计算器显示B？输入0按EXE 计算器显示 O？输入0 按EXE 计算器显示T？输入0按EXE 计算器显示 X=12539.70561 按EXE计算器显示Y=494.5379956。

因此 DK12+539.84处(位于圆曲线上)的线路上的坐标为(12539.706，494.538)。

②同样若计算DK12+539.84处(位于圆曲线上)右偏0.04米法线上的墩中心的坐标步骤依次为：依次按键MODE 5 2 选择程序名XYZ2 按 EXE 计算器显示 Z？输入2按EXE计算器显示KØ？输入12483.93按EXE计算器显示XØ？输入12483.9032(此值来源于1)中的②的计算结果)按EXE计算器显示YØ？输入497.9586(此值来源于1)中的②的计算结果)按EXE 计算器显示AØ？输入(-) 2 °′″ 30 °′″ 24.09 °′″(此值来源于1)中的②的计算结果)按EXE 计算器显示√RL？输入√(1600×140)按EXE计算器显示K？输入12539.84 按 EXE 计算器显示R？输入(-)1600按EXE 计算器显示 C+D–4.508821062按SHIFT °′″计算器显示–4°30′31.76″按EXE计算器显示B？输入0.04按EXE 计算器显示 O？输入90 按EXE 计算器显示 T？输入0按EXE 计算器显示 X=12539.70876 按EXE计算器显示Y=494.5778718。