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

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

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

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

×

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

#1=1234.3 c/ ]9 X* F/ f0 ?" J: T6 f
#11=ABS[FIX[#1]]  w# Y! M( E! D
#500=0.4 g3 f' o2 M5 C# M" ?! t& j
WHILE[#11GT0.]DO14 E% N# t& Y" v/ ?, g  o: B
#22=[#11/10.-FIX[#11/10.]]*10.- ^7 q+ \4 p  P% e
IF[#22 EQ 1.]TH #500=#500 OR 1.
+ \9 l% _" i8 n% l2 F  tIF[#22 EQ 1.]GO3
+ T8 f7 P5 Z  ^9 HIF[#22 EQ 2.]TH #500=#500 OR 2.. `' V, _8 p7 X" T5 P& d2 n' T
IF[#22 EQ 2.]GO3* A- z. E5 ]6 T2 `" j/ N+ |7 p
IF[#22 EQ 3.]TH #500=#500 OR 4.& d! V7 K. X; e' @( M
IF[#22 EQ 3.]GO3
! J7 d8 ]5 r% v# o0 }IF[#22 EQ 4.]TH #500=#500 OR 8.
! g% n- v& f/ d9 IIF[#22 EQ 4.]GO3
7 e3 M- ^- z9 M$ v#3000=1.(#1-MODE-ERROR)+ d/ F2 [, G% F+ R+ z  v: c  y
N3 #11=FIX[#11/10.]
" [4 T2 h7 e3 y5 e% s7 \8 B; ~, BEND1
3 @, D1 ]* o, V! B8 ?! N7 l7 R# aM99, ?& h" o% ^/ K

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

#1=1234.9 a5 R4 x; e# ~+ _, O
#11=FIX[ABS[#1]]
1 u# z" C8 n- i; c#500=15.(全部装满，让下面逐一减去)) N" I$ ^6 X4 w5 Q. {2 N
WHILE[#11GE1.]DO1# e: `4 {. n9 z
#22=[#11*0.1-FIX[#11*0.1]]*/0.1. E* X+ I: h1 i' {" v" c5 ^
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
+ @1 b8 O, E8 dIF[#22 EQ 1.]GO33 |" w( h  a5 H6 X
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
! n2 r! @$ x+ Q! nIF[#22 EQ 2.]GO3
& `  w$ u4 F# p$ S) q0 CIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
- q& R1 d' F- R* XIF[#22 EQ 3.]GO3
8 o2 A2 m5 J' k7 \- [/ n0 d! o# [IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
) _& V8 i6 N  d% g" TIF[#22 EQ 4.]GO3$ k, C4 w/ L8 l7 y* b( L, t
#3000=1.(#1-MODE-ERROR)
5 O3 z7 J1 t( P* n/ ~* wN3 #11=FIX[#11*0.1]
. w% X  s9 P6 e! ^4 o, t- NEND10 x/ E) e: S5 _4 t8 @$ r+ l
M99

#1=1234.
) Z  o/ f) ~5 V9 \3 i- m#500=15.
$ _6 [& g. W8 W# k9 J#11=ABS[FIX[#1]]" j( e# J, D* R" e4 r
WHILE[#11GT0.]DO1& \7 v+ y6 q4 v) x6 n
#22=[#11/10.-FIX[#11/10.]]*10.0 ?4 ~0 d, P* P
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
7 F, y2 M: E9 l& J) R# x0 wIF[#22 EQ 1.]GO3
# O; _! ~' R( W* n4 @; I  PIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
5 k* O: h/ W; K( x$ F- gIF[#22 EQ 2.]GO3  E9 k5 B6 D2 K4 \6 @
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.. f2 c% h8 E0 O- K% ~( f4 G: J1 d2 P( b
IF[#22 EQ 3.]GO3
! e0 h9 E3 u- ?4 F9 L/ sIF[#22 - 4. EQ 0.]TH #500=#500 - 8.. }7 f3 F7 P& w; N9 Z+ O2 ^) Y
IF[#22 EQ 4.]GO3
' Q2 S6 F' p1 [#3000=1.(#1-MODE-ERROR)
! g- T% H( p  F3 s8 n, j% ]N3 #11=FIX[#11/10.]' C+ b8 S) o; o, @: z) Y$ R8 E
END1
7 n: N7 g8 Y6 B& c3 P: ~M99

#1=1234.3 {9 B8 j% Z; D
#11=ABS[FIX[#1]]
' @" z! t& A; T. N1 n: y#500=0.
+ y6 f6 H( e0 c- _2 q9 JWHILE[#11GT0.]DO1
; u4 |, B# F  Y- Q3 t* N/ m#22=[#11/10.-FIX[#11/10.]]*10.! d% h4 r+ J4 U
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
  s  O  u% }3 k  PIF[#22 EQ 1.]GO3! R2 M  @# I0 G% t7 x! i) h
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
- A2 P8 E) o: `6 YIF[#22 EQ 2.]GO3& u3 |9 S0 Z# H0 ^
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
2 U" H7 c( {2 P! {$ _IF[#22 EQ 3.]GO3' x+ U' V2 F8 h5 j% M5 G1 ]! D
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.' A( ^) c5 _" O$ z8 L
IF[#22 EQ 4.]GO3
4 X# x5 C2 d8 Y+ j# d6 F8 x#3000=1.(#1-MODE-ERROR)5 \+ }8 ]4 I. o' h0 y
N3 #11=FIX[#11/10.]. X& ]5 H% w8 G. b( f- o* |
END1
5 g' k/ O& ]7 BM99

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