循环

wjcpcahu

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

wjcpcahu

我再摸索摸索。

etamina

loop有吧
3 Z0 l9 J8 ?/ E$ [0 x1 p: \loop
+ E' U4 E0 g5 ~" F. h+ w& R) N9 N+ O, iloop [ commands ]
5 J2 ~% o7 I  {8 x7 u# }0 ]- XRuns 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.
9 a  e- ?, M/ w1 }5 ?The advantage of using a forever button is that the user can click the button to stop the loop
/ x6 ^3 i4 P6 v2 a5 Q+ |' D1 X
（version 3.1.3）
7 m- y. g) O; T: s不过好像不大推荐

wjcpcahu

globals[p ]
to setup
   set p  1
   set p  p + 1
) V. r4 y* {1 X" Q$ g7 j& I   show p
   end
我想表达的是让这个循环一直下去，直到p=100时才停止，logo语言该怎么写呢？除了repeat，可否用其它原语表示。
) a- p6 [$ K8 N& G* M: \" G9 S
[ 本帖最后由 wjcpcahu 于 2008-4-11 10:25 编辑 ]

etamina

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

wjcpcahu

globals[p ml ]
5 ^* h- |, x8 ?+ l; r# xto setup
set ml n-values 200 [ifelse-value (random-float 1 < 0.3 ) [0] [1] ]
+ n- A+ ?- c1 g" |set ml filter [ ? = 1] ml
set p  1
1 m- G5 a; w' s) A) Prepeat length ml [ set p  p + 1]
, c7 P% k* Z9 y3 Z" }7 Cif p > 100[stop]
show p
end

像这种简单的迭代加和还可以，但如果牵涉到多变量的迭代加和，不知道该怎么表达。还有，如果想取出运行中每个阶段的值而不仅仅是终值，该怎么取呢？
4 M& D- [& T! `6 M
9 @' `% J% J. z$ R1 p( t" m5 a[ 本帖最后由 wjcpcahu 于 2008-4-11 11:25 编辑 ]

wjcpcahu

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

etamina

reduce也可以做累加
5 m% w* u/ x1 X( I! Zreduce [ ? 1 + ? 2 ][1 2 3 4]
+ ^$ @2 f/ e. d- j相当于（（（1+2）+3）+4）