设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10360|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
8 u0 g& {; W$ Y% D' C1 Hto setup
! y' ?" m, L6 u7 L  clear-all
9 |0 L# s) F$ Z: z' y  setup-patches
1 {) t4 y; J+ |- n, K% E0 q% o  create-turtles 100
: x! l$ W8 _  n( |5 H6 z  do-plots
* B! N6 i! |$ l! f* M  ask turtles [ setxy random-xcor random-ycor ]
* x/ @! v) K7 }2 ~end
+ H1 p  J$ i- m  y# [$ Z" mto go
; C2 f% ~% g7 q+ t7 `- H" k  move-turtles
8 F: @, }5 b* t- A  eat-grass( p+ t# Y# M, Q& e# r2 J6 U
  reproduce
4 k1 y- W! f" m9 a  check-death
. `: g* {5 J9 a& @4 S% J2 k& @  regrow-grass6 l# E2 z9 Z: c3 \$ V$ D
  do-plots% l3 y5 X1 q) u0 z
end
9 G& i7 }% {8 M- ~4 [7 w# _7 Vto move-turtles5 B2 S/ U5 P! }$ {, i. w
  ask turtles [1 G3 d& I  {/ z( _! ?3 L
    right random 360
1 m/ ?4 U1 _1 [! |4 o; }6 e, A    forward 1
' L) G* W% t5 @5 n0 ]' E7 g9 v    set energy energy - 1. L8 i5 [4 G2 \& y& K/ K* `
    ]
5 F6 |5 \9 f* X" fend% n) d' ^0 o& X' M! y% Q
to setup-patches4 z! `& V8 d: `  [7 v! j+ E7 w9 T& n
  ask patches [ set pcolor green ]
! E5 l# S" f; C  T" h9 _& K) Nend
3 c& r7 H( H4 N+ Yto setup-turtles
5 [0 ~. f; a( b% `& L$ M. {  create-turtles 100
' E- C' x7 y8 ^$ g- C( m% P  ask turtles [ setxy random-xcor random-ycor ]
: g) K+ ?6 e1 u" u4 l3 E7 gend! I3 D4 y/ m" d3 F5 W
to eat-grass
0 c7 D- ^) v% i4 Y  ask turtles [. j7 V- r2 K. R2 r  O
    if pcolor = green [
; I; X. E: ^. _      set pcolor black
' [9 H, p7 ^0 d+ C5 F) O+ F* V      set energy (energy + 10)
3 N7 ?2 m' g. r5 b5 k0 t  b7 a      ]1 B# R- G2 `1 S' _# `  I2 `+ F+ d6 u
    ifelse show-energy?
0 M# B7 t1 E0 s: M+ F      [ set label energy ]
3 c' d5 O7 _; h' ]+ q" e, h1 X      [ set label "" ]3 S1 [2 M, e  s( i* }- `& F" _
    ]% ]  M7 f* P' S4 E, F  i& a+ X- G
end3 y# o  s" `- l, v% X
to reproduce9 G5 Z/ T! ^& G9 R+ o
  ask turtles [4 q2 F4 t3 q0 N
    if energy > 50 [
4 l. m  S& n+ t9 @4 D      set energy energy - 50
* F1 M+ J5 t6 K; c& A: X      hatch 1 [ set energy 50 ]
3 |1 S* m8 O# W      ]
: c/ `1 o& Z6 ?( M+ k    ]
* j# e. j& ?& R# k! I% S, P% Nend! |, P  q6 J( o) ?
to check-death
3 }2 [% D9 n  d3 j9 ?0 U  ask turtles [
, ]1 v% f( X" i: {6 }, C) Y    if energy <= 0 [ die ]0 ]- {0 s/ |; I0 M6 h
    ]4 `# i, c3 y8 i. ]  w
end
; D7 [$ ?9 S* f( r5 c* H& P# uto regrow-grass9 e. K& ^5 ~( o' j- F8 [3 P5 X
  ask patches [# ]- |+ p3 ^7 K2 z
    if random 100 < 3 [ set pcolor green ]2 C# z! n- h4 E1 |$ Z: n
    ]' a, z* C  D. c# f
end, V8 _* H! R7 U+ v2 g; [' Z+ n
to do-plots# N. I; b8 j& d7 Z7 ^& F
  set-current-plot "Totals"
# f+ d( ?2 c2 _  set-current-plot-pen "turtles"" x+ m" u- \% C9 ?% u$ Y9 p5 _: |" w
  plot count turtles
( G$ F8 r6 ^% Q  set-current-plot-pen "grass") K7 f# X9 t, f: ?* f7 {, s* H
  plot count patches with [pcolor = green]1 O$ K9 e& `4 _, k3 p( K) x
end
  T6 E) [( s3 y6 c3 y$ l' z) Z0 z可是运行时提示no such plot: "Totals"
3 I4 f$ a4 M+ o, e9 cerror while observer running SET-CURRENT-PLOT+ D' T8 W! B6 |1 _- k
  called by procedure DO-PLOTS
$ ~  F7 {& e- x  called by procedure SETUP, e4 J* B5 \* S% _
  called by 按钮 'setup'; ^; E0 E+ O  h. d" l; H5 B
求大神解答啊
发表于 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 + G0 ]: I7 W; O* |+ P% M
建一个叫做叫做Totals的绘图框就行了

9 M* u  u& i8 K. l( b哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-8 05:41 , Processed in 0.016371 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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