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

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

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

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

×

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

#1=1234.6 H5 k/ p# Y3 Z- T* h: o9 B
#11=ABS[FIX[#1]]
1 B2 x1 i; D" d#500=0.
! `6 e* {* Z/ a5 K/ B, Q, mWHILE[#11GT0.]DO1
2 d7 I9 s; N. D5 V#22=[#11/10.-FIX[#11/10.]]*10.
: {; N& \" p% gIF[#22 EQ 1.]TH #500=#500 OR 1.5 Y% o1 V; J! j+ L3 I+ T
IF[#22 EQ 1.]GO3
# Q' w+ D$ X, }: y3 x3 rIF[#22 EQ 2.]TH #500=#500 OR 2.
0 D7 M8 K& z& z. ]6 iIF[#22 EQ 2.]GO33 y7 G# ]: d; F' J' B% B; s
IF[#22 EQ 3.]TH #500=#500 OR 4.0 H/ |8 c( X& q! V( P/ X
IF[#22 EQ 3.]GO3+ H- x& A* Q# @1 t2 |* F& H) N
IF[#22 EQ 4.]TH #500=#500 OR 8.
- Z/ }: U! ~$ n0 SIF[#22 EQ 4.]GO3: X$ Z; V' n, \+ k
#3000=1.(#1-MODE-ERROR)
3 V. @, T, z# Z2 y+ E) rN3 #11=FIX[#11/10.]
$ c% z5 H: V1 z. mEND13 S( E- V  J5 P& B9 }! d
M99
. F* Y2 n) ]. b  ^4 V
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
0 ~/ p$ c" G# \0 S( t: }$ C& M#11=FIX[ABS[#1]]0 X. u1 F+ E1 V( z& L
#500=15.(全部装满，让下面逐一减去)/ A# g; F1 {4 D( R8 \( c* G
WHILE[#11GE1.]DO1& D" a& n6 ^6 P# }9 L5 T% k3 d
#22=[#11*0.1-FIX[#11*0.1]]*/0.11 B/ C1 n/ O; t: N
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1./ Q0 F' Y0 d1 |! H
IF[#22 EQ 1.]GO3
# b+ C) C) o' AIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.7 C6 B; P- C* R0 s& K% B
IF[#22 EQ 2.]GO3: v; |  m% c+ e
IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
2 |& j; B  j  M8 o$ N8 dIF[#22 EQ 3.]GO3
: M8 L$ Z8 r4 K1 ~IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.7 r6 m! }) U1 D* D
IF[#22 EQ 4.]GO3
7 C( x0 s3 a' Z: L# C& W* ~% X. R+ c. A#3000=1.(#1-MODE-ERROR)6 m  G! a9 u# t; F
N3 #11=FIX[#11*0.1]- l: }9 ]5 w. k' n, B7 y
END1
) x3 J3 X4 W1 j9 F, dM99

#1=1234.
) i) _( O1 v# Z  F#500=15.; q5 p: ?& r& V7 n/ N  X
#11=ABS[FIX[#1]]
8 e$ W( o1 Y- ]* L* @4 tWHILE[#11GT0.]DO1
# a1 V3 l% r9 d% v% v#22=[#11/10.-FIX[#11/10.]]*10." U( ^! z( s) Y& g, B
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.
  t/ j6 A  o" ~9 m! N- e, x6 QIF[#22 EQ 1.]GO3$ |% j- w% X- Q8 C6 U- `; Z
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.  v3 ]$ Y( w, g0 C
IF[#22 EQ 2.]GO3: b. Q5 k: Y, d# r4 G7 Y& q
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.
' o& W' j2 J  R# K& J" EIF[#22 EQ 3.]GO3
0 Z$ u4 [3 N4 x5 \IF[#22 - 4. EQ 0.]TH #500=#500 - 8.' J, j3 ]% {' D! w
IF[#22 EQ 4.]GO3
- T6 V9 z- |+ J3 C; c+ g#3000=1.(#1-MODE-ERROR)6 T9 V* q0 s, g% J: k- a8 S
N3 #11=FIX[#11/10.]* C' J3 D) h( N6 }; E' H8 W5 [" H
END1
6 @) U5 a& [) IM99

#1=1234.4 R* H4 i" ?* h: U8 T% T- {
#11=ABS[FIX[#1]]' T2 h: P% O* S0 `
#500=0.
, h- Y0 z* K2 o7 d7 qWHILE[#11GT0.]DO1
2 Y: H3 Z7 _- H# q) j6 ]9 j9 ~2 b#22=[#11/10.-FIX[#11/10.]]*10.7 N3 D2 I, |7 }, _2 @
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.9 {1 J! o1 f: o; R8 C
IF[#22 EQ 1.]GO3
' b" r* H" ?# B9 eIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.; g  a7 [- ?8 X) ^
IF[#22 EQ 2.]GO3
/ m6 b% g# S( V; |2 QIF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.
6 J1 K5 {# ?  Q5 q5 _IF[#22 EQ 3.]GO3
9 F# ]6 `+ N# F8 _- a  |IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
' y+ _  {. ^) h' ~) l( _& PIF[#22 EQ 4.]GO3
( ?8 U, M* ?% R/ {% y3 R; q' K" ~#3000=1.(#1-MODE-ERROR)' L1 J0 M$ X" E* F
N3 #11=FIX[#11/10.]
! x, B# N, J4 M( c1 yEND1
& L; W0 v3 f  g  FM99

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