交点正反算坐标全

FX5800计算器交点法正反算程序(绿色为程序名，蓝色为输入计算器里的内容)1、主程序程序名：1XY-KMLbI0：7→DimZ：Norm2:1→A：＂A:X,Y=1，KM,D=2＂?A:A=1=>Goto1:A=2=>Goto2:LbI1:Z[4]→K:Z[5]→L:“XZ”?K:”YZ”?L:K→Z[4]:L→Z[5]:LbIA:Prog＂QX＂:90→B:＂PJ＂?B:B→Z[1]：LbIB:＂KM＂?Z:Z=-1=>Goto0:Z=-2=>GotoA:Prog＂X1＂:?D:Prog"Z":I+D×COS(Z[2]+Z[1]→X:J+D×Sin(Z[2]+Z[1]→Y:Ｆix3:＂Ｘ=＂：Locate6,4,Ｘ：＂Ｙ＝＂：Locate6,4,Ｙ：Prog＂JS＂:GotoB:LbI2：Prog＂QX＂:＂KM＂?Z：LbIC:Prog＂X1＂:＂XO＂?X:X=-1=>Goto0:X=-2=>Goto2:＂Y0＂?Y:Prog＂ZX＂:Fix3:＂　ＫＭ＝＂：Locate6,4,Ｚ：＂　　Ｄ＝＂：Locate6,4,Ｄ：GotoC2.交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2）÷24÷R÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R∧(3))÷Sin(Abs(P→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P →W:0→M:H→C:R+N2÷R÷24-N∧(4)÷2688÷R∧(3)tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→Z[6]:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Z[7]:IfZ≤O-T:ThenZ-O→S:G→Z[2]:Goto1:IfEnd:IfZ≤O-T+H:ThenZ-O+T→S:Prog“HX”:G+WK→Z[2]:A-T→A:G→E:Goto2:IfEnd:IfZ≤Z[7]:Then180(Z-O+T-0.5H)÷R÷Π→S:A+R(1-Cos(S))→B:H÷2-H∧(3)÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:A-T→A:G→E:Goto2:IfEnd:IfZ≤Z[7]+N:ThenZ[7]+N-Z→S:Z[6]→T:N→H:Prog“HX”:G+P→E:E-WK→Z[2]:T-A→A:C→H:Goto2:IfEnd:Z-Z[7]-N+Z[6]→S:G+P→Z[2]:LbI1:U+Scos(Z[2])→I:V+Ssin(Z[2]→J:Return:LbI2:U+Acos(E)-WBsin(E→I:V+ASin(E)+WBcos(E→J3.交点法缓和段子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5→B:90S2÷Π÷R÷H→K:RH÷S→M4.交点法反算子程序(ZX)程序名：ZX0→D:Do:Z+D→Z:Prog“Z”:Pol(X-I,Y-J+.000000001:J-Z[2]→J:Isin(J→S:Icos(J→D:IfM≠0:ThenPol(M-WS,D:JMΠ÷180→D:IfEnd:LpWhileAbs(D)>0.001:Z+D→Z:S→D 5．线路选择子程序(线路选择输0时。则输曲线参数（QX）程序名：QX1→A:”QX:？=0，X1=1,X2=2”?A:A→Z[3]:IfA=0:Then”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:“LS2”？N：“JDZJ”？P:?R:IfEnd6．坐标计算参数矩阵调出子程序（F）程序名：FMatF[1,1]→O:MatF[1,2]→U:MatF[1,3]→V:MatF[1,4]→G:MatF[1,5]→H:MatF[1,6]→N:MatF[1,7]→P:MatF[1,8]→R7．数据子程序(根据自己标段设计数据修改红色部分)程序名：X1（坐标计算要素程序,暂例子只给二条线路参数）Z[3]=0=＞Return:Z[3]=1=＞Goto1:Z[3]=2=＞Goto2:LbI1:IfZ≤122269.856:Then[[121656.952,2603848.019,508351.147,98°53′22.6″,660,300,41°47′44.1″,1415.097]]→MatF:Prog”F”:Return:IfEnd:IfZ≤125115.9:Then[[123984.982,2601974.464,509885.441,140°41′06.8″,700,400,－39°31′43.7″,2800]]→MatF:Prog”F”:Return:IfEnd: LbI2:IfZ≤396.166:Then[[213.698,2600569.493,514256.323,238°49′17.1″,107.584,120.474,64°39′40″,250]]→MatF:Prog”F”:Return:IfEnd:说明：IfZ《交点HZ点桩号(或者直线段桩号)：Then[[交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径]]→MatF:Prog”F”:Return:IfEnd:注：转角分正负，左偏为负，右偏为正.加粗O为子母..Z[2]值为所计算点切线方位角。输入部分：1、＂A:X,Y=1，KM,D=2＂?选择正反算，输1为正算，输2为反算；2、XZ？YZ？输入置仪点X、Y坐标3、”QX:？=0，X1=1，X2=2”?选择手工输入参数及调入参数，输0则手工输入交点线元参数，输1则调入子程序X1中第一条线路，输入计算第二条线路。4、PJ?路线方向中线向右夹角，默认为90度；5、JDKM？XJ？YJY？FW？LS1？LS2？JDZJ？R？分别输入：交点桩号，交点X坐标，交点Y坐标，前交点至止交点方位角，交点前段缓和曲线长度，交点后段缓和曲线长度，交点转角，圆半径 6、KM？输入计算段任意点桩号（主程序中输-1，返回选择正反算，输-2，返回选择输入选择线路或输入参数.7、D？距中桩距离，左负，右正，中桩输0。输出部分：1、X=***    正算时，计算得出的所求点的X坐标2、Y=***    正算时，计算得出的所求点的Y坐标3、FWJ=***正算时，计算得出的所求点的至置仪点方位角（显示125.3258即是125度32分58秒）4、S=***正算时，计算得出的所求点的至置仪点距离5、ＫＭ=***    反算时，计算得出的所求点的里程6、Ｄ=***    反算时，计算得出的所求点的边距附X1子程序中数据的设计图纸。(红色部分)