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

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

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

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

×

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

#1=1234.8 o( w6 j: a: Z& F
#11=ABS[FIX[#1]]
' N# F1 E; R8 x3 k* A* L. r- w- ~#500=0.
5 s1 @' H- e, _/ cWHILE[#11GT0.]DO1# @  G% o7 v" h
#22=[#11/10.-FIX[#11/10.]]*10.
' d6 p% {% n( |5 e* KIF[#22 EQ 1.]TH #500=#500 OR 1.8 Y# Y# ^, ?/ L0 m& m7 N
IF[#22 EQ 1.]GO3
7 z3 j- V6 V( r" NIF[#22 EQ 2.]TH #500=#500 OR 2.+ Q$ n5 m$ O0 Y$ l6 t: A1 b
IF[#22 EQ 2.]GO3( Y) R7 ?. X' z( O$ v
IF[#22 EQ 3.]TH #500=#500 OR 4.: C. d& w3 w' C
IF[#22 EQ 3.]GO3
  i4 C/ D; k7 ~, N1 y( VIF[#22 EQ 4.]TH #500=#500 OR 8.
2 q% |0 T4 L, y+ ^IF[#22 EQ 4.]GO3& N. [7 Y* x" f$ M+ N
#3000=1.(#1-MODE-ERROR), s; x6 k% \& e: z% a1 x1 T" X# Q
N3 #11=FIX[#11/10.]* J; ~5 `8 g6 z7 d4 e
END1- |/ X, s. X, l8 ~- L: C6 h
M99
4 A2 q2 P& Y5 t/ L  y! @! C
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.: j1 h& ~6 d6 o$ w
#11=FIX[ABS[#1]]
5 k$ n, p# E( z3 K* S9 I% W5 a/ ~#500=15.(全部装满，让下面逐一减去)
: F- R5 U* C- X4 BWHILE[#11GE1.]DO1
; g) C! b. H1 {0 m  Z#22=[#11*0.1-FIX[#11*0.1]]*/0.1
6 c0 i2 }. Q% OIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
- j/ n7 n$ i$ I9 @6 L4 WIF[#22 EQ 1.]GO3# d) [" B" E, i% n' P
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.5 {. n5 a+ Z, z
IF[#22 EQ 2.]GO3
0 Q! x6 `$ p: W5 X3 ?IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.8 R! P  W. T" H5 m% E
IF[#22 EQ 3.]GO3
8 b9 W- Z3 q" I. mIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
" r6 L/ u. i" E1 ?7 U! [1 Q' yIF[#22 EQ 4.]GO3
) W' h4 I" N8 P: k9 W1 r; \, g#3000=1.(#1-MODE-ERROR). v! N& x) a$ z( ?$ D" c. o$ ]
N3 #11=FIX[#11*0.1]
6 _  m+ P5 C' q# Y( XEND14 h5 Z7 ^) B. B5 p5 H0 p, m2 p
M99

#1=1234./ u/ T6 G( Y3 _1 X
#500=15.- l- S- @8 h+ a5 C% o: c
#11=ABS[FIX[#1]]1 K" I! N; \0 z$ s- D% X
WHILE[#11GT0.]DO1. A0 B4 ]) s# N- R4 m% Z5 C
#22=[#11/10.-FIX[#11/10.]]*10.: \1 M; J! i1 U; i, r) s. K
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.3 x$ F2 F5 N2 e
IF[#22 EQ 1.]GO3
# }1 U& j7 B3 h* ?: a7 H: \1 `# m  rIF[#22 - 2. EQ 0.]TH #500=#500 - 2.5 V8 y% d1 L8 x
IF[#22 EQ 2.]GO3
2 |' P/ _7 K% @( E0 |  f0 JIF[#22 - 3. EQ 0.]TH #500=#500 - 4.* N2 W& K4 ~( J
IF[#22 EQ 3.]GO3: a5 K- ?- k7 Z" h+ r. z
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.0 c) @. i. k3 |! L/ O+ l4 V
IF[#22 EQ 4.]GO32 k) o* F2 {3 E1 q. e
#3000=1.(#1-MODE-ERROR)
6 I2 U4 L+ q* B! LN3 #11=FIX[#11/10.]& `3 }# {& T8 h( \0 o; Z# s* b& {
END1
* D! q/ m- m* v: ^- ?( I' mM99

#1=1234.
: ?' r+ w! n# K/ T. x' h# P#11=ABS[FIX[#1]]
! u3 C7 z& d+ R! A/ H; T' u#500=0.' h% j8 n: H& K5 P
WHILE[#11GT0.]DO1
" |* ^( h, _, W: e; i#22=[#11/10.-FIX[#11/10.]]*10.
5 ~! O5 c. A0 s7 D( h) V5 AIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
2 `2 a' O. Y- R! jIF[#22 EQ 1.]GO3
( N/ T% X" v9 Y- p" u" i# O7 fIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.6 }0 Q; K; ^$ C/ N9 |0 q
IF[#22 EQ 2.]GO3
. O5 M: U0 Z4 e1 W2 mIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.( x! c6 H- c0 u, g# f
IF[#22 EQ 3.]GO35 J: C# ~4 u5 {/ X0 O
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
' ^  |2 a7 y; }6 I; d; ?% uIF[#22 EQ 4.]GO3
7 L8 J' Z, ~+ d" w: C#3000=1.(#1-MODE-ERROR)) x" t7 o4 q: B; U" w, l( x7 g
N3 #11=FIX[#11/10.]3 y2 q/ |0 {" w
END1! b4 @/ H) D4 m' h' Z2 G2 o
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