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

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

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

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

×

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

#1=1234.
# S" j" U1 t1 J$ F: l#11=ABS[FIX[#1]]
& e( G# y& t5 z- C3 E#500=0.9 t, F' w" U$ K  K% j
WHILE[#11GT0.]DO18 \1 X, |! _. ~" y- R7 ]$ C4 w
#22=[#11/10.-FIX[#11/10.]]*10.) G2 O2 N" G! E9 ]! s
IF[#22 EQ 1.]TH #500=#500 OR 1.
- K+ \! [9 \8 ^( M( kIF[#22 EQ 1.]GO3
  }2 W/ o& M+ x1 l1 K. W! d" oIF[#22 EQ 2.]TH #500=#500 OR 2.: U. h: I6 T! v* F+ Z5 n% N2 W
IF[#22 EQ 2.]GO3
2 o: K" W6 c) R- DIF[#22 EQ 3.]TH #500=#500 OR 4.* l" I, l8 o8 m- D: l* X' U
IF[#22 EQ 3.]GO3. A0 Z  q7 C5 o2 V0 x
IF[#22 EQ 4.]TH #500=#500 OR 8.7 d& @8 ]! x  j5 V- T: W, I
IF[#22 EQ 4.]GO31 N: b  w; E& Z% d" ?7 ?$ s
#3000=1.(#1-MODE-ERROR)
8 [% z: n/ T  q5 R8 F+ i2 PN3 #11=FIX[#11/10.]" X3 F0 z, @. i5 _
END1  _" c  j2 W( M  H
M99
1 r/ q" ~0 {9 U+ q& \9 H
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
: B7 M  Y) s. s#11=FIX[ABS[#1]]
, H# H* O! K6 b- g8 H#500=15.(全部装满，让下面逐一减去)8 m* i( J5 [" K
WHILE[#11GE1.]DO1
( Z9 u+ s' p1 V#22=[#11*0.1-FIX[#11*0.1]]*/0.1
- v# g& C3 M4 i2 `IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
0 [# \. j, b% J: r6 n" o/ S" gIF[#22 EQ 1.]GO3
" d0 Q4 O! x5 ]IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.5 h8 y5 q# T: V
IF[#22 EQ 2.]GO3
. {1 [: d; P$ O" S6 mIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.5 {3 d, W2 P" S0 T
IF[#22 EQ 3.]GO3) C+ F, P- x: Y/ p
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
9 F* B8 ?0 e0 C$ o3 u* x) yIF[#22 EQ 4.]GO32 z" i3 ^6 F( h- h
#3000=1.(#1-MODE-ERROR)
$ {& D, W+ V" R! Y) J8 u* vN3 #11=FIX[#11*0.1]
' |* ~: Y+ v. @  CEND1
5 l# N( ~( a1 d+ K4 [: c& @M99

#1=1234.' R8 W# H; ~6 b* s7 [% P4 k
#500=15.
+ G) Q) H& r% b" L: f' ~8 ]#11=ABS[FIX[#1]]
$ _: E# W- d9 F# s% B4 C7 C  fWHILE[#11GT0.]DO1! ], b; o7 S$ ?' @) E; X
#22=[#11/10.-FIX[#11/10.]]*10.
& U5 `3 i4 O! `' uIF[#22 - 1. EQ 0.]TH #500=#500 - 1.% E4 l1 _4 f% A, u2 O$ h) o8 w  [
IF[#22 EQ 1.]GO3+ ^' w% L% x# L+ R5 s  r5 `4 W
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.2 G, r5 x* @; j5 M
IF[#22 EQ 2.]GO3# l1 b. x% k& I
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
. N- J& p4 K# M5 B1 CIF[#22 EQ 3.]GO36 a$ X+ m( Z$ j$ u" E
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.8 V+ P+ n& z) ^) I7 e" b
IF[#22 EQ 4.]GO3
4 U4 a6 i5 v0 X! G% x2 r#3000=1.(#1-MODE-ERROR)
- m1 o0 b& |3 p- B! U3 ?N3 #11=FIX[#11/10.]& Z3 X. o  @& u! ]
END1
! H; U% D4 _% @! fM99

#1=1234./ }4 n- R) {& E) L
#11=ABS[FIX[#1]]
& z# F4 h. w- a#500=0.4 s+ ]8 y% i0 k+ c+ @; S
WHILE[#11GT0.]DO1# b* \2 r" G$ n( `' _
#22=[#11/10.-FIX[#11/10.]]*10.  l: [% L3 D; ~+ F+ I' B- T
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1./ a/ {! h  `; s9 c
IF[#22 EQ 1.]GO3
- G4 S, a8 q  EIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.7 M8 [# C$ A2 B2 {  ]
IF[#22 EQ 2.]GO3# l8 H  M0 r" q- Y& j
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.2 g* p- r6 R( t
IF[#22 EQ 3.]GO3. Q1 D3 Y2 m; g2 I' S* ]7 p* W
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
. p& h$ t' t# H: x; XIF[#22 EQ 4.]GO3* d( o; C8 H' N( X+ L  _6 b6 F
#3000=1.(#1-MODE-ERROR)
# Y9 v. r' W$ R& ~) wN3 #11=FIX[#11/10.]; x: a5 g* `+ j& g4 F: @
END1
! H. ~4 p- a! Q( j, sM99

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