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

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

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

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

×

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

#1=1234.
. t4 ]) M9 o4 P# E#11=ABS[FIX[#1]]+ K, a9 B2 w. a. R) e+ i
#500=0.$ G7 O# ]: R7 ~* x5 d% W9 l) L$ G
WHILE[#11GT0.]DO1
% N9 o6 a2 `. r' P! H1 T#22=[#11/10.-FIX[#11/10.]]*10.
, K% F# ?+ I. ]* e' s7 k2 ?IF[#22 EQ 1.]TH #500=#500 OR 1.* `9 B( g# Z* ^8 @& r" T. s# B2 T
IF[#22 EQ 1.]GO3
* c* u4 l: l& f: t4 U" z; p1 p7 f9 b9 JIF[#22 EQ 2.]TH #500=#500 OR 2.
& ], F  d; ~0 M+ p: c% |+ n' [) zIF[#22 EQ 2.]GO3
* ^& k& z( b! t. }7 {+ E) @) hIF[#22 EQ 3.]TH #500=#500 OR 4.
  ]+ V2 N& w  j3 bIF[#22 EQ 3.]GO3
0 N3 H! ?; N1 h. B1 y( ?2 [IF[#22 EQ 4.]TH #500=#500 OR 8.% O) L1 [' n4 D7 d2 N9 L
IF[#22 EQ 4.]GO3+ C$ r( [2 t0 i1 y# Q) X8 H& }5 ]
#3000=1.(#1-MODE-ERROR)
; O/ r$ _4 T8 E+ W% WN3 #11=FIX[#11/10.]
8 S4 c2 T5 G0 f: e, h; j, SEND1+ z4 [7 L/ o1 S9 G! a
M99+ K' ^  F: y4 }

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

#1=1234.
( s" S& C1 r% A* J* M- u- C#11=FIX[ABS[#1]]5 Z+ X6 ~" G  g' _
#500=15.(全部装满，让下面逐一减去)
! U7 [8 k* G4 m7 z  H" w5 w+ z8 VWHILE[#11GE1.]DO1
0 Y! [0 c1 ]- o; e% ?" _" J#22=[#11*0.1-FIX[#11*0.1]]*/0.1* `$ v/ f. ^8 Q2 y! e
IF[#22 OR 1. EQ 1.]TH #500=#500 XOR 1.
' Q1 i, N) Y8 p: WIF[#22 EQ 1.]GO3
5 o' l' U6 I7 Z8 b3 s( s4 S0 OIF[#22 OR 2. EQ 1.]TH #500=#500 XOR 2.
6 ~; }. ?$ M0 ?2 F' h+ b, i& ?* hIF[#22 EQ 2.]GO3
' R2 H/ H- \: p8 j: ^IF[#22 OR 3. EQ 1.]TH #500=#500 XOR 4.( W/ z9 X9 i, b+ ?
IF[#22 EQ 3.]GO3
, _# \6 k7 W9 L- {( \7 E" l/ YIF[#22 OR 4. EQ 1.]TH #500=#500 XOR 8.# S& w. l) [4 K: ^' l) @* l
IF[#22 EQ 4.]GO3
! R" ]1 D0 [1 C: V% J9 t#3000=1.(#1-MODE-ERROR)
2 K0 L5 M/ D9 q& O8 U# XN3 #11=FIX[#11*0.1]
- L8 ^. n  Q* j/ n6 ~END1
; c3 \! f" R# [# r. J' JM99

#1=1234.% {2 F$ J1 N4 D/ g0 A( c2 Q4 M( N
#500=15.8 p# N/ a' B4 ]2 `3 @
#11=ABS[FIX[#1]]2 x7 ^) l" U4 B. S5 g& N/ v
WHILE[#11GT0.]DO1# p: n( a* N& D- R/ m7 Q" l  j
#22=[#11/10.-FIX[#11/10.]]*10.8 L8 Z, }5 G; N5 _
IF[#22 - 1. EQ 0.]TH #500=#500 - 1.! Y- O, @! t: \, ^' x- C  `% c
IF[#22 EQ 1.]GO30 Q. V1 h) k# T: T7 |
IF[#22 - 2. EQ 0.]TH #500=#500 - 2.
- a6 _1 ]) g& r& a1 @8 c1 |9 {IF[#22 EQ 2.]GO3# k4 J3 G" c/ z9 N9 G
IF[#22 - 3. EQ 0.]TH #500=#500 - 4.) J8 J. k/ |( k& D, |$ m
IF[#22 EQ 3.]GO3
5 p! d& C2 r$ S. l3 |. M! J( H, vIF[#22 - 4. EQ 0.]TH #500=#500 - 8.
4 l3 \' V0 |6 |IF[#22 EQ 4.]GO3/ @. T$ T" P: ]( q. d
#3000=1.(#1-MODE-ERROR)6 Y2 i& ~- ^) \' w  @
N3 #11=FIX[#11/10.]  V/ |8 A6 R" p: |0 u  `  y$ j7 r
END1" T; i( |+ B+ ?
M99

#1=1234.: m. m- [3 i0 n
#11=ABS[FIX[#1]]9 F6 a3 p! j" x1 u! O7 {" ~
#500=0.% f* O0 e/ H8 M
WHILE[#11GT0.]DO1
! m! V& E$ S! M$ k5 ]6 O# `#22=[#11/10.-FIX[#11/10.]]*10.
' U" W. Q' F* T* F. H- f( QIF[#22 XOR 1. EQ 0.]TH #500=#500 OR 1.* p' L2 L: ]& `% b
IF[#22 EQ 1.]GO38 M- y2 d# u, a  ]& k0 Y
IF[#22 XOR 2. EQ 0.]TH #500=#500 OR 2.
% y% I+ G. G9 ^& s2 @IF[#22 EQ 2.]GO3" Q( B' q% C" _4 c8 c
IF[#22 XOR 3. EQ 0.]TH #500=#500 OR 4.8 o9 ^/ c# F7 {" W
IF[#22 EQ 3.]GO3
# d6 V5 S; l; N* |* C$ ^+ A; RIF[#22 XOR 4. EQ 0.]TH #500=#500 OR 8.
" U$ Z" k; F4 q- _& V# X+ b- W$ ~IF[#22 EQ 4.]GO3' t" i$ q3 `7 `
#3000=1.(#1-MODE-ERROR)+ g/ Z6 Z$ J- r8 u% j1 u' U+ v9 g
N3 #11=FIX[#11/10.]1 J9 X; `9 \0 c# e
END1  a! b$ t* S/ d! M: \
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