设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10658|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]+ x1 o0 ^: V% u9 w  }
to setup
5 `/ w0 {( D& P+ N5 E7 W  clear-all  v+ C( \; {4 u  U* s" q
  setup-patches3 C1 S$ K( u( \+ L/ P- g
  create-turtles 100- n0 C* A+ ^. v  S
  do-plots
7 }3 Q; n% K- s5 V7 Z  ask turtles [ setxy random-xcor random-ycor ]
* U0 W( U* j" m) ^6 ~1 Send
( W% y. J& B! ?# f5 j% P: p0 ^to go; }9 J. M7 ^7 e7 ]$ Y. o% X
  move-turtles
2 |2 W9 d- i1 }* R  eat-grass
0 P% |% r, Q4 Y, L  reproduce
- _, y, o% X7 ?' t  check-death* T$ z0 F* @2 t
  regrow-grass
1 w' p" [6 E6 v2 f  do-plots' p( f5 T; z9 A4 r6 S" U
end: w( v* I4 W; T% ^$ j, s+ a+ n
to move-turtles
& Z/ I: K% x* \1 y- s& M) _  ask turtles [
9 Z9 C# q/ S( ^4 E2 z' F1 e% f    right random 3603 l! G& L4 a4 @6 W- h" |  A3 M
    forward 15 ?* g1 _' {. A# `9 ?; I5 W! q5 i  {
    set energy energy - 1
" P" G% W* |& L6 G" D1 S1 n    ]$ D! p# W. u0 s
end
" r1 j. V; s: L5 L" V& rto setup-patches
4 o  j8 P# _* q. x' N  ask patches [ set pcolor green ]% g9 Q6 C1 l7 o
end& J  L' Y. k) I: i
to setup-turtles
5 J% s$ {- C( k& ?5 J, ?# T6 \  create-turtles 100
. n2 T4 ]! F% }0 U( B: c6 ~  ask turtles [ setxy random-xcor random-ycor ]+ v- i% E( a6 R" Q$ V- B
end; O( }1 p) H$ W, }
to eat-grass
  N3 G) u8 B( e, Y8 t' w  ask turtles [1 v- y5 I4 B4 U$ w1 K  D) z4 n( y
    if pcolor = green [
( k" y; E1 I0 Q! `      set pcolor black
/ n) c, L' D' A9 ?8 u+ N      set energy (energy + 10)
* b1 c8 _0 L* w! s0 J' j' s' ~      ]
! M; a5 ?  v+ f    ifelse show-energy?
3 s& Z  G) ?7 z+ A6 k      [ set label energy ]8 j! [- N: L# g. j% k
      [ set label "" ]
) u, \' s2 T1 L; G  L4 p    ]
& {  w; I  j7 j. ?. Xend. A& [% Z0 ~8 I* T
to reproduce
4 x7 Q' k+ c! Q; V! x/ r9 P  ask turtles [' [% m2 d3 B- F1 ?$ P
    if energy > 50 [
8 ?* r. L+ k' W' p2 a$ X- {) z      set energy energy - 50
5 S) H* l7 w: q  @1 [1 @      hatch 1 [ set energy 50 ]6 e! D3 Q$ I  L9 o8 E' q
      ]' o9 U; p! Q% |$ H3 M" U# D
    ]1 |4 ?# G8 K3 F! Y8 g; Z) b+ Y
end
" X  e/ v$ J( c( K! z- C, E, Fto check-death
* T- m" j/ l, b! ^# n2 {: ^; z. f! R  ask turtles [! N0 I9 ~% R/ i4 _" G
    if energy <= 0 [ die ]% ]; o8 L8 a1 W% U* F( H4 }* A( l
    ]8 F, m" N0 p; b* M% w
end: F2 ~2 \7 N( w+ B# K) D1 I' v9 ~
to regrow-grass' ]! e5 V  x2 {! a0 h0 `
  ask patches [3 s; n+ p  W; D
    if random 100 < 3 [ set pcolor green ]
4 c$ f1 a# [- ^8 z    ]
* Z% t4 c) A/ R2 `$ A2 gend
2 u1 e; x' j* {5 d* w8 @# Q% M0 kto do-plots
% a" P  m+ u' o; `+ N% T7 H5 G" i  set-current-plot "Totals"' h. D  P7 l9 Z
  set-current-plot-pen "turtles"* x& N9 ^  y' c' A* Q
  plot count turtles4 B' w: T4 Y; Q" R: i: ~- @! x
  set-current-plot-pen "grass"9 O  T- n8 [5 d* Q! W' x% N7 P
  plot count patches with [pcolor = green]
3 }- R& o8 [' A2 x# @  R6 Fend) ^" s7 \% L2 S( d
可是运行时提示no such plot: "Totals"
1 j* V6 K* w- @$ |* r1 d- perror while observer running SET-CURRENT-PLOT
* M6 s( O3 A) p) k0 T3 j  called by procedure DO-PLOTS# W1 w$ S& W4 ~/ [' n
  called by procedure SETUP) g9 w. d/ Z4 n
  called by 按钮 'setup'
, L: U+ u1 P/ w- J0 s, 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 $ W( h  R7 S: \$ z- [0 [" X0 `" p
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-4-1 06:28 , Processed in 0.018135 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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