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

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

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

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

×

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

#1=1234.
  k7 K/ b. a1 P! U- ^! w* C; X4 x5 J#11=ABS[FIX[#1]]0 S$ A8 k, u+ k: ?8 r( K+ m' w  k
#500=0.4 X3 S4 g% L4 O1 s9 {& H4 d- B* {% Y
WHILE[#11GT0.]DO15 h5 H' q( A* U  o$ u
#22=[#11/10.-FIX[#11/10.]]*10., K- X& G1 K3 P$ g0 y1 {; k; N
IF[#22 EQ 1.]TH #500=#500 OR 1.+ s+ K+ d" T8 J& [/ R$ J; U
IF[#22 EQ 1.]GO3
7 b- w- F; `+ o% S; r, {' HIF[#22 EQ 2.]TH #500=#500 OR 2.
2 L5 [8 W' [% a- AIF[#22 EQ 2.]GO3  X0 Q" U, f; v" u: @5 ?. l( j  b
IF[#22 EQ 3.]TH #500=#500 OR 4.2 x7 H" L+ ~# y! V9 P; ]8 P
IF[#22 EQ 3.]GO3
3 v9 ^* B/ O4 v. B7 ]& eIF[#22 EQ 4.]TH #500=#500 OR 8.
- f2 P" B  P- tIF[#22 EQ 4.]GO3
3 D6 P$ _8 B3 d7 o+ Y1 }, ]% B: [#3000=1.(#1-MODE-ERROR)+ F" ]$ ]  }* Z5 V0 U3 W
N3 #11=FIX[#11/10.]
  L/ ?5 A5 q! ~  E; REND1% z, V+ `/ y9 f( [; I. J
M99
+ V% S# f5 h0 T2 H* l
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.+ ]/ e& o$ M/ d" ]9 o! j
#11=FIX[ABS[#1]]3 ^* Z; g) S( G6 w+ W1 {
#500=15.(全部装满，让下面逐一减去)( Z( J4 f6 b3 v
WHILE[#11GE1.]DO12 O( O* k& U2 |$ }; `" j0 t
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
8 P5 Q2 u  O5 N  N- pIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
3 I& o9 ]$ }/ v3 o$ ~, j/ s% G) }: d# FIF[#22 EQ 1.]GO3
0 T2 @# s$ c0 g* v" J4 ]- HIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.. q9 `8 f# k, r, S( S3 d: W
IF[#22 EQ 2.]GO3
: S. Q* L* U2 s( kIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
3 {5 k, Q; @! h' O8 m0 f# ~IF[#22 EQ 3.]GO3
, [3 L+ \. k, c- PIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.# p5 T1 b* ?& t. Q8 F; d% c1 L
IF[#22 EQ 4.]GO3
" d8 r* Y7 W# V2 g#3000=1.(#1-MODE-ERROR)4 V# U/ G! z$ d
N3 #11=FIX[#11*0.1]- U4 j0 K" @6 G$ U  A+ q  B$ J6 ^
END1
7 [# P3 w  _6 yM99

#1=1234.
& w( Q( C6 X8 {5 J4 u#500=15., I+ g1 }1 |1 k
#11=ABS[FIX[#1]]( |3 b2 ~1 |1 o% D" y' M
WHILE[#11GT0.]DO1
7 J; g+ r: s# \/ a6 S- N#22=[#11/10.-FIX[#11/10.]]*10.8 b# w; b+ x+ A$ a1 T& A
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.2 P" B: y' S: [6 ^: U
IF[#22 EQ 1.]GO3
* X8 p$ }1 E  IIF[#22 - 2. EQ 0.]TH #500=#500 - 2./ l/ O  R! o9 W: q
IF[#22 EQ 2.]GO3
: g+ Y. Z: ~4 GIF[#22 - 3. EQ 0.]TH #500=#500 - 4.. ?/ p- F' F# j6 }* h1 E* a, S) j
IF[#22 EQ 3.]GO3
. @1 o6 H8 b! m* DIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
8 o& F7 S) ?* F4 l* xIF[#22 EQ 4.]GO30 }- Q0 U# o# f- y4 d* s
#3000=1.(#1-MODE-ERROR)
+ Q2 P7 C( m" P7 `0 w! ]N3 #11=FIX[#11/10.]
1 Q) x' a. V6 ?5 y3 |" Q8 i0 bEND1) m- A' m* B7 a  I
M99

#1=1234.# K; d$ p" C$ h+ i( y/ u* O3 _" M
#11=ABS[FIX[#1]]
' R  g  C8 t" ]5 `! O! _#500=0.
! r$ c! |7 X9 q- s; [WHILE[#11GT0.]DO1
& {8 n1 s0 D- ^  y  T; t#22=[#11/10.-FIX[#11/10.]]*10.: h& c8 z* \# T
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.6 ~" l, _- h  Y: w
IF[#22 EQ 1.]GO3. ?$ p- `) F( a8 f; S
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.% t5 I% V+ X! G% u, P
IF[#22 EQ 2.]GO3/ Y1 q& E1 d& l  K
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
7 w% e# j% H) V; J9 Z! _IF[#22 EQ 3.]GO3  T' j# I# I8 O/ N3 G/ T/ M
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
6 P5 I* u% G; S: l3 j' BIF[#22 EQ 4.]GO3
: f4 J, \+ a' W* y- C: W#3000=1.(#1-MODE-ERROR)3 P% Z1 t! b& ~( V% X4 S, ~
N3 #11=FIX[#11/10.], f! P* C( s) R4 ?8 j- y3 P7 W
END1
6 q/ X: f4 m6 g( FM99

羅蓋仙 · 发表于 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