书及程序集原理汤海波2.4会员

2．4版5800计算器测量程序集更新统计2.4（根据时Do:Z[16]+Z→Z:＂KM＂?Z:Z=-1=>Break:Prog＂X1＂:0→D:Porg＂A＂:I→X:J→Y:Prog＂H＂:H→Z[7]:I→Z[8]:-1→D:Prog＂C＂:L→Z[9]:-L+Z[1]→D:Prog＂H＂:H+Z[3]→Z[12]:I→Z[13]:1→D:Prog＂C＂:L→Z[10]:L-Z[1]→D:Prog＂H＂:H+Z[3]→Z[14]:I→Z[15]:IfZ[2]>360:ThenZ[2]-[8]→B:Z[9]→L:Z[10]→R:Z[12]→H:Z[13]→I:Z[14]→V:Z[15]→W:Fix3:Cls:＂Ｘ0＝＂：ＬocateX:＂Y0＝＂：Ｌocate6,2,Y:＂ZFWJ＝＂:Z[2]►DMS◢ H0＝＂：Ｌocate ＝＂：Ｌocate6,2,B:＂LGD＝＂：Ｌocate6,3,L:＂RGD＝＂：Ｌocate6,4,R◢ cate IL＝＂：Ｌocate HR＝＂：Ｌocate6,3,V: IR＝＂：Ｌocate◢LpWhileZ≠-LJG-Hiii(默认硬路肩为２ ＂KM=>＂?计算自动加桩号值３ 2、新增（2010-4-10上午整理）（导线坐标计算程序）程序名：1DAOXIANLbI0:Norm2:＂ZJ.(X+Yi)=＂?F:＂HS.(X+Yi)=＂?H:Arg(H-F→C:IfC<0:Then4:＂HS.S=＂:Locate6,4,Abs(H-F):LblA:＂HS.＂:C►DMS＂LJ＂?V：V+C→K:K≥360K-＂QS.?S:F+S(cos1→Q:＂LXTSZB(LX≠0)＂?Q:Q=0Goto0:W→F:K→C:IfC≥180:ThenC-180→C:ElseC≥360C-GotoZJ.(X+Yi)HS.(X+Yi) 31XY（210-4-12晚整理）（改为涵洞放样中输入的宽度值，直接输正交宽度，程序自动计算斜宽度）(特别说明，有部分计算器（大约购机在四月中旬到五月初的）原DSin(Z[1]用来修正直接输入正Cls:Prog＂DX＂:Prog＂QX＂:90→A:＂PJ1+PJ2i＂?A:ReP(A→Z[1]:ImP(A→Z[9]:-Di＂?B:B→Z[11]:ReP(B→Z:ImP(B→D:Prog＂X1＂:Z=-1=>Stop:Z=-2=>Break:0→L:If＂L0＂?L:L÷sin(Z[9]→L：IfEnd:L→Z[10]:Porg＂A＂:Z[2]+Z[1]→A:A-4、修改在中桩时显示纵坡不对的问题：（2010-4-13晚整理）Prog＂S1＂:ImP(C→G:ReP(C→C:.01×I→I:ImP(I→N:ReP(I→I:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:IfZ<C-T:ThenG+I(Z-C→H:Goto0:IfEnd:IfZ<C+T:ThenG-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto0:nd:G+N(Z-C→H:LbI0:IfZ>C:ThenN→I:IfEnd:IfD=0:ThenH→H:Return:ElseProg5、修改在反算时不需显示高程：（2010-4-17晚整理）Prog＂QX＂:＂KM＂?Z：Do:Prog＂X1＂:Z[6]→A:＂XO+Y0i＂?A:A→Z[6]:A=-1=>Stop:A=-2=>Break:Porg＂B＂:Prog＂ZD＂◢LpWhileX≠-16、修改隧道SD0和SD1程序，解决底部圆心不在隧道中线上的特殊情况（2010-4-21晚整理Prog＂SD1＂:ReP(I→Z[13]:ImP(I→Z[14]:ReP(V→Z[15]:ImP(V→V:Z[13]+16→N:0→Z[N]:0→Q:0→Z[N+1]:0→E:0→Z[N+2]:0→F:ReP(Z[16]→R:sin-1(V÷R→V:180+V→G:G→Z[N+3]:ImP(Z[16]→P:IfP≤0:IfZ[4]=1:Then ’i→Z[18]:51。 ③.下面附一个特例的断面图（2.4CAD），并附上数据IfZ[4]=3:Then5+6.799i→I:1.853-.32i→V:13.661 210。15’12”i→Z[18]:1 IfZ[4]=4:Then5-6.889i→I:1.538- ’12”i→Z[18]: 7、修改9SD程序，更能准确计算隧道底部超欠挖（底部是直线段的不计算，建议用标高来控制就好）（2010-5-8整理）8、修新增四等水准现场计算表程序（2010-5-12晚整理“S-X0，“S-S00了。则调出“H-Z0，则结果显示“SL=”为后视距离，同时显示出中丝EXE；“H-H”？中丝红面读数，显示应读数，同时可以输入，同理是一样就直接按EXE，得出差值：“H-I=”：（mm）.”Q-X”?提示输入前视的下丝，“Q-S”？00，则直接调出“Q-Z”？前视中丝读数，输入Q0（0-XI=“，前视读数差。按EEZHIH差数。再按EE-1I=Y=C1输入0（1视距差后前后-后前后-后前后-后前后-后前后-后9、修改9SD程序，解决原隧道中部接大圆处有几公分误差的问题（2010-5-19晚理(删除前面P值，把A值修成为-Z[N+2]就可以了9、新增交点法设计和计算要素，并放样（点）（2010--19晚整理）程序名：1XY-运行：JDKM？输入交点桩号（如设计则输假设的桩号），JDX？J