CASIOfx-5800P放样程序(优化).doc

声明：编程使用的通用积分公式出自李艳阳前辈！在此致敬！ 本程序加入了测站，方便喜爱用方位角、平距放样的朋友！正算主程序KB-MN?X:?YLbl 1:Fix 3:XS:?K:?B:90AProg“YS-1”:Prog“ZDYS”:SX:M-X+10-9I:N-Y+10-9J:Pol(I,J):J0J+360J:Cls:Locate 1,1,“J=”:Locate 4,1, J:Locate 1,2,“I=”:Locate 9,2,I:Locate 1,3,“M=”:Locate 6,3,M:Locate 1,4,“N=”:Locate 7,4,NCls:Goto 1反算主程序MN-KB?K Lbl 0:Fix 3:?M:?N:ME:NQLbl 1:90A:0B:Prog“YS-1”:Prog“ZDYS”Pol(E-M+10-9,Q-N+10-9):Isin(L-J)A:Icos(L-J)BIf Abs(A)0.001:Then K+AK:Goto 1:Else Cls:Locate 1,1,“K=”:Locate 7,2, K:Locate 1,3,“B=”:Locate 9,4,BIfEnd:Goto 0数据库子程序YS-1If K线元终点里程:Then线元起点切线方位角C:线元起点X坐标U:线元起点Y坐标V:线元起点里程O:线元长度F:线元起点曲率半径（左转为负，直线及右转为正）P:线元止点曲率半径R:Return:IfEndIf K下一线元终点里程:Then线元起点切线方位角C:线元起点X坐标U:线元起点Y坐标V:线元起点里程O:线元长度F:线元起点曲率半径P:线元止点曲率半径（左转为负，直线及右转为正）R:Return:IfEnd子程序ZDYS0.5(1R -1P)FD:K-OXU+(cos(C+180(XP+DX2),0,X)MV+(sin(C+180(XP+DX2),0,X)N C+180(XP+DX2)+AL:M+Bcos(L)M:N+Bsin(L)N正算主程序KB-MN输入：X-测站X坐标 Y-测站Y坐标K-桩号 B-距中（左负 右正 中零）结果：J=测站到放样点的方位角 I=测站到放样点的平距 M=放样点X坐标N=放样点Y坐标若果求斜交时边桩坐标，主程序KB-MN中90A修改为 斜交角度A反算主程序MN-KB输入：K-待反算点附近的大概桩号 M-待反算点X坐标N-待反算点Y坐标结果：K=反算点的桩号B=反算点的距中（左负 右正 中零）备注:字母后所带数字为次方,如:DX2式中2均为平方。1、当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。2、当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。3、当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。4、当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。优化：SENDYCHANQQ：82811489本程序经过优化，减少了数据库的字节，同时可以计算多条线路，修改如下：正算主程序KB-MN“1,2,3,4,5”?Z:?X:?YLbl 1:Fix 3:XS:?K:?B:90AZ=1Prog“YS-1”Z=2Prog“YS-2”Z=3Prog“YS-3”Z=4Prog“YS-4”Z=5Prog“YS-5”Prog“ZDYS”:SX:M-XI:N-YJ:Prog“C”:Cls:Locate 1,1,“J=”:Locate 4,1, J:Locate 1,2,“I=”:Locate 9,2,I:Locate 1,3,“M=”:Locate 6,3,M:Locate 1,4,“N=”:Locate 7,4,NCls:Goto 1反算主程序MN-KB“1,2,3,4,5”?Z:?K Lbl 0:Fix 3:?M:?N:ME:NQLbl 1:90A:0BZ=1Prog“YS-1”Z=2Prog“YS-2”Z=3Prog“YS-3”Z=4Prog“YS-4”Z=5Prog“YS-5”Prog“ZDYS”:Pol(E-M+10-9,Q-N+10-9:Isin(L-JA:Icos(L-JBIf Abs(A)0.001:Then K+AK:Goto 1:Else Cls:Locate 1,1,“K=”:Locate 7,2, K:Locate 1,3,“B=”:Locate 9,4,BIfEnd:Goto 0数据库子程序YS-1If K线元终点里程:Then线元起点切线方位角C:线元起点X坐标U:线元起点Y坐标V:线元起点里程O:线元长度F:线元起点曲率半径(左转为负，右转为正，直线为零)P:线元止点曲率半径(左转为负，右转为正，直线为零)R:Return:IfEndIf K下一条线元终点里程:Then线元起点切线方位角C:线元起点X坐标U:线元起点Y坐标V:线元起点里程O:线元长度F:线元起点曲率半径(左转为负，右转为正，直线为零)P:线元止点曲率半径(左转为负，右转为正，直线为零)R:Return:IfEnd子程序CI+10-9I:J+10-9J:Pol(I,J:J0J+360J子程序ZDYSP=01045P:R=01045R:0.5(1R -1P)FD:K-OXU+(cos(C+180(XP+DX2),0,X)MV+(sin(C+180(XP+DX2),0,X)N C+A+180(XP+DX2L:M+Bcos(LM:N+Bsin(LN正算主程序KB-MN输入：1,2,3,4,5-选择待正算的线路X-测站X坐标 Y-测站Y坐标K-桩号 B-距中（左负 右正 中零）结果：J=测站到放样点的方位角 I=测站到放样点的平距M=放样点X坐标 N=放样点Y坐标若果求斜交时边桩坐标，主程序KB-MN中90A修改为 斜交角度A反算主程序MN-KB输入：1,2,3,4,5-选择待反算的线路K-待反算点附近的大概桩号 M-待反算点X坐标N-待反算点Y坐标结果：K=反算点的桩号B=反算点的距中（左负 右正 中零）使用说明:字母后所带数字为次方,如:DX2式中2为平方。P=01045P中的“1045”，请按计算器面板最后一排第三个按键，再按4，然后按51、当线元为直线时，其起点、止点曲率半径为零。2、当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。3、当线元为完整缓和曲线时，起点与直线相接时，曲率半径为零；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为