循环

wjcpcahu

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

wjcpcahu

我再摸索摸索。

etamina

loop有吧
4 Q: P2 G1 {8 floop
loop [ commands ]
% U: i, S9 X* B6 nRuns the list of commands forever, or until the current procedure exits through use of the stop
" l  c4 D( z" d7 ~/ l/ F* ^8 Icommand or the report command.
0 q0 r! w! T& _Note: In most circumstances, you should use a forever button in order to repeat something forever.
- E3 m3 U) t- U& ]  a% YThe advantage of using a forever button is that the user can click the button to stop the loop
3 @: z0 S' f8 o: B5 A* p
（version 3.1.3）
- Q4 E9 n; J+ |4 d: w不过好像不大推荐

wjcpcahu

globals[p ]
! p$ Q" j1 i+ Oto setup
+ q7 i4 j2 P% o% F7 d   set p  1
   set p  p + 1
$ G& j1 y# J" S, X0 _% P. W+ ?5 [   show p
   end
% U$ |3 q1 Y1 `- k" G: T1 e我想表达的是让这个循环一直下去，直到p=100时才停止，logo语言该怎么写呢？除了repeat，可否用其它原语表示。
7 d& R: f9 v0 ^6 a# {4 p
! I) Y% l: M% N" ?& f6 T[ 本帖最后由 wjcpcahu 于 2008-4-11 10:25 编辑 ]

etamina

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

wjcpcahu

globals[p ml ]
) n9 i' m- a1 N, p: Y- t$ Z# Eto setup
9 ?3 \' c5 Z/ \set ml n-values 200 [ifelse-value (random-float 1 < 0.3 ) [0] [1] ]
set ml filter [ ? = 1] ml
set p  1
repeat length ml [ set p  p + 1]
; ~0 T- w. ^7 L+ ^if p > 100[stop]
show p
- C6 q: }- j6 m2 uend

/ Q3 F( b0 N$ |# k! p像这种简单的迭代加和还可以，但如果牵涉到多变量的迭代加和，不知道该怎么表达。还有，如果想取出运行中每个阶段的值而不仅仅是终值，该怎么取呢？
# j3 n- I& X+ [- e8 t7 z
9 p# \  p/ s/ T2 K- d  m& `7 A[ 本帖最后由 wjcpcahu 于 2008-4-11 11:25 编辑 ]

wjcpcahu

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

etamina

reduce也可以做累加
reduce [ ? 1 + ? 2 ][1 2 3 4]
. ]3 P; G; {# f- C# S相当于（（（1+2）+3）+4）