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

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

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

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

×

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

#1=1234.- o7 N9 L7 }7 L' |
#11=ABS[FIX[#1]]
$ D, p0 j7 H, m& ?. m. e#500=0.; p/ j: ~* w) d& S" h/ B0 T6 ]
WHILE[#11GT0.]DO1
6 \: D! B" i6 l( j( }8 v, J#22=[#11/10.-FIX[#11/10.]]*10.' e* O8 m" U! n, {! R
IF[#22 EQ 1.]TH #500=#500 OR 1.- u  ?7 e; `8 R( @
IF[#22 EQ 1.]GO3
" J8 R# g% U* e: e5 KIF[#22 EQ 2.]TH #500=#500 OR 2.* s) i% ^0 W5 z- c' {8 S0 L
IF[#22 EQ 2.]GO3% e( {( r- T- r$ s
IF[#22 EQ 3.]TH #500=#500 OR 4.$ o0 N4 \: J' S' V" C% M. s: a
IF[#22 EQ 3.]GO3$ w$ i& r& B% H! Y+ ]) X6 O: E
IF[#22 EQ 4.]TH #500=#500 OR 8.
) C; p' T* P3 P; J7 PIF[#22 EQ 4.]GO3
1 L: v3 Z( _% t0 D#3000=1.(#1-MODE-ERROR)/ X) A! ]" C! x* H, j, t: `- t
N3 #11=FIX[#11/10.]
5 {2 x" ?  v) ^END1. X" _$ r* c# L; w+ V' O
M99
& \$ h" A  a, o. y
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.: n2 q( M9 n! l/ ^- A+ ?1 c
#11=FIX[ABS[#1]]
6 H/ s' ]! t1 ?#500=15.(全部装满，让下面逐一减去)
7 C/ N+ J7 e6 a. Q; _WHILE[#11GE1.]DO1" c+ v4 ?9 q# ~
#22=[#11*0.1-FIX[#11*0.1]]*/0.16 G3 H( Y+ o. n' m9 v! @4 E8 N, e
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.5 j; K. t, O! P% V$ R
IF[#22 EQ 1.]GO3. {3 s! A. g% r( x1 ?% \
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
  E7 Y% m1 K* O6 X0 [IF[#22 EQ 2.]GO3# A5 @$ r  F% Q- E- X) f
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.# c# Q( e5 k+ R' I: U1 y5 y* o' l
IF[#22 EQ 3.]GO39 W6 }2 `7 j: R7 ]: V
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
6 G9 d, x" X% P4 z  X. qIF[#22 EQ 4.]GO3, K1 N- {: U' F; i  _/ }3 K
#3000=1.(#1-MODE-ERROR)
: R2 J1 k: Z9 A: ^* lN3 #11=FIX[#11*0.1]
7 [: c5 B% [/ ^# e/ a* sEND10 o6 k! R7 C( M# z5 B
M99

#1=1234.* V4 h) O2 h8 U* W$ W/ n& X7 g9 {
#500=15.6 w) A4 ^: ~9 c$ H; x8 t
#11=ABS[FIX[#1]]
1 m1 Y- c; }: }+ B* AWHILE[#11GT0.]DO1' e  Q2 E9 A6 i4 L
#22=[#11/10.-FIX[#11/10.]]*10.* N. ^* @6 E* w
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.: O1 y# u9 M$ ~7 J" g
IF[#22 EQ 1.]GO3
: j! g5 s. z! \* NIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
: M! s$ o3 h% R: T. cIF[#22 EQ 2.]GO3
+ Z# e9 V7 k$ Y0 F+ ^6 E2 z7 nIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
! w' F" U5 D) ~# C: I' E1 CIF[#22 EQ 3.]GO38 f! Z* l4 n* H% |
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.5 {  g5 Z+ t* {, _. D
IF[#22 EQ 4.]GO3
* f( \% M. x% ~5 o#3000=1.(#1-MODE-ERROR)
2 r' n% Y2 `" Y7 v: B  G" cN3 #11=FIX[#11/10.]
' @1 z8 h) d9 ?* U+ T2 xEND1/ E& Z; h: n6 Z+ B# U' L
M99

#1=1234.; f" p1 T: n8 @, D% S. S7 e
#11=ABS[FIX[#1]]# W6 g5 N4 g  m3 C! e3 Z
#500=0.+ m$ u! z  M% n4 p6 P& H& B
WHILE[#11GT0.]DO15 F( U. F, _: G4 E
#22=[#11/10.-FIX[#11/10.]]*10.
" \/ R8 `# @* x9 VIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
  m5 T6 h3 ]+ M, v( v% o$ t4 y/ cIF[#22 EQ 1.]GO3
, e. E0 n) U! X8 u) cIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
+ G' A( @5 k; l/ MIF[#22 EQ 2.]GO3
! V1 k: T/ @$ s) p" BIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.3 {: b3 W( E. t9 |
IF[#22 EQ 3.]GO3
; I6 O( x! K. K9 e- ZIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
' A9 T, }6 Z) {0 I' v2 o" C$ |IF[#22 EQ 4.]GO32 L4 L! k# f; K, l2 G+ j
#3000=1.(#1-MODE-ERROR)" w. b4 g1 ^0 G" m
N3 #11=FIX[#11/10.]) [; {- O+ |8 h" H& L$ d- G9 G" B1 M
END1
0 A/ l  r! j) mM99

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