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

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

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

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

×

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

#1=1234.: t. [* x( m+ ^/ I" i
#11=ABS[FIX[#1]]
* r' o! K+ `* w  T$ w8 h/ [#500=0., H  C- y: Z, @: w
WHILE[#11GT0.]DO1
, {* |6 T& `5 O) M& h#22=[#11/10.-FIX[#11/10.]]*10.5 I* h2 p# J2 t4 {- T0 b( Z/ I
IF[#22 EQ 1.]TH #500=#500 OR 1.
" F- r0 O% M3 `2 \& q* b% ~IF[#22 EQ 1.]GO33 q  X; D9 |/ n) g7 b! J8 ~
IF[#22 EQ 2.]TH #500=#500 OR 2.
  \8 Q8 ?( N7 WIF[#22 EQ 2.]GO3" }+ w2 A, a1 `8 p) |
IF[#22 EQ 3.]TH #500=#500 OR 4.
1 e' E$ ?% y1 U* G3 c/ U( VIF[#22 EQ 3.]GO3
& _/ E4 e6 q. K3 B" TIF[#22 EQ 4.]TH #500=#500 OR 8.
* O, ]1 E* ?% q6 S, XIF[#22 EQ 4.]GO3. p# u  w. Q7 p- K+ z' W$ U
#3000=1.(#1-MODE-ERROR)
' K+ b4 A5 x$ C* [N3 #11=FIX[#11/10.]
/ N  I! A% e5 O" h) EEND1( g& q: ~2 _, [, K- ]3 N
M995 N/ w3 M/ e- z, U8 O6 [1 h+ o  A

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

#1=1234.4 _4 q; {9 x0 q
#11=FIX[ABS[#1]]
! l) Z3 L; ~4 j8 {. m#500=15.(全部装满，让下面逐一减去)+ ~5 G. V. H& t. X9 K
WHILE[#11GE1.]DO1* y+ b0 e: [9 u
#22=[#11*0.1-FIX[#11*0.1]]*/0.12 P  G) [  E! \7 A0 x$ l4 O
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.( E; f. `; t3 }7 ?$ ~, Y
IF[#22 EQ 1.]GO3* |0 q7 z: K2 T% r
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.3 E! S! m& ?2 }+ a1 J
IF[#22 EQ 2.]GO3# j3 R& r7 y- R+ V+ s
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.! u1 G( K  ]7 l- o
IF[#22 EQ 3.]GO3
* T& F+ y" Y+ E6 ]8 aIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.: }6 {( u  h9 I/ m6 }
IF[#22 EQ 4.]GO3& C, i. z$ u' u; ?5 h3 F
#3000=1.(#1-MODE-ERROR)9 x9 q( B$ S7 o3 k; i; X3 z
N3 #11=FIX[#11*0.1]
- X6 n% |; O" ?2 h% i, EEND12 n& ]6 s# P- w( n2 c1 u$ @
M99

#1=1234.
( @& y/ X, }% b. {% \6 x) }( s#500=15.
6 a  d( ?5 M- Y) z+ X#11=ABS[FIX[#1]]0 t% J% E; f, m# W+ B( E; Q
WHILE[#11GT0.]DO1
5 D6 o6 `  _( I% b( c1 O: r/ h#22=[#11/10.-FIX[#11/10.]]*10.* W" _* D; y, \- ^0 i, y) z
IF[#22 - 1. EQ 0.]TH #500=#500 - 1., }5 n( s8 M1 A; o2 s
IF[#22 EQ 1.]GO3, `- q% G/ ^5 ~1 ?, G) ~7 v
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.' ]9 |8 r& t( Q' Y' x; c
IF[#22 EQ 2.]GO3
, T9 S+ }$ `8 q5 m9 f- {IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
" o5 X- c$ T1 dIF[#22 EQ 3.]GO3
( E; ^3 `0 Z3 _4 cIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
* W4 V6 P1 ]' D- ^, zIF[#22 EQ 4.]GO3
2 C0 D" S, c1 P; q4 R! W1 Z( N#3000=1.(#1-MODE-ERROR)7 p! j# w# _2 F! [* U8 m0 A
N3 #11=FIX[#11/10.]4 u! N) H! Z/ o  B) k; ^
END1
, L# w# @+ e# T/ s% \: zM99

#1=1234.! m0 n) J0 z2 l1 ~+ a; b; \
#11=ABS[FIX[#1]]
/ G5 U2 Z$ b) n& j( _: b! \#500=0.
+ d; C4 E1 g5 {WHILE[#11GT0.]DO1: s4 ]. v! b+ Y! @! n3 ]. ~) c* o' L
#22=[#11/10.-FIX[#11/10.]]*10.. y7 _  o5 R- C* y/ R
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
% A2 I% [& ]2 o; wIF[#22 EQ 1.]GO3
+ x7 u  r. T. ]IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
+ F2 D0 b( y/ HIF[#22 EQ 2.]GO3  M2 O% G+ D2 C# m! Z  o* k
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4./ ?' a" N# B2 U4 v" R
IF[#22 EQ 3.]GO35 v6 ^& W4 I- ^& K, m) T$ c+ H
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
/ f% k; i1 Y5 W8 ]) i) Z1 {( C. iIF[#22 EQ 4.]GO3
; S5 {6 B) ]4 }7 N4 L8 }( R8 V#3000=1.(#1-MODE-ERROR)
6 n3 R. R3 g- U* ~( ~2 Z  ~2 k, NN3 #11=FIX[#11/10.]
8 e: ]0 Q3 g) VEND1$ U2 J, F% ]$ j
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