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

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

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

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

×

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

#1=1234.% M3 s3 R8 h9 z  \: _% a2 d5 a
#11=ABS[FIX[#1]], [& C; O- j1 [, g% [3 z
#500=0.
WHILE[#11GT0.]DO1
+ Q. A! s. z* N#22=[#11/10.-FIX[#11/10.]]*10.9 a5 [7 G* f3 w, {
IF[#22 EQ 1.]TH #500=#500 OR 1.& d/ x2 l5 m* _% g* `7 K8 A5 x3 r
IF[#22 EQ 1.]GO3( G& t, e- j9 i- g6 r- k3 Q
IF[#22 EQ 2.]TH #500=#500 OR 2.  w9 n* ~* S/ Y/ k/ b3 a8 ]7 V, E6 y9 b
IF[#22 EQ 2.]GO3: i( K2 @0 }8 D
IF[#22 EQ 3.]TH #500=#500 OR 4.4 _, f/ ~' A, B& q; q
IF[#22 EQ 3.]GO3
3 z/ U$ ?/ f! m* x0 f2 S- lIF[#22 EQ 4.]TH #500=#500 OR 8.
$ M" A  {- N6 s  [IF[#22 EQ 4.]GO3. r1 o; Y4 w. y/ \
#3000=1.(#1-MODE-ERROR)- \9 m4 X* q: L5 j% c
N3 #11=FIX[#11/10.]
; J9 f( H2 h7 {$ ]5 c. ^3 U. JEND1
1 f3 W3 M$ I* qM99; _# P1 S  |6 k$ H  Q

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

#1=1234.1 r$ q# y- Q% P6 a4 ^. ]7 ]
#11=FIX[ABS[#1]]
9 V! j/ @: z' l* j' C3 t/ X#500=15.(全部装满，让下面逐一减去)
# @* `  I4 W: s8 j' N! D& O7 aWHILE[#11GE1.]DO1, J7 p* L/ w9 F
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
0 W9 R# N0 P, M! m; m( _IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
3 F- T- D4 r% fIF[#22 EQ 1.]GO3
+ G: O6 k& I( }IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.8 M9 B) f! s" B( e
IF[#22 EQ 2.]GO3
' o* y& I8 Z- KIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
* q% u: s$ s  S/ R) NIF[#22 EQ 3.]GO3
5 k4 ^5 @  ]: i& S6 ~8 |+ n- nIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
+ V3 B  w$ @; V! S9 y# L8 L2 GIF[#22 EQ 4.]GO3
0 ~0 t1 Q) L5 u5 @2 \; }#3000=1.(#1-MODE-ERROR)
8 P0 f9 p9 P( D+ x( n2 ~8 uN3 #11=FIX[#11*0.1]
9 X8 c9 c2 x0 U' WEND1! Y- ]( G: ?$ V
M99

#1=1234.$ m+ K2 W# u5 s4 ]# |
#500=15.: _- \6 m  P! f! C$ V
#11=ABS[FIX[#1]]
2 U, F. }* o% t# QWHILE[#11GT0.]DO1. W3 e4 T9 g1 h
#22=[#11/10.-FIX[#11/10.]]*10.
/ T( _7 m6 q( p' P4 N3 x7 ~/ C& ?IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
6 i# I- L: j4 M. i; z% BIF[#22 EQ 1.]GO3
; W4 a$ I8 X( a) IIF[#22 - 2. EQ 0.]TH #500=#500 - 2.# b* c  v( A3 [  Q+ _
IF[#22 EQ 2.]GO3$ ?$ i; `6 D. D+ P
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.9 j& Z& P/ I. X$ R+ S
IF[#22 EQ 3.]GO3
* W1 g) i/ k  |, q6 ]) |+ {IF[#22 - 4. EQ 0.]TH #500=#500 - 8.- J# T- Z; ?9 s0 F
IF[#22 EQ 4.]GO3& X4 e2 t/ G/ Z# e9 L( o
#3000=1.(#1-MODE-ERROR)  b8 U: f; Z6 F+ X" |  _0 T3 P, J
N3 #11=FIX[#11/10.]2 C5 N! z- J; z& \/ G/ g
END1
' u8 k! b; F/ U5 K5 @7 dM99

#1=1234.; g& b: s1 a* Y% l4 R8 c2 e9 R
#11=ABS[FIX[#1]]
7 J$ D# @6 ~/ L( N  h; e#500=0.* w- {6 G) Z; i& g; g
WHILE[#11GT0.]DO1
7 {8 T1 F3 S) q! z#22=[#11/10.-FIX[#11/10.]]*10.
+ m9 \" A& o  I  CIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.# L: W6 E* b& K" R: b. f
IF[#22 EQ 1.]GO3
2 k) D  n$ f; i" h1 _IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
/ j  W. ~- q- l% D7 y0 @IF[#22 EQ 2.]GO3
; j5 P6 E% \) P  H; p" ]; m5 z) PIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
2 z% S; O5 C0 g7 [$ |5 zIF[#22 EQ 3.]GO3$ z. e) w8 ]# a8 l# |- v* A
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.! U0 y( H8 l8 |+ Z2 a% W3 g
IF[#22 EQ 4.]GO39 l* h7 c: s! G/ k% u( K
#3000=1.(#1-MODE-ERROR)
2 M* _7 l1 g- J( q0 l! u0 s1 nN3 #11=FIX[#11/10.]8 F6 V% ?1 x+ D0 Q
END10 s( l/ K( ^$ W4 a3 ~& N" g
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