casio fx-5800p cyt綜合曲線坐標(biāo)正反算程序

[作 CASIOfx-5800PCYT綜合曲線坐標(biāo)正反算程序說明：本程序適用于卡西歐計(jì)算器CASIOfx-5800P,能進(jìn)行全線貫通坐標(biāo)正反算?？捎?jì)算：交點(diǎn)前直線段、第一緩和曲能直接計(jì)算出極坐標(biāo)放樣數(shù)據(jù),能通過坐標(biāo)反推該點(diǎn)里程和距中線距離,是測量員的程序。150→DimZ：Deg：Fix2IfJ<0：ThenGotoU：ElseLblV：＂0=>YS：1=>XY：-1=>DK＂：?J：J=0=>GotoB：J>0=>GotoA：10^(45)→3Lb1A：＂JSDK＂?Z：＂W＂?P：＂α＂?Q：Prog＂CYTSJ＂：GotoC：Lb1第5＂1=>XY：-1=>DK＂：?J：J=0=>GotoV：IfJ>0：Then＂JSDK＂?Z：＂W＂?P：＂α＂?Q：Prog＂CYTYS＂：Else6Lbl------2-34(Abs(A)-Z[9]-

9Cls：＂T1=＂：Locate4,1,Z[11]：＂T2=＂：Locate4,2,Z[22]：＂E=＂：Locate4,3,Z[1]：＂L=＂：Locate11LblD：F+180→Z[17]：IfZ[17]>360：ThenZ[17]-360→Z[17]：IfEnd：N-Z[11]×Cos(F)→Z[18]：E-Z[11]×1Goto2：Lbl2＂JSDK＂?Z：＂W＂?P：＂α＂?Q：Lb13IfZ≤Z[12]：ThenGotoI：IfEnd：IfZ≤Z[13]：ThenGotoE：IfEnd第4IfZ≤Z[15]：ThenGotoF：IfEnd：IfZ≤Z[16]：ThenGotoG：IfEnd第5IfZ≥Z[16]：ThenGotoH：IfEnd：Lb1I：Z[12]-Z→G67Goto3：Lb1E：Z-Z[12]→W：IfA<0：Then1→H：Else8Z- ÷R^(8)÷S^(8)→Z[28]：W^(3)÷6÷R÷S- 10Z[18]+Z[28]×Cos(F)-H×Z[29]×Sin(F)+P×Cos(Z[27]+Q)→X1112Goto3：Lb1F：Z-Z[12]→K：IfA<0：Then-1→H：Else13(Z-Z[12])-14F+Z[32]×H→Z[33]：R×Sin(Z[32])+Z[7]→Z[34]：R×(1-15Z[18]+Z[34]×Cos(F)-1617Goto3：Lb1G：Z[16]-Z→M：IfA>0：Then-1→H：Else18Z[20]+180→Z[42]：IfZ[42]>360：ThenZ[42]-19第20步M-M^(5)40R^(2)T^(2)+M^(9)3456R^(4)T^(4)-M^(13)599040R^(6)T^(6)+M^(17) 21Z[21]+Z[40]×Cos(Z[42])-2223Goto3：Lb1H：IfZ≥Z[16]：ThenZ-2426LblS：Cls：＂F=＂：Locate3,1,Z[27]°：＂X=＂：Locate3,2,X：＂Y=＂：Locate3,3,Y◢第27＂Z(X)＂?B：＂Z(Y)＂?C28POL(X-B,Y-C)：IfJ<0：ThenJ+360→J：ElseJ→J：IfEnd29Cls：＂F=＂：Locate3,1,J°：＂S=＂：Locate3,2,I◢30GotoP注2、CYTZS程序第23、24O加粗為字母OCls：＂X=＂：Locate4,1,U：＂Y=＂：Locate4,2,V：＂K=＂：Locate4,3,Z：＂S=＂：Locate4,4,Z[30]◢2Goto1Lbl1：If Lbl1：IfZ<******：Then******→N：******→E：******→D：******→R：******→S：******→T：******→A：******→Lbl1：IfLbl1：IfZ<本交點(diǎn)HZZHThen交點(diǎn)坐標(biāo)X→N：本交點(diǎn)坐標(biāo)Y→E：交點(diǎn)里程→D：曲線半徑→R：第Lbl1J?0(輸入0輸入1數(shù)據(jù),輸入-1距)JD(DK)=?9557.84(本交點(diǎn)里程) JD(Y)?=458628.379(本交點(diǎn)坐標(biāo)Y)R=?2040LS1?=260(第一緩和曲線長)LS2?=280(第二緩和曲線長)α?=-14°18ˊ10″(轉(zhuǎn)角)J?1(輸入0返回至0=>YS：1=>XY：-1=>DK橫盤界面,輸入1表示當(dāng)前數(shù)據(jù)進(jìn)行正算這里不單獨(dú)調(diào)用數(shù)據(jù)庫,-1表示引用當(dāng)前數(shù)據(jù)進(jìn)行反算這里不單獨(dú)調(diào)用數(shù)據(jù)庫,如需調(diào)用數(shù)據(jù)庫需返回至0=>YS：1=>XY：-1=>DK輸入1JSDK9500(計(jì)算里程W?=10(偏距：左為負(fù),右為正)α?=90(偏角,正交為90°)T1=387.001950(第一切線長)T2=395.239989(第二切線長)E=17.385580(外失距)L=779.246351(曲線長)ZH=9170.838050(直緩樁號)HY=9430.838050(緩圓樁號)YH=9670.084401(圓緩樁號)HZ=9950.084401(緩直樁號FWJ=146°34ˊ4.38″(切線方位角) .498(計(jì)算結(jié)果坐標(biāo)X)Y=458602.6783(計(jì)算結(jié)果坐標(biāo)Y) .598(測站坐標(biāo)X)Z(Y)?=458447.6569(測站坐標(biāo)Y)F=151°57ˊ47.09″(測站至計(jì)算點(diǎn)方位角)S=