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

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

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

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

×

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

#1=1234.
* i5 n( ]6 u8 J4 ~$ o#11=ABS[FIX[#1]]) P3 U! g3 Y! O! \5 ^; Y0 `
#500=0.6 W: J4 q) c- p: V( l' o4 z
WHILE[#11GT0.]DO1
6 t& ~) m1 M& B4 v0 w! [: Z' K- g#22=[#11/10.-FIX[#11/10.]]*10.
1 |1 v' x" x  CIF[#22 EQ 1.]TH #500=#500 OR 1.1 O1 \. D' B$ E1 Z
IF[#22 EQ 1.]GO3
# `* v6 j0 y9 V/ gIF[#22 EQ 2.]TH #500=#500 OR 2.) M8 c9 _( [) ~4 n9 x. c+ \
IF[#22 EQ 2.]GO3
8 E: h5 W. c! i7 Y( eIF[#22 EQ 3.]TH #500=#500 OR 4.
$ u0 l! i3 b9 n3 G! VIF[#22 EQ 3.]GO3" \, M( K8 u/ I" B9 a  a' ~
IF[#22 EQ 4.]TH #500=#500 OR 8.# w% K6 \4 g! y- U7 u, K; b
IF[#22 EQ 4.]GO3
  c1 S2 [9 G* D#3000=1.(#1-MODE-ERROR)8 z& Y6 `- H: L1 b+ V
N3 #11=FIX[#11/10.]
" N: E5 g, H' _* b4 P3 g" K$ ^% `END12 b' @- u; Z& g- K/ I" B
M99
+ S. r" @' ]- y
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.3 w2 g2 _, P9 E
#11=FIX[ABS[#1]]
* V  Y$ C  l) d; o' @#500=15.(全部装满，让下面逐一减去)
6 ]; h/ X# n) S  R4 Z/ d1 mWHILE[#11GE1.]DO1! L. t. B4 `* f8 ^
#22=[#11*0.1-FIX[#11*0.1]]*/0.11 N' ?5 n( r0 M" b
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
0 h9 C, Z3 u& \8 bIF[#22 EQ 1.]GO3
& z1 x+ k. r8 g9 V! x2 W2 XIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2." Y) P  R. b( U: O' d) Q2 {
IF[#22 EQ 2.]GO3
% S1 c) n1 _8 p) F4 E# e) h  mIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.5 m& H* K$ r0 u, m* s9 e8 G' U
IF[#22 EQ 3.]GO37 x5 t9 S2 G$ B3 K2 ~
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.$ y) n. a* C( G! H+ _7 g
IF[#22 EQ 4.]GO3  G' P! J3 H/ L$ H
#3000=1.(#1-MODE-ERROR)
# U! O& W9 P/ b4 A# EN3 #11=FIX[#11*0.1]
3 `5 E9 V. _0 c- z, }0 h; DEND1" [  T; J/ o4 Q% e- G+ X: @
M99

#1=1234.+ g0 N* ^. ^; |$ H/ |
#500=15.9 F) B. i  u# E" v
#11=ABS[FIX[#1]]
" y, W4 C5 a. U- \8 a4 u7 A$ E. tWHILE[#11GT0.]DO15 Z, {! d$ X$ H, t  e3 N
#22=[#11/10.-FIX[#11/10.]]*10.
7 T$ A5 @! h* e; @  T! _IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
" s) g0 k$ B/ }. S! g5 x" MIF[#22 EQ 1.]GO3' O) ^/ d5 W1 O5 _3 Y$ v5 J& V
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
; N! ]3 U% l; U6 d; e( C. |IF[#22 EQ 2.]GO3
# q9 _9 _4 w: q1 o  d; [IF[#22 - 3. EQ 0.]TH #500=#500 - 4." t! |; s# {1 |7 H# }
IF[#22 EQ 3.]GO3
& e) k* D. Z8 C8 l6 l* B* EIF[#22 - 4. EQ 0.]TH #500=#500 - 8.+ d& \- @" [: n' t+ T
IF[#22 EQ 4.]GO3
/ W% L) S; @) e#3000=1.(#1-MODE-ERROR)0 o- u  `* c, _4 v" c
N3 #11=FIX[#11/10.]' U) \& B% s* H# b) |: N
END16 e9 I7 j5 Z2 b5 q9 X2 N/ d: q
M99

#1=1234.$ W) Z: h8 [. j' C1 D% }& D; i
#11=ABS[FIX[#1]]) ^1 _; L' u3 A% I* s
#500=0.
, w! `7 S8 O& HWHILE[#11GT0.]DO17 T. F0 J) E# O' y! U- D: @
#22=[#11/10.-FIX[#11/10.]]*10.
, D6 C7 h$ D0 \1 a' PIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
' J9 L2 o$ o$ p' H9 @* WIF[#22 EQ 1.]GO3
' b" L% X- C$ @* h! \. v. FIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2./ R  K7 R( \/ T( i( z0 t
IF[#22 EQ 2.]GO3
- _- r+ ]" Q1 I( e/ XIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.! j& N+ F' z. C2 K; h+ N
IF[#22 EQ 3.]GO3
, i6 F3 F& ~, {4 y6 iIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
5 d0 ?$ n, M6 K  o. @+ B# lIF[#22 EQ 4.]GO3- b+ U" N! g$ Q% y. F) {
#3000=1.(#1-MODE-ERROR)
  R0 F% m5 s8 h; F5 J- Y% `* rN3 #11=FIX[#11/10.]
3 S! \9 Y. I, J6 k# r$ HEND1
, F. q6 X- G* q$ O( a% VM99

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