欢迎来到天天文库
浏览记录
ID:39463290
大小:381.50 KB
页数:18页
时间:2019-07-03
《4850匝道程序》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、程序说明卡西欧4800或4850计算主线及其匝道中边桩坐标,高程,反算任意点桩号及其距中距离,以及边坡超欠挖情况。主程序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”:
3、≠>N=9=>prog“AS”:<┘(被交道阿森主线)主程序: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”(由三维坐标反算桩号和边桩距离及其坡角){X:Y:H}:Z[38]=1:X“XP=”:Y“YP=”:H“H=”:N“N=”:Q“KQ=”:Z“KZ=”:Z[21]=X:Z[
5、22]=Y:Z[23]=H:<┘∠b
6、0:Z[24]=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
7、])<-270=>Z[34]=-1:Z[35]=(360-Z[33]+Z[31]):≠>(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(计数器:初始值为1)<┘Z[38]=2=>
8、“50M”:Q=Z[36]-50:Z=Z[36]+50:Goto0:≠>Z[38]=3=>“1m”:Q=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”(桥涵任意角点)∠b
9、0:prog:“ZADAO”:∠b
10、1:{FST}:Z[70]=F+S+T:(输入顺序
11、为FST)Z[71]=√(S^2+T^2-2*√(S^2)*√(T^2)*cos(180-F)):Z[72]=√(S^2+T^2-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
13、]+F+Z[74]:S=Z[72]:Goto4:∆∠b
14、3:T<0=>Z[75]=Z[11]+180+Z[73]:S=Z[71]:Goto4:≠>T>0=>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”(直缓圆中边桩坐标计算程序)Z[1
16、]=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]=0.0694318442:Z[8]=0.33000
此文档下载收益归作者所有