设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12428|回复: 4

[求助] 自学中文手册时遇到了问题,求高手解答

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]& Y% T5 f, ?+ n% e! p& o
to setup
3 N2 G' D8 |) p" J. Z) S5 _" T  clear-all
& E, `4 [6 k" K1 m  setup-patches+ ?1 z4 b: J7 b( M+ v
  create-turtles 1000 X3 C6 e4 U( P( l4 c) _
  do-plots
! p- W9 O; a+ r* R( D3 J2 Y& m  ask turtles [ setxy random-xcor random-ycor ]4 n3 J) }' X0 x; F7 P: N) Y# [$ L
end
7 a- T) y5 w5 f3 D5 Oto go
! r7 D4 o9 q3 u0 X; y& R; t" N  move-turtles# i3 r( P8 ]- K5 U/ f) X1 @
  eat-grass
" ?; `, G. T9 w  J8 z5 y( Z  reproduce) L5 h* }+ K' X5 \  p
  check-death) q. E& s/ N- t% n  t- M
  regrow-grass
, L" i. m4 r8 T( M) k  z' i( Q; f. |0 D  do-plots1 l! j; T) g! j' O6 }- D
end2 x! `! R7 ]% t5 t- `/ U1 Q/ P- _9 q  c
to move-turtles& |3 ^& i+ y: b. s
  ask turtles [- y) J" C7 p4 v- P
    right random 360  T. y0 \! p( l6 l5 H: I0 |' ]" [
    forward 1
" ^6 K1 @  M- D& g! o7 r; N6 W    set energy energy - 1* R. n+ k1 Z: _$ u
    ]
0 V( ?* Y. k1 i7 Hend' R0 Z2 ^  K1 T
to setup-patches/ X/ K2 N* f1 v" w
  ask patches [ set pcolor green ]6 A( {( D5 n; f# h% f& N" y$ ~
end
" _# h: T6 t$ ]& r( Zto setup-turtles$ ~: t. ^- O/ {- A: v, e
  create-turtles 100
; [+ `7 i! z$ _  H* B  ask turtles [ setxy random-xcor random-ycor ]- i  N4 `. q2 b3 z, ^
end' L9 |7 u4 S2 k. X2 I
to eat-grass
/ d- W! m; R" m+ O3 Y# H  ask turtles [
5 p: Q! K  V# U! d. F0 j+ o1 Q/ ]    if pcolor = green [$ L$ T' ~+ a1 h! o. o" ~
      set pcolor black
) q. C  b4 `3 r) k' G      set energy (energy + 10)
' X& m% D5 Q1 H, L# @! X+ W      ]
* s6 x! O) @! v% P8 n: M+ t5 v( m    ifelse show-energy?: V5 E4 V3 `0 l" C7 a2 o, E6 V
      [ set label energy ]% x: |, n  e5 W; [% p. @
      [ set label "" ]( ?+ c2 A( y0 |+ Z. o) `; x- r' y. u
    ]1 x. X, j3 E4 l$ x
end# p& D4 K. A( x) {; m5 w9 f
to reproduce8 l9 r6 r! I7 |, N$ M3 g% F
  ask turtles [
: E% N3 ^7 c8 M& B" o    if energy > 50 [" u( `/ O; c9 Y9 b" p$ {3 f( [' q, t
      set energy energy - 50
( A- S, K+ G& ~2 x$ X      hatch 1 [ set energy 50 ]
/ C. P! k. U$ t7 G( ?      ]
+ X; p1 ~$ t8 k6 k$ u3 p$ x    ]1 k% q$ m8 ^2 z0 Z7 x6 D4 y
end
4 V/ S7 n* @4 K: _& f. `* e( fto check-death
! O; m! G; {% S6 S7 m  ask turtles [
6 Y; B. @: k: @; \2 X6 w$ A' _    if energy <= 0 [ die ]6 O( o* T# g* x5 Y
    ]
" @# I5 c/ x0 A' V' F/ b2 Qend4 m# L$ i4 K" e% ]
to regrow-grass. k: H; A" b) a% k0 C
  ask patches [7 E8 P: ]9 ^/ q# d6 S0 ?$ U
    if random 100 < 3 [ set pcolor green ]8 J, Y7 L' d3 s; f  \$ }( ^2 P
    ]
" g9 e/ B3 L0 O: U: wend( i3 `7 U* ~+ c0 V) K- H
to do-plots
0 @7 c, o  `( J& T+ {- M1 k  set-current-plot "Totals"" ^: D8 y& R. y
  set-current-plot-pen "turtles"
3 ~7 m$ i! I. V  U  plot count turtles
/ t5 E9 S% {, q. S5 C  set-current-plot-pen "grass"
% w8 ^% b& i0 I  plot count patches with [pcolor = green]
# I# _; l7 K5 y! e! I  G+ Send
, C3 [# `' o& q$ Q* K$ ^9 u% Q可是运行时提示no such plot: "Totals"
# G: c  W- n/ K" W/ yerror while observer running SET-CURRENT-PLOT/ t* M$ g5 `  F, e6 f
  called by procedure DO-PLOTS
' K0 c# G$ Y" t+ d2 D  ^9 u3 \+ Q  called by procedure SETUP9 x& T! ?) w/ j. T0 b
  called by 按钮 'setup'' i1 @8 o9 J  X: y* ~+ E+ q  e$ p
求大神解答啊
发表于 2013-5-29 00:25:38 | 显示全部楼层
no such plot: "Totals",就是说你的界面里没有叫做Totals的绘图框
发表于 2013-5-29 00:26:26 | 显示全部楼层
建一个叫做叫做Totals的绘图框就行了
 楼主| 发表于 2013-6-4 12:24:45 | 显示全部楼层
emlyn 发表于 2013-5-29 00:26 5 F7 g' O! L0 G7 i# W7 K- S# t3 b, Q
建一个叫做叫做Totals的绘图框就行了
8 c$ q1 M" p  |# Q. z8 z* T
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2026-8-20 09:05 , Processed in 0.019599 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表