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

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

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

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

×

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

#1=1234.
! L  z* J9 u( c5 a- G2 W#11=ABS[FIX[#1]]4 ^8 l: H# K  M" y
#500=0.
0 M/ u7 K9 h# o( Y* f8 H2 R# SWHILE[#11GT0.]DO1
6 k- h" [, E' b: \! H; o#22=[#11/10.-FIX[#11/10.]]*10.' a8 g1 g, \$ J3 w
IF[#22 EQ 1.]TH #500=#500 OR 1.% Y. F9 @  w/ c$ [9 y+ F  }
IF[#22 EQ 1.]GO3
' |; w$ O2 U- K8 z' r) hIF[#22 EQ 2.]TH #500=#500 OR 2.! P; p, F& O$ {
IF[#22 EQ 2.]GO38 [/ N, J5 r, b5 w. O% T
IF[#22 EQ 3.]TH #500=#500 OR 4.- h) }5 k0 P' B6 Y6 B
IF[#22 EQ 3.]GO3
+ b/ {5 I1 o6 `IF[#22 EQ 4.]TH #500=#500 OR 8.  ?$ G; X. s' C4 V8 l8 C) `3 I5 r: o
IF[#22 EQ 4.]GO3
2 i% L5 g8 }: @1 J# F; e( f& ?) f#3000=1.(#1-MODE-ERROR)* e/ ?  N" G0 B. W
N3 #11=FIX[#11/10.]) X; q- }3 w* O: g3 s
END1
& R1 i1 l- \9 F3 EM99
$ V3 [: g, p$ U# s% Y( ^' v' G8 C
以下为画蛇添足，多此一举。花拳欺敌法。目的搞死敌人
（逻辑运算有改）（WH里面的比较式有改）（除的变乘的;乘的变除的）

#1=1234.
2 j  k9 z& c  u5 x$ p- i, s+ i#11=FIX[ABS[#1]]
; `4 q2 ~' N2 t8 J& A#500=15.(全部装满，让下面逐一减去); j5 b- ?, j% [% i" s/ t; s! R
WHILE[#11GE1.]DO1
- v; t4 F8 ~) P4 s#22=[#11*0.1-FIX[#11*0.1]]*/0.1
1 F# ^% x/ P, S& W- Z; g6 AIF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
6 e: r% i# f# g2 b2 s3 |( _IF[#22 EQ 1.]GO3' I& n8 u' c( ^) r) [
IF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.7 v1 c% p# y* v# A3 Q! T2 f" Q) q& f6 t
IF[#22 EQ 2.]GO3
3 }1 U7 o0 L% rIF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.
; v9 r/ ~8 g8 u7 I. SIF[#22 EQ 3.]GO3! U2 U+ c: Z4 M% G7 |0 Q
IF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.
* p' `( b& h6 e  O5 R% g# z) l1 CIF[#22 EQ 4.]GO3
$ g1 X  P3 O1 @- C4 o* q#3000=1.(#1-MODE-ERROR)
: g, X# W/ _  U/ e) A6 AN3 #11=FIX[#11*0.1]+ s/ |1 |( t- r! z
END1
0 B3 n+ t& k4 L' A' C' ~9 ?M99

#1=1234.
4 @5 n7 E! B) @4 Z) X#500=15.8 r1 P" g0 [/ y
#11=ABS[FIX[#1]]
$ n3 [* S0 s0 Y# N* k- R0 @WHILE[#11GT0.]DO1
& ?0 Z  l$ M' K- C0 E2 I#22=[#11/10.-FIX[#11/10.]]*10.5 i* J0 b3 O8 _, `) G
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.4 I2 z6 v, O. w4 p3 W
IF[#22 EQ 1.]GO3
  O$ Z2 ?. \" C' {, r0 @# t; eIF[#22 - 2. EQ 0.]TH #500=#500 - 2.1 [" G# C8 [* A0 M
IF[#22 EQ 2.]GO3, v* y) I0 h2 H+ F5 I& b- ^
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.* ?& |/ r. d( ]8 e
IF[#22 EQ 3.]GO35 K0 S. C0 Y" j( i8 L) t2 \/ D
IF[#22 - 4. EQ 0.]TH #500=#500 - 8.
9 ]* C" q/ o; LIF[#22 EQ 4.]GO3/ u+ R! T9 W: Z6 D
#3000=1.(#1-MODE-ERROR)
& A3 G) ^; V- C1 [+ F7 |* R: _5 SN3 #11=FIX[#11/10.]
& k$ K7 }; x( i! `; W/ u6 }END17 T1 w% d* D' d1 M1 k* A+ i
M99

#1=1234.
1 p, `* k# _0 `( d2 s#11=ABS[FIX[#1]]1 X. h* T4 o! I  i3 Y& S* e
#500=0.
$ y+ G( e7 C4 T0 T# V8 Y5 V  cWHILE[#11GT0.]DO1
; C1 u6 g: L' n7 W#22=[#11/10.-FIX[#11/10.]]*10.4 f' T  w& v2 j  Y
IF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.# W& I' L/ H. D: \- |4 c
IF[#22 EQ 1.]GO3
4 j* v5 P/ q& `; TIF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.- G" |8 i+ _% w# Q) U
IF[#22 EQ 2.]GO3: X+ I( t/ c! W: b, ^
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4./ {. f' w5 m) {2 o
IF[#22 EQ 3.]GO32 O3 u: K1 `7 r: p
IF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
9 m6 ]0 }; L+ m% d  w/ pIF[#22 EQ 4.]GO36 ], A. Y5 r9 q1 X* ~+ K$ b7 O+ }
#3000=1.(#1-MODE-ERROR)
6 B3 d: w1 L: h; aN3 #11=FIX[#11/10.]* a, z; V) V, g* m% p
END1- f9 x0 `. s0 G6 K& i
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