设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12761|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]! @) W, T$ H  {
to setup
  _, y. Z! G# m  r0 K  clear-all0 @; i; R! |: w* q! u
  setup-patches
4 O1 y* X1 }- X( ?) K8 r( Z/ l  create-turtles 1000 i; i% f6 h$ ?( E: [6 o# m
  do-plots
! j  b  ?9 [+ a  j  ask turtles [ setxy random-xcor random-ycor ]
9 T8 \) {- b& C. vend. E3 F) \& E- }  q
to go
' W+ ?$ s3 S; d$ a' M  move-turtles
: X6 a# o( Q6 K  F( ]. q' j  eat-grass5 ~1 w' @5 N! e- }- A  t
  reproduce
* b1 O5 ^$ J" u3 @2 M. g# h* p9 Z( Q  check-death
. f; V: t9 ?- g: f( x9 h3 Q  regrow-grass6 X, B) ~# r" Y& \0 A5 e  l( |
  do-plots& v6 g+ T# u- h4 g* d: ~
end
! R9 c) A' T$ D- R3 Bto move-turtles
6 b8 X* h% @( U$ o2 n  ask turtles [
7 {* ^  u) N% Y1 k8 d    right random 360
6 ~" v/ Q* h1 K    forward 1
3 {! f1 F* i9 x; E    set energy energy - 1( Z# P' k2 ~6 V' S( c$ w5 L
    ]
0 [5 ~" O) O) N' {! D% I& |end
% M. H# `5 m4 v# |8 sto setup-patches- b/ B) y4 H+ y
  ask patches [ set pcolor green ], X' D1 |' Y+ L
end
5 f) l6 q- k% m0 Cto setup-turtles
" C5 s0 a" `; G$ e# a  create-turtles 1002 ~! X" c  E5 a& r4 Y% q3 U
  ask turtles [ setxy random-xcor random-ycor ]
7 c3 k0 A! d: q+ j6 V2 Dend2 h# ^- l2 ^1 V  |9 k
to eat-grass' l; I9 F$ g' d0 P; l
  ask turtles [& b  `2 w, q2 a4 @. t& N- i
    if pcolor = green [
1 C. n6 |% ^+ t      set pcolor black
- J- U/ g5 b6 L% j4 [      set energy (energy + 10)
3 Q# V  ^* i0 n; u/ u  f) O  s' A" g      ]% g, n! O5 u% M% ?; E
    ifelse show-energy?
( i- \+ [& p" _/ T  f- ~( S      [ set label energy ]
& x& K5 i8 I4 b& B      [ set label "" ]
# U) \( O5 _, _3 r    ]
9 O) Y+ D2 D5 ?4 Y: o# e1 F' a- oend9 j# L1 O$ n! [* p1 S. c5 Z
to reproduce7 z# z/ ~2 n' |6 X7 f! c
  ask turtles [. _  I# E# [9 ]# q' A) ^& `/ w
    if energy > 50 [% g, j: E4 o9 W9 I$ U" d! y5 x
      set energy energy - 50
, v3 _+ l1 B3 O! `      hatch 1 [ set energy 50 ]  p5 X- X) l5 O: O2 f
      ]. z* D/ n! w2 ], C2 r* b
    ]
. @: F( Q9 ~- t8 q! C$ ^/ Vend
; y* M( u2 l5 y  G5 D# j" V+ O) T) P' }to check-death
' }& K  S: G9 J; E) w5 c. m) B% E: M  ask turtles [
2 S1 ~7 G- ?% I1 y    if energy <= 0 [ die ]
& |! @4 ]0 Z2 N, ]    ]
) e5 N- M& y" u0 ?( s+ ~: K" }8 L: send
' g/ _+ Z, K' n0 h8 O5 V2 `3 Pto regrow-grass
) \! s" i* s  S0 ^  ask patches [9 x' d0 l; N0 w; X# ?
    if random 100 < 3 [ set pcolor green ]
: c" c3 H# R" T1 B1 S" A    ]! m% R3 U* F6 b$ g" _
end
, V1 T+ y2 z/ c$ x* @$ Yto do-plots9 ^. K3 Z& \/ r
  set-current-plot "Totals"
! ]6 R5 \" P0 _0 V. w1 q1 U* Q  set-current-plot-pen "turtles"
& o: Q9 t# x, I& H# j  plot count turtles
$ l  y5 q0 H/ D4 _  set-current-plot-pen "grass"' e! e$ U$ {; A; Y/ t' e2 W
  plot count patches with [pcolor = green]' c& M( H/ G$ @' `7 G& v& ?
end$ k- m/ Y/ D- P
可是运行时提示no such plot: "Totals": Y" ~4 b2 T# R6 e
error while observer running SET-CURRENT-PLOT7 @) t4 F; T0 [; g$ ]' K6 _
  called by procedure DO-PLOTS
* r( c+ p# O- w) m% Z1 Q9 s  called by procedure SETUP
/ ^8 p) K2 {4 r1 H  called by 按钮 'setup'2 U8 ^! a7 B* R8 P7 c
求大神解答啊
发表于 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
: y& u+ w, K8 j6 U/ \% l7 e' a建一个叫做叫做Totals的绘图框就行了
. [5 p  V) j: |. ^  X
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-15 13:15 , Processed in 0.015924 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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