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

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

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

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

×

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

#1=1234.
- y, ]; P' Z& ^. o3 d- B. F2 E#11=ABS[FIX[#1]]
7 d& l6 d/ F4 m9 z#500=0.% w1 Z7 u+ K& p: l
WHILE[#11GT0.]DO1
  \" k9 r" Y* j* A9 r2 S/ l+ C% S#22=[#11/10.-FIX[#11/10.]]*10.1 ]2 a' Y2 U4 S" S4 _# R- S& C+ d
IF[#22 EQ 1.]TH #500=#500 OR 1.3 _# p9 E% G7 ~2 {
IF[#22 EQ 1.]GO3
0 j+ S2 Y* p* ]7 ^1 PIF[#22 EQ 2.]TH #500=#500 OR 2.
) U6 a( L6 [0 n- ~: K% e/ LIF[#22 EQ 2.]GO3( A+ U: N6 ~& i2 {( `' |& A
IF[#22 EQ 3.]TH #500=#500 OR 4.
6 L* T2 J: l& m" [8 A0 q+ [9 a, BIF[#22 EQ 3.]GO3
8 U2 Z+ u- {5 oIF[#22 EQ 4.]TH #500=#500 OR 8.
- z' _) e5 y/ [0 bIF[#22 EQ 4.]GO3+ e* D/ M% Y! ~2 S
#3000=1.(#1-MODE-ERROR), ]: ?4 j. h8 |' ~
N3 #11=FIX[#11/10.]
. P- c, J* b4 b- [: g; ?6 SEND1
# \. s' @! F9 s' x  EM99$ m0 W0 u* N" z5 I1 b6 ]$ V

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

#1=1234.
" J$ M4 p6 |& d* B( f3 o#11=FIX[ABS[#1]]
, c  y: i  `) l#500=15.(全部装满，让下面逐一减去)
9 d) Z- M+ J8 u& G/ b- G, l7 {WHILE[#11GE1.]DO1# F/ h! W4 h/ U8 u
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
3 `3 r9 G& O3 J5 H% ZIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.$ T# s/ c- u; }/ _/ p4 E% \
IF[#22 EQ 1.]GO34 g2 b6 k. f2 Z0 c. E; O
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
  n1 y; @% o8 r6 D+ T. m) EIF[#22 EQ 2.]GO39 d* N1 y  n$ _; K) ?, q" O8 ~9 h
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.# `- q9 _+ {$ E& X+ V5 D
IF[#22 EQ 3.]GO3
3 _! _% |. m" z8 B/ gIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
( F, W& h. r, e1 m- CIF[#22 EQ 4.]GO3. m1 g8 z  V# w, w9 E+ w3 k: H
#3000=1.(#1-MODE-ERROR)
) p3 H- \2 S8 z; s! {( z! FN3 #11=FIX[#11*0.1]2 C" R  {0 g! |) j1 M6 F4 k+ a: h
END1; G4 {+ e( Z) Y
M99

#1=1234.
0 }& _- z' J" z- l7 ~#500=15.
0 \5 B5 _1 I9 D. l#11=ABS[FIX[#1]]
; z8 D% L& e4 b0 IWHILE[#11GT0.]DO1" j$ u7 ~  v" y: \& v2 q7 u& t' E
#22=[#11/10.-FIX[#11/10.]]*10.
; f& |& Z: V. S- w9 Q: \/ fIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
! e2 l+ f1 F8 w2 R; [IF[#22 EQ 1.]GO3
. O0 r* }: d2 {- V) P& ?IF[#22 - 2. EQ 0.]TH #500=#500 - 2.0 X6 V/ P" }1 O5 L
IF[#22 EQ 2.]GO3
  f  r9 z4 I2 q: ~7 F0 oIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
; Q$ V4 S2 e9 @$ P6 \( f# lIF[#22 EQ 3.]GO3. D8 Z: T! E" X
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
2 u6 L' `6 k2 Z4 J$ F( ?9 r: Z+ M/ ]IF[#22 EQ 4.]GO3
2 |6 @9 s& }& n1 m: Q4 @( v% R) C#3000=1.(#1-MODE-ERROR)* @/ G" {2 A! z' u; Q; _' H% v
N3 #11=FIX[#11/10.]1 d1 N8 a9 s* f/ c, r$ Q
END1
: D8 j6 ]% P, [' _* \M99

#1=1234.2 o) Q: D9 l8 t  Y7 T( L
#11=ABS[FIX[#1]]
: o0 y' K8 A$ u! H2 Z* r#500=0.
( q4 _* d. H2 pWHILE[#11GT0.]DO1
" y3 X  f2 c$ n! k#22=[#11/10.-FIX[#11/10.]]*10.
1 m) V; t3 H7 I, H1 z& |% xIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
. a1 ]0 o# N9 q: A/ cIF[#22 EQ 1.]GO3" H/ L8 I& O% Y: n
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
! S5 H; V) Y2 ]7 ]- m6 cIF[#22 EQ 2.]GO3
- H! Y% o6 L2 c( f7 ?& wIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
. D; I* l2 l  _# v  |2 F- rIF[#22 EQ 3.]GO3
; B7 l$ X" n0 L2 l* @) WIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
  P6 |8 {" a  K) L6 T6 sIF[#22 EQ 4.]GO31 R9 B9 l. ]) Y$ ]4 y7 z- }& T
#3000=1.(#1-MODE-ERROR)
0 S) K( b" o$ L, {* G& MN3 #11=FIX[#11/10.]7 s2 G+ P( s% P7 K+ a3 U1 J
END1
: R7 J* T, x! u/ hM99

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