设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11309|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
* j0 C. N! H; t' xto setup( A* k+ u  L5 H+ w! [
  clear-all
6 [: C7 B! K5 I, b1 k- }  setup-patches; c8 q7 w, k: ]/ b% E! i
  create-turtles 1008 h1 i" I5 C% N+ t
  do-plots
+ B; R# l! g* G* X7 {  ask turtles [ setxy random-xcor random-ycor ]
& R" r, q2 w1 p) S8 s. rend# K: l% l5 z& l2 K# d
to go
+ n% i) b/ G! _4 y1 U2 M  move-turtles
  a' C3 ?- a; A; J9 t* K  eat-grass1 H7 `  w9 [& I
  reproduce0 [6 a4 P% C1 a( o; b% `8 U9 z9 ?4 j
  check-death& x- q! L8 X! b. V
  regrow-grass
4 R: v# X) B) B3 U* h  do-plots
4 o# F; T! R! F4 send
. W' m" ?# z9 n, f1 Gto move-turtles
& u' J! |8 K) k" U4 |( J; u/ G  ask turtles [
4 p6 t& p: U( \3 k" [  ]% D. }    right random 360) A. X. [' v; \! `; R( T
    forward 1
' o5 f# K8 o& [6 d- x; |    set energy energy - 11 G0 Q- q7 G& z( e5 S& a5 Y5 T
    ]0 V' ]# _+ g: o6 h3 V
end, Z* _, N. p( u
to setup-patches; }' Z- N: u2 R% O: u/ X1 _& c
  ask patches [ set pcolor green ]& t5 g! _! {9 m
end' m8 l$ p& `% h" Y' q
to setup-turtles
0 D; H! J6 h) v4 U  create-turtles 100( h% u# s/ z  n4 `+ i- S5 |( i
  ask turtles [ setxy random-xcor random-ycor ]
4 _/ X1 \( S0 P' Rend; L, n9 `0 u1 \; r3 D" h
to eat-grass
( t* K6 k. D) b  ask turtles [/ W9 ]9 W) z# h& r6 f- c+ j
    if pcolor = green [
+ O2 h5 k3 P( w& W6 o/ S      set pcolor black8 U7 u2 X9 ]: a
      set energy (energy + 10)3 }8 a, n- T  Q& L# H
      ]- m- \0 n& e% ]( {2 B, H: H& J
    ifelse show-energy?: J- G5 d( i+ C; P: f
      [ set label energy ]
" z5 N/ Y& ^# U$ V3 H5 Y, {      [ set label "" ]2 J2 e, ^+ I% [  u. A% g+ k
    ]' n4 `  Z( H+ A1 c
end/ ~0 r- d! k; I/ e7 @  m
to reproduce
% U' }( s1 f4 k( F  ask turtles [- V# c$ E' `9 R) L
    if energy > 50 [5 `2 |$ W$ m8 m, a- q% |  v( }
      set energy energy - 500 L" J8 S/ I& Z8 J
      hatch 1 [ set energy 50 ]
" p" C* h. i) a9 J2 q  F; o: m      ]
$ ~0 W: s$ }& Z/ a: U/ N/ [5 C    ]& P+ S* Y8 D0 l; c- l6 `
end2 O$ z. X8 S9 E, a3 ?( H
to check-death
6 q. [% e: h+ i  ask turtles [3 a5 ^, w* b1 y. R2 F
    if energy <= 0 [ die ]
2 M! x$ w5 o$ X/ }    ]
: n7 U# V% r) P( Q* ]4 u6 |6 send6 n! p4 r: d. K7 z
to regrow-grass
9 g0 q  v3 _: }% m* ?) N2 s- W  ask patches [
& ^+ F0 K0 S$ m) o    if random 100 < 3 [ set pcolor green ]
/ `. Q  B6 h/ y9 v3 R; z    ]
5 d- k* I4 o$ ?0 mend
: v$ [$ J" u% o9 n8 Jto do-plots
  @- S* r, k# K2 Z' ?. c1 N  set-current-plot "Totals". Y# g' e1 I1 q
  set-current-plot-pen "turtles"* w. N. R3 `/ c  L+ S4 L0 j
  plot count turtles
0 ]: K- W: x. c' F  set-current-plot-pen "grass"
) [. A1 k! K5 Y) Z( h9 {7 A  plot count patches with [pcolor = green]
, P1 C2 p( R8 U9 r& F, ^' ^4 Q" Tend
3 N! F" B1 D7 h  {可是运行时提示no such plot: "Totals"
/ N4 R, h) T$ zerror while observer running SET-CURRENT-PLOT4 Z+ A) h- M* R; [: t
  called by procedure DO-PLOTS6 H6 f9 v0 Z) E
  called by procedure SETUP
( h% Z- `! D, z  called by 按钮 'setup'
4 f7 K8 d- v$ ^; u$ g- h$ x求大神解答啊
发表于 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
$ P% R5 {, X  Z& s建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-17 09:08 , Processed in 0.017822 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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