循环

wjcpcahu

关于logo的循环结构程序可使用哪些源语啊？如loop,之类的，basic有很多，但在logo上好像不能使用。

wjcpcahu

我再摸索摸索。

etamina

loop有吧
loop
loop [ commands ]
0 ]0 K! v: r0 ~& e, P+ WRuns the list of commands forever, or until the current procedure exits through use of the stop
command or the report command.
Note: In most circumstances, you should use a forever button in order to repeat something forever.
The advantage of using a forever button is that the user can click the button to stop the loop

, D% X# N4 F/ ~2 _( u3 c3 Q9 _( Y: b（version 3.1.3）
, p7 B/ V3 `5 r$ E5 ^+ P. R$ o不过好像不大推荐

wjcpcahu

globals[p ]
) C$ x5 K1 }! cto setup
   set p  1
2 N, z9 c# \' R6 K, }4 O   set p  p + 1
   show p
  Y. k) m0 z' E3 d: J: O9 ^5 i   end
$ O9 k8 z2 l+ L4 r! {我想表达的是让这个循环一直下去，直到p=100时才停止，logo语言该怎么写呢？除了repeat，可否用其它原语表示。

9 W2 h' I  q2 C# w7 G[ 本帖最后由 wjcpcahu 于 2008-4-11 10:25 编辑 ]

etamina

将该procedure与一个forever的button建立联系，同时procedure中加一个if p>100[stop], 不知道楼主说的是不是这个意思

wjcpcahu

globals[p ml ]
$ _8 ^9 n2 x0 Ato setup
) ]( G" T1 e% E* I0 u) |( qset ml n-values 200 [ifelse-value (random-float 1 < 0.3 ) [0] [1] ]
set ml filter [ ? = 1] ml
% q( l0 ]5 `" b9 ?+ D( `+ p+ Rset p  1
repeat length ml [ set p  p + 1]
6 d: U" A' q$ i. n1 c/ f! cif p > 100[stop]
show p
end
4 K( y  V; f* S7 j
* g' ]: u/ a6 j+ k7 O/ e& W像这种简单的迭代加和还可以，但如果牵涉到多变量的迭代加和，不知道该怎么表达。还有，如果想取出运行中每个阶段的值而不仅仅是终值，该怎么取呢？
' D* U( m: ?0 b$ s7 ]5 g, _" P
( j1 O" E! N5 n0 K* Y- b" z, b[ 本帖最后由 wjcpcahu 于 2008-4-11 11:25 编辑 ]

wjcpcahu

什么都不说了，都在程序里了。

etamina

reduce也可以做累加
5 r, n1 c; n; H' ?) X% X9 D3 areduce [ ? 1 + ? 2 ][1 2 3 4]
" ^( O1 H& _4 S+ X0 b相当于（（（1+2）+3）+4）