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

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

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

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

×

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

#1=1234.
! {* e0 N1 I: ^) [' Y! c* B#11=ABS[FIX[#1]]
) N) M3 q) v. ^# |4 ^#500=0.) q. H5 n( `% X: i+ B
WHILE[#11GT0.]DO1/ J+ C# @4 t+ L2 D$ u' I' a) `( s
#22=[#11/10.-FIX[#11/10.]]*10.
0 P; E, |# e, g7 u* y3 H, ^) gIF[#22 EQ 1.]TH #500=#500 OR 1.
% k6 d3 U9 ]/ U# F. n/ ]1 \, m# ?IF[#22 EQ 1.]GO38 `" ^3 Y- |) z) l  ~
IF[#22 EQ 2.]TH #500=#500 OR 2.8 ^" S6 L. U' o! v- y
IF[#22 EQ 2.]GO3, u  L/ e: d- h  r( ?7 `
IF[#22 EQ 3.]TH #500=#500 OR 4.+ w! O. F$ C! F: X
IF[#22 EQ 3.]GO3
' r, k" C  W1 D* qIF[#22 EQ 4.]TH #500=#500 OR 8.& O* Y, ^' G- E5 o( G& ^
IF[#22 EQ 4.]GO3; k* U! d, D3 C9 i  [9 r: R8 G
#3000=1.(#1-MODE-ERROR)' D2 F9 I4 o3 g  \4 `3 C* g
N3 #11=FIX[#11/10.]
# G# t, ?/ [8 n$ y7 xEND1
2 _" B8 E& y6 D1 K, u; l. PM994 e% p7 n) \) ], \' o) n4 g+ d

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

#1=1234.
* \8 j4 B# V7 n$ u#11=FIX[ABS[#1]]
) {' z& O( z$ f0 E1 l# k* W#500=15.(全部装满，让下面逐一减去)
8 M9 O. ^7 D. F0 _( S- ^: j7 HWHILE[#11GE1.]DO1
4 [& r( ^7 m& w+ a8 c, r3 W#22=[#11*0.1-FIX[#11*0.1]]*/0.1" v7 O, x5 O6 e  ~; p; d- q
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
. {! w+ g2 c& V' T9 n  B/ BIF[#22 EQ 1.]GO33 t# L3 Z2 g! ]8 }' v( o: Z
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.# f" H; p! E! }# q/ e$ ~
IF[#22 EQ 2.]GO3% }- \8 I1 p6 [1 v: z; }
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
& e+ e- L+ A9 ~0 q7 pIF[#22 EQ 3.]GO3
7 ^( J( t9 ~! H3 F4 E# W! R9 MIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8." j0 }" s% [6 U* [
IF[#22 EQ 4.]GO3! b! e" p% c' R" m' T! ^
#3000=1.(#1-MODE-ERROR)  c- P! r( Z7 Z( c. S& W( y* w$ r! X
N3 #11=FIX[#11*0.1]8 }! L3 e& n+ V, T* c
END1
. _# N1 Y( k$ ?M99

#1=1234.0 @1 Z/ ?$ ^5 F4 Z) l
#500=15.0 K. J! S7 l6 R% X0 b  H% p; U
#11=ABS[FIX[#1]]4 [9 u" b. E$ f) T5 C* g% C, t" j
WHILE[#11GT0.]DO1
+ f( b' p6 z" g3 j) I) |#22=[#11/10.-FIX[#11/10.]]*10.
7 Q' H8 i0 d' e0 ~/ ^( bIF[#22 - 1. EQ 0.]TH #500=#500 - 1.  ]5 h- a8 O& \9 _. k: e" d
IF[#22 EQ 1.]GO3
6 ^2 _# z$ K1 n6 aIF[#22 - 2. EQ 0.]TH #500=#500 - 2.: o# E( }9 Q7 D) p
IF[#22 EQ 2.]GO3, U2 ^: D8 L( s' J
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.! D; _! ^: C6 c
IF[#22 EQ 3.]GO3. m$ O1 F+ X$ C2 x6 {/ X+ ~
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
8 j2 N, H# q& t: p. H1 BIF[#22 EQ 4.]GO3
! i0 x) s9 v+ y; p0 u+ l#3000=1.(#1-MODE-ERROR)+ S9 s& z; |4 \, C3 x! |! M
N3 #11=FIX[#11/10.]# j+ y9 R( ~! R/ c# A( j# [6 O
END12 ]5 q5 }. s3 W9 \; C: ~% }. k0 [
M99

#1=1234.
1 X  {, D* z/ s" B" |#11=ABS[FIX[#1]]. v  x' H/ ~& ]( D8 W- |; _
#500=0.  |/ \1 W. o0 a
WHILE[#11GT0.]DO1
% B* t( @# R3 Y+ G#22=[#11/10.-FIX[#11/10.]]*10.
# W) ^. d7 e. V+ w& TIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
0 t* l! @4 _$ M- RIF[#22 EQ 1.]GO3
9 Y7 c- R: ~# R" IIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.4 A- W  D! I0 R
IF[#22 EQ 2.]GO3$ W# s5 @4 Z4 f" a; Q* ?  u# T
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
  c* f0 G" P1 x. M! }9 lIF[#22 EQ 3.]GO34 T" O$ k. a+ D
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
. u2 Q6 M& n  AIF[#22 EQ 4.]GO3
: G$ [3 R0 O) T2 A& q# d& c! }& y#3000=1.(#1-MODE-ERROR)1 h7 L& e1 K9 b9 B/ s
N3 #11=FIX[#11/10.]
2 z  \: q; j! uEND14 y0 ~' ^+ j( Y5 t
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