資源描述：
《《匝道程序》word版》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫(kù)。
1、程序說(shuō)明卡西歐4800或4850計(jì)算主線及其匝道中邊樁坐標(biāo)，高程，反算任意點(diǎn)樁號(hào)及其距中距離，以及邊坡超欠挖情況。主程序1“ZADAO”（用N值判斷那條線路）“N=0，1，2，3，4，5，6，7，8，9”▲∠b
2、0：{K}：N：N=0=>prog“ZHUXIAN”:≠>N=1=>prog“AZA”:≠>N=2=>prog“BZA”:≠>N=3=>prog“CZA”:≠>N=4=>prog“DZA”:≠>N=5=>prog“EZA”:≠>N=6=>prog“FZA”:≠>N=7=>prog“GZA”:≠>N=8=>prog“HZA”:≠>N=9=>prog“A
3、S”:<┘(被交道阿森主線)主程序：2“N0-9H”（用N值判斷那條線路的高程）“N=0，1，2，3，4，5，6，7，8，9”▲∠b
4、0：{K}：N：N=0=>prog“ZHUXIANH”：≠>N=1=>prog“AZH”:≠>N=2=>prog“BZH”:≠>N=3=>prog“CZH”:...<┘18主程序:3樁距“ZHUANGJU”（由三維坐標(biāo)反算樁號(hào)和邊樁距離及其坡角）{X:Y:H}:Z[38]=1：X“XP=”：Y“YP=”：H“H=”：N“N=”：Q“KQ=”：Z“KZ=”：Z[21]=X：Z[22]=Y：Z[23]=H:<┘∠b
5、0：Z[24]
6、=Q：Z[25]=Z：K=Q：Prog“ZADAO”Z[26]=Z[12]:Z[27]=Z[13]:<┘K=Z：Prog“ZADAO”：Z[28]=Z[12]:Z[29]=Z[13]:<┘pol((Z[28]-Z[26]),(Z[29]-Z[27])):Z[30]=I:J<0=>Z[31]=J+360:≠>Z[31]=J:?pol((Z[21]-Z[26]),(Z[22]-Z[27])):Z[32]=I：J<0=>Z[33]=J+360:≠>Z[33]=J:?(Z[31]-Z[33])<-270=>Z[34]=-1:Z[35]=(360-Z[33]+Z[31
7、])：≠>(Z[31]-Z[33])<0=>Z[34]=1:Z[35]=(Z[33]-Z[31])：≠>(Z[31]-Z[33])>270=>Z[34]=1:Z[35]=360-Z[31]+Z[33]：≠>(Z[31]-Z[33])>0=>Z[34]=-1:Z[35]=Z[31]-Z[33]:????Z[36]=Q+Z[32]*cosZ[35]：Z[37]=Z[32]*sinZ[35]：Z[38]=Z[38]+1(計(jì)數(shù)器:初始值為1)<┘Z[38]=2=>“50M”:Q=Z[36]-50:Z=Z[36]+50:Goto0：≠>Z[38]=3=>“1m”:Q=
8、Z[36]-1：Z=Z[36]+1:Goto0：≠>Z[38]=4=>“0.1m”:Q=Z[36]-0.1:Z=Z[36]+0.1:Goto0：≠>“ZHUANGHAO=”<┘K=Z[36]▲Z[34]<0=>“ZUO=”:Z[37]▲≠>“YOU=”:Z[37]▲?Prog“N0-9H”<┘18主程序:4“QIAOHAN”(橋涵任意角點(diǎn))∠b
9、0:prog:“ZADAO”:∠b
10、1:{FST}:Z[70]=F+S+T:(輸入順序?yàn)镕ST)Z[71]=√(S^2+T^2-2*√(S^2)*√(T^2)*cos(180-F)):Z[72]=√(S^2+T^2-
11、2*√(S^2)*√(T^2)*cosF):Z[73]=cos-1((T^2+Z[71]^2/4-Z[72]^2/4)/√(T^2/Z[71])):Z[74]=cos-1((S^2+Z[72]^2/4-Z[71]^2/4)/√(S^2/Z[72])):S≥0=>Goto2:≠>Goto3:∠b
12、2:T>0=>Z[75]=Z[11]+Z[73]:S=Z[71]:Goto4:≠>T<0=>Z[75]=Z[11]+F+Z[74]:S=Z[72]:Goto4:?∠b
13、3:T<0=>Z[75]=Z[11]+180+Z[73]:S=Z[71]:Goto4:≠>T>0=>
14、Z[75]=Z[11]+180+F+Z[74]:S=Z[72]:Goto4:?∠b
15、4:Z[75]>360=>Z[75]=Z[75]-360:≠>Z[75]=Z[75]:?Z[76]=Z[12]+S*cosZ[75]:Z[77]=Z[13]+S*sinZ[75]:“X=”<┘Z[76]▲“Y=”<┘Z[77]▲Goto1:<┘子程序：1“ZHY”(直緩圓中邊樁坐標(biāo)計(jì)算程序)Z[1]=Abs(K-Z):Z[2]=1/R:Z[3]=(R-S)/(2HRS):Z[4]=180/∏:Z[5]=0.1739274226:Z[6]=0.3260725774:18Z[7]
16、=0.0694318442:Z[8]=0.33000
