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

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

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

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

×

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

#1=1234.
+ Y( N0 b: @6 j! q4 M) {" k! [#11=ABS[FIX[#1]]' }8 D8 v6 i5 k
#500=0.! d; n. R5 L% p* _# c: k
WHILE[#11GT0.]DO1+ ]( m4 H6 M4 r  _  {
#22=[#11/10.-FIX[#11/10.]]*10.8 n7 @% ]9 V! {8 _# w1 v
IF[#22 EQ 1.]TH #500=#500 OR 1.
, c  T9 R6 ?, N6 ~& D0 `IF[#22 EQ 1.]GO3& O2 y+ a, _( }* }# I, T
IF[#22 EQ 2.]TH #500=#500 OR 2.
' z8 u% a* S; j" oIF[#22 EQ 2.]GO3
& w5 `" ~. U( [% H0 WIF[#22 EQ 3.]TH #500=#500 OR 4.
/ B4 X/ M1 Q* ~. H9 n$ _* vIF[#22 EQ 3.]GO3
6 C  a, M# D+ \0 ]IF[#22 EQ 4.]TH #500=#500 OR 8.$ }, J( o5 T3 a: O/ y* m
IF[#22 EQ 4.]GO3
0 d# p! S/ d; M7 p: Q8 g#3000=1.(#1-MODE-ERROR)
  H+ I* S  o3 |N3 #11=FIX[#11/10.]8 c2 `, \8 ?+ P& M/ s0 y: [) O
END1" a' t8 v4 h+ N/ c, ~( j$ E
M990 R6 o' `% L! S8 {4 s

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

#1=1234.
: H' a: j* K) F2 k#11=FIX[ABS[#1]]) G# x2 D) g1 Y
#500=15.(全部装满，让下面逐一减去)  K# R1 n1 s/ i" }
WHILE[#11GE1.]DO1) y, y7 j  s# X, |
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
' B9 ^- W8 [9 k& e5 oIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.1 T6 y7 q4 R8 F" W0 X
IF[#22 EQ 1.]GO3
3 i  f% _. Q8 I4 T" B' [- ZIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.. u  @, ]& j( R9 D; s
IF[#22 EQ 2.]GO3
) R1 Z  J8 @. s4 m1 KIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.. r& @0 i+ B2 z/ S2 H
IF[#22 EQ 3.]GO3
1 i3 P" D( S9 z/ YIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.8 e+ S8 Z* v- |7 \% p
IF[#22 EQ 4.]GO35 \7 X# h4 k! c+ C; S4 D
#3000=1.(#1-MODE-ERROR)6 L9 R  f. y6 v+ h; v
N3 #11=FIX[#11*0.1]
! o- F) p9 E9 H. nEND1& `( x$ \& g% z& y1 A9 x
M99

#1=1234.- s& l3 D$ w8 \1 g6 R% q& i
#500=15.  _6 v5 P3 Q! D; v
#11=ABS[FIX[#1]]7 e' J& ]' F  t* I7 [$ `. u
WHILE[#11GT0.]DO1
  J+ m( B# r7 N#22=[#11/10.-FIX[#11/10.]]*10.6 U, I7 @  V; _( g  _3 y0 x/ H
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
; t, q+ r8 @1 C/ T/ \IF[#22 EQ 1.]GO37 \, X" u0 Z. z9 Y- K# D
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
  A, Z/ I6 X- b. P7 P  KIF[#22 EQ 2.]GO3) m  ?9 R4 N- h8 G8 P" k# F( `
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
! b* f( N; Z/ Y* {5 MIF[#22 EQ 3.]GO3
% d7 f: s! m) s, p; mIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
IF[#22 EQ 4.]GO3& M) R, O4 e0 }$ k; K
#3000=1.(#1-MODE-ERROR)4 h0 i$ L. @( E3 N
N3 #11=FIX[#11/10.]5 N# L) N5 A3 r" N
END1  ^: R5 W( Q4 ?  j2 ~/ X+ C2 s* h
M99

#1=1234.  \) q9 D! e+ h; o
#11=ABS[FIX[#1]]$ ~0 F% D% C! w) S: w* `7 d, z
#500=0.
$ j' ?$ ^( u# S1 ^- W% I0 hWHILE[#11GT0.]DO1
+ v* T0 E6 r6 ?* |#22=[#11/10.-FIX[#11/10.]]*10.& e2 I3 z' c# t3 u: t
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1., D% u& A/ s7 i0 N+ R
IF[#22 EQ 1.]GO3
3 J; F: q0 H9 hIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
" b+ Q7 Y! g6 F: D# ~  yIF[#22 EQ 2.]GO3
# D4 i/ K2 l- gIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4./ I2 z6 Q* F# a9 q' p; v. B
IF[#22 EQ 3.]GO31 _$ r; P7 w4 Y
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
7 ]4 q+ E* |4 l1 ^: E: lIF[#22 EQ 4.]GO3
6 M+ g7 B0 a, k% p#3000=1.(#1-MODE-ERROR), B$ O; e+ f: Q0 n6 t; d
N3 #11=FIX[#11/10.]
/ d3 h8 n# f& {" iEND1/ u! C) E! P2 ]0 Q2 v9 ~. @
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