设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12198|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
& d0 d5 B6 [. V" Kto setup6 ^! _+ r& |( {( @3 @
  clear-all. g/ A" {" n/ q+ k- |
  setup-patches# r( o& y# O6 V0 [
  create-turtles 1004 E  F0 f, p# A" X' E1 Q# V+ X
  do-plots* L" A1 |$ q4 }! L) t9 ?: g2 z( ~; [# P
  ask turtles [ setxy random-xcor random-ycor ]
6 \# F" s9 `1 ~end6 l  Z; H) J0 {% G0 n6 f
to go
' g5 `% ]* O: d# y5 `  move-turtles) |* d% K7 ^" w1 p5 z- Q! P
  eat-grass7 H. w1 L6 V. {
  reproduce
5 V5 u/ t) G) {# |  check-death$ _3 `  Z5 m5 W$ d
  regrow-grass
' N* B! r1 K0 q1 Z  do-plots
; M+ M/ r9 k' F/ wend
7 X( r" L* C0 t/ ?5 G2 x& w* Wto move-turtles
2 F* T8 H# |* p1 ~- V  ask turtles [# F% |$ b3 |2 Y
    right random 360  `/ e. ]6 S. C, A1 l, G$ ]
    forward 19 c, H/ ^- I% T7 g  s9 Q8 w
    set energy energy - 1
' K) ^) [# }+ _/ @. v    ]- a+ y9 V; E7 y  @& u: p/ }
end! @( V1 S% L7 M9 U5 O9 w% E
to setup-patches' y" S* Z* v0 t. X& Q1 ?
  ask patches [ set pcolor green ]
) ]& t; U; Y! ~* e7 ^# n* H8 Mend
6 N* Q5 P' g* d- A/ j  Jto setup-turtles. H: q1 ]3 p7 t% D* S
  create-turtles 100% H  P. u# ?7 p  C: s
  ask turtles [ setxy random-xcor random-ycor ]' {; \4 m8 r+ L( {2 E3 M* J
end9 O1 K" _2 B" b0 y/ H6 j3 Y
to eat-grass
2 s+ _% ]9 o: H# `  ask turtles [
# [& P# A) w& F; v    if pcolor = green [# r) w( ]: m# K
      set pcolor black" v4 t$ `( T) a; c" i) `9 o
      set energy (energy + 10)
% y% r% n  N: B  D# z: N3 B$ |      ]& t! n1 {" [9 d: ~
    ifelse show-energy?' w0 Q* }6 L2 m! a! s! i
      [ set label energy ]3 C1 W  x- I) T1 B
      [ set label "" ]$ t# l8 a. K7 m; O6 G9 H- }7 y
    ]
  j" f! ]/ q, {1 E9 Wend
4 k9 N+ {0 e- P6 Z3 oto reproduce; a3 [0 {0 G" _8 H
  ask turtles [* A' J- A2 m' X4 w3 w2 p- z
    if energy > 50 [8 f6 I% f( P( B
      set energy energy - 50
6 D& r! \' `: f7 h      hatch 1 [ set energy 50 ]
4 P$ m! y3 @5 G/ B, D      ]* M3 d0 g" N0 r$ C
    ]& _) I# v- b5 P5 Z+ f7 E* V$ d3 d
end7 v% d# E9 a/ R/ N
to check-death2 v$ V/ o/ N! `* n4 U) i
  ask turtles [
, Z2 q% y1 F# h1 w' \$ T6 a, {    if energy <= 0 [ die ]1 d( u+ ^3 n, z
    ]
* d6 k  o2 p* u; d& ^& qend
: Z( k- P4 k: N, M9 f7 k' _% [& |6 X% Jto regrow-grass/ _1 H7 h/ F( ~1 i  A+ {+ _8 @+ ^
  ask patches [
8 ?0 m6 s- C& a4 C; {3 `    if random 100 < 3 [ set pcolor green ]
3 W9 O0 S2 A! F* y* G7 m5 D/ X    ]
* e8 u1 K+ ]  e% i- W. hend  h& F. Q3 T( x( u
to do-plots
+ D  W' v# ?! b- c$ j; E: o! N  set-current-plot "Totals"
" }1 n7 B* G( `  Z( m8 ~, U  set-current-plot-pen "turtles"
/ j7 m& O! ~3 c  plot count turtles
, C/ p; v1 i5 x# ?  set-current-plot-pen "grass") Y9 |  K2 l0 O7 l9 y- u
  plot count patches with [pcolor = green]; b$ B- Y& |( O5 O4 I
end
% T- }! v- X) r可是运行时提示no such plot: "Totals"  w* m. o0 }* s1 o
error while observer running SET-CURRENT-PLOT
2 Y$ c* c9 m7 \  called by procedure DO-PLOTS
; U9 T9 a& O0 |' g1 T  t4 B2 x  called by procedure SETUP: n9 b) H- @3 p' X# X
  called by 按钮 'setup'
& u; B( ^( S! W求大神解答啊
发表于 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 - Q# e7 e$ Y8 {
建一个叫做叫做Totals的绘图框就行了

7 D7 d- F1 G; R1 y9 S3 ]! \: Q哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-1 05:43 , Processed in 0.017606 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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