Casiofx4500p计算器程序.doc
这是我在施工测量中使用的Casiofx4500p计算器程序,较实用,供大家参考使用. 名 代码变 量 与 说明 2 曲线要素:P=I2/24R-I4/2688R3M=I/2-I3/240R2T=(R+P)Tan(A/2)+ML=A/180×R+IB=I/R×90/A,R,I,m,p,B,T,L本系统的变量是统一的,代表特定含义,在各段代码中通用,不宜更改。 A:曲线转角R:曲线半径I:缓和曲线长T:切线长L:曲线长m,p,B:曲线要素 3 直线相交(四点)点:NSOTPUQVPol(Q-P,V-U)Q=U-PtanWU=WPol(O-N,T-S)N=T-OtanWO=W UA=U-O:Pol(cosA,sinA):A=AbsW K=W/A J=(Q-N)/(tanO-tanU) D=JtanO+NO,U,J,D连续输入四点坐标两条直线方位转角交点坐标O,U:第一、第二条直线的方位(计算后)J,D:交点坐标 (计算后) 31 交点方位:JDOUA=U-OPol(cosA,sinA)A=AbsAK=W/AJ,D,O,U 输入交点坐标与切线方位转角转向K:曲线转向,右转为正4 任意点坐标:Lbl 2:SS0G=S:H=0:C=0:Goto 4 SLG=L-S:H=0:C=0: Goto 3 SProg 5: Goto 4 SC=B+180(S-I)/RG=RsinC+M:H=R-RcosC+P: Goto 4>S=L-S:Prog 5Lbl 3X=J-KhsinU+cosU(T-G) Y=D+KhcosU+sinU(T-G) Z=U-KC:Goto 5Lbl 4X=J-KhsinO-cosO(T-G) Y=D+KhcosO-sinO(T-G) Z=O+KCLbl 5:N:G=X+KNsinZ H=Y-KNcosZ Goto 2S,X,Y,G,H,N 输入到曲线起点的弧长坐标坐标方向距离(外侧为正)法线点坐标S:距曲线起点的弧长,S可用到曲线起点的里程差得到N:法向距离(曲线外侧为正)X,Y:中线点坐标Z:切线方位 G,H:法向点坐标 41 程序连接:Prog 31:Prog 2:Prog 4 48 曲线长反算:Z=O+(90+A/2)KS=(R+P)/cos(A/2)G=J+ScosZH=D+SsinZLbl 8:XYPol(X-G,Y-H)Z=K(W-O)+90S=RZ×/180+I/2Goto 8X,Y,SOAKRPJD为曲线变量法向点坐标曲线长由法向点坐标反算成对应曲线长49 E=G+G5/40Q2-G9/3456Q4F=H-E3/6Q+E7/336Q3E2/2Q×F/(1-EF/Q)+E缓和曲线段的反算 5 缓和曲线:Q=RIG=S-S5/40Q2+S9/3456Q2Q2H=S3/6Q-S7/336Q3+S11/42240Q5C=S2/RI×90/G,H,C 6 放样: Defm 2Z1 Z1=Ans:Z2 Z2=AnsEFPol(Z1-E,Z2-F)Q=WLbl 0:XYPol(X-E,Y-F) W-QAns<0Ans+360”B=”Goto 0输入后视点坐标输入测站坐标EF放样距离V放样顺拨角度(度)Z1,Z2:后视点坐标E,F: 测站点坐标Q:后视方位X,Y: 放样点坐标8 单导线:KLbL 1:ASProg A:SB=B+180-KAX=X+ScosB Y=Y+SsinB Goto 1A,S,B,X,Y输入左角右角输入角度距离前视方位前视点坐标连续计算单导线坐标,角度按度.分秒输入左角K=-1,右角K=1 81 支导线:ZSZ=Z+QX=E+ScosZ Y=F+SsinZZ,S,Q,X,Y前视角度(度),距离前视方位前视坐标放样时计算前视点的坐标,以便反算 A 角度转换:A=IntA+Int(100FracA)/60+Frac(100A)/36A 输入度.分秒,转换成度