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

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

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

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

×

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

#1=1234.
, l' `+ ^( F. ^( {#11=ABS[FIX[#1]]
1 b6 j; }% d: b9 {3 P9 J#500=0.* R1 }. j$ f! h0 r$ N( a) U
WHILE[#11GT0.]DO14 v# z1 f, P3 M6 k
#22=[#11/10.-FIX[#11/10.]]*10.
% w" k/ N. `7 J6 C+ ~2 t. fIF[#22 EQ 1.]TH #500=#500 OR 1.& t& _( D1 j& n
IF[#22 EQ 1.]GO3
/ D+ L. t" N. r; n9 F9 hIF[#22 EQ 2.]TH #500=#500 OR 2.  ^# H8 O" z" T" o4 l
IF[#22 EQ 2.]GO3) a8 a. Z7 d# O% t7 w" F, B! a
IF[#22 EQ 3.]TH #500=#500 OR 4.9 u- g) _! _8 m- l* y" \5 `* _
IF[#22 EQ 3.]GO3" z: m2 j- |- ]4 a# [  X5 {, m
IF[#22 EQ 4.]TH #500=#500 OR 8.0 ]$ f+ B8 ?% F$ ~
IF[#22 EQ 4.]GO3
- A* M1 s: G3 l$ w#3000=1.(#1-MODE-ERROR)8 V9 y; b0 _6 @; R
N3 #11=FIX[#11/10.]; J! u0 n8 R% X/ l
END1
6 a! ?) U, A# LM99
% K- B- _- V. i. r/ k) j( l% P, o
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
  o1 ~  {/ z9 Z, O3 {6 {8 |#11=FIX[ABS[#1]]( G3 Y; ~2 i0 Q
#500=15.(全部装满，让下面逐一减去)
- o* B' h* W9 K) P5 w- VWHILE[#11GE1.]DO1
: k3 v$ P7 M0 Y; q4 V, ^#22=[#11*0.1-FIX[#11*0.1]]*/0.1+ h2 }4 G8 E( k$ }; a
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
+ x. Y1 V" b9 `  x) ?& O7 N, _IF[#22 EQ 1.]GO3
$ r# ?1 H% ]3 xIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.. f2 m7 i  s; a- S1 u
IF[#22 EQ 2.]GO3% L+ I# s  V  c  q4 F
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
3 t# R4 _$ ^) F4 EIF[#22 EQ 3.]GO3
8 D- C  i6 x& i, s; s# B* `IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.+ x" n, a4 v$ ?7 V# h/ u7 b
IF[#22 EQ 4.]GO35 {& w. H  p$ h$ S" Y; t( X
#3000=1.(#1-MODE-ERROR)
. [: V8 @& y) X7 q9 RN3 #11=FIX[#11*0.1]* s  l$ S7 _; T; N
END1/ T, ^3 V$ `& p( I! i! ]- V+ U
M99

#1=1234.- k7 ?8 g0 \; s3 Y1 l, Y. R- O$ a
#500=15./ b7 _" c/ T& M+ y" t
#11=ABS[FIX[#1]]& K* P+ Y; v, p( c+ r: Y7 P2 M
WHILE[#11GT0.]DO1& X9 q8 o' z& O
#22=[#11/10.-FIX[#11/10.]]*10.7 v! ^2 N5 U# U7 Z" t' Y
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.. w1 h: b2 b# z3 Z% ?9 X! K
IF[#22 EQ 1.]GO35 W- k0 K8 E2 e  Z" i
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
+ M" D; c, |) a& v2 i) f: vIF[#22 EQ 2.]GO3, r% h( G* |) I$ ?; Z$ u# q
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
) a' k' M5 r% c2 vIF[#22 EQ 3.]GO3
: N2 `0 `6 U+ n3 LIF[#22 - 4. EQ 0.]TH #500=#500 - 8.- U: U/ u- N* T3 Y% W6 J
IF[#22 EQ 4.]GO3! t. j, G. U: w! ]" l! B2 H
#3000=1.(#1-MODE-ERROR)
2 W/ b7 U* }& \9 o9 U; K7 Y4 UN3 #11=FIX[#11/10.]/ Z+ w/ J% ]. c
END1
; k0 z# h, d+ P4 g2 |M99

#1=1234.
+ U, a& M4 {  E; w1 I: t+ e#11=ABS[FIX[#1]]; ~' J* I, s% @' y4 V
#500=0.5 A  h3 H" e  C1 S9 ?
WHILE[#11GT0.]DO1
7 j) f/ Q9 h- L! ?: A. h' t+ E#22=[#11/10.-FIX[#11/10.]]*10.$ @: @$ I; W, O; C
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.4 R! g$ o& b2 Y/ ~# \" w% M& q4 N
IF[#22 EQ 1.]GO35 h  J; Q( S4 @7 @( M
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.  {' F& Q( N, K+ q! M( f
IF[#22 EQ 2.]GO39 L6 _0 C3 w- y) n+ K; l
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4., @& ~6 G3 D" i  J# d# l
IF[#22 EQ 3.]GO3+ X2 |/ v- j- |8 x: D- y+ J
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
9 m% A9 R& i6 {. C9 d: ]. a0 TIF[#22 EQ 4.]GO3
% y) T$ H1 z* y' O8 r8 x#3000=1.(#1-MODE-ERROR)$ q0 W! w; K* a, X9 S
N3 #11=FIX[#11/10.]; j5 D+ u$ t5 M7 q
END1
# g% l  J9 R5 G5 S7 Z2 pM99

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