1、 瑞士手表大全、支付宝、财付通付款火与影 http:/ zippo 教程、在线购买、支付宝、财付通付款 1卡西欧运动手表 tissot 手表手表排名瑞士手表限量版，手表排名瑞士手表真人秀，手表排名瑞士手表限时抢购！火与影 http:/ 公路编程实例ZBZS 坐标正算主程序Deg:FixmLbl 0:O:O“1,47264-50167.162,50150-50673.503,50700-54700”Lbl 1:ZKB:Z:K:B:O=1=Goto 2O=2=Goto 3O=3=Goto 4Lbl 2:Z 47264=Goto 5Z50167.16=Goto 5Z48708.52=Prog“55”
2、: Goto 6Z49310.50=Prog “56”: Goto 6Z49874.21=Prog“57”: Goto 6Prog“57-1”: Goto 6Lbl 3:Z 50150=Goto 5Z50673.5=Goto 5Prog“ 58”: Goto 6Lbl 4:Z 50700=Goto 5Z54700=Goto 5Z51265.12=Prog“59”: Goto 6Z52266.78=Prog“60”: Goto 6Z53341.82=Prog “61”: Goto 6Z53868.03=Prog“62”: Goto 6Prog“63”: Goto 6Lbl 5:“ZH ERROR
3、”Goto 0Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:YPol（X-Q,Y-U）:J0=J=360+J:I=Intg（1000I+.5）1000“L=”:I:Pause 0:“T=”:JDMSGoto 1 说明：本程序适用于 casio4850 计算器。把线路从断链处分为三段，O 的取值，待求点在第一段输 1，第二段输 2，第三段输 3。Z、待求点的桩号。K 、待求点在左幅输 0 右幅输 1。B、待求点距中距离。Goto 5 前的桩号为起止点或断链点桩号。 Prog“xx”:Goto 6 前的桩号为曲线组合的 HZ 点桩号。Q 、U 为测站坐标，运行程序前先存
4、入。ZHFS 桩号反算主程序Deg:FixmLbl 0:TL:T:L:T=Int T+Frac 100T36+（Int 100T100T-Int T）.6X=Q+Rec（L,T）:Y=U+J: “X=”:X:Pause 0:“Y=”:YLbl 1:Prog“55”:Prog“YS”:Z48980=Goto 2Prog “FQ” Z47264=Goto BGoto Z Lbl 2:Prog“56”:Prog“YS”:Z49437.85=Goto 3Prog“FQ”: Goto ZLbl 3:Prog“57”:Prog“YS”:Z49874.21=Goto 4Prog“FQ”: Goto ZLbl
5、 4:Prog“57-1”:Prog“YS”:Z50354.96=Goto 5Prog“FQ”Z50167.16 =Z=Z-17.16Goto Z瑞士手表大全、支付宝、财付通付款火与影 http:/ zippo 教程、在线购买、支付宝、财付通付款 6Lbl 5:Prog“58”:Prog“YS”:Z50931.36=Goto 6Prog“FQ”Z50673.5 = Z=Z+26.5Goto Z Lbl 6:Prog“59”:Prog“YS”:Z51953.51=Goto 7Prog“FQ”: Goto ZLbl 7:Prog“60”:Prog“YS”:Z52546.8=Goto 8Prog“F
6、Q”: Goto ZLbl 8:Prog“61”:Prog“YS”:Z53477.04=Goto 9Prog“FQ”: Goto ZLbl 9:Prog“62”:Prog“YS”:Z54118.18=Goto AProg“FQ”: Goto ZLbl A:Prog“63”:Prog“YS”:Z54700=Goto BProg “FQ”: Goto ZLbl B:“CX ERROR” Goto 0Lbl Z:Z=Intg（ 1000Z+.5）1000:B=Intg（1000B+.5）1000:“LC= ”:Z:Pause 0:“BJ=”:BGoto 0 说明： T、L 测点相对测站的方位角和距离
7、， T 的取值例：123456输为 12.3456。Q 、U 为测站坐标，程序运行前先存入。Goto 2 前的桩号为第 2 个曲线组合的 ZH 点桩号，以后类推。 “BJ”显示正值则测点在线路右幅，显示负值则测点在线路左幅。DQXY 单曲线坐标正算子程序S=.5Abs（C-A）:G=（C-A）2SC-A-180=S=180-S:G=-GC-A180=S=180-S:G=-GT=（R+N224R）tan S+N 2-N3240R2:L=RS90+N:K=0=K=-1 ZD-T= Goto 1Z D-T+L=Goto 2ZD-T+N=Goto 3ZD-T+L-N=Goto 4Lbl 0:M=A+G
8、（90+90NR+180（Z-D+T-N ）R） -180X=E+Rec（R+ N224R）cos S,C+G（90-S） ）:Y=F+JX=X+Rec（R-GKB,M）:Y=Y+J: Goto 5Lbl 1:X=E-Rec（D-Z,A）:Y=F-J:X=X+Rec （B,A+90K）:Y=Y+J: Goto 5Lbl 2:X=E+Rec（Z-D+2T-L,C）:Y=F+J:X=X+Rec（B,C+90K ）:Y=Y+J: Goto 5Lbl 3:X=E-Rec（T,A）:Y=F-J:H=Z-D+T:Prog“XY”X=X+Rec（P,A+Gtan-1（WV） ）:Y=Y+JX=X+Rec（B
9、,A+90GH2RN+90K）:Y=Y+J: Goto 5Lbl 4:X=E+Rec（T,C）:Y=F+J:H=D-T+L-Z:Prog“XY”X=X+Rec（P,C+180-Gtan-1（W V） ）:Y=Y+JX=X+Rec（B,C-90GH2RN+90K）:Y=Y+J: Goto 5Lbl 5XY 缓和曲线参数计算子程序V=H-H540R2N2+H93456R4N4W=H36RN-H7336R3N3+H1142240R5N5:P=（V2+W2）YS 曲线要素计算子程序S=.5Abs（C-A）:G=（C-A）2SC-A-180=S=180-S:G=-GC-A180=S=180-S:G=-G
10、T=（R+N224R）tan S+N 2-N3240R2:L=RS90+N Pol（X-E,Y-F）:J=J-C:Z=Icos J-T:Z=D-T+L+ZFQ 单曲线反求桩号子程序瑞士手表大全、支付宝、财付通付款火与影 http:/ zippo 教程、在线购买、支付宝、财付通付款 1ZD-T+L=Z:B=Isin J:Goto A D=D-T+L2:V=E+Rec（R+N224R）cos S,C+G（ 90-S） ）:W=F+JO=C+G（90-S）+180:O 360=O=O-360Pol（X-V,Y-W）:J 0=J=360+JZ=D+G （J-O）R 180:B=G（R-I）ZD-（L-
11、2N）2=Goto 1 ZD+（L-2N）2=Goto 2Goto ALbl 1:D=D-L2:E=E-Rec（T,A）:F=F-J:P=A-90:G=-G:Prog“HHXY ”:Z=D+T: Goto ALbl 2:D=D+L2:E=E+Rec（ T,C）:F=F+J:P=C+90:Prog“HHXY”:Z=D-T: B=-B:Goto ALbl AHHXY 反求缓和曲线长度子程序Pol（X-E,Y-F）:J=J-P:X=Icos J:Y=Isin JB=G46080R6N6:H=X3840R5N5:I=13G5760R4N4:J=GY384R4N4K=X48R3N3:M=G15R2N2:
12、O=GY8R2N2:P=X2RN:S=GY:Z=YLbl 2:V=BZ13+HZ10-IZ9+JZ8-KZ6+MZ5-OZ4+PZ2-GZ+SW=13BZ12+10HZ9-9IZ8+8JZ7-6KZ5+5MZ4-4OZ3+2PZ-GT=Z-VW:Abs（T-Z ）1E-5=Goto 3Z=T:Goto 2Lbl 3:V=G（T3 6RN-T7336R3N3+T1142240R5N5）W=T-T540 R2N2+T93456R4N4V=X= W=Y=B=0:Goto 5Pol（X-V,Y-W）:B=sin（J+90GT2RN-90 ）:S=-1:B 0=S=1 B=SILbl 555 5563
13、为平曲线参数置数子程序D=48212.03:E=42650.6693:F=16021.6936:A=2475658:C=1515602:R=826.192:N=60 56D=49148.91:E=41425.5219:F=16674.9305:A=1515602:C=1855602:R=354.724:N=120 57D=49661.59:E=40908.3058:F=16621.1706:A=1855602:C=1515414:R=600:N=80 57-1D=50019.67:E=40582.613:F=16795.0457:A=1515414:C=1725103:R=570.059:N=
14、8058D=50498.68:E=40087.8038:F=16857.11:A=1725103:C=1844817:R=1250:N=6059D=51112.95:E=39501.143:F=16807.7977:A=1844817:C=2063023:R=600:N=8060D=52113.01:E=38603.5949:F=16360.1705:A=2063023:C=2370319:R=400:N=10061D=52962.43:E=38138.5471:F=15642.5421:A=2370319:C=1931744:R=910:N=10062D=53677.91:E=37406.9
15、8:F=15469.6681:A=1931744:C=2285555:R=500:N=80瑞士手表大全、支付宝、财付通付款火与影 http:/ zippo 教程、在线购买、支付宝、财付通付款 163D=54344.49:E=36962.0015:F=14959.0062:A=2285555:C=1812744:R=400:N=80说明：线路起点 K47264，止点 K54700。 共十个交点， 两处断链， 第一处 K50+ 167.16K50+150，长17.16M。第二处 K50673.5K50 700，短 26.5M。置数子程序中，D 交点桩号。E、F 交点坐标。A、C 交点前后边正方位角
16、。R 曲线半径。 N 缓和曲线长。程序“HHXY”引用借鉴了徐光辉 2000 年 7 月 5 日编写的“CASIO fx-4800P 线路计算 6.0 版程序设计”中“反求缓曲长度子程序 HQ”的计算式。GCjs 路面高程计算主程序Lbl 0:O:O“1,47264-50167.162,50150-50673.503,50700-54700”Lbl 1:Z:K:B:Z:K:B:Fixm 意义同坐标正算程序V=2:K=0=K=-1B.75=B=.75B 11.25 = Goto 5 .75 为 1/2 中央分隔带宽O=1= Goto 2O=2= Goto 3O=3=Goto 4 11.25 为路
17、面半幅宽度Lbl 2:Z 47264=Goto 5Z50167.16=Goto 5Prog“A”: Prog“SQ”: Prog“O”: Goto 6Lbl 3:Z 50150=Goto 5Z50673.5=Goto 5Prog“B”: Prog“SQ”: Prog“P”: Goto 6Lbl 4:Z 50700=Goto 5Z54700=Goto 5Prog“C”: Prog“SQ”: Prog“Q”: Goto 6Lbl 5:“ZH ERROR”Goto 0Lbl 6:Prog“CG”:“H=”:HGoto 1SQ 竖曲线计算子程序ZD-T= Goto 1Z D+T=I=J: Goto 1
18、Lbl 0:H=G-（D-Z）I100+（Z-D+T）22RN: Goto 2Lbl 1:H=G-（D-Z）I100: Goto2Lbl 2CG 超高计算子程序（弯道未设加宽）P=2VS（V+W）ZM=Goto 1ZM+L=Goto 1ZM+P=F=Z-M:Goto 2ZM+L-P=F=M+L-Z:Goto 2ZM+S=F=Z-M:Goto 3ZM+L-S=F=M+L-Z:Goto 3Lbl 0:X=H+（B-.75）WK100:Y=H-（B-.75）WK100E=-1= H=X: H=YGoto 5Lbl 1:H=H-（B-.75）V100: Goto 5Lbl 2:X=H-（B-.75）V
19、100:Y=H+（V+W ）FS-V） （B-.75）100E=-1 = K=-1 =H=X: H=YK=1=H=X: H=YGoto 5Lbl 3:X=H+（V+W ）F S-V） （B-.75）K100Y=H-（V+W）F S-V） （B-.75）K100E=-1= H=X: H=YGoto 5Lbl 5 说明：竖曲线参数置数子程序中，D 竖曲线顶点桩号。 G 顶点高程。I 竖曲线前段纵坡。J 竖曲线后段纵瑞士手表大全、支付宝、财付通付款火与影 http:/ zippo 教程、在线购买、支付宝、财付通付款 1坡。R 竖曲线半径。T 切线长。 N 凹曲线取 1 凸曲线取-1。平曲线参数置数子
20、程序中，M 起超点桩号。S 超高缓和段长。L 超高曲线总长。W 最大单向横坡坡比。E 曲线左偏取-1 右偏取 1。V 直线段双向横坡坡比。纵坡按设计给出的正负取值，横坡均按正数取值。坡比取值示例：2.5%取 2.5。AZ47635= Goto 1Z 48680.5=Goto 2Z49200=Goto 3Z49369.25=Goto 4Lbl 0:D=50040:G=1025.21:I=-6:J=-3:R=4000:T=60.05:N=1: Goto 5Lbl 1:D=47560:G=1135.61:I=-6:J=-3:R=5000:T=75:N=1: Goto 5Lbl 2:D=48640:G
21、=1103.21:I=-3:J=-6:R=2700:T=40.5:N=-1: Goto 5Lbl 3:D=49140:G=1073.21:I=-6:J=-3:R=4000:T=60:N=1: Goto 5Lbl 4:D=49340:G=1067.21:I=-3:J=-6:R=1950:T=29.25:N=-1: Goto 5Lbl 5BD=50220:G=1019.3:I=-3:J=-6:R=3000:T=45.04:N=-1CZ50957.5 =Goto 1Z 51125 =Goto 2Z51805 = Goto 3Z51953 =Goto 4Z52546 = Goto 5Z52727.44
22、 =Goto 6Z52950.32 =Goto 7Z53800 =Goto 8Lbl 0:D=54400:G=835.84:I=-2.5:J=-1.2:R=22000:T=143:N=1: Goto 9Lbl 1:D=50920:G=978.89:I=-6:J=-3:R=2500:T=37.5:N=1: Goto 9Lbl 2:D=51080:G=974.09:I=-3:J=-6:R=3000:T=45:N=-1: Goto 9Lbl 3:D=51760:G=933.29:I=-6:J=-3:R=3000:T=45:N=1: Goto 9Lbl 4:D=51920:G=928.49:I=-3:
23、J=-6:R=2200:T=33:N=-1: Goto 9Lbl 5:D=52500:G=893.69:I=-6:J=-2:R=2300:T=46:N=1: Goto 9Lbl 6:D=52680:G=890.09:I=-2:J=-5:R=2500:T=47.44:N=-1: Goto 9Lbl 7:D=52900:G=877.34:I=-5:J=-3:R=3600:T=50.32:N=1: Goto 9Lbl 8:D=53700:G=853.34:I=-3:J=-2.5:R=40000:T=100:N=1: Goto 9Lbl 9 A、B、C 为竖曲线参数置数子程序OZ48708.52 =G
24、oto 1Z 49310.5 = Goto 2Z49874.21 =Goto 3Lbl 0:M=49874.21:S=80:L=288.41:W=3:E=1: Goto 4Lbl 1:M=47264:S=60:L=1444.52:W=2:E=-1: Goto 4Lbl 2:M=48980:S=120:L=330.5:W=5:E=1: Goto 4Lbl 3:M=49437.85:S=80:L=436.36:W=3:E=-1: Goto 4Lbl 4PM=50337.8:S=60:L=320.8:W=2:E=1QZ51265.12 =Goto 1Z 52266.78 = Goto 2Z53341
25、.82 =Goto 3Z53868.03 =Goto 4Lbl 0:M=54118.18:S=100:L=431.41:W=5:E=-1: Goto 5Lbl 1:M=50957.86:S=80:L=307.26:W=3:E=1: Goto 5Lbl 2:M=51953.51:S=100:L=313.27:W=5:E=1: Goto 5Lbl 3:M=52546.8:S=100:L=795.02:W=2:E=-1: Goto 5瑞士手表大全、支付宝、财付通付款火与影 http:/ zippo 教程、在线购买、支付宝、财付通付款 1手表网 手表品牌排名 手表品牌大全 卡西欧手表官网 http:/ 手表网 手表品牌 卡西欧 劳力士 浪琴 天梭 http:/ Lbl 4:M=53477.04:S=80:L=390.99:W=4:E=1: Goto 5Lbl 5 O、P、Q 为平曲线参数置数子程序-
