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

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

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

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

×

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

#1=1234.
2 H9 p  I- j8 }; q#11=ABS[FIX[#1]]2 \, s0 ]0 j7 t( y
#500=0.
& j5 E% H( L  h0 w5 D' hWHILE[#11GT0.]DO1+ `9 ~2 L7 e; D; D, l; x
#22=[#11/10.-FIX[#11/10.]]*10.
! i' ^; j  `/ ^IF[#22 EQ 1.]TH #500=#500 OR 1.
+ A# d8 Y7 `4 x- g' tIF[#22 EQ 1.]GO38 u+ ^2 B  Y9 p& h  Q
IF[#22 EQ 2.]TH #500=#500 OR 2." Q. S" b/ K; Z) w, e9 c9 h6 q2 z
IF[#22 EQ 2.]GO3
1 K% n9 K6 M( TIF[#22 EQ 3.]TH #500=#500 OR 4.2 C% u$ y1 E- t7 ^& m, ?
IF[#22 EQ 3.]GO3! e' {% V; I$ W
IF[#22 EQ 4.]TH #500=#500 OR 8.% E0 `7 @/ {: K$ e+ D
IF[#22 EQ 4.]GO3$ z5 n( a/ q4 b: B6 b. B, P
#3000=1.(#1-MODE-ERROR)
) w6 M" d$ C, A1 h: ^1 NN3 #11=FIX[#11/10.]
) k- d- ]- t0 v+ T* |* j, h% uEND1) U$ Q$ p+ f* A9 _
M99
+ R- d1 }# W( e1 {$ G
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.( ]7 z; F  F- k* ]5 b, q3 r
#11=FIX[ABS[#1]]6 h! e( ?% k8 O- I, L; w/ t- C
#500=15.(全部装满，让下面逐一减去)! O3 j  ]& i3 {( A+ H; P
WHILE[#11GE1.]DO1" ~- k1 W8 p( i! a/ K, D: [
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
" c2 e! R, @) _7 qIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.1 O# H0 L" T: y# X
IF[#22 EQ 1.]GO3* n: t5 {# N  B0 S5 A& _1 c
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.6 \  q9 L) n* Y" y* N, B: k
IF[#22 EQ 2.]GO3' n" ^; Q/ N) r' l: [% Y( Q2 G
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
" [2 a  h- h, VIF[#22 EQ 3.]GO3
, {& ~- M$ S' c& W) E- ~* MIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
* B2 B- P4 M8 _" `2 j9 D  l) L( hIF[#22 EQ 4.]GO3
& G. r: e% L' o- p8 K#3000=1.(#1-MODE-ERROR)
, p7 h! S) Y" G0 w& I5 KN3 #11=FIX[#11*0.1]
# r' t* X) C1 W: v3 S# S) IEND1
' k; _$ L2 y; h% u" P/ vM99

#1=1234.. Y/ U/ x7 q* m$ x* u, X
#500=15.! s- L. Q# p( Q4 G; U& ]+ b+ s
#11=ABS[FIX[#1]]- H+ [  i) X- b2 ~) f" k' s
WHILE[#11GT0.]DO1
$ q2 ]" w4 q5 _% E6 B; z7 @#22=[#11/10.-FIX[#11/10.]]*10.
* z- H2 T  v- R& n' `IF[#22 - 1. EQ 0.]TH #500=#500 - 1.1 h0 H" a1 V/ c3 M! V
IF[#22 EQ 1.]GO3" L' R( J, R: X: t. V
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
2 P  [+ h% c  }4 F4 C7 KIF[#22 EQ 2.]GO3' ?3 Y3 {& z9 g& d2 [
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.  w1 j0 n3 ]3 `  K2 o
IF[#22 EQ 3.]GO3
: {. f3 U: b+ _  pIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
% r% @7 X- X: u! C+ B) u3 T# ~IF[#22 EQ 4.]GO3
/ l/ T/ h5 r2 d% E& e#3000=1.(#1-MODE-ERROR)' X, w; c& m1 P- j, [4 X
N3 #11=FIX[#11/10.]
# |  ~5 b( e4 K+ |8 V5 C6 a3 \END11 d4 l3 B- I# \# Q: R/ y
M99

#1=1234.. m5 l5 [% s# D+ T8 B' L
#11=ABS[FIX[#1]]
  V3 K, s! E  s7 i) [#500=0.  V3 R& d# ^8 J+ g' ]: q
WHILE[#11GT0.]DO1* c- P( Y+ m& ]) U6 F9 _
#22=[#11/10.-FIX[#11/10.]]*10.* Q' J8 m" i5 Y% p. n) p
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
2 J+ f9 _1 |5 H, U$ F  a( uIF[#22 EQ 1.]GO3
2 N8 E7 w: G6 w0 \* PIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.5 G" e, Z. Y3 I/ r; m$ H
IF[#22 EQ 2.]GO38 y9 W  C* _" F  N/ }
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4." K1 d4 V* z1 l8 e8 `
IF[#22 EQ 3.]GO3( a$ H# A" [" x# Q
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
" X7 j0 h- ^- fIF[#22 EQ 4.]GO31 m9 g" c0 B* D0 d7 t: Q
#3000=1.(#1-MODE-ERROR)
3 f" K  [1 c# _N3 #11=FIX[#11/10.]# |2 d' x% M( ]- |8 x
END1
6 |) J; X* A) N+ U0 X* WM99

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