循环

wjcpcahu

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

wjcpcahu

我再摸索摸索。

etamina

loop有吧
loop
6 A; q1 F# t& N0 X) J% c/ Aloop [ commands ]
/ ^" U" s5 ~8 v* i; ?Runs the list of commands forever, or until the current procedure exits through use of the stop
9 b5 |& v" O4 [1 U* [1 \6 gcommand or the report command.
Note: In most circumstances, you should use a forever button in order to repeat something forever.
4 [" p4 O8 N% s% n( e, b3 f0 hThe advantage of using a forever button is that the user can click the button to stop the loop

（version 3.1.3）
2 {9 j9 e) ]9 }9 n; Z2 G不过好像不大推荐

wjcpcahu

globals[p ]
! d2 z( H7 X( ~# r6 H" U% I* Cto setup
  I, f: ^( W3 l   set p  1
3 t! H  Y7 X/ M) e( w   set p  p + 1
8 T; M9 X" M1 N3 k   show p
   end
我想表达的是让这个循环一直下去，直到p=100时才停止，logo语言该怎么写呢？除了repeat，可否用其它原语表示。
& b- o: c( Q9 x
7 @, T5 n  I. C* \8 D: B, W8 N[ 本帖最后由 wjcpcahu 于 2008-4-11 10:25 编辑 ]

etamina

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

wjcpcahu

globals[p ml ]
7 Z) {: j9 z. l8 u2 t2 Fto setup
set ml n-values 200 [ifelse-value (random-float 1 < 0.3 ) [0] [1] ]
  r' u: @; Q/ b- k' Uset ml filter [ ? = 1] ml
/ `, M( N! N+ z- B9 C' W$ s+ \set p  1
; d' N9 u0 s6 N6 v2 U; drepeat length ml [ set p  p + 1]
if p > 100[stop]
show p
end
/ r1 l2 `0 z5 ]7 M- `4 \& C+ m
' E0 I; I' B, D: z  ^2 i/ P% K9 \" I. Y像这种简单的迭代加和还可以，但如果牵涉到多变量的迭代加和，不知道该怎么表达。还有，如果想取出运行中每个阶段的值而不仅仅是终值，该怎么取呢？

3 Q8 D+ i; E! R1 w! g[ 本帖最后由 wjcpcahu 于 2008-4-11 11:25 编辑 ]

wjcpcahu

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

etamina

reduce也可以做累加
reduce [ ? 1 + ? 2 ][1 2 3 4]
7 s; }. u  A( {& ?$ B- ~相当于（（（1+2）+3）+4）