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

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

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

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

×

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

#1=1234.
. w; Y  X2 W1 y1 |: [& D#11=ABS[FIX[#1]]( N- X9 @, z3 d  e1 G- C
#500=0.7 `- K$ c/ t2 |4 }% P# W. X
WHILE[#11GT0.]DO15 D) a/ Z+ s3 y& v9 O3 t7 ]3 K
#22=[#11/10.-FIX[#11/10.]]*10.( ]2 Y0 o& T2 n( Q
IF[#22 EQ 1.]TH #500=#500 OR 1.+ G2 q: E6 L6 w0 n+ R9 Q% U  X2 Q
IF[#22 EQ 1.]GO3
1 C0 g+ h/ a' |! |7 N  j5 KIF[#22 EQ 2.]TH #500=#500 OR 2.
4 @' [3 V7 s+ C; WIF[#22 EQ 2.]GO3
) P( z7 \3 h1 H" o# ZIF[#22 EQ 3.]TH #500=#500 OR 4.' y7 _' V; H) P5 a
IF[#22 EQ 3.]GO3
- Y. [/ Q3 E8 T+ f4 tIF[#22 EQ 4.]TH #500=#500 OR 8.
4 J, P6 G; U4 F3 K; QIF[#22 EQ 4.]GO3
% e  k: ]; h  p& p  }3 b#3000=1.(#1-MODE-ERROR)
9 G! `" |% D6 D6 X5 R0 P. A, BN3 #11=FIX[#11/10.]
7 i* S) |) A8 x# ~  a/ QEND1
- V1 @1 N  Y; p" z! r2 A6 Q6 ZM997 E' z( Q+ s3 F. @2 X1 o7 z5 Y

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

#1=1234.
- K: C/ ^8 w* Q. x#11=FIX[ABS[#1]]
( m* I; w6 \: g  d+ Q" W#500=15.(全部装满，让下面逐一减去)
8 Y' W9 d2 N6 [. F. r2 s* fWHILE[#11GE1.]DO1
/ S0 Y% S3 l+ T#22=[#11*0.1-FIX[#11*0.1]]*/0.1
9 J- c* v- k3 k% _* @. {0 W6 l0 VIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.% k' M9 t5 g% ?6 {" b
IF[#22 EQ 1.]GO3
/ o$ ^# a3 c2 w3 ^3 gIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.6 j9 i0 |% d% h( e5 D! x1 u8 i, T
IF[#22 EQ 2.]GO3
" o* n7 I4 @5 h( C; J8 g2 ~7 q' ~IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
+ ^  Y+ h( F- ]5 W. w. hIF[#22 EQ 3.]GO3
* l3 G$ w, e! V* @IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
1 u3 W% P2 e. O$ x2 `. gIF[#22 EQ 4.]GO3
8 n  v9 }! o% k* m1 t#3000=1.(#1-MODE-ERROR)4 U- j0 ?$ t7 s: C8 h7 p4 r; U9 a
N3 #11=FIX[#11*0.1]7 j) j. @1 \: S: {& B% U3 _
END17 X7 g2 M, w. J. o$ D( W
M99

#1=1234.
6 y7 y- `8 b3 w$ j7 R( U" ]#500=15.9 ?2 V) m. ?0 C
#11=ABS[FIX[#1]]" o' e! q: q  t9 I
WHILE[#11GT0.]DO1- ?- ^# `. P3 X  W) A
#22=[#11/10.-FIX[#11/10.]]*10.% }- O0 Q$ R' h* _. b
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.2 y, _2 r7 k6 U3 B' o: H: s
IF[#22 EQ 1.]GO3
5 ?% y/ I- s$ `IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
! c2 e  o) z  m( G# `IF[#22 EQ 2.]GO3
  y) T2 w8 l7 M9 K! ?IF[#22 - 3. EQ 0.]TH #500=#500 - 4.! n: v" Q+ s! {) P  i5 \
IF[#22 EQ 3.]GO35 G, D  v# \5 m6 W  @  }. z
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
& s) t  K/ a5 [* x7 }$ ]IF[#22 EQ 4.]GO3
: D; ~+ f# m  h) H# {# n#3000=1.(#1-MODE-ERROR)! h" ~, i+ |; }4 r
N3 #11=FIX[#11/10.]3 O. T0 D+ {2 F7 ?) M6 x1 \
END1
4 K; c0 P" v/ k* j$ T: JM99

#1=1234.. |! `9 g) u; c. X! ^
#11=ABS[FIX[#1]]
  B* [% J0 E% b  ?  V4 ~#500=0.4 g0 u- ^, \. W' O. s
WHILE[#11GT0.]DO1- G8 |1 U/ W) U7 P4 y
#22=[#11/10.-FIX[#11/10.]]*10.9 b! ?1 o! I2 \4 B
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.8 ]. ]! w! V0 c. B* f
IF[#22 EQ 1.]GO3
$ S1 n# @6 d8 [- oIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
- y6 F: c7 x. Y: }IF[#22 EQ 2.]GO39 Z0 }1 ^" n5 _
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
3 R2 a5 S' a+ yIF[#22 EQ 3.]GO3$ a$ p' H, Y; E
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
, c* i5 I% D/ E8 ?IF[#22 EQ 4.]GO32 n# [& d3 W( j! _$ k, ?7 u# b! O1 P- X
#3000=1.(#1-MODE-ERROR)% A1 {! c& H# B# v" Q  T- [
N3 #11=FIX[#11/10.]$ {9 `! u: Q5 [
END1
. I, G# }. u5 c( i' o# f) P. t5 jM99

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