卡西欧运动手表tissot手表.doc

瑞士手表大全、支付宝、财付通付款
卡西欧运动手表tissot手表
手表排名瑞士手表限量版，手表排名瑞士手表真人秀，手表排名瑞士手表限时抢购！
火与影

公路编程实例
ZBZS★   坐标正算主程序
Deg:Fixm
Lbl 0:｛O｝:O“1,47264-50167.162,50150-50673.503,50700-54700”
Lbl 1:｛ZKB｝:Z:K:B:O=1=＞Goto 2△O=2=＞Goto 3△O=3=＞Goto 4△
Lbl 2:Z＜47264=＞Goto 5△Z＞50167.16=＞Goto 5△
Z＜48708.52=＞Prog“55”: Goto 6△Z＜49310.50=＞Prog“56”: Goto 6△
Z＜49874.21=＞Prog“57”: Goto 6△Prog“57-1”: Goto 6△
Lbl 3:Z＜50150=＞Goto 5△Z＞50673.5=＞Goto 5△Prog“58”: Goto 6△
Lbl 4:Z＜50700=＞Goto 5△Z＞54700=＞Goto 5△Z＜51265.12=＞Prog“59”: Goto 6△
Z＜52266.78=＞Prog“60”: Goto 6△Z＜53341.82=＞Prog“61”: Goto 6△
Z＜53868.03=＞Prog“62”: Goto 6△Prog“63”: Goto 6△
Lbl 5:“ZH ERROR”▲
Goto 0
Lbl 6:Prog“DQXY”:“X=”:X:Pause 0:“Y=”:Y▲
Pol（X-Q,Y-U）:J＜0=＞J=360+J△:I=Intg（1000I+.5）÷1000
“L=”:I:Pause 0:“T=”:J→DMS▲
Goto 1       说明：本程序适用于casio4850计算器。把线路从断链处分为三段，O的取值，待求点在第一段输1，第二段输2，第三段输3。Z、待求点的桩号。K、待求点在左幅输0右幅输1。B、待求点距中距离。Goto 5前的桩号为起止点或断链点桩号。 Prog“xx”:Goto 6前的桩号为曲线组合的HZ点桩号。Q、U为测站坐标，运行程序前先存入。

ZHFS★   桩号反算主程序
Deg:Fixm
Lbl 0:｛TL｝:T:L:T=Int T+Frac 100T÷36+（Int 100T÷100T-Int T）÷.6
X=Q+Rec（L,T）:Y=U+J:“X=”:X:Pause 0:“Y=”:Y▲
Lbl 1:Prog“55”:Prog“YS”:Z＞48980=＞Goto 2△Prog“FQ”
Z＜47264=＞Goto B△Goto Z
Lbl 2:Prog“56”:Prog“YS”:Z＞49437.85=＞Goto 3△Prog“FQ”: Goto Z
Lbl 3:Prog“57”:Prog“YS”:Z＞49874.21=＞Goto 4△Prog“FQ”: Goto Z
Lbl 4:Prog“57-1”:Prog“YS”:Z＞50354.96=＞Goto 5△Prog“FQ”
Z＞50167.16 =＞Z=Z-17.16△Goto Z
Lbl 5:Prog“58”:Prog“YS”:Z＞50931.36=＞Goto 6△Prog“FQ”
Z＞50673.5 =＞Z=Z+26.5△Goto Z
Lbl 6:Prog“59”:Prog“YS”:Z＞51953.51=＞Goto 7△Prog“FQ”: Goto Z
Lbl 7:Prog“60”:Prog“YS”:Z＞52546.8=＞Goto 8△Prog“FQ”: Goto Z
Lbl 8:Prog“61”:Prog“YS”:Z＞53477.04=＞Goto 9△Prog“FQ”: Goto Z
Lbl 9:Prog“62”:Prog“YS”:Z＞54118.18=＞Goto A△Prog“FQ”: Goto Z
Lbl A:Prog“63”:Prog“YS”:Z＞54700=＞Goto B△Prog“FQ”: Goto Z
Lbl B:“CX ERROR”▲
Goto 0
Lbl Z:Z=Intg（1000Z+.5）÷1000:B=Intg（1000B+.5）÷1000:“LC=”:Z:Pause 0:“BJ=”:B▲
Goto 0       说明：T、L测点相对测站的方位角和距离，T的取值例：12°34′56″输为12.3456。Q、U为测站坐标，程序运行前先存入。Goto 2前的桩号为第2个曲线组合的ZH点桩号，以后类推。“BJ＝”显示正值则测点在线路右幅，显示负值则测点在线路左幅。
DQXY★    单曲线坐标正算子程序
S=.5Abs（C-A）:G=（C-A）÷2S
C-A＜-180=＞S=180-S:G=-G△C-A＞180=＞S=180-S:G=-G△
T=（R+N2÷24R）tan S+N÷2-N^3÷240R2:L=πRS÷90+N:K=0=＞K=-1△
Z≤D-T=＞Goto 1△Z≥D-T+L=＞Goto 2△
Z＜D-T+N=＞Goto 3△Z＞D-T+L-N=＞Goto 4△
Lbl 0:M=A+G（90+90N÷πR+180（Z-D+T-N）÷πR）-180
X=E+Rec（（R+ N2÷24R）÷cos S,C+G（90-S））:Y=F+J
X=X+Rec（R-GKB,M）:Y=Y+J: Goto 5
Lbl 1:X=E-Rec（D-Z,A）:Y=F-J:X=X+Rec（B,A+90K）:Y=Y+J: Goto 5
Lbl 2:X=E+Rec（Z-D+2T-L,C）:Y=F+J:X=X+Rec（B,C+90K）:Y=Y+J: Goto 5
Lbl 3:X=E-Rec（T,A）:Y=F-J:H=Z-D+T:Prog“XY”
X=X+Rec（P,A+Gtan-1（W÷V））:Y=Y+J
X=X+Rec（B,A+90GH2÷πRN+90K）:Y=Y+J: Goto 5
Lbl 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+J
X=X+Rec（B,C-90GH2÷πRN+90K）:Y=Y+J: Goto 5
Lbl 5
XY★    缓和曲线参数计算子程序
V=H-H^5÷40R2N2+H^9÷3456R^4N^4
W=H^3÷6RN-H^7÷336R^3N^3+H^11÷42240R^5N^5:P=√（V2+W2）
YS★    曲线要素计算子程序
S=.5Abs（C-A）:G=（C-A）÷2S
C-A＜-180=＞S=180-S:G=-G△C-A＞180=＞S=180-S:G=-G△
T=（R+N2÷24R）tan S+N÷2-N^3÷240R2:L=πRS÷90+N               
Pol（X-E,Y-F）:J=J-C:Z=Icos J-T:Z=D-T+L+Z
FQ★   单曲线反求桩号子程序
Z≥D-T+L=＞Z:B=Isin J:Goto A△
D=D-T+L÷2:V=E+Rec（（R+N2÷24R）÷cos S,C+G（90-S））:W=F+J
O=C+G（90-S）+180:O＞360=＞O=O-360△
Pol（X-V,Y-W）:J＜0=＞J=360+J△Z=D+G（J-O）πR÷180:B=G（R-I）
Z＜D-（L-2N）÷2=＞Goto 1△Z＞D+（L-2N）÷2=＞Goto 2△Goto A
Lbl 1:D=D-L÷2:E=E-Rec（T,A）:F=F-J:P=A-90:G=-G:Prog“HHXY”:Z=D+T: Goto A
Lbl 2:D=D+L÷2:E=E+Rec（T,C）:F=F+J:P=C+90:Prog“HHXY”:Z=D-T: B=-B:Goto A
Lbl A

HHXY★    反求缓和曲线长度子程序
Pol（X-E,Y-F）:J=J-P:X=Icos J:Y=Isin J
B=G÷46080R^6N^6:H=X÷3840R^5N^5:I=13G÷5760R^4N^4:J=GY÷384R^4N^4
K=X÷48R^3N^3:M=G÷15R2N2:O=GY÷8R2N2:P=X÷2RN:S=GY:Z=Y
Lbl 2:V=BZ^13+HZ^10-IZ^9+JZ^8-KZ^6+MZ^5-OZ^4+PZ2-GZ+S
W=13BZ^12+10HZ^9-9IZ^8+8JZ^7-6KZ^5+5MZ^4-4OZ^3+2PZ-G
T=Z-V÷W:Abs（T-Z）＜1E-5=＞Goto 3△Z=T:Goto 2
Lbl 3:V=G（T^3÷6RN-T^7÷336R^3N^3+T^11÷42240R^5N^5）
W=T-T^5÷40 R2N2+T^9÷3456R^4N^4
V=X=＞W=Y=＞B=0:Goto 5△△
Pol（X-V,Y-W）:B=sin（J+90GT2÷πRN-90）:S=-1:B＞0=＞S=1△B=SI
Lbl 5

55★  55～63为平曲线参数置数子程序
D=48212.03:E=42650.6693:F=16021.6936:A=247°56′58″:C=151°56′02″:R=826.192:N=60
56★
D=49148.91:E=41425.5219:F=16674.9305:A=151°56′02″:C=185°56′02″:R=354.724:N=120
57★
D=49661.59:E=40908.3058:F=16621.1706:A=185°56′02″:C=151°54′14″:R=600:N=80
57-1★
D=50019.67:E=40582.613:F=16795.0457:A=151°54′14″:C=172°51′03″:R=570.059:N=80
58★
D=50498.68:E=40087.8038:F=16857.11:A=172°51′03″:C=184°48′17″:R=1250:N=60
59★
D=51112.95:E=39501.143:F=16807.7977:A=184°48′17″:C=206°30′23″:R=600:N=80
60★
D=52113.01:E=38603.5949:F=16360.1705:A=206°30′23″:C=237°03′19″:R=400:N=100
61★
D=52962.43:E=38138.5471:F=15642.5421:A=237°03′19″:C=193°17′44″:R=910:N=100
62★
D=53677.91:E=37406.98:F=15469.6681:A=193°17′44″:C=228°55′55″:R=500:N=80
63★
D=54344.49:E=36962.0015:F=14959.0062:A=228°55′55″:C=181°27′44″:R=400:N=80
说明：线路起点K47＋264，止点K54＋700。   共十个交点， 两处断链， 第一处K50+ 167.16＝K50+150，长17.16M。第二处K50＋673.5＝K50＋700，短26.5M。置数子程序中，D交点桩号。E、F交点坐标。A、C交点前后边正方位角。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=-1△B＜.75=＞B=.75△B＞11.25 =＞ Goto 5△    .75为1/2中央分隔带宽
O=1=＞Goto 2△O=2=＞Goto 3△O=3=＞Goto 4△               11.25为路面半幅宽度
Lbl 2:Z＜47264=＞Goto 5△Z＞50167.16=＞Goto 5△
Prog“A”: Prog“SQ”: Prog“O”: Goto 6
Lbl 3:Z＜50150=＞Goto 5△Z＞50673.5=＞Goto 5△
Prog“B”: Prog“SQ”: Prog“P”: Goto 6
Lbl 4:Z＜50700=＞Goto 5△Z＞54700=＞Goto 5△
Prog“C”: Prog“SQ”: Prog“Q”: Goto 6
Lbl 5:“ZH ERROR”▲
Goto 0
Lbl 6:Prog“CG”:“H=”:H▲
Goto 1
SQ★    竖曲线计算子程序
Z≤D-T=＞Goto 1△Z≥D+T=＞I=J: Goto 1△
Lbl 0:H=G-（D-Z）I÷100+（Z-D+T）2÷2RN: Goto 2
Lbl 1:H=G-（D-Z）I÷100: Goto2
Lbl 2
CG★    超高计算子程序（弯道未设加宽）
P=2VS÷（V+W）
Z＜M=＞Goto 1△Z＞M+L=＞Goto 1△
Z≤M+P=＞F=Z-M:Goto 2△Z≥M+L-P=＞F=M+L-Z:Goto 2△
Z＜M+S=＞F=Z-M:Goto 3△Z＞M+L-S=＞F=M+L-Z:Goto 3△
Lbl 0:X=H+（B-.75）WK÷100:Y=H-（B-.75）WK÷100
E=-1=＞H=X:≠＞H=Y△Goto 5
Lbl 1:H=H-（B-.75）V÷100: Goto 5
Lbl 2:X=H-（B-.75）V÷100:Y=H+（（V+W）F÷S-V）（B-.75）÷100
E=-1 =＞K=-1 =＞H=X: ≠＞H=Y△≠＞K=1=＞H=X: ≠＞H=Y△△Goto 5
Lbl 3:X=H+（（V+W）F÷S-V）（B-.75）K÷100
Y=H-（（V+W）F÷S-V）（B-.75）K÷100
E=-1=＞H=X: ≠＞H=Y△Goto 5
Lbl 5     说明：竖曲线参数置数子程序中，D竖曲线顶点桩号。G顶点高程。I竖曲线前段纵坡。J竖曲线后段纵坡。R竖曲线半径。T切线长。N凹曲线取1凸曲线取-1。
平曲线参数置数子程序中，M起超点桩号。S超高缓和段长。L超高曲线总长。W最大单向横坡坡比。E曲线左偏取-1右偏取1。V直线段双向横坡坡比。纵坡按设计给出的正负取值，横坡均按正数取值。坡比取值示例：2.5%取2.5。
A★Z＜47635=＞Goto 1△Z＜48680.5=＞Goto 2△
Z＜49200=＞Goto 3△Z＜49369.25=＞Goto 4△
Lbl 0:D=50040:G=1025.21:I=-6:J=-3:R=4000:T=60.05:N=1: Goto 5
Lbl 1:D=47560:G=1135.61:I=-6:J=-3:R=5000:T=75:N=1: Goto 5
Lbl 2:D=48640:G=1103.21:I=-3:J=-6:R=2700:T=40.5:N=-1: Goto 5
Lbl 3:D=49140:G=1073.21:I=-6:J=-3:R=4000:T=60:N=1: Goto 5
Lbl 4:D=49340:G=1067.21:I=-3:J=-6:R=1950:T=29.25:N=-1: Goto 5
Lbl 5
B★D=50220:G=1019.3:I=-3:J=-6:R=3000:T=45.04:N=-1
C★Z＜50957.5 =＞Goto 1△Z＜51125 =＞Goto 2△
Z＜51805 =＞Goto 3△Z＜51953 =＞Goto 4△
Z＜52546 =＞Goto 5△Z＜52727.44 =＞Goto 6△
Z＜52950.32 =＞Goto 7△Z＜53800 =＞Goto 8△
Lbl 0:D=54400:G=835.84:I=-2.5:J=-1.2:R=22000:T=143:N=1: Goto 9
Lbl 1:D=50920:G=978.89:I=-6:J=-3:R=2500:T=37.5:N=1: Goto 9
Lbl 2:D=51080:G=974.09:I=-3:J=-6:R=3000:T=45:N=-1: Goto 9
Lbl 3:D=51760:G=933.29:I=-6:J=-3:R=3000:T=45:N=1: Goto 9
Lbl 4:D=51920:G=928.49:I=-3:J=-6:R=2200:T=33:N=-1: Goto 9
Lbl 5:D=52500:G=893.69:I=-6:J=-2:R=2300:T=46:N=1: Goto 9
Lbl 6:D=52680:G=890.09:I=-2:J=-5:R=2500:T=47.44:N=-1: Goto 9
Lbl 7:D=52900:G=877.34:I=-5:J=-3:R=3600:T=50.32:N=1: Goto 9
Lbl 8:D=53700:G=853.34:I=-3:J=-2.5:R=40000:T=100:N=1: Goto 9
Lbl 9    A、B、C 为竖曲线参数置数子程序
O★Z＜48708.52 =＞Goto 1△Z＜49310.5 =＞Goto 2△Z＜49874.21 =＞Goto 3△
Lbl 0:M=49874.21:S=80:L=288.41:W=3:E=1: Goto 4
Lbl 1:M=47264:S=60:L=1444.52:W=2:E=-1: Goto 4
Lbl 2:M=48980:S=120:L=330.5:W=5:E=1: Goto 4
Lbl 3:M=49437.85:S=80:L=436.36:W=3:E=-1: Goto 4
Lbl 4
P★M=50337.8:S=60:L=320.8:W=2:E=1
Q★Z＜51265.12 =＞Goto 1△Z＜52266.78 =＞Goto 2△
Z＜53341.82 =＞Goto 3△Z＜53868.03 =＞Goto 4△
Lbl 0:M=54118.18:S=100:L=431.41:W=5:E=-1: Goto 5
Lbl 1:M=50957.86:S=80:L=307.26:W=3:E=1: Goto 5
Lbl 2:M=51953.51:S=100:L=313.27:W=5:E=1: Goto 5
Lbl 3:M=52546.8:S=100:L=795.02:W=2:E=-1: Goto 5
Lbl 4:M=53477.04:S=80:L=390.99:W=4:E=1: Goto 5
Lbl 5     O、P、Q 为平曲线参数置数子程序

--------------------------------------------------------------------------------

手表网 手表品牌排名 手表品牌大全 卡西欧手表官网
手表网 手表品牌 卡西欧 劳力士 浪琴 天梭

6
火与影 zippo教程、在线购买、支付宝、财付通付款