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

羅蓋仙 · 发表于 2013-8-18 10:42:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

您需要登录才可以下载或查看，没有账号？立即注册

×

以下是我的理论请参考，我并没有写得很周全

#1=1234.
0 G. n% p! S5 z#11=ABS[FIX[#1]]+ N% q1 y6 G, n. }
#500=0.
% ]3 Q" L! O# Z9 P" ZWHILE[#11GT0.]DO13 d5 W% u( n. \$ s4 m
#22=[#11/10.-FIX[#11/10.]]*10.2 b# I/ Z/ o( I4 ], j
IF[#22 EQ 1.]TH #500=#500 OR 1.
; f1 Z: Z$ `' a& e( ^8 p( WIF[#22 EQ 1.]GO3
! n' x& t4 ]. a. |IF[#22 EQ 2.]TH #500=#500 OR 2.
- _( f0 }  T1 g7 t% U1 m3 XIF[#22 EQ 2.]GO3
6 `3 f) X! _3 `) R8 G# x; lIF[#22 EQ 3.]TH #500=#500 OR 4.
6 M! n+ y: \7 R7 QIF[#22 EQ 3.]GO3
5 e) T7 L, g7 c: B8 Q) WIF[#22 EQ 4.]TH #500=#500 OR 8.3 R8 z9 _$ ]$ Q# y8 f
IF[#22 EQ 4.]GO3; |+ ~' f# q5 W2 a8 _7 m$ X+ {
#3000=1.(#1-MODE-ERROR)- e/ S7 X( W* o
N3 #11=FIX[#11/10.]
! R3 G! L( E( H6 K( pEND1
3 t% [/ _4 j) {! G9 U! HM99: p. G! E$ p; P8 O' P1 K3 r

以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
, j1 O1 Q/ v. R5 L) F9 l, c#11=FIX[ABS[#1]]
- H7 s5 K3 p  t+ {& S#500=15.(全部装满，让下面逐一减去): Z3 c# x4 d( a* ?2 E- Q
WHILE[#11GE1.]DO19 g$ T3 Y( T' K. g
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
, I& w5 @: v6 m2 r5 i, i0 v7 gIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.- @3 I$ h4 K# g2 r$ o
IF[#22 EQ 1.]GO3
  j5 o: t1 A1 O) `6 i" FIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
* Y, ?% p: M: wIF[#22 EQ 2.]GO31 s2 x5 V& I* Y; U0 w1 w
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.$ B9 C0 C9 O3 K5 E5 S% s, J
IF[#22 EQ 3.]GO3
' Q1 m, t6 k) }( p2 B% rIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
/ ?; z0 J+ d  o+ }) {& W' kIF[#22 EQ 4.]GO33 l" F* O- x% V3 ^- Y$ i- Q1 H7 x
#3000=1.(#1-MODE-ERROR)+ Y* q# f: h3 h
N3 #11=FIX[#11*0.1]6 z; k7 ^; E4 C# M% m
END1
$ {5 k" J' a7 w! p& O) `! M% |M99

#1=1234.3 w$ a: Z( [9 t  B7 W
#500=15.& _( J) e: R6 U
#11=ABS[FIX[#1]]/ W2 j; F0 ~: E' v% D1 v, r: J
WHILE[#11GT0.]DO1
+ @0 r5 w9 V% p) F3 d) _#22=[#11/10.-FIX[#11/10.]]*10.( u3 A" W+ g) T! y8 _' k7 i
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.& J! o0 d1 ]- Q. {
IF[#22 EQ 1.]GO3
) D& K  }' s8 m" v8 uIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
$ ?: z: t: B3 iIF[#22 EQ 2.]GO3
2 T( O* L- _! H$ }  wIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
- k/ V9 j6 ]  k! BIF[#22 EQ 3.]GO3
( A1 E& a' ~2 H  a/ P, UIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
( e; j; l4 ^" }* F3 H5 Z& D- jIF[#22 EQ 4.]GO3
2 N7 h( u; R% N$ S+ E+ f#3000=1.(#1-MODE-ERROR)
) |% I- E  o" @N3 #11=FIX[#11/10.]
3 K0 H  b% `' X  _$ NEND1
: d( T) _) Q' GM99

#1=1234.
" f. o) r+ E5 |6 P2 n#11=ABS[FIX[#1]]
: Z/ P9 g* r8 Y: t* T' g#500=0.7 z+ z9 v! u2 V
WHILE[#11GT0.]DO1' V+ N& q0 X8 L3 L3 \$ f% W" o
#22=[#11/10.-FIX[#11/10.]]*10.
" g  L4 L3 y! lIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
0 p8 Y( v+ S0 _0 }7 {1 Z; mIF[#22 EQ 1.]GO3) v4 q8 a5 `% T1 w( I  K
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.0 c0 W7 U( f. T% C4 E1 P0 ^) S2 E% F% o3 i
IF[#22 EQ 2.]GO3
# L" ^, z, |) aIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
; A  c/ K- u! h2 |6 ]8 k" XIF[#22 EQ 3.]GO3
% A4 e5 c9 b9 c0 v: vIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
3 O- Y. J" Z: S$ aIF[#22 EQ 4.]GO37 Y# Q5 D! h4 L: \
#3000=1.(#1-MODE-ERROR)
9 t- p( y' h8 p& v$ ^- BN3 #11=FIX[#11/10.]
+ g# i. ^7 f+ u2 j; [7 aEND1& E* j) T& E. y7 M& Z+ N
M99

羅蓋仙 · 发表于 2013-8-18 13:50:47

最底下紫字也可以改成
#500=#500 + 1.
#500=#500 + 2.
#500=#500 + 4.
#500=#500 + 8.

感想是使用OR最安全
用其他可能会被累加或被累减

渊源灼 · 发表于 2014-6-29 08:23:35

厉害

rfonaqx · 发表于 2014-6-30 00:55:23

我顶啊。接着顶

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

liziang0509 · 发表于 2014-7-1 20:14:34

谢谢分享。。。

蕾蕾 · 发表于 2014-9-5 19:57:53

回复 5# liziang0509

靠。。。这么nx

52106813 · 发表于 2014-10-9 04:54:50

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

jy0668 · 发表于 2014-10-16 13:48:10

感谢分享，帮顶一下

zxwen · 发表于 2014-10-26 15:46:53

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

1365944322 · 发表于 2014-11-3 10:57:29

支持宏程序，哈哈

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区

站长推荐 /2