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

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

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

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

×

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

#1=1234.6 \- Z; v  G" |- \$ u
#11=ABS[FIX[#1]]
( q" K/ |: F* s) Z: b+ R#500=0., h) S* P: O5 U2 a( T, Y) t& G
WHILE[#11GT0.]DO1  u- v/ q* S: B
#22=[#11/10.-FIX[#11/10.]]*10.
1 d- Z' L1 h5 k! R1 RIF[#22 EQ 1.]TH #500=#500 OR 1.
8 B) }# h" h2 G8 ~IF[#22 EQ 1.]GO3
% e% s. `5 q1 \! f+ j; ?* YIF[#22 EQ 2.]TH #500=#500 OR 2.: C! I. _. ?* a, r) u
IF[#22 EQ 2.]GO3
2 O8 Z! i8 p# y: ~. EIF[#22 EQ 3.]TH #500=#500 OR 4.
1 m! C" T# t6 T& m2 k! h8 h! O$ k, qIF[#22 EQ 3.]GO3
! u: i5 g- f; {  E  x3 I5 ?  sIF[#22 EQ 4.]TH #500=#500 OR 8.
/ O3 Z$ o8 R: y3 V' c' E( ~IF[#22 EQ 4.]GO31 j( n$ ^) `/ Q0 ~! h# \
#3000=1.(#1-MODE-ERROR)- E6 U3 J8 j3 S) h* T
N3 #11=FIX[#11/10.]
+ K8 Z& |6 g1 l9 uEND19 s& E1 @3 O8 z3 f
M99/ c0 T, M1 A/ v% f5 Q" l. x3 m

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

#1=1234.9 f+ t6 H9 Z( @1 p
#11=FIX[ABS[#1]]
9 b' ~- i1 D( n: k& b2 ~#500=15.(全部装满，让下面逐一减去)$ c) J9 n3 a2 J0 {
WHILE[#11GE1.]DO19 r  d4 H0 C: k) z& ]. Y% o- |7 a
#22=[#11*0.1-FIX[#11*0.1]]*/0.17 F9 b- B% `, e( s( ~% B! i
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.. T  Z; P, K& X! \
IF[#22 EQ 1.]GO3
& K' s4 u6 a! q0 F: l' ]8 uIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.  M: S: q9 t8 ^% X- i* f$ s
IF[#22 EQ 2.]GO30 B9 ^" _' j4 E9 F. ^
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.6 L) q( h0 a# J8 f
IF[#22 EQ 3.]GO3
6 m0 K" M6 H; v0 ]7 [2 s1 |+ W; H0 jIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.4 D+ y$ L# c. O
IF[#22 EQ 4.]GO3
" Q4 q0 O. k- C#3000=1.(#1-MODE-ERROR)# g1 Q- b7 E: L
N3 #11=FIX[#11*0.1]3 f& s9 l: H, I, m
END1! j5 F! s! W& [+ p' M
M99

#1=1234.
( a9 z4 ?0 x4 e6 M$ b0 q#500=15.
7 J9 ?9 j- n6 l6 u  d5 B#11=ABS[FIX[#1]]1 z' }% s5 S' t  C1 |6 k
WHILE[#11GT0.]DO1
+ Y2 B5 u7 c/ K5 V7 J#22=[#11/10.-FIX[#11/10.]]*10.
6 ]( d1 k1 C( ~  E( K$ d: oIF[#22 - 1. EQ 0.]TH #500=#500 - 1.
- _2 g& x- ^) h# QIF[#22 EQ 1.]GO3; B7 b+ S  T# s. O' t- }
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
" y  g$ j  ~1 YIF[#22 EQ 2.]GO3
) j* O" P# H/ j! t4 P( @& k$ OIF[#22 - 3. EQ 0.]TH #500=#500 - 4.
5 S) P  R$ O# U9 rIF[#22 EQ 3.]GO3
8 v) b: J* i  B5 I0 j6 n. Y: TIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
) H! G# Q, W! [/ X" q6 O4 }IF[#22 EQ 4.]GO3
& ]% w% q: b; F  z#3000=1.(#1-MODE-ERROR)
# h- v  ]% N& p& y" ?N3 #11=FIX[#11/10.]( m+ c* J8 ^) G; j3 O
END1
! e: H* b% K% r3 b$ A( T1 E& QM99

#1=1234.
* F( y0 k5 c1 }#11=ABS[FIX[#1]]% f2 [$ v7 b% B# |, j
#500=0.
9 |1 K5 v& q! B( V! r  e/ H# iWHILE[#11GT0.]DO1
7 S3 T7 C6 V- n/ ^9 r. f* R#22=[#11/10.-FIX[#11/10.]]*10.0 v* w0 K5 s8 D5 e  G6 d
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.
& @, v/ a( b  R) [, XIF[#22 EQ 1.]GO3
: }  y0 W6 R. j6 o; u0 bIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.2 O5 w" B  }5 y' x0 I4 B
IF[#22 EQ 2.]GO3
2 i  R, p2 L2 J1 v% j( L; bIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
9 h" A4 v$ O7 lIF[#22 EQ 3.]GO3* b9 N7 `% Z& Z* d) Z
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
/ Y/ s: h, x- p: u" r4 d( {, }IF[#22 EQ 4.]GO3. J) v7 X3 X4 R8 p
#3000=1.(#1-MODE-ERROR)# k: k" n$ v: y' b3 t6 W
N3 #11=FIX[#11/10.]
6 n+ [0 r2 R) V9 K# Q( QEND1
+ g% q- `9 C1 n' T; 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