循环

wjcpcahu

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

wjcpcahu

我再摸索摸索。

etamina

loop有吧
loop
loop [ commands ]
Runs 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.
The advantage of using a forever button is that the user can click the button to stop the loop
- \1 S0 l8 ]- S
, Q6 u* o6 I# ]1 {: m& D0 |（version 3.1.3）
) V. b+ O6 e: g$ T不过好像不大推荐

wjcpcahu

globals[p ]
2 F* \* f; t+ M, X) T4 ]( z; C/ l2 m* b$ uto setup
   set p  1
! X  m, X" l# O9 H5 Z  c   set p  p + 1
; q5 f  Z2 H* e- J: w   show p
7 n& O; h' b$ I+ B2 G. o1 A) ^   end
我想表达的是让这个循环一直下去，直到p=100时才停止，logo语言该怎么写呢？除了repeat，可否用其它原语表示。
, d% q; B$ F1 s
. A- j& A% O. t9 G" D( H[ 本帖最后由 wjcpcahu 于 2008-4-11 10:25 编辑 ]

etamina

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

wjcpcahu

globals[p ml ]
to setup
- v! @, F1 C5 r, |, u6 \' [3 aset ml n-values 200 [ifelse-value (random-float 1 < 0.3 ) [0] [1] ]
' X- [$ i, ^  X5 p# Z$ M: nset ml filter [ ? = 1] ml
# x1 R! N# q. x  |" Zset p  1
5 x/ _4 {! w" j/ i6 U' q+ N- `repeat length ml [ set p  p + 1]
if p > 100[stop]
show p
4 Z& y2 a' o: p4 H3 y) h6 F4 k8 }end

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

( k" A6 \7 G9 Q[ 本帖最后由 wjcpcahu 于 2008-4-11 11:25 编辑 ]

wjcpcahu

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

etamina

reduce也可以做累加
reduce [ ? 1 + ? 2 ][1 2 3 4]
3 h2 {1 j' k% S4 X# L) m相当于（（（1+2）+3）+4）