设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11518|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
# g1 y- A% Z/ q5 Z& X' h4 [to setup
' ]* _. E# X, p! ~" K, g  clear-all
( V% o: }) L1 H4 d  setup-patches; T" F* e/ Y: r- I6 n; Q: \& L/ l
  create-turtles 1007 ]- a# `+ c" B: v
  do-plots) A, @6 g3 u4 {& V
  ask turtles [ setxy random-xcor random-ycor ]
* @2 M% N% U( zend2 D4 q0 N/ O+ k0 z
to go
% P! A' ]0 t( h8 P9 x) z  move-turtles
4 K$ n) H0 @! p5 f+ X$ _3 P  eat-grass
6 n5 o  }+ u0 i+ H* d9 W  reproduce
& e7 g+ \: a. E' n, E  check-death6 E( ?' v2 O- J4 s
  regrow-grass
2 a! Z! H" H5 G7 B3 @! i  do-plots
: l# x( M0 s3 ~- x$ G$ Dend4 o4 U  X2 b5 ^; K; ^% V2 W5 ~
to move-turtles4 g- O- _# J. b) V4 U, B1 {
  ask turtles [3 M& W* q9 S, k9 h* U6 i
    right random 360* Q4 w7 O9 s5 ?6 p5 @+ L
    forward 1* C3 \# t0 s3 M) @: Q0 g% ^
    set energy energy - 1
3 ^& s  x* B6 H  V$ ?  O    ]8 Z% ?. Y- f7 A8 S  |
end4 R/ h; ?" U* U- Y7 @2 C
to setup-patches
" w" Q  p/ S4 R, N4 V" W5 h  ask patches [ set pcolor green ]* N  Q2 e$ Y9 X+ W
end
% c5 O6 j" l+ t. fto setup-turtles
( w7 j" [7 d  t" A$ s  create-turtles 100/ l4 f& _& W& R/ i7 ^
  ask turtles [ setxy random-xcor random-ycor ]+ `2 p$ l( |" g; J) C8 A
end
6 i' y) N7 }  _9 W- R, |to eat-grass& M: q; o6 r4 `3 ^9 K0 ^( A
  ask turtles [/ o1 \0 @% a( `6 {
    if pcolor = green [
: S& _$ `8 @/ I! ~$ k0 q( W      set pcolor black* Y$ \: V$ ~" b2 H
      set energy (energy + 10)
9 I* M# @- }7 P1 v9 \; @- q7 T      ], y# ^/ y. |' V7 X8 S( Q( L; m
    ifelse show-energy?2 z* Q0 Q. ~4 t6 k3 X/ t; D
      [ set label energy ]
- v- i9 ~, ], p& N6 i      [ set label "" ]
6 \; N: N: V& R$ k    ]
6 V# `% o' e/ O. {- V8 eend
0 J3 J% _  ?! P- kto reproduce
6 u0 M, {) V' E4 C, @! M# f  ask turtles [
( l6 k# B" D5 p- i9 K1 y    if energy > 50 [1 u; C* S( ^' k* w% g
      set energy energy - 50
+ @# }% g/ ^4 v) ~1 h; ^& y      hatch 1 [ set energy 50 ]+ s4 O' g: v# T  Z' {! h
      ]
* m; ~+ r( G. f6 ^! A! |" S    ]
5 S% `+ ~5 Q  ^) cend. {: |: w6 M. m! `. z4 U
to check-death8 q: P- j6 T5 f' R9 y
  ask turtles [
/ Z# z% E  @- K8 N  `    if energy <= 0 [ die ]
" a* `2 }  o  k7 c2 c. O    ]2 b2 B4 }5 {# P# [
end
8 X- _( o7 D1 I$ T. Y( Y  S7 xto regrow-grass
4 s- [; u$ B' p0 M) Y% h, ~  ask patches [
: O) A3 e; z# v9 U    if random 100 < 3 [ set pcolor green ]# D* g7 M& ^1 K5 @5 b# v
    ]( B2 v1 M% J. |7 @: l
end
" Z" ^4 y& t" v7 z: H) t* R  uto do-plots9 c9 \5 h. p! y: d$ t4 \% V
  set-current-plot "Totals"+ v% e: c. P, |: C
  set-current-plot-pen "turtles"6 _7 y7 x6 x, R% w* ^
  plot count turtles6 |' x; ~! g7 E* d
  set-current-plot-pen "grass"
& K2 k) W2 a. j4 L8 T: k, ?  plot count patches with [pcolor = green]
& k; W5 f$ w" w/ Uend
) [. l1 w# R3 }可是运行时提示no such plot: "Totals"
4 O: [6 b: W! ]0 ~) X: ierror while observer running SET-CURRENT-PLOT* R( q4 k( k# t. }* b
  called by procedure DO-PLOTS2 H2 P0 y: S7 Z/ q1 Q: D
  called by procedure SETUP$ t4 b5 A& D% T& k3 i3 x
  called by 按钮 'setup'  `6 F. [+ v+ ^% S7 S4 Q# 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
8 L2 O# Z( w- y, |建一个叫做叫做Totals的绘图框就行了
* [' }( }, E! \. O& {) |
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-5 01:14 , Processed in 0.016503 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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