设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10827|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]9 z% r0 R$ K2 t
to setup
+ d6 m# P+ d: y" F: h, F/ Q* s  clear-all
" e! D3 P, V% u0 ~6 u' W+ L" A8 n  setup-patches6 k* ]# H* z8 Z7 ^8 G
  create-turtles 1003 U$ r  [! x) m  v; Q
  do-plots  R! U  b: V$ G6 s0 h. t
  ask turtles [ setxy random-xcor random-ycor ]
( V% |7 O$ A; Cend: V# ~; T. {' [% L
to go
; L! ?# G( O4 W8 i3 D7 C  move-turtles) ?8 J& X& u2 l8 U
  eat-grass
2 f/ S+ G" H' J) g- S  reproduce( {; }4 ~$ H4 B% v9 H
  check-death
5 j  T* u/ Q4 d  regrow-grass
3 a2 g& t. x- n4 W# n( j  do-plots
4 p* N' ~; G- Aend
  n- W: V  L, K) A5 [, l  Nto move-turtles
7 X* `% |* t1 a) o- j# u4 S" E  ask turtles [
. o; H) t4 g; U- F, Q8 b! g    right random 360/ @+ s; Z; d6 U6 ~
    forward 1& Q8 U! q% B. w1 c
    set energy energy - 1
8 O! |4 t$ F% P% S2 ?) l) e    ]
4 A9 u: b7 G* I. t6 lend% N4 y( _2 T* {3 b7 F3 r
to setup-patches
+ _' D7 d: G0 I  u" ?  ask patches [ set pcolor green ]8 Y& F- G3 r) k/ c5 C# {) u
end
" s3 t# e% d  Z  b. m( Gto setup-turtles* K8 p. R& {% Y2 [
  create-turtles 100
9 O& \, n+ h1 Z/ ?6 z  ask turtles [ setxy random-xcor random-ycor ]
: P% p) F; n( c! b3 u- V5 f3 eend2 g5 @7 }# S0 H0 K4 }
to eat-grass7 Q- g% F" `9 r. V' d
  ask turtles [. l3 f4 u1 ]- g' z6 y
    if pcolor = green [" g4 E% J* W& }( b; ^5 a7 t5 j5 d7 r
      set pcolor black
& z9 F6 ^: G; S! P! J      set energy (energy + 10)
7 k% J/ X* X1 c" V" W. t3 F      ]
' d- q' Y  y# K    ifelse show-energy?5 K4 H! A+ \! x
      [ set label energy ]5 A: m4 ?) O" W# t! ?
      [ set label "" ]; I7 ^7 p, D3 U( T; j
    ]  P& v5 }7 Q, `. o. x
end) d8 p  k, g- K  r6 \& G
to reproduce
7 N9 C. o% k4 A# K  ask turtles [
( C# W" M% Z7 P. h0 C  d    if energy > 50 [
) W: Z& _: c' x; n* `      set energy energy - 50
3 w+ }9 Q" Y  m% [% Q1 k- \2 x! z      hatch 1 [ set energy 50 ]
5 z1 o/ G6 }8 ~3 _      ]% \$ u3 D, Z" D3 W
    ]
) ~2 [& B2 o/ E# ]$ P$ qend
  E; q2 w4 X3 yto check-death
2 S3 w8 t* W5 i2 E! t  ask turtles [7 f9 l; b# d6 y8 A+ ~# v5 V
    if energy <= 0 [ die ]
* p- h  Q( b0 I: L" [% v, w; ?    ]3 t, B' Q$ o6 z. D! Y! d7 E
end3 K  [, g/ X& j* x' i
to regrow-grass  r0 z% M5 h& [4 z9 y
  ask patches [( M) w- V5 n+ H* k8 O% _% f0 n
    if random 100 < 3 [ set pcolor green ]
+ A% ^/ n- k2 d- @3 A    ]  k' E5 E8 m% T& `5 w" l9 c
end
9 B+ W# I* X: F, `* Lto do-plots/ i9 R# v" q2 i7 l, j' z6 y
  set-current-plot "Totals"
$ |) c: y1 ~4 A( \+ U: a6 ~( [  set-current-plot-pen "turtles"+ Y! X5 b/ m* m: {& D
  plot count turtles
7 l2 S# l9 y; p  set-current-plot-pen "grass"1 H( t6 k6 ]: U# h& N% r* H: d" g2 G
  plot count patches with [pcolor = green]2 ]7 X, [7 V4 Y0 _' H) ~
end
6 ~3 q+ f- u" r/ @& V/ H可是运行时提示no such plot: "Totals", {% f- w, F9 `
error while observer running SET-CURRENT-PLOT2 h' n5 Q2 @% ^) s0 X9 n
  called by procedure DO-PLOTS
  u$ X' u3 x' A0 s) |  called by procedure SETUP
% P9 `% d' R  t/ I. ]* ]- D9 k  called by 按钮 'setup'
; m  ]$ O7 _4 f% Z) ]9 V8 q4 j求大神解答啊
发表于 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
/ B8 j7 ?; I" Y4 d建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-14 23:05 , Processed in 0.021222 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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