设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12594|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
( x8 B) a; h" Nto setup
9 @. M* M# X: j! ?1 y- t2 [  clear-all3 ]! Q" b' u/ i7 P1 `
  setup-patches9 C1 f) E* h- t3 j+ w
  create-turtles 100
) {% e/ V' v/ k: |  do-plots- O/ e4 \0 |6 S2 ?' N
  ask turtles [ setxy random-xcor random-ycor ]- [- D* B5 I# ]% q0 K
end
- ~; k: j6 s. Z  I: W! gto go6 G1 ^* R! j. C$ r8 d% h! o! E
  move-turtles
, ]8 G3 M+ Q, Q( W1 r* V& }* p  eat-grass
' V1 I- x1 Y; y( ^% |  reproduce
2 A% M  V. d& f- C$ @  check-death
) D; b! N0 d8 Y( A8 D& q/ J  regrow-grass
& o& _2 z6 ]: |5 a  do-plots3 N, X9 f+ @( u9 M5 F2 o
end& U" Q3 L& I2 R  s, P
to move-turtles
1 X$ L& l6 ~6 Q+ |% [  ask turtles [) P0 _' E# c& z' ]! U  E' X4 @
    right random 360; t! @, V$ u* E8 g
    forward 1
  m( g/ b, K& h  r+ Z    set energy energy - 1/ k" ]& W* E* \$ O4 N* |; @1 z
    ]
$ r( V$ m( `$ t" zend5 j) ?* b. K- ?1 w' {0 ]6 h
to setup-patches, f1 q/ {) ?( Z) G9 h+ d, z
  ask patches [ set pcolor green ]& O  R& i) M9 _4 W& A
end0 n1 b* n9 N& W0 I3 [  ?
to setup-turtles6 @) C! b, [' Y) G) F
  create-turtles 1000 v) T+ A  j" q# |& C
  ask turtles [ setxy random-xcor random-ycor ]
! G: V5 k, \, ?# g5 u; hend5 u% j1 x7 I; K
to eat-grass
& ?' S1 E1 s3 a% o$ Q1 W9 j  ask turtles [
% f. i- I9 l  p2 `) E    if pcolor = green [  \1 b$ ]8 p) U2 r, Y: i
      set pcolor black# }% u& F) u1 Y& p1 T: }5 ]
      set energy (energy + 10)
7 |& o  l- F8 d9 X3 _% S      ]/ o" s0 J! \1 v+ Y" W+ d4 Q) X
    ifelse show-energy?5 T9 J& V: J7 r/ [
      [ set label energy ]8 a9 @4 G% Y5 k' m( p4 w" o. |
      [ set label "" ]
/ w/ V+ a  B2 S) b8 T  v( [    ]
& ?8 `- _& r. Yend% @0 H  R& ^3 y) ]6 r1 O
to reproduce
* |2 E* a6 n0 d: R$ v6 y& M2 C  U  ask turtles [
- q  X& {; O0 U" {/ u    if energy > 50 [3 Q, d4 b- w6 |& c2 @$ T
      set energy energy - 50
8 R8 j: B5 x( U      hatch 1 [ set energy 50 ]
9 w3 P' e/ B5 _* R+ a3 h7 M! {      ]
! l/ [* z/ k& j3 b. K* S/ v    ]
7 l' b9 M, j- ~( Cend
8 S: }& L; S) [! b3 Z& ~to check-death
: `5 g- E! ?: G6 W4 Y  ask turtles [, E4 M, {9 p1 D( N; i0 ~$ b
    if energy <= 0 [ die ]
; j1 ^" i& |+ t& Z    ]
! |8 Z7 A8 k4 @% Iend- B/ t. g/ Z# @/ A, P2 K0 B* N. D
to regrow-grass# S8 S  B! o- C0 g  I/ ~2 u6 y7 ~
  ask patches [
2 C$ J; O& a3 n- u0 l, d    if random 100 < 3 [ set pcolor green ]1 f" l4 y  T" W* H* w
    ]
. n; }! j" s) z3 V/ V! }- I2 pend; `+ g1 L  X2 J" X1 r$ d
to do-plots
$ C# n8 S: f, z" X2 `  set-current-plot "Totals"
& B* Q9 B& \, e+ [  set-current-plot-pen "turtles"0 N. T" G* |3 P0 W5 G
  plot count turtles! j; a! @* v$ f. K' U
  set-current-plot-pen "grass"% g& H8 x: o' t' e
  plot count patches with [pcolor = green]
" f4 f$ A* t( |6 M0 L& a/ rend  d2 V9 `6 I- N% [+ A0 J& L2 c5 v
可是运行时提示no such plot: "Totals"
' G: N; S  a7 \+ ~1 |error while observer running SET-CURRENT-PLOT; w8 U9 `- b. Z: U* a
  called by procedure DO-PLOTS
, r* w" B( a/ \6 _  called by procedure SETUP
8 m: j. y1 {* T) }4 L  called by 按钮 'setup'2 [- J" J' T$ h/ N/ x1 I  P5 N
求大神解答啊
发表于 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
9 @$ V8 K+ h9 G# U建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-9-3 20:26 , Processed in 0.016342 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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