设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12085|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
8 @1 P/ h! W# P; p7 |9 }to setup
( W/ v. g! Z+ I4 X0 i% V: z  clear-all
* o6 g9 d' Q/ M0 h$ S( w6 C, G  setup-patches/ k  M0 B  t( o% s, E
  create-turtles 100
7 F9 q! p/ s1 o& ^: e5 w  do-plots
; t9 h/ R, T$ g" i  ask turtles [ setxy random-xcor random-ycor ]
" A) {8 A  I+ f) x. ^3 iend
% v. W# ?8 X- c! g* jto go
  V7 x9 ~7 \; r; l  move-turtles7 B0 j6 b( B! z2 S: q
  eat-grass
6 h/ F: Z7 L/ t) x) A4 U  reproduce
* C7 c' w8 \( i" s% l& v  check-death) \% y9 k" G, N. Q
  regrow-grass
0 G# z: ]! J- S2 b6 w$ w9 }  do-plots9 a9 O$ r7 O# J8 n- D7 Y
end
( ?' r# z2 u( ~to move-turtles; e( i9 s6 V' [; _  t  b
  ask turtles [, ~2 [0 F  j! J* X0 @# O# p
    right random 360
0 p) |+ r2 d* `% `; L+ a    forward 1
6 y5 N; B4 b) d7 q. q    set energy energy - 1
- X3 S) L8 t) S6 e! {$ Y0 {( U; k    ]3 o1 G) q% O$ U& D
end& p* _) @9 h7 M
to setup-patches" Z% i8 |3 E5 H- Y3 I, c+ D
  ask patches [ set pcolor green ]) j8 X0 z+ ?/ u+ G" o+ R) M9 E! k" S+ v7 T
end
; r; G" t: `( k" R$ U$ V6 w# s/ dto setup-turtles* q1 m3 o8 @( v
  create-turtles 100
) S$ }; q% l& e. U! f, W' ], U  r( F  ask turtles [ setxy random-xcor random-ycor ]+ @- O! o7 q( Q* W* |
end. f9 e- V4 Q7 l; c. V: Y' S" C
to eat-grass9 Q8 L) y! G" u3 o
  ask turtles [
+ E. X8 G/ D4 ]' A1 s: K    if pcolor = green [) x" U* R/ z* ]2 ^# R6 M
      set pcolor black
) D8 i" Q; f* F5 z      set energy (energy + 10)
3 ^3 @1 I! `9 H* x& m      ]* w6 F  `% b, A! m: u) I( y. I/ a  G
    ifelse show-energy?& }& I, R( G6 K! e' [
      [ set label energy ]5 q: u. X0 x6 ^' M
      [ set label "" ]
4 ?9 K6 v+ `4 B' [! ~    ]% l; n) H- a: x1 q- K% t" S1 D; ^
end
+ n5 S) C! T) qto reproduce
# X! f3 O) K, V8 e6 f  s: F  ask turtles [9 D1 b5 a3 Q3 z" Y0 L
    if energy > 50 [. t& g! k% g% T$ U& d
      set energy energy - 50
# ]1 N# `7 I* V0 R      hatch 1 [ set energy 50 ]" B4 u  u2 z. _! Y( w' ?1 s4 W
      ]0 w" K1 l+ i! Q. i
    ]9 E/ w. z/ u- U& ^0 s3 @
end
6 n; G) q2 w- vto check-death
3 T. F. q# f) X% \8 Z4 l9 O- \. c  ask turtles [
5 W$ @2 S$ ~9 M$ t    if energy <= 0 [ die ]
  k% o# j5 v, M: i    ]) U& y2 D. p: v' U3 x3 L' j
end3 R6 h; Z3 D0 N4 @+ e2 }) X1 q
to regrow-grass4 W. J4 B% K( h* \
  ask patches [5 k9 [4 U9 f: j! M1 q$ W: u
    if random 100 < 3 [ set pcolor green ]8 `" t( D9 Q) i. H& g" m1 s  \
    ]
8 n- {; ]1 L) S% A  Vend
9 M# ]# @% q1 ]1 {$ dto do-plots- {8 v, \' U$ J' r$ b
  set-current-plot "Totals"
+ }* d5 B! [# O  set-current-plot-pen "turtles"# W5 h" A5 t/ t; F/ T5 z
  plot count turtles
. q" u2 p5 M0 d3 n' |4 p+ A  set-current-plot-pen "grass"& j/ E1 h% H, I' K
  plot count patches with [pcolor = green]) j' s. t4 n  A) S% J) ]; W4 K
end
/ z  I5 q+ ^) n5 ?可是运行时提示no such plot: "Totals"
* @/ g# A5 R6 M, o2 D) Yerror while observer running SET-CURRENT-PLOT  }2 X3 A- a6 {
  called by procedure DO-PLOTS# [7 W* C$ U! o: h! s! w
  called by procedure SETUP# v# ~4 H3 l' k$ l8 n' b, D7 \; w$ Z+ ]
  called by 按钮 'setup'% N9 ~0 e7 N  E1 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
! i' ~. G% |5 w0 G' H3 U$ y3 G建一个叫做叫做Totals的绘图框就行了
3 M8 U. r" H1 X
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-25 07:29 , Processed in 0.013899 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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