当前位置:首页 >> 建筑/土木 >>

CASIOfx-5800PCYT综合曲线坐标正反算程序V2.0


CASIO fx-5800P

——若有疑问请咨询邮件:ceo@abcyt.net

[作者原创]

CASIO fx-5800P CYT 综合曲线坐标正反算程序 V2.0

说明:本程序适用于卡西欧计算器 CASIO fx-5800P,能进行全线贯通坐标正反算。可计算:交点前直线段、第一缓和曲 线段

、圆曲线段、第二缓和曲线段、交点后直线段的线路中、边桩坐标及切线方位角,该程序主要针对不对称缓和曲线设计并 能直接计算出极坐标放样数据,能通过坐标反推该点里程和距中线距离,是测量员的专用程序。

主程序名:CYT 第 1 步 50→DimZ:Deg:Fix 6 第 2 步 If J<0:Then Goto U:Else Lbl V:"0=>YS:1=>XY:-1=>DK":?J:J=0=>Goto B:J>0=>Goto A:10(45)→ Z[25]:J<0=>Prog"CYTFS":IfEnd 第 3 步 Lb1 A:"JSDK"?Z:"W"?P:"α"?Q:Prog"CYTSJ":Goto C:Lb1 B 第 4 步"JD(DK)"?D:"JD(X)"?N:"JD(Y)"?E:?R:"LS1"?S:"LS2"?T:"α"?A:"FWJ"?F:Lbl U:"0=>00" 第 5 步"1=>XY:-1=>DK":?J:J=0=>Goto V:If J>0:Then"JSDK"?Z:"W"?P:"α"?Q:Lb1 C:Porg"CYTYS": Else 10^(45)→Z[25]:Prog"CYTFS":IfEnd 第 6 步 Lbl C:Prog"CYTYS"

要素子程序名:CYTYS 第 1 步 S^(2)÷ R-S^(4)÷2688÷R^(3)→Z[5]:T^(2)÷ R-T^(4)÷2688÷R^(3)→Z[6] 24÷ 24÷ 第 2 步 S÷ 2-S^(3)÷240÷R^(2)→Z[7]:T÷ 2-T^(3)÷240÷R^(2)→Z[8] 第 3 步 90×S÷π÷R→Z[9]:90×T÷π÷R→Z[10] 第 4 步(Abs(A)-Z[9]-Z[10])×R×π÷180→Z[2] 第 5 步(R+Z[5])× tan(Abs(A)÷ 2)+(Z[6]-Z[5])÷sin(Abs(A))+Z[7]→Z[11] 第 6 步(R+Z[6])× tan(Abs(A)÷ 2)+(Z[5]-Z[6])÷sin(Abs(A))+Z[8]→Z[22] 第 7 步(R+Z[5])÷ COS(Abs(A)÷ 2)-R→Z[1] 第 8 步 Z[2]+S+T→L:D-Z[11]→Z[12]:Z[12]+S→Z[13]:Z[13]+Z[2]→Z[15]:Z[12]+L→Z[16]:If J<0:Then Goto D: IfEnd 第 9 步 Cls:"T1=":Locate 4,1,Z[11]:"T2=":Locate 4,2,Z[22]:"E=":Locate 4,3,Z[1]:"L=":Locate 4,4,L◢ 第 10 步 Cls:"ZH=":Locate 4,1,Z[12]:"HY=":Locate 4,2,Z[13]:"YH=":Locate 4,3,Z[15]:"HZ=":Locate 4,4,Z[16]◢ 第 11 步 Lbl D:F+180→Z[17]:If Z[17]>360:Then Z[17]-360→Z[17]:IfEnd:N-Z[11]×Cos(F)→Z[18]:E-Z[11] ×Sin(F)→Z[19] 第 12 步 F+A→Z[20]:If Z[20]>360:Then Z[20]-360→Z[20]:IfEnd:N+Z[22]×Cos(Z[20])→Z[21]:E+Z[22]×Sin(Z[20]) →Z[23]:Prog"CYTZS":IfEnd

本程序由【陈超】编著:版权归作者所有

——更多程序请访问:www.fffsky.com

CASIO fx-5800P

——若有疑问请咨询邮件:ceo@abcyt.net

正算子程序名:CYTZS 第 1 步 Goto 2:Lbl P 第 2 步"JSDK"?Z:"W"?P:"α"?Q:Lb1 2 第 3 步 If Z≤Z[12]:Then Goto I:IfEnd:If Z≤Z[13]:Then Goto E:IfEnd 第 4 步 If Z≤Z[15]:Then Goto F:IfEnd:If Z≤Z[16]:Then Goto G:IfEnd 第 5 步 If Z≥Z[16]:Then Goto H:IfEnd:Lb1 I:Z[12]-Z→G 第 6 步 Z[18]+G×Cos(Z[17])+P×Cos(F+Q)→X:Z[19]+G×Sin(Z[17])+P×Sin(F+Q)→Y:F→Z[27] 第 7 步 Goto 3:Lb1 E:Z-Z[12]→W:If A<0:Then -1→H:Else 1→H:IfEnd 第 8 步 (Z-Z[12])^(2)÷2÷R÷S×180÷π→Z[26] 第9步 F+Z[26]×H→Z[27]:W-W^(5)÷40÷R^(2)÷S^(2)→Z[28]:W^(3)÷6÷R÷S→Z[29]

第 10 步 Z[18]+Z[28]× Cos(F)-H×Z[29]×Sin(F)+P×Cos(Z[27]+Q)→X 第 11 步 Z[19]+Z[28]×Sin(F)+H×Z[29]×Cos(F)+P×Sin(Z[27]+Q)→Y 第 12 步 Goto 3:Lb1 F:Z-Z[12]→K:If A<0:Then -1→H:Else 1→H:IfEnd 第 13 步 ((Z-Z[12])-0.5×S)÷R×180÷π→Z[32] 第 14 步 F+Z[32]×H→Z[33]:R×Sin(Z[32])+Z[7]→Z[34]:R× (1-Cos(Z[32]))+Z[5]→Z[35] 第 15 步 Z[18]+Z[34]× Cos(F)-H×Z[35]×Sin(F)+P×Cos(Z[33]+Q)→X 第 16 步 Z[19]+Z[34]×Sin(F)+H×Z[35]×Cos(F)+P×Sin(Z[33]+Q)→Y:Z[33]→Z[27] 第 17 步 Goto 3:Lb1 G:Z[16]-Z→M:If A>0:Then -1→H:Else 1→H:IfEnd 第 18 步 Z[20]+180→Z[42]:If Z[42]>360:Then Z[42]-360→Z[42]:IfEnd 第 19 步 M^(2)÷2÷R÷T×180÷π→Z[38]:Z[20]+Z[38]×H→Z[39] 第 20 步 M-M^(5)÷40÷R^(2)÷T^(2)→Z[40]:M^(3)÷6÷R÷T→Z[41] 第 21 步 Z[21]+Z[40]× Cos(Z[42])-H×Z[41]×Sin(Z[42])+P×Cos(Z[39]+Q)→X 第 22 步 Z[23]+Z[40]× Sin(Z[42])+H×Z[41]×Cos(Z[42])+P×Sin(Z[39]+Q)→Y:Z[39]→Z[27] 第 23 步 Goto 3:Lb1 H:If Z≥Z[16]:Then Z-Z[16]→O:IfEnd 第 24 步 Z[21]+O×Cos(Z[20])+P×Cos(Z[20]+Q)→X:Z[23]+O×Sin(Z[20])+P×Sin(Z[20]+Q)→Y:Z[20]→Z[27] 第 25 步 Lbl 3:If J<0:Then Goto R:Else Goto S:Lbl R:Z[27]-90→Z[14]:(V-Y)×Cos(Z[14])-(U-X)×Sin(Z[14]) →Z[25]:If Abs(Z[25])>0.001:Then Z+Z[25]→Z:Goto 2:Else Goto K:IfEnd:Lbl K:(Y-V)÷Sin(Z[14])→Z[30]: Prog"CYTFS":IfEnd 第 26 步 Lbl S:Cls:"F=":Locate 3,1,Z[27]° :"X=":Locate 3,2,X:"Y=":Locate 3,3,Y◢ 第 27 步 "Z(X)"?B:"Z(Y)"?C 第 28 步 POL(X-B,Y-C):If J<0:Then J+360→J:Else J→J:IfEnd 第 29 步 Cls:"F=":Locate 3,1,J° :"S=":Locate 3,2,I◢ 第 30 步 Goto P

反算子程序名:CYTFS 第 1 步 If Z[25]<0.001:Then Goto N:Else"K"?Z:"X"?U:"Y"?V:0→P:0→Q:Prog"CYTYS":IfEnd:Lbl N: Cls:"X=":Locate 4,1,U:"Y=":Locate 4,2,V:"K=":Locate 4,3,Z:"S=":Locate 4,4,Z[30]◢ 第 2 步 Stop

本程序由【陈超】编著:版权归作者所有

——更多程序请访问:www.fffsky.com

CASIO fx-5800P 数据库名:CYTSJ Goto 1

——若有疑问请咨询邮件:ceo@abcyt.net

Lbl 1:If Z<10000:Then 3373351.385→N:458628.379→E:9557.84→D:2040→R:260→S:280→T:-14° 18ˊ10″→A: 152° 09ˊ41.68″→F:Return:IfEnd Lbl 1:If Z<******:Then ******→N:******→E:******→D:******→R:******→S:******→T:******→A:****** →F:Return:IfEnd Lbl 1:If Z<……………………………………………………………………………………………………………………………… ………………………………………………………… Lbl 1:If Z<本交点 HZ 里程或下个交点 ZH 里程:Then 本交点坐标 X→N:本交点坐标 Y→E:交点里程→D:曲线半径→R:第 一缓和曲线长→S:第二缓和曲线长→T:转角→A:第一直线方位角→F:Return:IfEnd Lbl 1 每增加一行则为增加一个曲线要素,……表示下一个曲线要素。

计算参数: 《输入要素数据》 0=>YS:1=>XY:-1=>DK(横盘显示) J? 0(输入 0 表示手动输入数据,输入 1 表示调用数据库数据,输入-1 表示运行当前调用的数据库进行反算里程和偏距) JD(DK)=? 9557.84(本交点里程) JD(X)?= 3373351.385(本交点坐标 X) JD(Y)?= 458628.379(本交点坐标 Y) R=? 2040(曲线半径) LS1?= 260(第一缓和曲线长) LS2?= 280(第二缓和曲线长) α?= -14° 18ˊ10″(转角) FWJ?=152° 09ˊ41.68″(第一直线方位角)

《正反算选择》 0=>00 1=>XY:-1=>DK(竖盘显示) J?1(输入 0 返回至 0=>YS:1=>XY:-1=>DK 横盘界面,输入 1 表示引用当前数据进行正算这里不单独调用数据库,-1 表示引 用当前数据进行反算这里不单独调用数据库,如需调用数据库需返回至 0=>YS:1=>XY:-1=>DK 横盘界面输入 1 即可)。

《进行正算》 JSDK?= 9500(计算里程) W?= 10(偏距:左为负,右为正) α?= 90(偏角,正交为 90° ) T1= 387.001950(第一切线长) T2= 395.239989(第二切线长) E= 17.385580(外失距) L= 779.246351(曲线长) ZH= 9170.838050(直缓桩号) HY= 9430.838050(缓圆桩号) 本程序由【陈超】编著:版权归作者所有 ——更多程序请访问:www.fffsky.com

CASIO fx-5800P YH= 9670.084401(圆缓桩号) HZ= 9950.084401(缓直桩号) FWJ= 146° 34ˊ4.38″(切线方位角) X= 3373402.498(计算结果坐标 X) Y= 458602.6783(计算结果坐标 Y) Z(X)?= 3373693.598(测站坐标 X) Z(Y)?= 458447.6569(测站坐标 Y) F= 151° 57ˊ47.09″(测站至计算点方位角) S= 329.804457(测站至计算点距离)

——若有疑问请咨询邮件:ceo@abcyt.net

《进行反算》 J? -1 K? 9200 X? 3373466.361 Y? 458573.906 X= 3373466.361 Y= 458573.906 K= 9430.838188(反算结果:里程) S=-0.001496 (反算结果:偏距,负为左,正为右)

《五大桩对照表》 ZH=09+170.838,X=3373693.598,Y=458447.6569,FWJ=152°9′41.68″ HY=09+430.838,X=3373466.361,Y=458573.9060,FWJ=148°30′37.36″ QZ=09+550.461,X=3373366.244,Y=458639.3431,FWJ=145°9′2.25″ HY=09+670.084,X=3373270.134,Y=458710.5365,FWJ=141°47′27.15″ HZ=09+950.084,X=3373058.317,Y=458893.5689,FWJ=137°51′31.68″

更新记录: 2010-10-01:程序首次发布,共 125 步骤,释义详细。 2010-12-01:V1.0 调整了首次步骤多的问题,精简到了 50 步,修改了主程序显示内容及相关布置。 2010-12-06:V2.0 增加了坐标反算功能。

程序在线下载地址:http://www.fffsky.com/blog/post/CASIO-fx-5800P-CYT.html

本程序由【陈超】编著:版权归作者所有

——更多程序请访问:www.fffsky.com

感谢您试用AnyBizSoft PDF to Word。
试用版仅能转换5页文档。

要转换全部文档,免费获取注册码请访问

http://www.anypdftools.com/pdf-to-word-cn.html


相关文章:
CASIO fx-5800P CYT 综合曲线坐标正反算程序V2.0
.com Q Q:295188316 [作者原创] CASIO fx-5800P CYT 综合曲线坐标正反算程序 V2.0 说明:本程序适用于卡西欧计算器 CASIO fx-5800P,能进行全线贯通坐标正反算...
CASIO fx-5800P CYT 综合曲线坐标正反算程序V2.0
.com Q Q:295188316 [作者原创] CASIO fx-5800P CYT 综合曲线坐标正反算程序 V2.0 说明:本程序适用于卡西欧计算器 CASIO fx-5800P,能进行全线贯通坐标正反算...
CASIO fx-5800P CYT 综合曲线坐标正反算程序V3.1
CASIO fx-5800P CYT 综合曲线坐标正反算程序V3.1_计算机软件及应用_IT/计算机_专业资料。新建测量群 :314941473CASIO 卡西欧计算器程序适用:CASIO fx-5800P [原创...
CASIO fx-5800P CYT 综合曲线坐标正反算程序V3.0
com Q Q:295188316 CASIO fx-5800P CYT 综合曲线坐标正反算程序 V3.0 说明:本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算...
CASIO 5800综合曲线坐标计算程序
[正确] CASIO fx-5800P 综合曲线坐标计算程序 (多...CASIO fx-5800P CYT 综合... 5页 免费 卡西欧...卡西欧FX5800线路曲线坐... 3页 免费 喜欢...
卡西欧fx-5800P直线圆曲线坐标正反算程序
CASIO fx-5800P CYT 综合... 6页 免费 [正反算]卡西欧 CASIO f... 3页...[精] fx 5800 直线圆曲线坐标正反算程序 (2010-07-01 21:50:11) 标签:...
《2013卡西欧CASIO fx-5800P坐标计算程序》班刚立:整理
fx-5800P CYT 综合曲线坐标正反算程序 V3.0 说明:本程序适用于计算器 CASIO fx-5800P,可计算:第一夹直线段、第一缓 和曲线段、圆曲线段、第二缓和曲线段、...
卡西欧5800坐标正反算万能程序
CASIO5800 计算器程序曲线任意里程中边桩坐标正反算(CASIO fx-4800P 计算器)...卡西欧FX5800全线贯通万... 2页 免费 卡西欧5800P坐标正反算程... 2页 免费...
5800正反算程序
使用道路中边桩坐标放样正反算程序 RAOD-2 的操作流程见下表。 . . 下表给.... . [作者原创] CASIO fx-5800P CYT 综合曲线坐标计算程序 V1.5 说明:本...
更多相关标签:
5800坐标正反算程序 | 5800p坐标正反算程序 | 5800直线正反算程序 | 卡西欧5800坐标正反算 | 5800正反算程序 | 5800线元法正反算程序 | 卡西欧5800正反算程序 | 卡西欧5800圆曲线程序 |