fx-5800p放样程序(缓和曲线对称型)——可用2012216.docVIP

fx-5800放样程序 （缓和曲线对称型） 1 Deg:Fix4:30→DimZ←┙ ?X:?Y:“X1”?D:“Y1”?E:“X2”?F:“Y2”?G:“X3”?H:“Y3”?V:?R:“LS”?L:?W←┙ D-F→I:E-G→J:Prog“3”:J→○:H-F→I:V-G→J: Prog“3”:J→U←┙ ○-J→M:If M＜0:Then M+360→M:IfEnd: If M＜180: Then 180-M→M:1→C:Else M-180→M:-1→C:IfEnd←┙ L2÷(24R)→P: L÷2-L∧（3）÷(240R2)→Q←┙ “T=”:Q+(P+R)tan(M÷2)→T◢ “L=”:RM∏÷180+L→S◢ “E=”:(R+P)÷cos(M÷2)-R→Z[3]◢ “ZH=”:W-T→Z[4]◢ “HY=”:Z[4]+L→Z[5]◢ “QZ=”:Z[4]+S÷2→Z[6]◢ “YH=”:Z[4]+S-L→Z[7]◢ “HZ=”:Z[7]+L→Z[8]◢ Prog“2”←┙ 2 Lbl 0:?Z:?K:K-W+T→I:Z→J:?B←┙ If K＜0:Then Prog“1”:IfEnd←┙ If I＜S-L:Then If I≤0:Then I+Bcos(Z)→M:Bsin(Z)→N:Goto2:IfEnd:If C=1:Then 180-Z→J:IfEnd:If I≤L:Then Prog“4”:Else Prog“6”: IfEnd←┙ Lbl 2:○→J: Prog“7”: Goto0: IfEnd:S-I→I←┙ If I≤0: Then I- Bcos(Z)→M:-B sin(Z)→N:Else 0:If C≠1:Then 180-Z→J:IfEnd:Prog“4”:-N→N:IfEnd:U→J: Prog“7”: Goto0←┙ 3 Pol(I,J):If J＜0:Then J+360→J:IfEnd←┙ 4 RL→A:I-I∧(5)÷(40A2)+I∧(9)÷3456÷A∧(4)→M: I∧(3)÷(6A)-I∧(7)÷336÷(A)∧(3)+ I∧(11)÷42240÷A∧(5)→N:90I2÷(∏A)→A:Prog“5”←┙ 5 J→A:M-CBcos(A)→M:CN-Bsin(A)→N←┙ 6 90÷(∏R)×(2I-L)→A:Rsin(A)+Q→M:P+R(1-cos(A))→N:Prog“5”←┙ 7 Cos(J)→A:sin(J)→J:F+TA-MA+NJ→I:G+TJ-MJ-NA→J:I→M:J→N←┙ I-X→I:J-Y→J←┙ Prog“3”: “J=”:J◥DMS◢ “I=”:I◢ Prog“8” ←┙ 8 “X=”:X+Icos(J)◢ “Y=”:Y+Isin(J)◢ 注： X？输入测站点X坐标。 Y？输入测站点Y坐标。 X1？输入JD1 X坐标。 Y1？输入JD1 Y坐标。 X2？输入JD2 X坐标。 Y2？输入JD2 Y坐标。 X3？输入JD3 X坐标。 Y3？输入JD3 Y坐标。 R？输入JD2平曲线半径。 LS？输入JD2缓和曲线长度。 W？输入JD2交点桩。 T= 显示切线长。 L= 显示平曲线总长度。 E=显示外距。 ZH=显示直缓点桩号。 HY=显示缓圆点桩号。 QZ=显示曲中点桩号。 YH=显示圆缓点桩号。 HZ=显示缓直点桩号。 Z？放中桩输入0，放边桩输入90。 K？输入放样点桩号，如K10+800，输入10800。 B？输入放样点边桩距离，放中桩输入0，放边桩为左-右+，如左边桩距中4.25米,输入-4.25、右边桩距中5.75米,输入5.75。 J=显示放样点方位角。 I=显示放样点水平距离。 X=显示放样点X坐标。 Y=显示放样点Y坐标。 1