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

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 E 1:Then 1*10^ -9 →E:IfEnd↙ If K 1: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 E 1：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 K 1：：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: O 0 -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: O 0 -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↙ O 0 -H→H↙ 前面为字母0，后面为数字0 J+H+W→H↙ Goto 5↙ LbI 5 ↙ If P≤A-Z[3]+L-K:Then O 0 前面为字母0，后面为数字0 -N→N:Else O 0 前面为字母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→