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

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

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

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

×

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

#1=1234.- {! y, ?9 Z. I( O
#11=ABS[FIX[#1]]
8 N  a5 _4 }- Y0 D#500=0.
0 K! @% B% I0 fWHILE[#11GT0.]DO13 V  J7 m; ?2 b4 c
#22=[#11/10.-FIX[#11/10.]]*10.) E1 F, M4 H" |
IF[#22 EQ 1.]TH #500=#500 OR 1.2 Q4 v6 T& e+ g3 \
IF[#22 EQ 1.]GO3
5 p1 w! I* j* `* h" rIF[#22 EQ 2.]TH #500=#500 OR 2.( N& c( I  w0 `% N0 d0 L1 h3 {
IF[#22 EQ 2.]GO3( ^9 e2 j; L8 _: M% ?1 l) I
IF[#22 EQ 3.]TH #500=#500 OR 4.8 P' b) X% V% o( \2 J+ Z6 v
IF[#22 EQ 3.]GO32 L0 \! [/ J+ @! R6 u' ]" H
IF[#22 EQ 4.]TH #500=#500 OR 8.
2 b% n& _6 L7 K. P5 m5 F" lIF[#22 EQ 4.]GO3. f+ I* a, j8 g- [& a: c2 i% v
#3000=1.(#1-MODE-ERROR)6 J* P  G+ a8 t- [! g2 g4 i
N3 #11=FIX[#11/10.]" _. j$ V+ O  R! p
END16 M* p" @) P* I5 C! ]
M99( k- T: a2 ?% i0 i

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

#1=1234.# b9 w' U# Z$ L2 \
#11=FIX[ABS[#1]]
# w, C* }6 Z5 P) B' l#500=15.(全部装满，让下面逐一减去)
$ M& d# _5 h* R! n: QWHILE[#11GE1.]DO1
#22=[#11*0.1-FIX[#11*0.1]]*/0.1% [( H( y% u, E/ e( D$ z* [8 I% E
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.3 ?& L8 `- ?' ^6 }" U1 w, ]! z6 j3 v
IF[#22 EQ 1.]GO3  l' ?, `1 ~  p' @  j
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.# q/ n, \2 _9 h" z9 v
IF[#22 EQ 2.]GO3
6 t& \3 x9 s4 v- }) wIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.4 m+ ]8 l( p4 w0 \
IF[#22 EQ 3.]GO3$ @, R& [% [& v4 q
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.. h' ?' w. C8 A4 l) F# f
IF[#22 EQ 4.]GO3
* f* V+ D- ^! w5 Q6 S; X#3000=1.(#1-MODE-ERROR)& [# b! V7 c( |2 m# z: }, {3 M( A
N3 #11=FIX[#11*0.1]
0 W- A( S5 }9 v1 {, ~END1
- O0 Q4 E& A% d# V% D( YM99

#1=1234.- g% A% `- _) Q5 ^' U$ Y
#500=15.5 x$ D( g1 y9 T1 o
#11=ABS[FIX[#1]]
( Y( e/ i9 f# ^4 |9 |WHILE[#11GT0.]DO1
#22=[#11/10.-FIX[#11/10.]]*10.
1 v- `5 K& D! l+ I3 [IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
& [8 w* A& ?. z& OIF[#22 EQ 1.]GO31 [9 b. ^' P$ I
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.2 A& ?' z  W3 G& ~; {, b; t
IF[#22 EQ 2.]GO34 C) N: m8 g+ {% s4 T0 f5 Z
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
9 l" V1 v: J( Z5 _IF[#22 EQ 3.]GO35 ~8 o1 [5 u1 T
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.' I) }8 Q6 n( D) Z! ~0 m
IF[#22 EQ 4.]GO38 l$ I1 p0 O; A% {6 H
#3000=1.(#1-MODE-ERROR)2 G. E8 E* d, Q$ X% P% |
N3 #11=FIX[#11/10.]
( s# C/ U# I5 L# O* M' \6 r6 m5 nEND1
" S3 U5 e% r# |. @" uM99

#1=1234.
1 B3 Y) L$ s  Y7 B, C5 c#11=ABS[FIX[#1]]
+ o1 K0 a" e. ^/ Q* V) [, ?' a#500=0.
% [- T8 k6 ]$ i/ k1 ^0 ^WHILE[#11GT0.]DO1
6 s& x. c2 |7 w, ^. q1 B#22=[#11/10.-FIX[#11/10.]]*10.
( a" g7 R# V! ^IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.# S( _* N) y8 T; S- f
IF[#22 EQ 1.]GO3+ v$ m1 n1 E! n# \! s/ h
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
/ V8 U3 \$ }( ~IF[#22 EQ 2.]GO3, p$ N1 f/ ^7 o) M& p
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.2 R6 i6 l/ V9 F5 S, k7 q7 T1 M  _
IF[#22 EQ 3.]GO3
! r% [: v$ |4 f1 DIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
0 F/ n6 u) }+ d- |$ J$ O8 FIF[#22 EQ 4.]GO36 w: H- O) t; U- Z- U7 R5 ~6 D
#3000=1.(#1-MODE-ERROR)
0 p5 [8 p7 s% i; h& O1 kN3 #11=FIX[#11/10.]
% o; ~# I6 I. G' lEND1
# \7 |1 R$ H* H8 tM99

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