(交点法)坐标计算及反算.docVIP

5800(交点法)坐标计算及反算 程序清单： 1、JDF1J-PQXYS(交点法1-平曲线要素) 5→Dimz↙ “JD”?A↙ “JD X”?B↙ “JD Y”?C↙ “FWJ”?F↙ “L(a-),R(a+)”?O↙(字母O) “R”?R↙ “LS1”?E↙ “LS2”?K↙ If E1:Then 1*10^(-9) →E:IfEnd↙ If K1:Then 1*10^(-9) →K:IfEnd↙ E2 ÷(24R)- E^(4)÷(2688R^(3))→Z[1]↙ E÷2-E^(3)÷(240R2)+E^(5)÷(34560R^(4))→Z[2]↙ ((E2-K2 )÷(24R))÷Sin(Abs(O))→X↙(字母O) “T1=”：(R+E2÷(24R)-E^(4)÷(2688 R^(3)))tan(Abs(O) ÷2)+E÷2-E^(3)÷(240R2)+E^(5)÷(34560R^(4))-X→Z[3] ◢(字母O) “T2=”：(R+K2÷(24R)-K^(4)÷(2688 R^(3)))tan(Abs(O) ÷2)+K÷2-K^(3)÷(240R2)+K^(5)÷(34560R^(4))+X→Z[4] ◢(字母O) “L=”：Abs(O)πR÷180+(E+K)÷2→L◢(字母O) “LY=”:L-(E+K)→Y◢ tan-1（（R+Z[1]）÷(Z[3]-Z[2]))→J↙ “E=”:(R+Z[1])÷sin(J)-R→X◢ A-Z[3]→X：X+E→Y↙ If E1：Then “ZY=”：X◢ :Else “ZH=”：X◢ IfEnd↙ “HY=”：Y◢ “QZ=”：X+E+(L-K-E)÷2→Y◢ X+L-K→Y：X+L→X↙ If K1：：Then “YZ=”：X◢ :Else “YH=”：Y◢ IfEnd↙ “HZ=”：X◢ Prog“JDF2J-JSMS”↙ 2、JDF2J-JSMS(交点法2-计算模式) LbI 0↙ “1 KD=XY,2 XY=KD” ？Z↙ If Z=1:Then Goto 1:IfEnd↙ If Z=2:Then Goto 2:IfEnd↙ LbI 1↙ “JS K”?P:“BZ(m)”?D:“BJ(°)”?W↙ Prog“JDF3JPZS”↙ “X=”:X◢ “Y=”:Y◢ If Z=1: Then Goto 1：Goto 1：IfEnd↙ LbI 2↙ “X”?X:“Y”?Y:“BJ(°)”?W↙ Prog“JDF4JPFS” ↙ “JS K”:P◢ “BZ(m)=”:D◢ If Z=2: Then Goto 2:Goto 2:IfEnd↙ 3、JDF3JPZS (交点法3平曲线正算) LbI 1↙ F→J↙ B-Z[3]cos（F）→X↙ C-Z[3]sin（F）→Y↙ E→G↙ If P≤A-Z[3]:Then A-Z[3]-P→I:-I→M:0→N:F+W→H: Goto5：IfEnd↙(数字0) If P≤A-Z[3]+E:Then P-A+Z[3]→I:90I2÷(REπ)→H: O0=-H→H：(前面为字母0，后面为数字0)H+W+F→H: Goto 3: IfEnd↙ If P≤A-Z[3]+L-K:Then P-A+Z[3]-E→I: Goto 4:Else Goto2: IfEnd↙ LbI 2↙ B+Z[4]cos(F+O)→X↙(字母0) C+Z[4]sin(F+O)→Y↙(字母0) F+O+180→J↙(字母0) K→G↙ If P≤A-Z[3]+L:Then A-Z[3]+L-P→I:90I2÷(RKπ)→H: O0=-H→H：(前面为字母0，后面为数字0)H+J+W+180→H: Goto 3 :Else P-A+Z[3]-L→I:-I→M:0→N:（数字0)J+W+180→H: Goto 5：IfEnd↙ LbI 3↙ I-I^(5)÷(40(RG)2)→M↙ I^(3)÷(6GR)-I^(7)÷(336(RG)^(3))→N↙ Goto 5↙ LbI 4↙ (E+2I)×90÷(πR)→H↙ Rsin(H)+Z[2]→M↙ R(1-cos(H))+Z[1]→N↙ O0=-H→H↙(前面为字母0，后面为数字0) J+H+W→H↙ Goto 5↙ LbI 5 ↙ If P≤A-Z[3]+L-K:Then O0(前面为字母0，后面为数字0)=-N→N:Else O0(前面为字母0，后面为数字0)=-N→N: Goto 6: IfEnd↙ LbI 6 ↙ X+Mcos(J)-Nsin(J)+Dcos(H)→X↙ Y+Msin(J)+Ncos(J)+Dsin(H)→Y↙ 4、JDF4JPFS(交点法4平曲线反算) X→U:Y→V:0→D:F-W→