循环

wjcpcahu

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

wjcpcahu

我再摸索摸索。

etamina

loop有吧
loop
( Z) T/ E1 z5 B2 J3 Kloop [ commands ]
* i/ C. G( Q9 t! b" }6 NRuns the list of commands forever, or until the current procedure exits through use of the stop
8 ?% n6 W3 n' qcommand or the report command.
5 S9 x" A+ E$ K$ L5 r- wNote: In most circumstances, you should use a forever button in order to repeat something forever.
8 i, U  ]# m. Q5 Z$ j$ q$ RThe advantage of using a forever button is that the user can click the button to stop the loop
  t! q( b! t" b) u7 z, T5 ?- J0 U  b
4 ]3 H1 @' z$ ^; {（version 3.1.3）
* J' U: G1 g  U' M不过好像不大推荐

wjcpcahu

globals[p ]
to setup
' D9 s7 k; p9 V7 R9 U$ V   set p  1
, s' M5 r5 s) [; X% m   set p  p + 1
' y6 H; b( L! u2 }' n7 W- O   show p
   end
% q9 L. Z, T* G我想表达的是让这个循环一直下去，直到p=100时才停止，logo语言该怎么写呢？除了repeat，可否用其它原语表示。
1 ?* z: V  X! c- O5 D2 r
7 q+ B, q0 I1 i- O2 f5 I: s[ 本帖最后由 wjcpcahu 于 2008-4-11 10:25 编辑 ]

etamina

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

wjcpcahu

globals[p ml ]
" F6 l  W8 ?& x% g0 j! _' Cto setup
set ml n-values 200 [ifelse-value (random-float 1 < 0.3 ) [0] [1] ]
set ml filter [ ? = 1] ml
  P4 D9 l" h9 R7 Cset p  1
# f: R* A. E' k% Urepeat length ml [ set p  p + 1]
, K+ i+ N9 [0 I, P5 gif p > 100[stop]
, K* a1 I5 y5 p7 @2 F( Zshow p
+ U3 V  w3 @7 f* h+ b* n0 M' u1 Eend
) u* ^, o3 c; O: Y
; A4 A( C$ v$ j7 [. L像这种简单的迭代加和还可以，但如果牵涉到多变量的迭代加和，不知道该怎么表达。还有，如果想取出运行中每个阶段的值而不仅仅是终值，该怎么取呢？

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

wjcpcahu

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

etamina

reduce也可以做累加
' P1 e9 Z/ x7 N$ U- Freduce [ ? 1 + ? 2 ][1 2 3 4]
相当于（（（1+2）+3）+4）