循环

wjcpcahu

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

wjcpcahu

我再摸索摸索。

etamina

loop有吧
) }) `* I: \* n8 i4 oloop
9 N9 Z  P0 _7 C- R. y8 X: Jloop [ commands ]
Runs the list of commands forever, or until the current procedure exits through use of the stop
$ R, s& i* k: ^7 }8 W7 h9 jcommand or the report command.
Note: In most circumstances, you should use a forever button in order to repeat something forever.
% g' d$ \% V$ s4 dThe advantage of using a forever button is that the user can click the button to stop the loop

（version 3.1.3）
+ p- u3 q( J8 m1 H( U8 _! E; e不过好像不大推荐

wjcpcahu

globals[p ]
to setup
   set p  1
- `. x6 o9 Z5 ^" X0 h; j8 u+ M   set p  p + 1
9 n) F0 A0 P) F* ?% D! {   show p
  h9 F, T+ a- t; u6 d/ b   end
我想表达的是让这个循环一直下去，直到p=100时才停止，logo语言该怎么写呢？除了repeat，可否用其它原语表示。
4 M8 @+ l5 h6 a3 R; l3 Y4 ?
[ 本帖最后由 wjcpcahu 于 2008-4-11 10:25 编辑 ]

etamina

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

wjcpcahu

globals[p ml ]
8 r. _" T  A1 Q: Mto setup
! L1 b# L( P, H5 b2 z- X# Eset ml n-values 200 [ifelse-value (random-float 1 < 0.3 ) [0] [1] ]
set ml filter [ ? = 1] ml
  m6 G7 X0 ]8 q' v' n8 k- F' @set p  1
3 W. b6 E; ?6 `) g) C; L2 Xrepeat length ml [ set p  p + 1]
) W9 `" I6 x- c% b0 g# Xif p > 100[stop]
show p
4 M( W' L- s. H& ~/ Mend
1 A& H3 A5 E' U) e
像这种简单的迭代加和还可以，但如果牵涉到多变量的迭代加和，不知道该怎么表达。还有，如果想取出运行中每个阶段的值而不仅仅是终值，该怎么取呢？

; |1 M9 q% `& n$ I9 ~[ 本帖最后由 wjcpcahu 于 2008-4-11 11:25 编辑 ]

wjcpcahu

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

etamina

reduce也可以做累加
  H, n9 l( N6 {7 H. \- |reduce [ ? 1 + ? 2 ][1 2 3 4]
4 z! M  B4 u$ M相当于（（（1+2）+3）+4）