循环

wjcpcahu

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

wjcpcahu

我再摸索摸索。

etamina

loop有吧
$ _- k3 ^' p. V' c: _, o1 S8 ploop
loop [ commands ]
& ~! s5 b' s) n5 N5 [- @+ P- V- r6 G- uRuns 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.
1 o" l6 K$ x* @. VThe advantage of using a forever button is that the user can click the button to stop the loop

8 `6 w! [$ S/ c- p( Y+ Q（version 3.1.3）
不过好像不大推荐

wjcpcahu

globals[p ]
" m0 C5 W1 V5 i' q, gto setup
  _( ^6 h" Q. h+ z- L; S   set p  1
0 Q  L2 o' S7 c; D   set p  p + 1
   show p
   end
7 A% H, t' K) g) X" _; y我想表达的是让这个循环一直下去，直到p=100时才停止，logo语言该怎么写呢？除了repeat，可否用其它原语表示。

' `7 Z* s; \+ c, g; G! z6 H[ 本帖最后由 wjcpcahu 于 2008-4-11 10:25 编辑 ]

etamina

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

wjcpcahu

globals[p ml ]
$ ^2 z1 ^: B; j* d$ G3 bto setup
7 M- K+ T% q+ h* Z, x) B6 yset ml n-values 200 [ifelse-value (random-float 1 < 0.3 ) [0] [1] ]
3 l/ `0 Z1 }5 m' a- g; Uset ml filter [ ? = 1] ml
- F$ h5 M1 b4 c; R8 z) e) |$ tset p  1
; Y# H: M1 w' r3 b6 m1 I! h' a* ?repeat length ml [ set p  p + 1]
- \" G& j! }# s  S4 t! wif p > 100[stop]
show p
& _" @0 ^1 r: \+ G% @6 eend

, S2 L# w1 b5 y1 g像这种简单的迭代加和还可以，但如果牵涉到多变量的迭代加和，不知道该怎么表达。还有，如果想取出运行中每个阶段的值而不仅仅是终值，该怎么取呢？

[ 本帖最后由 wjcpcahu 于 2008-4-11 11:25 编辑 ]

wjcpcahu

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

etamina

reduce也可以做累加
3 H+ |% X4 j0 g2 k% Q3 r3 ]3 D% m0 C8 Sreduce [ ? 1 + ? 2 ][1 2 3 4]
: k2 u0 p5 g7 L7 g4 S; k9 @相当于（（（1+2）+3）+4）