设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10942|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]9 e; c. N8 L: N/ r
to setup1 }& U- v0 {  ^) R2 Z
  clear-all
5 _% U% u' W/ {; t  setup-patches5 R; c' {' y# K1 }
  create-turtles 100' ?, D( m- y) |+ K" {; n
  do-plots7 q& I' v: t% W, S3 \+ \* R
  ask turtles [ setxy random-xcor random-ycor ]9 Q1 y) `* @" C  }' o9 D0 G9 G
end9 M/ T( `% g6 s: e
to go
( q% P3 m! I8 A  move-turtles
) J2 Y8 i# N7 J  eat-grass: K+ D% X: N& l
  reproduce$ V  K* a0 D4 F9 g+ N: {0 Z4 Z0 A5 g
  check-death
2 \! m9 j; X6 x/ j( w  regrow-grass* a; P( F7 b! w7 F  m
  do-plots+ h4 F8 {) y, N3 d4 Z2 e6 [8 _
end
9 X2 V. U4 ^& \+ v, Eto move-turtles
5 I6 K8 |8 X! z6 Y* |9 W  ask turtles [
4 v% b# [6 c; ]$ W, K5 A    right random 360
- j  O; X, |& ]( K    forward 1
8 F. y& O& A9 z- G3 I9 K    set energy energy - 1
& f" k# P1 y: h, h8 Q2 g    ]( ]' t( u% X& @
end
: L# ^( `" N( mto setup-patches" O: g' ?) k1 \% [
  ask patches [ set pcolor green ]' O, d% m( F6 t/ e; {7 H+ H0 w
end
" L0 y& X/ C( S3 g9 f$ V, Pto setup-turtles
. T) q7 G# M4 r  create-turtles 100* t* s1 ^3 h$ H, h$ w
  ask turtles [ setxy random-xcor random-ycor ]8 `$ W+ q- ]+ y/ C0 E
end# _1 P9 _- j) \& \2 y% {  n; i3 V
to eat-grass5 S9 L" k; B5 y! a& B
  ask turtles [; ^  a; a4 g( e- g( o9 t+ M
    if pcolor = green [
  C# e; s/ j5 O0 q      set pcolor black, X0 q6 A4 f0 D* {. N9 X2 G
      set energy (energy + 10)5 e* C9 \1 v$ Z" L: ]& M  m" ]1 E/ Q
      ]0 B& T$ P. A/ T3 q) w& `; H
    ifelse show-energy?
" U1 m( C3 k( k2 i- V  Y% U      [ set label energy ]2 P3 G1 D) X# l$ q& ~% L) f/ K0 h
      [ set label "" ]# ^% R" N6 n  Q/ O
    ]
+ i  k1 p: j; u# G2 D) N5 \end4 d1 r9 G; G: W
to reproduce
, B9 y: S5 v# a2 @! y  ask turtles [
$ e2 g* F8 @4 e& J. d    if energy > 50 [
" b/ b6 n. u6 {" K+ g; P      set energy energy - 507 j& x3 |) Y+ ]' b8 L( r* u( P
      hatch 1 [ set energy 50 ]2 n% t0 p: b; `
      ]& h8 p  r1 q1 C" V; B2 ?2 N- i* M# E
    ]
/ e) \6 s! X( b# Nend; _: {$ x+ f: @1 C& f: q
to check-death
+ S3 s" S$ z3 ~4 L$ {9 l* C  ask turtles [: |# i0 E1 ^8 o+ u6 V
    if energy <= 0 [ die ]9 F3 w. _4 y7 I' n
    ]8 k# C9 B& `- Q# F
end
) m1 v% t, L6 y' g7 |# u, Pto regrow-grass
1 M) Y/ D8 }$ u" b+ Z" K  ask patches [( ?1 B/ X' _$ C7 `3 [) ?
    if random 100 < 3 [ set pcolor green ]
7 N. i6 l, k! H( s0 j8 i    ]
- e+ m& C9 Z" i) l+ n( |; ^" f7 Kend* ]/ s' W# x' ~' j0 E
to do-plots0 N: S' _1 E* J0 B2 z8 u( z
  set-current-plot "Totals") w( B/ G1 c: ]
  set-current-plot-pen "turtles"
0 m! h* j0 @" ~8 n/ s  plot count turtles
3 C+ n  T! s2 H/ ?" i( w: D3 b  set-current-plot-pen "grass"
% z/ [7 Q6 _7 b9 F. \  plot count patches with [pcolor = green]
/ u; k- A6 d1 _9 j( Iend7 y. X; j( U% z# F* [
可是运行时提示no such plot: "Totals"2 V4 y; q) L) Q+ A: a( D0 g
error while observer running SET-CURRENT-PLOT9 m' V% `8 ?( ?6 V8 u9 W8 P. n% I* {
  called by procedure DO-PLOTS
/ {. K) G9 ^1 G0 N  called by procedure SETUP
9 z) j3 q: u% D+ L: Q  called by 按钮 'setup'
" X. h- p: S$ M3 W2 |* K5 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 : k. b+ t" q3 R' K
建一个叫做叫做Totals的绘图框就行了

7 C; D1 s5 i" \1 L8 @* y, T哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-21 13:46 , Processed in 0.017095 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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