设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11058|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]7 k6 J8 N. b* i/ M' |
to setup
2 e& i$ p3 }/ }8 C, m; [  clear-all
; m4 W4 Q2 ?9 z1 |/ }  e1 E  setup-patches
% H  U6 u$ W, \  create-turtles 100
! F0 C+ i: o, n1 l/ h- }6 S2 i  do-plots
7 w1 |( c& [6 z0 c' k0 q& y: W8 Y  ask turtles [ setxy random-xcor random-ycor ]
8 f+ \# a( Q3 U3 l8 |8 ^- h0 [end
5 ?+ g( ^# f5 w6 }4 K9 mto go
# ~8 x: p6 D6 R! a  move-turtles
6 M! p, r/ S$ v  eat-grass
% ^& @+ F1 E: ?, _  reproduce+ V) k: w" R/ g; s# K, x$ ^
  check-death; }8 w: u5 U7 F/ L, Z  n
  regrow-grass4 Q0 A' ^1 X, f; b5 E
  do-plots
7 f! {4 N: J; \8 ~: gend
: U$ |9 x1 w' t3 A+ D/ k* v4 Ato move-turtles9 T5 `/ d& V3 o5 |/ p  }
  ask turtles [
& C5 `: [  _5 j1 D+ z1 ]2 X8 d5 [    right random 360
' m1 R/ E6 K9 e3 }9 Q* v    forward 16 j. p  J! P7 N: j: I* |5 U
    set energy energy - 1, }9 J; c# c! N3 h8 _
    ]" R5 ^- |1 n1 h5 b9 j$ z
end
, Y5 q, L. E: `to setup-patches
( }9 J% g+ H# }2 g8 {) W  u( I, l* l  ask patches [ set pcolor green ]3 M( X( D( k0 F+ d7 x& Q
end
: O+ ?1 v. A  Yto setup-turtles
. |5 J; p& s2 Z6 O& H  create-turtles 100
+ y0 W- x% l1 G2 P) z  ask turtles [ setxy random-xcor random-ycor ]
! S4 C$ S/ n! V/ Iend
# q0 P- ~. M& S& H, sto eat-grass
8 e0 x; j1 H1 F) U9 {. k8 \  ask turtles [
; ^' ]3 z0 S7 n. a2 v/ @$ @. _+ n    if pcolor = green [, c: v) ^, x# r2 H) ?
      set pcolor black' C9 U# u2 |/ L7 o: p& r
      set energy (energy + 10)" m2 e% C  z* B4 @" Z
      ]
. V; Q3 `* s9 p2 F    ifelse show-energy?/ G$ a$ x6 S8 h: |& s* s
      [ set label energy ]
& C- Z: t$ R3 ~6 Y8 H; j      [ set label "" ]& j! G1 ]6 h$ f1 ^& ]4 j0 o
    ]
3 v- A. [+ @1 m  xend
" Z! S! Z. N& e7 q9 U4 yto reproduce7 Z  R3 S# J9 q8 S6 h
  ask turtles [1 C: o6 B% a2 ^5 j; ?5 r6 [6 z
    if energy > 50 [
/ i: W$ T5 U. C- s+ K  W6 d; b, n% l      set energy energy - 50
6 W  C  E- o( m: v" r      hatch 1 [ set energy 50 ]
2 o) ?/ l/ W1 p7 W- C2 c; G      ]. q4 T8 ]6 ]8 s! S
    ]
6 s4 _+ o+ b5 Y1 w+ U1 Jend2 y. P/ q: {4 F' y7 [
to check-death$ N6 b5 }* b3 }9 v" `
  ask turtles [  {/ K6 k$ n3 C1 p/ p3 o' O
    if energy <= 0 [ die ]
2 t4 p; U1 y+ o# M$ {    ]
# C' u# `7 S2 s" P+ N, ^& qend
$ ~/ G  R/ N0 d: }6 C6 U9 _to regrow-grass
& K4 _/ {1 f7 W1 R6 d  ask patches [
! O$ E" r8 q  M- z+ ?, x, \5 D    if random 100 < 3 [ set pcolor green ]
4 ~3 w7 q5 \% v7 h7 |' L3 l    ]
4 `+ Z2 B  n6 J- }5 }/ B6 Qend
7 s0 r) ~! E4 y, Y7 Ato do-plots
6 t& y1 d, a: m5 K& M  set-current-plot "Totals"" W9 G4 \" O  N5 W, a2 k4 d0 z# C
  set-current-plot-pen "turtles"  l% d2 G3 N  j
  plot count turtles
8 H( Y6 s- X; V5 y5 r1 v  set-current-plot-pen "grass"2 e% X8 W) b! H! ]$ H
  plot count patches with [pcolor = green]
. x1 q9 \: S, H# @8 N( |) Tend
. E5 p4 t# g' ]4 f2 J可是运行时提示no such plot: "Totals"" c4 R# n! ]8 v, h% o& K
error while observer running SET-CURRENT-PLOT
2 G7 j' Z' g6 w5 O3 _  called by procedure DO-PLOTS
5 q7 `; ~3 }) W) |6 B# I  W  called by procedure SETUP$ P9 }( \) `$ u5 R- N
  called by 按钮 'setup'9 V( p. d! a% u$ F/ i% W+ Q) `
求大神解答啊
发表于 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 Y$ _8 N: l3 y$ o: b' k0 T建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-28 08:05 , Processed in 0.024981 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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