《卡西欧运动手表tissot手表.doc》由会员分享，可在线阅读，更多相关《卡西欧运动手表tissot手表.doc（6页珍藏版）》请在金锄头文库上搜索。
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:Z47264=Goto 5Z50167.16=Goto 5Z48708.52=Prog“55”: Goto 6Z49310.50=Prog“56”: Goto 6Z4987
2、4.21=Prog“57”: Goto 6Prog“57-1”: Goto 6Lbl 3:Z50150=Goto 5Z50673.5=Goto 5Prog“58”: Goto 6Lbl 4:Z50700=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”Goto 0Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:
3、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为测站坐标，运行程序前先存入。ZHFS桩号反算主程序Deg:FixmLbl 0:TL:T:L:T=Int T+Frac 100T36+（Int 10
4、0T100T-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 4:Prog“57-1”:Prog“YS”:Z50354.96=Goto 5Prog“FQ”Z50167.16 =Z=Z-17
5、.16Goto ZLbl 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“FQ”: Goto ZLbl 8:Prog“61”:Prog“YS”:Z53477.04=Goto 9Prog“FQ”: Goto ZLbl 9:Prog“62”:Prog“YS”:Z54118.18=Goto AProg“FQ”: G
6、oto 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测点相对测站的方位角和距离，T的取值例：123456输为12.3456。Q、U为测站坐标，程序运行前先存入。Goto 2前的桩号为第2个曲线组合的ZH点桩号，以后类推。“BJ”显示正值则测点在线路右幅，显示负值则测点在线路左幅。DQXY单曲线坐标正算子程序S=.5Abs（
7、C-A）:G=（C-A）2SC-A-180=S=180-S:G=-GC-A180=S=180-S:G=-GT=（R+N224R）tan S+N2-N3240R2:L=RS90+N:K=0=K=-1ZD-T=Goto 1ZD-T+L=Goto 2ZD-T+N=Goto 3ZD-T+L-N=Goto 4Lbl 0:M=A+G（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）:
8、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,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（WV）:Y=Y+JX=X+Rec（B,C-90GH2RN+90K）:Y=Y+J: Goto 5Lbl 5
9、XY缓和曲线参数计算子程序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=-GT=（R+N224R）tan S+N2-N3240R2:L=RS90+NPol（X-E,Y-F）:J=J-C:Z=Icos J-T:Z=D-T+L+ZFQ单曲线反求桩号子程序ZD-T+L=Z:B=Isin J:Goto AD=D-T+L2:V=E+Rec（R+N224R）cos S,C+G（90-S）:
10、W=F+JO=C+G（90-S）+180:O360=O=O-360Pol（X-V,Y-W）:J0=J=360+JZ=D+G（J-O）R180:B=G（R-I）ZD-（L-2N）2=Goto 1ZD+（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
11、 J:Y=Isin JB=G46080R6N6:H=X3840R5N5:I=13G5760R4N4:J=GY384R4N4K=X48R3N3:M=G15R2N2: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（T36RN-T7336R3N3+T1142240R5N5）W=T-T540 R2N2+T93456R4N4V=X=
12、W=Y=B=0:Goto 5Pol（X-V,Y-W）:B=sin（J+90GT2RN-90）:S=-1:B0=S=1B=SILbl 5555563为平曲线参数置数子程序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
13、 57-1D=50019.67:E=40582.613:F=16795.0457:A=1515414:C=1725103:R=570.059:N=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=3813
14、8.5471:F=15642.5421:A=2370319:C=1931744:R=910:N=10062D=53677.91:E=37406.98:F=15469.6681:A=1931744:C=2285555:R=500:N=8063D=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.5K50700，短26.5M。置数子程序中，D交点桩号。E、F交点坐标。A、C交点前后边正方位角。R曲线半径。N缓和曲线长。程序“HHXY”引用借鉴了徐光辉2000年7月5日编写的“CASIO fx-4800P线路计算 6.0版程序设计”中“反求缓曲长度子程序HQ”的计算式。GCjs路面高程计算主程序Lbl 0:
