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

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

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

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

×

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

#1=1234." B& Q0 K3 N- R: d( ?8 p
#11=ABS[FIX[#1]]
! l4 s. H8 ?. A* ]5 g, S#500=0.
$ V- X# M$ T$ D" ?WHILE[#11GT0.]DO16 W: O4 C) Y) T8 Z4 ~1 R
#22=[#11/10.-FIX[#11/10.]]*10.
( F) {( y* u( o# E" M4 W* t. \IF[#22 EQ 1.]TH #500=#500 OR 1.
3 j% m) R2 w  x' M+ WIF[#22 EQ 1.]GO32 d7 ~0 O, O. `2 U. \
IF[#22 EQ 2.]TH #500=#500 OR 2., z( i% T9 k2 s
IF[#22 EQ 2.]GO3" Q6 k1 g: h1 c( J
IF[#22 EQ 3.]TH #500=#500 OR 4.2 Q  u# F5 I8 h0 ~8 G
IF[#22 EQ 3.]GO3& h0 i, ?3 t7 q# w9 s
IF[#22 EQ 4.]TH #500=#500 OR 8.+ o8 _0 N$ U2 m% \
IF[#22 EQ 4.]GO3
0 t! Y) g! A: l6 j#3000=1.(#1-MODE-ERROR)4 e& `2 W, U0 d, u/ ]
N3 #11=FIX[#11/10.]$ @8 b& |3 H4 o
END1! K5 Q9 E8 h6 M6 _. |$ s
M99
6 n' E+ P4 S$ _/ R6 X# x  N" {. y" N
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.3 p$ v  \. l# K. _! c. G0 J
#11=FIX[ABS[#1]]; J9 t" K; k' }1 E4 P
#500=15.(全部装满，让下面逐一减去)
  c$ \" \+ K+ |5 w+ ^WHILE[#11GE1.]DO1
- P& y: B) g+ s+ ?8 S7 I/ J#22=[#11*0.1-FIX[#11*0.1]]*/0.1' B) t$ I, b0 X0 H. [# r$ S) e
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.( z& ]6 u7 F/ z! [9 V* L
IF[#22 EQ 1.]GO3% E2 c0 B% g2 x, L3 q/ u
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
% h% a, k/ _# H3 M: |; yIF[#22 EQ 2.]GO3
: \; l* m9 x8 }IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
, \: b+ a; A" I# C; k( @IF[#22 EQ 3.]GO3
* [5 A* H! H. a: [" ]: ~& @IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.; F! U* k4 M8 Q0 V
IF[#22 EQ 4.]GO3
& B  m  X8 k9 ]9 ~#3000=1.(#1-MODE-ERROR)  `9 ^$ i2 }$ [" }$ s6 V
N3 #11=FIX[#11*0.1]! z% H5 a( l8 L' o/ B' ^5 G
END1' D) B: g, I3 E
M99

#1=1234.
; t) K9 H8 x2 c$ f#500=15.! u: z: d' o" s$ @: G1 M. f# i9 T* q
#11=ABS[FIX[#1]]
/ `! ]% g  s* R+ a, t  OWHILE[#11GT0.]DO1
; }/ }- M% p6 ^- g" {# G; M#22=[#11/10.-FIX[#11/10.]]*10.5 S3 S3 c0 n8 g8 L# F
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
* a! B. |1 J! y9 u9 \3 SIF[#22 EQ 1.]GO3
- i# m6 k8 ]: \* I" ], HIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
  ?0 E, f7 l! ~2 _: o! vIF[#22 EQ 2.]GO3
4 i6 b5 s+ A; h3 E) D9 L/ iIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
# K1 S- d, b) c6 L( NIF[#22 EQ 3.]GO36 C  I1 @! `9 i+ _! ]( a1 u
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.& `) S  r# @9 U
IF[#22 EQ 4.]GO3
" q2 M6 }1 {/ {: N+ F& k0 ^#3000=1.(#1-MODE-ERROR)2 p4 R5 d6 j) y3 ^& Y, L5 _
N3 #11=FIX[#11/10.]
; F' E" R# [7 z& S7 Y) REND1
: V$ e6 C( n9 f. e: FM99

#1=1234.
9 i' b9 V# g; j" c! K5 n, J& V#11=ABS[FIX[#1]]
% [9 q( k  N6 h+ q2 v( G! p1 J6 R#500=0.
7 j/ C6 t" A7 m6 t# ^" wWHILE[#11GT0.]DO1
. h0 i7 @% `  b2 F* t#22=[#11/10.-FIX[#11/10.]]*10.3 @- W! k# t# w- u( n* \
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.+ `8 m+ A# T' P0 P5 S; F
IF[#22 EQ 1.]GO3
+ P- e9 p* E9 H- |IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
1 u6 S! b5 P2 c' OIF[#22 EQ 2.]GO3
/ z2 c) x# m4 n! ?; X6 sIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.1 {  V) b8 T4 o& X# s5 D+ M& s
IF[#22 EQ 3.]GO3
; L: N1 c$ k- ^2 qIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
- T0 X& h) b- N, ]IF[#22 EQ 4.]GO3
+ ?6 P# C/ Y  W" p#3000=1.(#1-MODE-ERROR)# a7 H0 Z% [: o( Q# C8 Z
N3 #11=FIX[#11/10.]0 \0 \! h; c5 M! c2 T
END1
( P6 B* G- q* ?% j  N$ z, {; H. uM99

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