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

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

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

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

×

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

#1=1234.
+ B( b9 a! f# ^6 h9 u#11=ABS[FIX[#1]]
4 w1 ^/ Z' R8 l6 [' W0 L#500=0." _& O' x) T0 b$ J3 o
WHILE[#11GT0.]DO12 \+ {, r; F9 a- c! E6 T$ v
#22=[#11/10.-FIX[#11/10.]]*10.* _" Y, l. W# G
IF[#22 EQ 1.]TH #500=#500 OR 1.
6 u9 X8 v% l  G; w! X- P6 RIF[#22 EQ 1.]GO3
; _  C: Y- B) h2 W" u6 @3 W4 tIF[#22 EQ 2.]TH #500=#500 OR 2.
) r9 N; g6 d0 s$ C/ qIF[#22 EQ 2.]GO3" G* l) A% M, y7 v2 }$ G+ [( R
IF[#22 EQ 3.]TH #500=#500 OR 4.
6 b$ h4 M. @* WIF[#22 EQ 3.]GO3: U+ j; o9 B6 r# P. W. [4 i' [
IF[#22 EQ 4.]TH #500=#500 OR 8.8 z6 N2 {/ C, T3 c. j% f
IF[#22 EQ 4.]GO3
% R  u8 z8 m# |* [. B#3000=1.(#1-MODE-ERROR); y, ~: J1 [1 ^
N3 #11=FIX[#11/10.]4 k6 n. H3 q: ^: p: Z* R  N
END1
2 M8 |) _/ x  i' F- TM99
! B: N5 ?  U" T
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
, |7 M1 v# W& w8 ~2 B: `#11=FIX[ABS[#1]]
" V$ W3 ~9 p! D, @$ c4 |( J#500=15.(全部装满，让下面逐一减去)
; s  P, h6 D! }) VWHILE[#11GE1.]DO1" u9 l' ]: ?+ W  |3 T8 e
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
& Z: f9 }$ ^7 v) J; i5 gIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
  x% `- w+ E$ j/ Q- d/ {2 `: YIF[#22 EQ 1.]GO3! b- _* x8 {. z" I# q: ]+ I
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.5 P+ u4 l% _! x; }1 W
IF[#22 EQ 2.]GO32 X: a2 F" h1 a  l
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.7 a- H/ ?  ]& h9 A9 K
IF[#22 EQ 3.]GO3
, l5 i& l# H. v/ p( n  N8 hIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.7 N& _/ y* o, g0 L4 V7 [- {
IF[#22 EQ 4.]GO3
5 {* z" r# d2 D+ B7 j4 R#3000=1.(#1-MODE-ERROR)+ \+ R2 V0 ?1 Q- U1 l
N3 #11=FIX[#11*0.1]" s1 d; E% z2 O  B1 K: D8 @8 k
END1
6 h  Z8 h2 R1 J$ V2 |& O1 TM99

#1=1234.$ t6 @9 R4 G" I, P0 X
#500=15.
' S  U$ u4 k- a; |* Q#11=ABS[FIX[#1]]# [/ h, C: V6 A
WHILE[#11GT0.]DO1' V& l3 \" m" v& c! J
#22=[#11/10.-FIX[#11/10.]]*10.
+ k5 p8 }+ _( {" f% {6 ~, ?IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
8 G: I+ Q3 [2 G5 DIF[#22 EQ 1.]GO3
5 j' a  O) h8 JIF[#22 - 2. EQ 0.]TH #500=#500 - 2.% M2 h. I5 D$ i
IF[#22 EQ 2.]GO37 J' s6 t- K+ H) Q( G, ?, _3 j
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.  a$ f/ w, G: E; o7 a
IF[#22 EQ 3.]GO3
( I7 m8 x1 }: P/ o  u, G! iIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
. j: M: x# {6 T8 A; @IF[#22 EQ 4.]GO3
( A# v: R2 {8 }5 S: Y; t#3000=1.(#1-MODE-ERROR)6 X, ?0 T' _1 _) V
N3 #11=FIX[#11/10.]
' F6 C4 d0 {2 _4 tEND19 p4 e+ i9 u3 u- A. D
M99

#1=1234.2 B8 S7 y; F5 q( T
#11=ABS[FIX[#1]]
/ ~+ o! b, V' C  K: T( t4 W#500=0.% X+ w/ @/ m. n& }7 e* n: C& x
WHILE[#11GT0.]DO1
+ g6 m0 C& {- F; B4 y. L#22=[#11/10.-FIX[#11/10.]]*10.
0 c2 b; Y  ^3 sIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.% a0 L9 X4 [  c/ m
IF[#22 EQ 1.]GO3$ y$ l. \! w$ {, P( l
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.% K  i8 {' ~! J6 f2 t0 s5 J
IF[#22 EQ 2.]GO3! [. n2 c5 {# {. J6 E) ~5 b5 o6 T
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.5 j* D3 z- i) {& H; S$ U, U, z1 _
IF[#22 EQ 3.]GO3; R" @3 H5 V+ t! p% r- F& X
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
3 [: O) W9 C  F1 _4 o+ i3 RIF[#22 EQ 4.]GO3
% q* P% T5 z9 |3 c, |) o. ~, ?#3000=1.(#1-MODE-ERROR)
/ q$ B) W% p6 N% QN3 #11=FIX[#11/10.]) ]3 }' l5 l; a. R2 ^
END1
6 `' `( u6 V$ m) l& T5 s0 uM99

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