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

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

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

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

×

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

#1=1234.; b. @8 n9 P, W4 K0 c  r/ d# T
#11=ABS[FIX[#1]]
4 i, }+ V7 D5 C4 F! m#500=0.
, g4 B# n% i, ~) @* a- H% HWHILE[#11GT0.]DO10 ?) C3 z" d: g# }# S4 G0 K
#22=[#11/10.-FIX[#11/10.]]*10.8 p! ]; f1 I6 v
IF[#22 EQ 1.]TH #500=#500 OR 1.
" F  N6 S; m2 d- R8 z0 N$ yIF[#22 EQ 1.]GO3
" r9 D- Y) y+ C. I9 YIF[#22 EQ 2.]TH #500=#500 OR 2.
: ^) q1 \9 [+ a" H% jIF[#22 EQ 2.]GO3& i% J5 y- ?: a9 z
IF[#22 EQ 3.]TH #500=#500 OR 4.
  K' R% |7 D9 a3 S3 |IF[#22 EQ 3.]GO34 Q) r0 d5 w" O6 U5 c* q( q% ^
IF[#22 EQ 4.]TH #500=#500 OR 8.3 i3 K- ?; w& K
IF[#22 EQ 4.]GO3
; a3 F$ J+ D8 r8 Q#3000=1.(#1-MODE-ERROR)! N; [- q: A5 L1 W) J& j
N3 #11=FIX[#11/10.]( _* _  X# J7 a) @
END1
. k3 f( A  G: L8 C% F2 KM99, C& |6 x. v( P4 a) J

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

#1=1234.
/ B, p# @; P! ^( `8 ~3 _5 ]#11=FIX[ABS[#1]]
! x0 y- k' s. Y#500=15.(全部装满，让下面逐一减去)$ k' D  x6 D; _9 a* x) y
WHILE[#11GE1.]DO1
2 g6 B& u4 j6 Y6 X/ |/ H9 ?# v3 x#22=[#11*0.1-FIX[#11*0.1]]*/0.1
, n1 X4 s) D) Y+ EIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
# I2 O. m: ]8 q& ?IF[#22 EQ 1.]GO3* [- F2 z6 t1 a7 M0 A
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.$ M3 _3 x# O' d6 _4 G
IF[#22 EQ 2.]GO30 [; ]0 i: p5 [
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
* @! G  _+ Q; ?1 w6 H5 \IF[#22 EQ 3.]GO35 s( ]: k( w: s5 q; w+ v
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.- m4 [1 l: Z) @# h# [6 q; o
IF[#22 EQ 4.]GO3
6 E% b# N, m' w) c+ G#3000=1.(#1-MODE-ERROR)
4 B+ e" @( m; @% R& GN3 #11=FIX[#11*0.1]3 I) z% u& I+ k, U& }4 Z$ s
END1$ [3 E$ G6 ~& O* z
M99

#1=1234.; [: n3 ^2 y; L4 n& p
#500=15.
  w9 U, o' Z8 e9 m) G1 _; @5 [#11=ABS[FIX[#1]]+ s* O( H9 f; I7 v$ q2 E
WHILE[#11GT0.]DO11 o% Z3 }: w! y8 T6 G0 U$ e+ G
#22=[#11/10.-FIX[#11/10.]]*10.
8 q7 |9 _) }1 }( o) NIF[#22 - 1. EQ 0.]TH #500=#500 - 1.- c, p; j7 ]+ R7 j  ~- Z# X3 t
IF[#22 EQ 1.]GO3
8 f4 D. X+ c" I7 N! K0 |* G7 lIF[#22 - 2. EQ 0.]TH #500=#500 - 2.
4 B2 @, _3 ^2 b# s. KIF[#22 EQ 2.]GO3( q# x5 B. v% Q' w3 H
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.: A4 b  e/ ~, g
IF[#22 EQ 3.]GO38 x3 l& M" q- _* y- p
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.' ]: ~: p6 R6 F3 |" m9 F6 |: S
IF[#22 EQ 4.]GO3$ n0 t- `& J, c* E
#3000=1.(#1-MODE-ERROR)+ p* l: W- J# E
N3 #11=FIX[#11/10.]
& T8 l! `3 X8 y1 R# j2 S7 P5 sEND1
! S7 d5 q& x4 E" t% FM99

#1=1234.
$ d4 l* A( }$ \4 O- Y; f) E#11=ABS[FIX[#1]]
# k4 ], I# l  Y7 S. D/ M#500=0.7 o0 v' r) n* ?& V. I  c5 U( t4 [, u
WHILE[#11GT0.]DO12 D4 S, m+ G( J6 \! A
#22=[#11/10.-FIX[#11/10.]]*10.! s  f1 C6 c3 X( W& b# z; A
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.) L' i0 w. z$ E* C) ]" v& g
IF[#22 EQ 1.]GO3
/ m6 k, u+ l' S" FIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.; h1 i+ I) W$ ~5 D9 A  ?" \
IF[#22 EQ 2.]GO3
0 {  Q3 o5 g9 [$ T' O+ M, yIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.+ Q# q( Z9 \. }8 V6 W
IF[#22 EQ 3.]GO3
! H8 b# I9 N& O- U$ _& }IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
% C5 e) G7 g# l  t. G6 yIF[#22 EQ 4.]GO3
4 c2 A, J8 `6 [8 i; M' o#3000=1.(#1-MODE-ERROR)  A( n5 j& n( @( X7 r9 L+ H/ A: p# U
N3 #11=FIX[#11/10.]
( {; W# B( c5 rEND17 V4 O$ A! g9 H6 i& |
M99

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