非对称的缓和曲线

1、以前我干的工程是非对称的缓和曲线。我们是用道路测设大师软件计算的。一直没有4800或5800计算器程序。有哪位老师给发个可以计算非对称缓和曲线的程序啊。在此谢谢。对称的就不需要了。根据他人程序结合本人实际运用修改,十分好用。上传与大家分享非对称缓和曲线放样计算程序清单(for Casio-fx4850扩展变量操作(15个:Defm 15 ( O为字母、0为数字J-PQX (平面数据输入,自行切换到J-JSMSDefm 15A“JD” B“JDX” C“JDY” F“FWJ” O“A0:Z-,Y+” RE“LS1” K“LS2”:EE=1E-9KK=1E-9Z1=EE24R-E42688RRR:

2、Z2= E2-EEE240RR:X=(EE-KK24Rsin Abs O :“T1=”:Z3=(R+Z1tan(Abs O2+Z2-X“T2=”:Z4=(R+KK24R-K42688RRRtan(Abs O 2+K2-KKK240RR+X“L=”:L=Abs OR180+(E+K2J=tan-1(R+Z1(Z3-Z2:“E=”:X=(R+Z1sin J-RX=A-Z3:Y=X+E:E“ZY=”:X= “ZH=”:X“HY=”:Y “QZ=”:Y =X+(L-K-E2+EY=X+L-K:X=X+L:K “YZ=”:X= “YH=”:Y“HZ=”:XProg“J-JSMS” J-JSMS(放样模式

3、主程序“1-ZS, FY,3-FS”: Lb1 0:Z: Z“MS”2=Goto 1: = Z4= Goto2Lb1 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 1Lb1 2 :XYW:XYW“BJ”: Prog“JF”: “P=”: P“BZ=”: DJP(平曲线正算子程序FixmLb1 1 :J=F:X= B-Z3cos F :Y= C-Z3sin F :G=EPA-Z3=I=A-Z3-P:M=-I:N=0:H=F+W:Goto 5=PA-Z3+E=I=P

4、-A+Z3:H=90IIRE:OH=-HH=H+W+F:Goto 3=PA-Z3+L-K=I=P-A+Z3-E:Goto 4: =Goto 2Lb1 2 :X= B+Z4cos(F+O :Y= C+Z4sin(F+O :J=F+O+180:G=KPA-Z3+L=I=A-Z3+L-P:H=90IIRK:O0=H=-HH=H+J+W+180:Goto 3 =I=P-A+Z3-L:M=-I:N=0:H=J+W+180:Goto 5 Lb1 3 :M=I-I540RRGG:N=III6GR-I7336RRRGGG:Goto 5 Lb1 4 :H=(E+2I90R:M=R sin H+Z2:N=R(1-

5、cos H+Z1:OH=-HH=J+H+W: Goto 5Lb1 5 :PA-Z3+L-K= ON=-N=O0=N=-NGoto 6Lb1 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(平曲线反算子程序FixmU=X:V=Y:D=0:J=F-W:P=A+(Y-Ccos J-(X-Bsin JLb1 1:Prog“JP”:J=H-180:I=(V-Ycos J-(U-Xsin J:Abs IGoto 2:=P=P+I:Goto 1Lb2: D=(V-YsinHFY(放样计算子程序Pol

6、(T-Q,U-S:“HOUSI D=”:IJJ=J+360J360=J=J-360“HOUSI J=”:JDMSPol(X-Q,Y-S:“I=”:IJJ=J+360J360=J=J-360“J=”:JDMS一、程序简介本套程序是共有2个主程序,3个子程序。包括了路线坐标正反算、放样计算等程序。二、程序功能本着用最懒的方法做最繁杂的事(当然认真更重要!,根据不同需要,本程序共设置了2种计算模式J-JSMS:1-ZS,FY正算及放样模式:适用于中、边桩计算,里程桩号及边距=平面坐标、放样极距及偏角。3-FS,反算模式:适用于任意点里程、边距计算,任意点坐标=里程、边距。三、计算范围平曲线:直线-缓

7、和曲线(或无-圆曲线-缓和曲线(或无-直线中任意桩号,允许两缓和曲线不等长,即可以算卵形曲线,回头曲线四、数据输入及各计算模式运行过程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-Z

8、S,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(计算模式显示输入计算结果备注平曲线数据输入过程1-ZS,FY,3-FS计算模式选择,此模式请输入:3 总共有6种计算模式供选择,符号说明见“二、程序功能”。X?任意点P的X值Y?任意点P的Y值BJ?边桩夹角右边桩与中线夹角,正交为90,斜