设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10474|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]7 w6 k. n/ O6 ^$ N0 {; B# N  \
to setup+ c: o0 ^$ f0 x( V
  clear-all
9 ?/ N" t3 L  _& F8 n. o  setup-patches0 c& `2 N4 ^; n' W5 G3 y
  create-turtles 100
( ~+ {4 I6 x6 P, q% c7 W  do-plots8 A  A9 L3 g7 ^4 C4 `# O3 d' d* v
  ask turtles [ setxy random-xcor random-ycor ]
- L4 ~8 s7 J2 c& D5 h/ j# oend
$ Z8 ^# t* n2 g6 E0 m2 gto go) P/ t* ^2 l1 y
  move-turtles4 A+ F6 c$ W, p: Z7 q7 q. P
  eat-grass3 f( N% `: M* ?) }4 Y
  reproduce1 }9 n' E& f! }
  check-death$ y8 V5 G2 P* N: W1 `' p
  regrow-grass& |/ X( G" h# |' L  I0 y
  do-plots
" L8 t: B& e1 r  l- Jend
- A: a: k$ ], z# ]: |) H: L" hto move-turtles4 `' @' L4 Z+ m- E* X7 ?0 a+ T
  ask turtles [; l5 K" ~  j0 f# R6 V% _
    right random 360! c$ Y  T0 z; |; {
    forward 1; ]$ f8 {+ |( w$ Q
    set energy energy - 1( G* F$ M. O2 a* i4 F1 `
    ]
+ ^7 R5 l1 s" Z9 ~, ~4 _% Rend
+ v' F: _! O) |5 f- ~to setup-patches
  i& s6 k% V9 C1 l  ask patches [ set pcolor green ]- m4 f8 B2 q) T3 @2 [0 Q
end8 Z, k" ^: J- @; _* @
to setup-turtles& B6 C- y! N  F2 L8 |1 _
  create-turtles 1008 c+ z! `2 a2 u- p  C5 O2 ]  m
  ask turtles [ setxy random-xcor random-ycor ]- w& K& o* C  {9 }( f
end5 M- H6 W8 r1 Q% w
to eat-grass) h, U* C" C& }# O$ |: T7 _" G
  ask turtles [
  _7 K) X) Z. e    if pcolor = green [
1 X5 d+ Z$ t' A6 K: N2 J6 k      set pcolor black, U' X5 c6 `6 `& p  x
      set energy (energy + 10)) i: \7 \( V% K3 M
      ]; x& t0 H; D+ ]" v$ }0 l1 u
    ifelse show-energy?
* ]2 D( g3 P; |      [ set label energy ]3 H; w& v6 m. F* B
      [ set label "" ]
: Q7 K1 m2 i. C3 {& ^. U$ s* T    ]1 |( A4 a+ n( g7 k
end
3 Y" @9 x' Q+ u9 D0 J" x# uto reproduce& x& u6 P6 H4 [* \
  ask turtles [
" w" O: K9 \4 ~2 E# K6 u6 T    if energy > 50 [8 c( x1 v; Q; c
      set energy energy - 50
. ~, ?+ z& J, G% F7 x+ G      hatch 1 [ set energy 50 ]" @# d, c* G$ X- }3 f4 Q/ Z
      ]( T. V# X1 }$ Y" q0 a5 b" A
    ]) Y1 k# @5 ]( f' K! i3 g
end
. ~0 U& S+ A! f8 \" G! Gto check-death# V* a6 `! }, t, r8 Z
  ask turtles [& z3 G( N/ Z, |: `" [) ^- {) N. v
    if energy <= 0 [ die ]
7 ]2 k% Z' h$ m) p: x% S' e    ]
: b0 C" F5 a, H; D/ X1 Tend
& V) Z$ U. y5 Q9 a( Q. a- `to regrow-grass
* f2 F3 \5 P; ~, P6 h0 U+ X4 @  ask patches [
. o9 T! v2 \& V& p    if random 100 < 3 [ set pcolor green ]* C3 ~& Y' \' {. X
    ]" U+ W) k7 T) z/ o/ O3 D; h
end
3 H' [9 \' i# X; K9 {4 [8 Lto do-plots2 f7 ]# g4 c, T% v5 _: S
  set-current-plot "Totals"
! f$ L+ a, J& u  set-current-plot-pen "turtles": e8 N, U% K: O* O
  plot count turtles
$ J8 ^  ^" F4 j5 J! Y; ]  ]& Q0 W  set-current-plot-pen "grass"2 q$ X* h9 a3 d
  plot count patches with [pcolor = green]* }. X5 Q) w+ b' Z9 z/ |
end+ f+ b+ F! e; A8 E
可是运行时提示no such plot: "Totals"! `, |+ j) b2 R) I& z7 D
error while observer running SET-CURRENT-PLOT
6 r% D# }, c! g1 O% [9 L  called by procedure DO-PLOTS
8 Y$ d/ g* G# z" X5 f" `  Z  called by procedure SETUP  d4 u+ u6 S/ [# J! d
  called by 按钮 'setup'
% Y7 {6 v+ U# e: J4 P/ d$ _求大神解答啊
发表于 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 . |1 D" w9 Z' y6 q' P
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-3-16 01:42 , Processed in 0.030185 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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