设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12609|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
% c/ L, V& X% b; T$ Cto setup
0 f6 z) _8 C9 D, [  clear-all! F! y3 }) T* T% S
  setup-patches+ k2 i& L8 E  K  ?1 e! X( o7 F
  create-turtles 100
2 n0 `% V0 ?9 Y, m$ H5 K  do-plots/ G7 f/ k# \3 s
  ask turtles [ setxy random-xcor random-ycor ]! [" D6 H3 \, |) S
end
/ J$ v' N4 V& j( T- u0 rto go, k+ u% G4 r: @/ u! ]2 X
  move-turtles% y, V8 l: n1 d8 B  a' M
  eat-grass
0 t- \' i' |+ l# g  reproduce. t  R* s- |5 h* D& n) u
  check-death
/ G2 N3 U3 m$ i9 y# p  B% ?  regrow-grass
! X6 s  ]; ]% b& W7 k  do-plots% o& B) {6 q; c( _
end  {9 j( @9 L' F# E' G
to move-turtles
$ _( E/ [4 E* K+ W/ {9 _. s  ask turtles [. w: e- a  r( C& f
    right random 3606 g& C" o; i: d* h
    forward 1
- J2 U! q0 I8 u  k5 O9 _5 D0 U+ P    set energy energy - 1
" X/ m9 b. P: X! f( Z! F0 f: t    ]" a# O. ~- r2 U$ I# b. q) p
end
: j8 \( N, p3 x. p/ y3 s' y0 _$ \* Wto setup-patches7 c7 x5 O1 E/ N+ e8 c& ?9 j1 B
  ask patches [ set pcolor green ]+ n6 _, e9 o- Q
end
; G+ Y* V' ~5 G; |# }" nto setup-turtles
& R/ ?4 k" C$ S! T4 l7 j  create-turtles 1008 `9 x5 ]2 I: A* x% l- `' I
  ask turtles [ setxy random-xcor random-ycor ]' n% ~' {3 C1 X, p4 x, H* }
end
0 D* U6 C- Y/ m- ]8 ]. ?5 r/ Ato eat-grass
" L. L. g  W5 `  g/ I7 O  ask turtles [
7 s! z/ h6 v9 L- [, M8 B4 [, d    if pcolor = green [0 l1 H7 Y! I) ^; u0 o3 P5 V  I
      set pcolor black
: k, n+ h9 _0 j7 U$ O9 s      set energy (energy + 10)3 k* Z7 b. x/ g& V* V
      ]7 x+ F& Z! ~! `7 k
    ifelse show-energy?7 V& @( p# k0 l7 Q8 H8 H7 O
      [ set label energy ]2 x- H) r2 O  l$ X" w, c6 S
      [ set label "" ]% q$ ~- }! ^- P* C; k
    ]3 U: K7 ?% s+ {& ~. m3 w% D
end8 v' p, k1 H1 ?6 t6 S5 i
to reproduce2 D1 q8 C; ^- B5 _( k% p- G
  ask turtles [
4 V9 {- G  o! k. a8 w    if energy > 50 [$ U# A6 n9 ~/ j( Z5 m. S
      set energy energy - 50
6 K1 z* I9 ]9 Q$ K      hatch 1 [ set energy 50 ]6 S' m& p4 \7 W% I8 |! F4 \
      ]; ~2 g( A+ e/ @& l9 |( V* h8 }
    ]
; \- Z: z7 M4 M8 n# c4 N. k: Cend1 q4 X! M2 ], Y# K# ^2 `4 D
to check-death
, _& T" J8 c! b  ask turtles [
( T4 o* [7 U, T7 O0 h5 O; _& h    if energy <= 0 [ die ]
* ~$ {8 @3 X1 Z+ Q; _    ]) D% i/ q+ u+ G
end9 I* ?$ z7 Q$ b& J  ^
to regrow-grass
. f' V/ Z5 s% [- E4 ?  ask patches [$ D0 C; u; T- l7 {7 b2 g/ [
    if random 100 < 3 [ set pcolor green ]# S8 G4 k8 ~. Y
    ]6 O1 g6 z8 n! k1 k# v$ Z
end
) ?; }, A# |8 }0 K% q" @to do-plots
! X0 L% \/ K1 J$ G( W1 O9 u  set-current-plot "Totals"9 i& n* |4 ~; J" q  E$ |' B% M
  set-current-plot-pen "turtles"
. _# V; r4 G4 T+ P  plot count turtles
$ a! H* l( d/ y  set-current-plot-pen "grass"; B4 v0 w9 c, f0 b" N1 a$ r+ u
  plot count patches with [pcolor = green]
7 j/ s& o7 N& d- c0 ?1 J9 Yend$ Z  Q5 `4 \; |( v: [+ j/ F2 l
可是运行时提示no such plot: "Totals"
( N6 Q$ |+ [) }5 \  o" `) merror while observer running SET-CURRENT-PLOT6 c: J1 _, C& w9 I
  called by procedure DO-PLOTS
$ P( g3 i0 y0 v/ @( V  called by procedure SETUP
* h' f" G; U$ R- E2 F* y9 E  called by 按钮 'setup'2 f$ u2 _8 b: ?$ \2 g2 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
+ P9 U2 [0 g( ]建一个叫做叫做Totals的绘图框就行了
, U$ R4 n$ x* ]6 A. f- [( k
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-5 00:00 , Processed in 0.024075 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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