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

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

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

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

×

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

#1=1234.9 v- w/ u0 N3 }6 X3 S
#11=ABS[FIX[#1]]
6 x$ ?0 W: x$ f; W#500=0.8 n% T% p* s" W9 f( f! }" f) U
WHILE[#11GT0.]DO18 m- \. D- [$ l" ?, D
#22=[#11/10.-FIX[#11/10.]]*10.5 ^9 Q& h9 v7 ^) a! _# n
IF[#22 EQ 1.]TH #500=#500 OR 1.
. \; L" O2 J8 U3 G! e3 wIF[#22 EQ 1.]GO32 W( o1 J/ Z) {1 t; }6 R+ r. p% [
IF[#22 EQ 2.]TH #500=#500 OR 2.2 a# E9 ~1 C/ G, D* _$ M
IF[#22 EQ 2.]GO3* Z* s5 C+ ^0 a4 l3 e. V
IF[#22 EQ 3.]TH #500=#500 OR 4.
3 F* ~( X# d* |4 t3 r2 `( k0 kIF[#22 EQ 3.]GO3" Y0 O$ `1 g7 m+ p& h) {
IF[#22 EQ 4.]TH #500=#500 OR 8.5 L# Q, d+ K) M5 R
IF[#22 EQ 4.]GO3
; l- ]- a) \9 a#3000=1.(#1-MODE-ERROR)3 w; ^' M. {+ L
N3 #11=FIX[#11/10.]. _6 q, L* T/ z
END1
/ A4 U) [' A6 ?. {+ yM99/ K% a5 }8 X& s4 s- @8 U

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

#1=1234.$ I+ x' r; X3 F1 @, k& f( `0 F
#11=FIX[ABS[#1]]2 \( S3 A0 U$ P. t2 S5 o
#500=15.(全部装满，让下面逐一减去)
/ q4 n6 S( \( t  h' tWHILE[#11GE1.]DO1" d( g6 S& u* @: g. u$ i! {
#22=[#11*0.1-FIX[#11*0.1]]*/0.10 l' u7 p2 y# f2 Y3 D, I: p
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
5 U3 o) }% F( S# k  h( p& K2 DIF[#22 EQ 1.]GO3
( S$ i7 b" Y2 |  k' ^IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
* K$ @2 |5 b$ i# k4 g: y7 f) WIF[#22 EQ 2.]GO32 e3 Z" v- g) a* J! Y, ^' U/ Z
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
' \4 L( E( \' z9 I0 qIF[#22 EQ 3.]GO3
: O" k7 ^( ~' sIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.% v+ Z3 O1 j6 ]7 s- x+ {6 b7 j
IF[#22 EQ 4.]GO35 F5 ?  m; O% A9 y
#3000=1.(#1-MODE-ERROR)+ D& u  _9 J! ^3 j4 I& V8 A
N3 #11=FIX[#11*0.1]
% a' M3 T8 Q, ~' J+ f3 REND1
& L4 b' v' }' I" x7 C. g" DM99

#1=1234.
0 M  p) h" f! o#500=15.2 m1 H" P+ G2 T7 S
#11=ABS[FIX[#1]]
5 E8 ]" I, r: E6 u5 C9 X' xWHILE[#11GT0.]DO1
& w7 Y) a; [  z8 l#22=[#11/10.-FIX[#11/10.]]*10.
4 t- V) t( p5 T8 x, y+ aIF[#22 - 1. EQ 0.]TH #500=#500 - 1.& E# K0 `! B7 `" ?0 X: w
IF[#22 EQ 1.]GO3
' U/ L* M- ~+ zIF[#22 - 2. EQ 0.]TH #500=#500 - 2.9 z+ ^3 ]! Q7 `* Z9 ]( q7 ?$ U7 f
IF[#22 EQ 2.]GO3
! _4 w$ v. L9 `; [IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
# v' d9 q$ w* @IF[#22 EQ 3.]GO3# Y2 T7 p7 ?2 n$ k
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
, t0 B1 s7 ?0 [/ T( U( EIF[#22 EQ 4.]GO3
+ k3 w- O  y, M( U' |#3000=1.(#1-MODE-ERROR)
! N9 s* ~& U8 ]( s, b' ]" o% m, KN3 #11=FIX[#11/10.]7 K1 [  n+ c9 c+ j4 x' i, r
END1* h- D: ^, \' W+ i: d; k  R
M99

#1=1234.4 Z, P/ S9 w( u% v7 `1 h* X
#11=ABS[FIX[#1]]- p# D6 }! \: `/ H5 l
#500=0.
! l4 u' I* g8 e- Q( g, F# ]WHILE[#11GT0.]DO1
( D+ D8 n9 R- h0 v5 D0 M# M#22=[#11/10.-FIX[#11/10.]]*10.
$ Q( E* m) @2 a8 P4 K$ K3 zIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
2 ]3 e3 A" \" B, r2 DIF[#22 EQ 1.]GO3+ X" @* \! `$ D3 H3 X* i. f! \
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.3 [8 P6 M. X; K
IF[#22 EQ 2.]GO3
5 {. Q, n; a9 o2 vIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.7 |6 o( g6 }# @* Y9 l- G+ e
IF[#22 EQ 3.]GO3
* Z2 a) Q7 X$ A2 K& }5 ^7 d; ?+ HIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.) ~: u) J* H( p0 K6 s
IF[#22 EQ 4.]GO3( ]/ U- z& P7 b) s8 G* J
#3000=1.(#1-MODE-ERROR)& {5 U$ G1 j3 N& `( W
N3 #11=FIX[#11/10.]+ K8 |) S* a! q* U, O7 O
END14 X% `$ z* |% }3 ^8 S4 L! X4 W
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