FDCHHQX
＂FWJ=＂？A：＂ZHUANJIAO=＂？N：“ＺＨＵＡＮＸＩＡＮＧ（Ｌ－１，Ｒ１）＝”？Ｕ：“Ｒ＝”？Ｒ：“ＬＳ１＝”？Ｃ：“ＬＳ２＝”？Ｆ：“ＪＤＸ＝”？Ｇ：“ＪＤＹ＝”？Ｈ：Ｃ÷（24Ｒ）－Ｃ÷（２６８８Ｒ）→Ｚ[５]：Ｃ÷２－Ｃ÷（２４０Ｒ）→
２
４
３
３
２
Ｚ[６]：Ｆ２÷（２４Ｒ）－Ｆ４÷（２６８８Ｒ３）→Ｚ[７]：Ｆ÷２－Ｆ３÷（２４０Ｒ２）→Ｚ[８]：（Ｒ+Ｚ[５]）tog（Ｎ÷2）+Ｚ[6]－（Ｚ[5]－Ｚ[7]）÷sinＮ→Ｂ（Ｒ＋Ｚ[7]）tog（Ｎ÷2）＋Ｚ[8]＋（Ｚ[5]－Ｚ[7]）÷sinＮ→ＥRec（Ｅ，Ａ＋ＵＮ）
Ｇ＋Ｉ→Ｚ[3]：Ｈ＋Ｊ→Ｚ[4]：＂ZHLC=＂?Ｄ
Ｌｂｌ０：＂ＫＰ＝＂？Ｋ：＂ＢＪＵ（Ｌ－１，Ｒ１）＝＂？Ｖ：＂ＢＪＵ（ｍ）＝＂？Ｗ
Ｌｂｌ１：Ｋ<Ｄ=>ＧＯＴＯ２：Ｋ≦Ｄ＋Ｃ=>ＧＯＴＯ３：Ｋ≦Ｄ＋ΠＲ（Ｎ－９０Ｃ÷（ΠＲ）－９０Ｆ÷（ΠＲ））÷１８０＋Ｃ=>ＧＯＴＯ４：Ｋ≦Ｄ＋ΠＲ（Ｎ－９０Ｃ÷（ΠＲ）－９０Ｆ÷（ΠＲ））÷１８０＋Ｃ＋Ｆ=>ＧＯＴＯ５：Ｋ>Ｄ+ΠＲ（Ｎ－９０Ｃ÷１８０－９０Ｆ÷（ΠＲ））÷１８０＋Ｃ＋Ｆ=>ＧＯＴＯ６Ｌｂｌ２：Rec（Ａbs(K－D), Ａ+１８０）Ｚ[1]+Ｉ→X:＂X(Ｚ) =＂:X◢ Ｚ[2]+ J→Y:＂Y(Ｚ) =＂:Y◢ Rec（W，Ａ＋90V）
X +Ｉ→X:＂X(B) =＂:X◢ Y + J→Y:＂Y(B) =＂:Y◢ ＧＯＴＯ０
Ｌｂｌ３：Ｋ－D→Ｓ：Ｓ－Ｓ５÷（４０Ｒ２Ｃ２）+Ｓ９÷（３４５６Ｒ４Ｃ４）→Ｏ ３
Ｓ÷（６ＲＣ）－Ｓ７÷（３３６Ｒ３Ｃ３）+Ｓ１１÷（４２２４０Ｒ５Ｃ５）→ＰＺ[1] +ＯcosA－UPsinA→XＺ[2] +ＯsinA +UPcosA→Y＂X(Ｚ) =＂:X◢ ＂Y(Ｚ) =＂:Y◢
2
Rec（W，Ａ＋90US÷（ΠＲＣ）＋90V）X +Ｉ→X:＂X(B) =＂:X◢ Y + J→Y:＂Y(B) =＂:Y◢ ＧＯＴＯ０
Ｌｂｌ４：Ｋ－（D＋Ｃ）→Ｓ：K-(D+C) →S:Rsin((180S+90C) ÷(ΠＲ))+C÷2- 32
C÷(240R) →O
R(1-cos((180S+90C) ÷(ΠＲ)))+C2 ÷(24R) －C４÷（２６８８Ｒ３）→ＰＺ[1] +ＯcosA－UPsinA→X＂X(Ｚ) =＂:X◢
Ｚ[2] +ＯsinA +UPcosA→Y＂Y(Ｚ) =＂:Y◢
Rec（W，Ａ＋(180S+90C)U÷（ΠＲ）＋90V）X +Ｉ→X:＂X(B) =＂:X◢ Y + J→Y:＂Y(B) =＂:Y◢ ＧＯＴＯ０
Ｌｂｌ5：Ａbs(K-(D+ΠＲ(N-(90C+90F) ÷(ΠR))÷180+C+F) )→S
S-S÷(40R2F2)+S9÷(3456R4F4) →O 3S÷(6RF)-S7÷(336R3F3)+S11÷(42240R5F5) →P
Ｚ[3]-(Ocos(A+UN)-(-1)UPsin(A+UN))→X: Ｚ[4]-(Osin(A+UN)+(-1) UPcos (A+UN))
＂X(Ｚ) =＂:X◢ ＂Y(Ｚ) =＂:Y◢
2
Rec（W，Ａ＋UN-90US÷（ΠＲF）＋90V）X +Ｉ→X:＂X(B) =＂:X◢ Y + J→Y:＂Y(B) =＂:Y◢ ＧＯＴＯ０
Ｌｂｌ6：K-(D+ΠＲ(N-(90C+90F) ÷(ΠR))÷180+C+F) →S Rec（S,A+UN）
Ｚ[3]+I→X: Ｚ[4]+J→Y ＂X(Ｚ) =＂:X◢ ＂Y(Ｚ) =＂:Y◢
Rec（W，A+UN+90V）
X +Ｉ→X:＂X(B) =＂:X◢ Y + J→Y:＂Y(B) =＂:Y◢ ＧＯＴＯ０作者：王海峰
于2008年5月6日
欢迎大家使用，并提出改进方法。本人对此表示感谢。。。
5
