非对称缓和曲线坐标计算程序

（for Casio-fx4850）扩展变量操作（15个）：Defm 15←┚ ( O为字母 、0为数字)J-PQX (平面数据输入，自行切换到J-JSMS)Defm 15←┚A“JD” B“JDX” C“JDY” F“FWJ” O“A0：Z-，Y+” RE“LS1” K“LS2”：E<1=>E=1E-9⊿K<1=>K=1E-9⊿Z[1]=EE÷24R-E∧4÷2688RRR:Z[2]= E÷2-EEE÷240RR:X=(EE-KK)÷24R÷sin Abs O :“T1=”:Z[3]=(R+Z[1])tan(Abs O÷2)+Z[2]-X◢“T2=”:Z[4]=(R+KK÷24R-K∧4÷2688RRR)tan(Abs O ÷2)+K÷2-KKK÷240RR+X◢“L=”:L=Abs OπR÷180+(E+K)÷2◢J=tan-1((R+Z[1])÷(Z[3]-Z[2]):“E=”:X=(R+Z[1])÷sin J-R◢X=A-Z[3]:Y=X+E:E<1=>“ZY=”:X◢≠=> “ZH=”:X◢“HY=”:Y◢⊿ “QZ=”:Y =X+(L-K-E)÷2+E◢Y=X+L-K:X=X+L:K<1=> “YZ=”:X◢≠=> “YH=”:Y◢“HZ=”:X◢⊿Prog“J-JSMS” ←┚J-JSMS（放样模式主程序）“1-ZS, FY,3-FS”: Lb1 0:{Z}: Z“MS”≤2=>Goto 1: ≠=> Z≤4=> Goto2⊿⊿←┚Lb1 1 :Q“X-YIQI”S“Y-YIQI”T“X-HOUSI”U“Y-HOUSI”:{PDW}:P“F=”D“BZ=”W“BJ=”: Prog“JP”: Prog“FY”: Goto 1←┚Lb1 2 :{XYW}:XYW“BJ”: Prog“JF”: “P=”: P◢“BZ=”: D◢JP（平曲线正算子程序）Fixm←┚Lb1 1 :J=F:X= B-Z[3]cos F :Y= C-Z[3]sin F :G=E←┚P≤A-Z[3]=>I=A-Z[3]-P:M=-I:N=0:H=F+W:Goto 5←┚≠=>P≤A-Z[3]+E=>I=P-A+Z[3]:H=90II÷REπ:O<0=>H=-H⊿H=H+W+F:Goto 3←┚≠=>P≤A-Z[3]+L-K=>I=P-A+Z[3]-E:Goto 4: ≠=>Goto 2⊿⊿←┚Lb1 2 :X= B+Z[4]cos(F+O :Y= C+Z[4]sin(F+O :J=F+O+180:G=K←┚P≤A-Z[3]+L=>I=A-Z[3]+L-P:H=90II÷RKπ:O>0=>H=-H⊿H=H+J+W+180:Goto 3 ←┚≠=>I=P-A+Z[3]-L:M=-I:N=0:H=J+W+180:Goto 5 ←┚Lb1 3 :M=I-I∧5÷40RRGG:N=III÷6GR-I∧7÷336RRRGGG:Goto 5 ←┚Lb1 4 :H=(E+2I)×90÷πR:M=R sin H+Z[2]:N=R(1-cos H)+Z[1]:O<0=>H=-H⊿H=J+H+W: Goto 5←┚Lb1 5 :P≤A-Z[3]+L-K=> O<0=>N=-N⊿≠=>O>0=>N=-N⊿⊿Goto 6←┚Lb1 6 :X =X+M cos J-N sin J+D cos H:Y =Y+M sin J+N cos J+D sin H“X=”: X ◢“Y=”: Y ◢JF（平曲线反算子程序）Fixm←┚U=X:V=Y:D=0:J=F-W:P=A+(Y-C)cos J-(X-B)sin J←┚Lb1 1:Prog“JP”:J=H-180:I=(V-Y)cos J-(U-X)sin J:Abs I<1E-4=>Goto 2:≠=>P=P+I:Goto 1⊿←┚Lb2: D=(V-Y)÷sinHFY(放样计算子程序)Pol(T-Q,U-S):“HOUSI D=”:I◢J<0=>J=J+360⊿J>360=>J=J-360⊿“HOUSI J=”:J→DMS◢Pol(X-Q,Y-S):“I=”:I◢J<0=>J=J+360⊿J>360=>J=J-360⊿“J=”:J→DMS◢一、程序简介本套程序是共有2个主程序，3个子程序。包括了路线坐标正反算、放样计算等程序。二、程序功能本着用最懒的方法做最繁杂的事（当然认真更重要！），根据不同需要，本程序共设置了2种计算模式J-JSMS：1-ZS，FY正算及放样模式：适用于中、边桩计算，里程桩号及边距=>平面坐标、放样极距及偏角。3-FS，反算模式：适用于任意点里程、边距计算，任意点坐标=>里程、边距。三、计算范围平曲线：直线-缓和曲线（或无）-圆曲线-缓和曲线（或无）-直线中任意桩号，允许两缓和曲线不等长，即可以算卵形曲线，回头曲线四、数据输入及各计算模式运行过程1、正算模式：1-ZS，运行主程序J-PQX（平曲线），计算过程如下：显示 输入 计算结果 备注DJ？ 交点桩号JDX？ 交点X值JDY？ 交点Y值FWJ？ 计算方位角A0：Z-，Y+？ 交点转角 左转为负值，右转正值R？ 圆曲线半径LS1？ 第一缓和曲线LS2？ 第二缓和曲线T1= 前切线T2= 后切线L= 曲线长度E= 外距ZH= ZH桩号 若不计算平曲线要素桩号，程序清单J-PQX内有下划线部分可以不写入计算器内。HY= HY桩号QZ= QZ桩号YH= YH桩号HZ= HZ桩号1-ZS,FY,3-FSMS？ 计算模式选择，此模式请输入：1 总共有2种计算模式供选择，符号说明见“二、程序功能”。X-YIQI 输入置仪点坐标XY-YIQI 输入置仪点坐标YX-HOUSI 输入后视点坐标XY-HOUSI 输入后视点坐标YF=？ 待求点桩号BZ=？ 边桩距离 左边为负值，右边为正值，中桩输0BJ=？ 边桩夹角 右边桩与中线夹角，正交为90，斜交另输X= 放样点X值Y= 放样点Y值HOUSI D= 后视点到置仪点的距离HOUSI J= 后视点偏角 望远镜对准后视点时度盘读数为该数值I= 放样点到置仪点的距离J= 放样点的偏角 望远镜对准放样点时度盘读数为该数值F=？BZ=？BJ=？... 本模式循环计算2、反算模式：3-FS，运行主程序J-PQX（平曲线），运行过程同“1、1-ZS，正算模式”；若平曲线数据已经输入了，或者计算交点同上次相同，可直接运行J-JSMS（计算模式）显示 输入 计算结果 备注＆＃8226;＆＃8226;＆＃8226;＆＃8226;＆＃8226;＆＃8226;平曲线数据输入过程＆＃8226;＆＃8226;＆＃8226;＆＃8226;＆＃8226;1-ZS,FY,3-FS计算模式选择，此模式请输入：3 总共有6种计算模式供选择，符号说明见“二、程序功能”。X？ 任意点P的X值Y？ 任意点P的Y值BJ？ 边桩夹角 右边桩与中线夹角，正交为90，斜交另输P= P点桩号BZ= 边桩距离 负值为左边桩，正值为右边桩X？Y？... 本模式循环计算必读：1、如果中途关机或已知数据与上次计算相同，直接运行J-JSMS计算即可，可不必重新输入已知数据。2、程序内未加入长短链数据，涉及长短链的曲线计算时P值应该增加（或减少）长短链数值。

[正确] CASIO fx-4800P QXZB曲线坐标计算
CASIO4800 QXZB可计算不等缓和曲线、圆曲线上的任意中、边桩坐标：
该程序适用于计算器 CASIO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。
1、DK(JD)？输入交点桩号2、X(JD)？ 输入交点坐标X3、Y(JD)？ 输入交点坐标Y4、T1？ 输入第一切线长(如果只有一条切线两者都输入一致)5、T2？ 输入第二切线长(如果只有一条切线两者都输入一致)6、FWJ？输入直线方位角(ZH→JD)7、A？ 输入转角：左转为负，右转为正
8、R？ 输入圆曲线半径
9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致)10、LY？输入圆曲线长(L-LS1-LS2)11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致)
12、X(ZJD)？输入置镜点坐标X13、Y(ZJD)？输入置镜点坐标Y14、JSDK？输入前视点里程15、PL？输入偏距16、PA？输入偏角 程序下载地址： http://www.fffsky.com/blog/post/QXZB-4800.html