小鱼老师的智能钻孔──我另有新启发

羅蓋仙

以下是我的理论请参考，我并没有写得很周全
4 p0 ]. b# a, l7 Y- _
#1=1234.
- N3 q9 c' O( p  @#11=ABS[FIX[#1]]
+ |* b0 }) F1 ]9 z#500=0.
8 G. Z5 l9 n1 q+ X% c' K) WWHILE[#11GT0.]DO1
# s7 }2 b! O/ r$ R#22=[#11/10.-FIX[#11/10.]]*10.
4 g7 x  B) p, ?0 w! ?# a& K* I- pIF[#22 EQ 1.]TH #500=#500 OR 1.
# \, b/ J7 h# @+ `1 V4 F5 YIF[#22 EQ 1.]GO3
IF[#22 EQ 2.]TH #500=#500 OR 2.
IF[#22 EQ 2.]GO3
  L' z/ r, P9 b3 i: o- `, ~+ I+ ?IF[#22 EQ 3.]TH #500=#500 OR 4.
IF[#22 EQ 3.]GO3
IF[#22 EQ 4.]TH #500=#500 OR 8.
  A% @0 Y( [5 _4 M& f' E" wIF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
5 }( z3 o+ ~. _- G- mEND1
M99
# U8 Q# j* y+ u* @" B$ |0 g2 L
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
4 n: ]: \7 S% w. k（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）
9 z9 M- T% ?) @9 M
#1=1234.
#11=FIX[ABS[#1]]
#500=15.(全部装满，让下面逐一减去)
# V( a3 D+ X6 m+ _1 S5 oWHILE[#11GE1.]DO1
& y  h& w6 p' r9 R  e: T#22=[#11*0.1-FIX[#11*0.1]]*/0.1
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
. e, V0 l& [% Z. P: m6 fIF[#22 EQ 1.]GO3
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
  Y7 w  t7 f9 P+ M; A, mIF[#22 EQ 2.]GO3
: M9 S) t# \' K5 ~IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
2 O0 @; f0 c% _IF[#22 EQ 3.]GO3
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
IF[#22 EQ 4.]GO3
7 G; B% }# u  L, d# l#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11*0.1]
END1
M99



5 B) z! T- M8 b) h$ z/ j#1=1234.
#500=15.
#11=ABS[FIX[#1]]
2 w, O' b' b; L1 d: gWHILE[#11GT0.]DO1
0 k# w; ~" ]9 o% h8 {1 ~  E( k5 _& F1 T#22=[#11/10.-FIX[#11/10.]]*10.
- P9 B# b$ B3 T7 L6 h* p+ hIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
IF[#22 EQ 1.]GO3
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
% U0 ]7 B5 V! z7 t9 ^0 ^IF[#22 EQ 2.]GO3
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
IF[#22 EQ 3.]GO3
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3
* P/ M6 }9 L" k2 c( N. S( S1 r" O#3000=1.(#1-MODE-ERROR)
  h/ `1 t2 l0 d' e; [- c1 hN3 #11=FIX[#11/10.]
0 ~2 {) Q% X. Z' u6 C: OEND1
M99
7 O1 a5 _' `0 W  ]) l
* X# k* [! F3 m3 H- Y* S0 p
9 P5 |# c5 H0 E+ i. ]
#1=1234.
#11=ABS[FIX[#1]]
#500=0.
' E" n4 B( a7 h- c1 bWHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
IF[#22 EQ 1.]GO3
7 @9 _" z4 p$ T2 p% B( X% DIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
3 A4 M' R+ V! K' T6 L- n& BIF[#22 EQ 2.]GO3
7 v# ?1 D" a' A! D* QIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
9 d* o- ^& n, a  I0 n0 K: K, ]; g+ ?IF[#22 EQ 3.]GO3
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
IF[#22 EQ 4.]GO3
#3000=1.(#1-MODE-ERROR)
N3 #11=FIX[#11/10.]
END1
M99

羅蓋仙

最底下紫字也可以改成
#500=#500 + 1.
- ^# Z5 j+ ]' h0 B' n1 M#500=#500 + 2.
9 o* a% x8 o; p5 n* N# {( `5 A5 ^#500=#500 + 4.
#500=#500 + 8.
, Z. k& a3 K5 {1 n: U
感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼

厉害

rfonaqx

我顶啊。接着顶
$ F) e) j9 ]: d$ M" j
; J( z, K! ?0 M" t& {0 W* z) S1 O

5 R& P' o0 q) T6 \) Y6 z5 y: {
# B, J" Y3 S0 Y& l8 |

( f: o) u: m  P, @7 S) G8 Q& U- y
- ]: r+ L, P9 m) x% n* }! f



tudouyoukuso.org/   kutensale.net/sitemap.html   ylmba.com/sitemap.html

liziang0509

谢谢分享。。。

蕾蕾

回复 5# liziang0509
% i: {. f! i" J: W3 G* V& u: I, A7 {

+ ]  Q3 w1 s1 a( X; S3 p8 M$ w    靠。。。这么nx

52106813

拿来研究一下，怎么不用WHILE-DO，IF-GO跳转不如WHILE-DO顺畅

jy0668

感谢分享，帮顶一下

zxwen

谢谢分享。。。。。。。。。。。。

1365944322

支持宏程序，哈哈