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

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

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

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

×

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

#1=1234.
; A. x" e% _2 I; h4 U% x  b#11=ABS[FIX[#1]]4 V3 @" q8 C# B6 P7 ^8 m! ^
#500=0.  U/ I' Q7 H0 d9 S' r4 x* O
WHILE[#11GT0.]DO1
4 ~6 s; d0 y5 ^' ^1 w7 ~% C: D#22=[#11/10.-FIX[#11/10.]]*10.
+ }0 w/ q3 y/ G. ?IF[#22 EQ 1.]TH #500=#500 OR 1.$ \% b6 ?/ a. A5 l3 }5 q
IF[#22 EQ 1.]GO3; a/ O! t; P' I% r1 j% E) S. ^
IF[#22 EQ 2.]TH #500=#500 OR 2.
% A% Y& G; ~$ y4 s* LIF[#22 EQ 2.]GO32 S' q/ ^- ^2 Q0 R2 L& N4 z* P/ Y: k
IF[#22 EQ 3.]TH #500=#500 OR 4.
9 G7 s3 I" I$ R( \$ r: b1 kIF[#22 EQ 3.]GO3
! A6 L* n, P/ e* \) I; m3 EIF[#22 EQ 4.]TH #500=#500 OR 8.$ Z( F- |% ]6 H+ x. L$ E) G8 I
IF[#22 EQ 4.]GO3
6 }" @$ C1 U8 V#3000=1.(#1-MODE-ERROR)
0 Z% x7 ^5 I! _" F+ ]5 {N3 #11=FIX[#11/10.]+ i$ p) f/ u. f& Z, r0 d" A' z# `* D
END1
9 S1 N  b. g, O/ o$ C& I; CM99/ f+ l( i0 ~9 y! b

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

#1=1234.5 ?2 {' A% w, e
#11=FIX[ABS[#1]]
, d% L% f& Z- y#500=15.(全部装满，让下面逐一减去)9 Y- x2 U; H; ?% c  _( |$ e
WHILE[#11GE1.]DO1
6 l0 z, r% B6 U) O) C#22=[#11*0.1-FIX[#11*0.1]]*/0.1' ^+ M7 A+ x8 J9 S
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.& b) [0 @# z# e! G9 w* Z: J; V1 v4 x" J
IF[#22 EQ 1.]GO3) G) Q( v+ k3 x, ^
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.. @1 [; B9 @4 ~9 ?% S" b7 u
IF[#22 EQ 2.]GO3
) |! z2 Y6 ], }  c, m4 P8 Y' aIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
6 o- _6 k1 x; SIF[#22 EQ 3.]GO3
! X2 h/ d+ [! n$ ~/ QIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.2 G8 f1 O5 F/ ~4 Y1 Q
IF[#22 EQ 4.]GO3
% l2 e5 t8 _3 z1 o; S#3000=1.(#1-MODE-ERROR)
( E0 r' Z( t8 \N3 #11=FIX[#11*0.1]
: }8 K! a+ s& [3 Y9 v+ NEND1( v! j6 O$ N! {* f8 y/ I( n
M99

#1=1234.
; w7 v& F! e9 f, ^8 I/ N6 D#500=15.. B% X; p: S2 T3 u
#11=ABS[FIX[#1]]
  W  ]! h! K9 r. |WHILE[#11GT0.]DO1
! h. ?4 ^' m/ ]* g) T9 I" I#22=[#11/10.-FIX[#11/10.]]*10.
$ I) y* d- b$ B2 U2 \: C& }IF[#22 - 1. EQ 0.]TH #500=#500 - 1., m! v  _* n& X2 p9 p  P
IF[#22 EQ 1.]GO35 C% I' x" v' Y
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.9 l, n1 N9 ]8 i! M7 O
IF[#22 EQ 2.]GO37 t9 j$ T# f$ \5 M
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.; z2 F: `: I' Z) b  t: W2 n
IF[#22 EQ 3.]GO3. ^! }+ L) [/ y' A+ W+ o% ?0 @
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
1 S2 w0 N( d6 C- c# V& D5 v2 rIF[#22 EQ 4.]GO3
1 P; K0 `% p6 G. U5 D9 B( |7 i#3000=1.(#1-MODE-ERROR)
0 t2 W! j& X8 XN3 #11=FIX[#11/10.]. E3 [4 w( w  r, T% J& \! M
END1" `( R0 C+ t- v4 Y
M99

#1=1234.3 J  ]# Q: q# Q  i( i/ `& ~
#11=ABS[FIX[#1]]; L6 L0 |) x. x8 ~9 ]) ]9 n" O
#500=0.
6 ?9 b; b# o. }  G! d5 T( ^WHILE[#11GT0.]DO17 v& D/ _4 V/ ?! q
#22=[#11/10.-FIX[#11/10.]]*10.& x! H1 Q( t6 g) ]3 c7 w
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
2 ^: o( ?+ o4 [3 d; e5 d( \IF[#22 EQ 1.]GO3
0 Y8 W. C# O$ a5 W7 E+ LIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.* ?2 Z& d) _; }/ u) l8 C# ]
IF[#22 EQ 2.]GO3( M0 s' H. u, I! h( }2 C! R+ h
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
. T+ Y# m- F% i, g- V  v2 L  TIF[#22 EQ 3.]GO3
" a4 L& ~9 E/ \9 i) YIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
- z) o1 I% n8 u9 [IF[#22 EQ 4.]GO3
. I: k5 k$ q! Y#3000=1.(#1-MODE-ERROR)
6 K4 f. ?  b9 B6 ^% i( T( {N3 #11=FIX[#11/10.]
+ W& x% X7 N$ q3 \+ }$ ?' I; cEND1
6 Z6 }) Y& a  i8 N) M0 l* DM99

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