平面曲线计算程序

1、CASIO4800通用组合型平曲线坐标计算程序程序代码:“JAKE”V=Z3 V:V”CELECT” Z3=VZ4=14Z1=ZV+3A=0A:A”BL：0，XG：0”A=0Goto 0 W=ZZ1+1WZZ1+1=WZ2=Z1+W+3G=Z2 K=ZZ1 K: K“K0”: ZZ1=KQ=0 Lbl 1:C=Z1+2:Q=Q+1O=ZC+Q:L=ZG+3:R=ZG+4:F=ZG+5:E=ZG+4:B=ZG+6 O:O”Z:1,Y:2,H:3，N：4” ZC+Q=OA=ZG:M=ZG+1:N=ZG+2 A,M,NZG=A:ZG+1=M:ZG+2=NO=1L: ZG+3=L:G=G+4: O=2

2、R,F,L:ZG+3=L:ZG+4=R:ZG+5=F:G=G+6: O=3E:E”1/R1”:ZG+4=E:B:B”1/R2”:ZG+6=B:F,L:ZG+3=L: ZG+5=F:G=G+7：J=ZG+8：P=ZG+7：E：E“1/R1”：ZG+4=E：B：B“1/R2”：ZG+6=B：F，L：ZG+5=F：ZG+3=L：J：J“L2”：ZG+8=J：P：P“NY”：ZG+7=P：G=G+9Dsz WGoto 1V10ZV+4=G Lbl 0: S:S”K”:K=S：Z=1K= K-ZZ1 Q=0: C=Z1+2：W=ZZ1+1：G=Z1+W+3 Lbl 2: Q=Q+1:L=ZG+3 K&l

3、t;LGoto 4Q=WK=LGoto 4: Goto 0 K=K-LZC+Q=1G=G+4: ZC+Q=2G=G+6: ZC+Q=3G=G+7: G=G+9 Goto 2Lbl 4:A=ZG:M=ZG+1:N=ZG+2:ZC+Q=1Prog “ZX”: ZC+Q=2Prog “YQX”: ZC+Q=3Prog “HH” : Prog “N” P=ZZ1+2 PZZ1+2=PX=X+Pcos（A+90） “X=”: PCos（A+90） 红色 适用于casico4850型计算器Y=Y+Psin（A+90） “Y=”: PSin（A+90） 红色 适用于casico4850型计算器A<0A

4、=A+360 P=0A”FWJ” P=0 ”FWJ”:A 红色 适用于casico4850型计算器Goto 0 “ZX”L=ZG+3 X=M+KcosA:Y=N+KsinA“YQX”L=ZG+3:R=ZG+4:F=ZG+5 U=90K/R: H=2RsinU:U=A+FU:X=M+HcosU:Y=N+HsinU:U=U+F(90K/R):A=U“HH”L=ZG+3 Z=0L=ZG+8 F=ZG+5:C=F*ZG+4:I=F*ZG+6 P=(I-C)/LI=PKJ=A+(I+2C)K*90/B=A+(I/4+2C)K*45/(2) D=A+(3I/4+2C)K*135/(2) U=A+(I/2+

5、2C)K*45/X=M+K/12*(cosA+4(cosB+cosD)+2cosU+cosJ) Y=N+K/12*(sinA+4(sinB+sinD)+2sinU+sinJ) A=J“N”L=ZG+8：C=ZG+4：I=ZG+6：W=ZG+7 P=L/Abs（I-C）B=CICK=ZG+3-K：B=I K=P（1/W-B-（WB-1）2 - 2WK/P）/W）I CK=L-KZ=0Prog “HH” X=X+FWcos(A+90) Y=Y+FWsin(A+90) 创建以上程序后 ,按SHIFT+Defm+250 设置扩展变量个数为250,按FUNCTION + 5 + 1 选择Deg角度模式之

6、后就可正常运行了.提示字母说明:SELECT - 选择一条线路（必须从已建立的线路中选择，或者从第一条线路开始建立）BL:0,XG:0 - 采用上一次的设置输入0(默认为0),重新设置请输入非0的数A - 线型段起点切线方位角M - 线型段起点X坐标N - 线型段起点Y坐标K0 - 线路起点里程L - 线路中对应某曲线段的长度L2 - 选择第4种线型时出现，表示与内移曲线相对应的外围缓和曲线的对应弧长NY - 缓和曲线内移量(外移输入负值)R - 线路中圆曲线段的半径1/R1 - 线路中缓和曲线起点曲率半径的倒数1/R2 - 线路中缓和曲线终点曲率半径的倒数F - 线路中对应曲线段前进方向的转

7、向(往左为-1,往右为+1)K - 测点里程W - 线路中曲线段的数目Q = - 提示当前输入参数为第几曲线段的参数功能：目前本程序可同时存储和处理10条不同线路的数据；每条线路可以是由多段(只要内存空间足够)直线段、缓和曲线段、圆曲线段、缓和曲线内移线，4个线型以任意的顺序、平滑的组合而成，较为通用。关键说明：1、变量存储位置的查询：按Z条数+4 +EXE ，当所显示的值 > 已经设置的值（如上250）时，要重新设置扩展变量的个数：按SHIFT+Defm+查询所得值 即可。2、条数扩展方法：修改主程序“JAKE”第4行 Z4=14的值为：条数+4，如15条，即：Z4=19。修改主程序“

8、JAKE”第31行 V10ZV+4=G 其中10改为15（条数）。修改后，须重新输入各线路的参数。（扩展后变量如不足，按1条说明来扩展）应用实例:厦门国际旅游码头专用通道工程平面视图说明：主线ABCDE，其中AB圆曲线，BC为缓和曲线，CD圆曲线，DE缓和曲线；A匝道IJKLM，其中IJ缓和曲线，JK缓和曲线，KL圆曲线，LM缓和曲线；B匝道 FGH，其中FG圆曲线，GH是与DE段缓和曲线保持一定间距的曲线（不是缓和曲线，且称缓和曲线内移线）。(1)主线坐标计算主线由：圆曲线+缓和曲线+圆曲线+缓和曲线组成, 两段缓和曲线段A值不同,为非对称的。应用本程序输入每段基本参数后，只需输入所求点K值

9、及边桩偏移即可得所求点坐标。且关机重起后，仍可保留原有参数设置，使用方便。提供的参数:起点桩号:K0= 0 线路组合段数: W=4曲线段里程区间0-255.422线型圆曲线缓和曲线段圆曲线段缓和曲线段A138º52º53º108º12º39.18º81 º 51º 16.65º222º 13º 18.87ºM9049.8678910.3978905.8308963.997N56506.36456716.71156746.08156715.203R477.161R1=477.1

10、6 R2=3535R1=35, R2=+L255.42230134.16630F-1-1-1-1运行JAKE主程序提示 输入 输出 说明SELECT 1 选择线路(主线我选1线路来保存)PASS:0,RESET:0 6 选择采用原有设置还是重新设置,默认为0.(输入非零的数，重新设置)W? 4 输入线路中曲线段数K0? 0 输入起点里程Q= 1.000 EXE 提示当前为第一段曲线,按EXEZ:1,Y:2,H:3，N：4 2 选择该段曲线的线型,如2,圆曲线A? 138º52º53º 输入起点方位角M? 9049.867 输入起点X坐标N? 56506.364 输

11、入起点Y坐标R 477.161 输入圆曲线的半径L? 255.422 输入圆曲线的长度F? -1 输入圆曲线的转向,左边为-1,右边为+1Q= 2.000 EXE 提示当前为第2段曲线,按EXEZ:1,Y:2,H:3，N：4 3 选择该段曲线的线型,如3,缓和曲线A? 108º12º39.18º 输入起点方位角M? 8910.397 输入起点X坐标N? 56716.711 输入起点Y坐标1/R1? 1/477.16 输入缓和曲线起点的半径倒数1/R2? 1/35 输入缓和曲线终点的半径倒数L? 30 输入缓和曲线的长度F? -1 输入缓和曲线的转向,左边为-1,右

12、边为+1Q= 3.000 EXE 提示当前为第3段曲线,按EXEZ:1,Y:2,H:3，N：4 2 选择该段曲线的线型,如2,圆曲线A? 81º51º16.65º 输入起点方位角M? 8905.830 输入起点X坐标N? 56746.081 输入起点Y坐标L? 134.166 输入圆曲线的长度R? 35 输入圆曲线的半径F? -1 输入圆曲线的转向, 左边为-1,右边为+1Q= 4.000 EXE 提示当前为第4段曲线,按EXEZ:1,Y:2,H:3，N：4 3 输入该段曲线线型,如3缓和曲线A? 222º13º18.87º 输入起点

13、方位角M? 8963.997 输入起点X坐标N? 56715.203 输入起点Y坐标1/R1? 1/35 输入缓和曲线起点半径的倒数1/R2? 0 输入缓和曲线终点半径的倒数L? 30 输入缓和曲线的长度F? -1 输入缓和曲线的转向,同上K? 285 输入所求测点里程KP? 0 输入边桩偏移,左边为负值,右边为正值,0为中桩X= 8905.772 得出所求点X坐标Y= 56745.662 得出所求点Y坐标FWJ 82.541 所求点方位角,可按SHIFT+º”转换K? 445 输入新的测点里程KP? 0 输入边桩偏移X= 8941.583 得出所求点X坐标Y= 56703.642

14、得出所求点Y坐标FWJ 198.241 得出所求点方位角K? 415 输入新的测点里程KP? 0 输入边桩偏移X= 8967.183 得出所求点X坐标Y= 56718.500 得出所求点Y坐标FWJ 229.733 得出所求点方位角K? 以下重复要求输入K值及得出结果. . . . . .(2)A匝道坐标计算A匝道由缓和曲线+缓和曲线+圆曲线+缓和曲线组成。已知参数起点桩号:K0= 357.134 线路组合段数: W=4曲线段里程区间382.134-407.134407.134-420.059420.059-445.059线型缓和曲线缓和曲线圆曲线缓和曲线A324 º27 º

15、;40.57 º305 º14 º02.4 º 329 º6 º27.84 º353 º47 º35.86 ºM8962.1298978.6568995.6329007.791N56771.43356752.84356734.75356730.673RR1=37.25 R2=+R1=+ R2=3030R1=30, R2=+L252512.92525F-1111运行JAKE主程序提示 输入 输出 说明SELECT 2 选择线路(A匝道我选第2条线路来保存)PASS:0,RESET:0 6 选择采用

16、原有设置还是重新设置,默认为0.(输入非零的数，重新设置)W? 4 输入线路中曲线段数K0? 357.134 输入起点里程Q= 1.000 EXE 提示当前为第1段曲线,按EXEZ:1,Y:2,H:3，N：4 3 输入该段曲线线型,如3缓和曲线A? 324 º27 º40.57 º 输入起点方位角M? 8962.129 输入起点X坐标N? 56771.433 输入起点Y坐标1/R1? 1/37.25 输入缓和曲线起点半径的倒数1/R2? 0 输入缓和曲线终点半径的倒数L? 25 输入缓和曲线的长度F? -1 输入缓和曲线的转向Q= 2.000 EXE 提示当前为第

17、2段曲线,按EXEZ:1,Y:2,H:3，N：4 3 输入该段曲线线型,如3缓和曲线A? 305 º14 º02.4 º 输入起点方位角M? 8978.656 输入起点X坐标N? 56752.843 输入起点Y坐标1/R1? 0 输入缓和曲线起点半径的倒数1/R2? 1/30 输入缓和曲线终点半径的倒数L? 25 输入缓和曲线的长度F? 1 输入缓和曲线的转向Q= 3.000 EXE 提示当前为第3段曲线,按EXEZ:1,Y:2,H:3，N：4 2 选择该段曲线的线型,如2,圆曲线A? 329 º6 º27.84 º 输入起点方位角M

18、? 8995.632 输入起点X坐标N? 56734.753 输入起点Y坐标L? 12.925 输入圆曲线的长度R? 30 输入圆曲线的半径F? 1 输入圆曲线的转向Q= 4.000 EXE 提示当前为第4段曲线,按EXEZ:1,Y:2,H:3，N：4 3 输入该段曲线线型,如3缓和曲线A? 353 º47 º35.86 º 输入起点方位角M? 9007.791 输入起点X坐标N? 56730.673 输入起点Y坐标1/R1? 1/30 输入缓和曲线起点半径的倒数1/R2? 0 输入缓和曲线终点半径的倒数L? 25 输入缓和曲线的长度F? 1 输入缓和曲线的转向K? 411 输入所求测点里程KP? 0 输入边桩偏移,左边为负值,右边为正值,0为中桩X= 8999.068 得出所求点X坐标Y= 56732.987 得出所求点Y坐标FWJ 336.491 所求点方位角,可按SHIFT+º” K？ 以下将重复输入K值和得出结果 (3)B匝道坐标计算B匝道由圆曲线+主线上缓和曲线内移2.25组成。已知参数起点桩号:K0= 357.134 线路组合段数: W=2曲线段里程区间线型圆曲线缓