《CASIO x-4800P线路放样》程序设计.docVIP

一、程序操作说明 特别说明：程序运行前先用SHIFT Defm正确设置扩张数值存储器的数目，本程序数目为13。 测量放样计算程序AA LS? (1)缓和曲线长度? IA? (2)输入所放曲线的偏角IA? AB? (3)是否虚交？是=1转第(4)步，否=0转第(5)步 IB? (4)输入所放曲线的偏角2，回车转第(3)步 R? (5)输入所放曲线的半径? P= (6) Q= (7) X= (8) Y= (9) T= (10)输出所放样曲线切线长度 L= (11)输出所放样曲线曲线长度 E= (12)输入出所放样曲线外距E，虚交转第(13-1)步，非虚交转第(13)步 虚交 T1= (13-1)输出第一曲线切线长T1 T2= (14-1)输出第二曲线切线长T2 非虚交 R? (13)输入曲线半径R，R=0转第(14)步，R≠0转第(6)步 JD? (14)输入所放样曲线交点桩号JD? ZH= (15)输出直缓点桩号ZH HY= (16)输出所放样曲线缓圆点桩号HY QZ= (17)输出所放样曲线曲中桩桩号QZ YH= (18)输出所放样曲线圆缓点桩号YH HZ= (19)输出所放样曲线缓直点桩号HZ XA？ (20)输入交点X坐标XA？ YA? (21)输入交点Y坐标YA？ F0? (22)输入交点与上一交点之间的方位角F0? Z(Y)(+,-)？ (23)输入偏角方向，左偏角0，右偏角0 X0? (24)输入置零点X坐标X0？ Y0？ (25)输入置零点Y坐标Y0？ XC？ (26)输入置仪点X坐标XC？ YC? (27)输入置仪点Y坐标YC？ K? (28)输入测点桩号K？ X (29)输出测点X坐标X Y (30)输出测点Y坐标Y DEG (31)输出测点与置仪点和置零点的偏角DEG，可用SHIFT ° ′ ″ 转化为度分秒格式 S (32) 输测点与置仪点之间的距离S C= (33) BZ(Z(Y)(-,+))? (34) 输入待求点左，右桩距离(左为-，右为+)？输入0转第(28)步 二、程序设计 测量放样计算主程序AA Prog “XX” {OPQB} O”XA”:P”YA”:Q”F0”:B”Z(Y)(-,+)” D=Q+BA:Z[1]=O+FcosQ:Z[2]=P+FsinQ:Z[3]=Z[1]-TcosQ:Z[4]=Z[2]-TsinQ {KLHN} K”X0”:L”Y0”:H”XC”:N”YC” J=0:Pol(H-K,N-L):Z[12]=J Lbl 0 {K} KZ=Goto 1 KZ[7]=Goto 2 KZ[8]=Goto 3 KZ[9]=Goto 4 X=Z[1]+(K-Z[9]+T)cos D:Y=Z[2]+(K-Z[9]+T)sinD:Goto 9 Lbl 1 L=W-K:X=O-LcosQ:Y=P-LsinQ:Goto9 Lbl 2 L=K-Z M=((L^3/6RS-L^7/336R^3S^3)2+(L-L^5/40R2S2)2):U=Q+30L2B/лRS:Goto 8 Lbl 3 L=K-Z[7] Z[5]=Rsin(90(S+2L)/лR)+S/2-S3/240R Z[6]=R(1-Cos(90(S+2L)/ лR))+S2/24R M=(Z[5]2+Z[6]2) U=Q+Btan-1(Z[6]/Z[5]) Goto 8 Lbl 4 L=Z[9]-K Z[5]=T-L+L^5/40R2S2 Z[6]=L^3/6RS-L^7/336R^3S^3 C=T+Z[5]cosA-Z[6]sinA E=Z[5]sinA+Z[6]cosA M=(C2+E2) U=Q+Btan-1(E/C) Goto 8 Lbl 8 X=Z[3]+McosU Y=Z[4]+MsinU Goto 9 Lbl 9 Z[13]=X Z[14]=Y Goto 7 Lbl 7 X◢ Y◢ I=0 Pol(X-H,Y-N) Z[10]=I Z[11]=J F=Z[11]-Z[12]+180 F0=F=F+360 F360=F=F-360 F”DEG” ◢ Z[10]”S” ◢ C=((X-Z[15])2+(Y-Z[16])2) ◢ Z[15]=X Z[