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

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

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

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

×

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

#1=1234.9 i8 j, ~* w8 y" {# O, r/ `$ Q" a
#11=ABS[FIX[#1]]
7 `* {$ F) K( G4 k#500=0.
  Y% K5 s. C& \: kWHILE[#11GT0.]DO1" m. k; Z2 D1 R  h
#22=[#11/10.-FIX[#11/10.]]*10.
; P/ J! X0 D4 X9 |' N' hIF[#22 EQ 1.]TH #500=#500 OR 1.4 Y4 s- V; J! a
IF[#22 EQ 1.]GO3
" \/ R% e+ J" D0 h: x" y$ AIF[#22 EQ 2.]TH #500=#500 OR 2.
3 L/ \7 q6 u$ bIF[#22 EQ 2.]GO3
IF[#22 EQ 3.]TH #500=#500 OR 4.' K& B; D( n9 ]3 L' j. x
IF[#22 EQ 3.]GO3; K, T. y$ d  u2 l' J/ W
IF[#22 EQ 4.]TH #500=#500 OR 8., ^. {, N1 k4 E7 S* A
IF[#22 EQ 4.]GO3
$ w* i% G' L9 y' d. A4 Q1 f#3000=1.(#1-MODE-ERROR)
# {2 Z8 N7 I1 a9 X: {2 dN3 #11=FIX[#11/10.]
. L5 w0 r9 U$ ~' m( k: i3 dEND1
4 g9 {+ I, L3 ~. n3 L0 g* u) H! KM99: f" G1 t$ M# J

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

#1=1234.8 L& I$ A7 W7 Y
#11=FIX[ABS[#1]]
7 I9 a( f; ^; j: F3 L4 A% j#500=15.(全部装满，让下面逐一减去)
$ G# c8 E8 i/ o3 h; b* u# XWHILE[#11GE1.]DO1% B: Y$ \) k, ^$ d% }1 x8 c
#22=[#11*0.1-FIX[#11*0.1]]*/0.1
/ O& x! m% E" C1 `0 MIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.% l5 q7 g9 h6 H( w
IF[#22 EQ 1.]GO3
6 r) f+ F' E  X- a. l& n% x( CIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.1 @; e7 w6 y! d3 I' o
IF[#22 EQ 2.]GO3
& b  z, f" W' |7 p) ]- ^. a  nIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
' N, v; k2 O! aIF[#22 EQ 3.]GO3% |  A6 T% O- ]  }$ `, b8 f9 L
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
- C$ Z8 F: H/ `" nIF[#22 EQ 4.]GO3
$ I# ?1 f8 m# q2 x. N* S) y6 w& U! E#3000=1.(#1-MODE-ERROR)# `, `% x" R2 ^7 m) Y7 O
N3 #11=FIX[#11*0.1]
9 h$ Q& J- E8 CEND1' ?& ~" @. e8 Q  n+ o, v' {
M99

#1=1234.
7 c4 [9 e$ ?4 F/ d$ |" [#500=15.
3 y8 V+ _( m' ~9 j2 m! J) K- P) Q#11=ABS[FIX[#1]]# k& G6 [9 T4 k. G& x* |
WHILE[#11GT0.]DO1
; \0 X" H: x0 g. ^7 U#22=[#11/10.-FIX[#11/10.]]*10.
; k# V# G9 B4 PIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
) M+ s& z2 a: K# @' M- _IF[#22 EQ 1.]GO37 S( K& ]/ N) h2 ~
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.( B2 ?# G7 J& E/ F3 Z. _# y
IF[#22 EQ 2.]GO3
  v4 R! s# U$ J- y& b) Q! ?IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
+ |9 _( M: _) }1 y( lIF[#22 EQ 3.]GO3" h1 R- H, }0 g; |/ z
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
( S4 A' v, Z# {+ I% Q) r' cIF[#22 EQ 4.]GO3* o1 Y. x% q  q* M
#3000=1.(#1-MODE-ERROR)' |. k) B7 k- `2 k. d: m- X4 o
N3 #11=FIX[#11/10.]* O9 R/ H& T$ L* C5 |' t
END1
: w( B3 J( f  l8 g4 h. K3 `M99

#1=1234.
; u" S6 r" s( Z) [- M* k) p, B: o#11=ABS[FIX[#1]]1 t2 z0 i9 v0 ~5 `
#500=0.
/ G: J; k/ ?! j$ t% kWHILE[#11GT0.]DO1
& F0 D- `; S) Q) ?9 t; j#22=[#11/10.-FIX[#11/10.]]*10.& j8 F, y, z7 [$ u1 n
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
' d% a. [- q7 e, H1 ]IF[#22 EQ 1.]GO3
4 P2 u1 J5 x3 u% q1 kIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.( ^: F# t& k, g7 n' R8 M7 O9 g
IF[#22 EQ 2.]GO33 p- \' q& n, ]: H
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
: l* B5 ?4 z* I1 [6 h% hIF[#22 EQ 3.]GO3* k9 W$ @* Y! Q' N& S6 Z0 _% i/ o' C
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
* h. x# r  h  O* [IF[#22 EQ 4.]GO3
6 }7 ^' F. n$ X6 G#3000=1.(#1-MODE-ERROR)
2 Y4 E# E  v, J0 u; VN3 #11=FIX[#11/10.]
1 w) E4 c0 x( K, j# PEND1& x; f) |! H& Q
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