设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9856|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]' {( X% e9 f1 I* j: |
to setup4 i0 [2 H+ a) s9 G# B6 j# ]. f  q
  clear-all/ c8 g- ~" E( s$ q) p9 {* H
  setup-patches; G2 ?: t' Y6 v5 t
  create-turtles 100$ l* Z9 c* b; K. ^
  do-plots
* g: ?; M1 s$ G8 n  ask turtles [ setxy random-xcor random-ycor ]8 d2 J5 G6 J& E* E0 L, r/ S
end
& ]+ w/ K8 n1 i- fto go
) {* T: d) U+ N% ^7 h- K  move-turtles4 T; S/ Z: m; y
  eat-grass
" O0 g0 d1 N$ [7 F  reproduce
  @( c+ Z4 V8 Y" h; w# p/ U9 _  check-death
6 t5 i3 L( m+ N+ m* J' A5 {1 |% m  regrow-grass/ ]5 H  x, X7 K0 \3 }: n# F1 T' e
  do-plots6 B4 H/ p+ C  G4 g4 u
end: C/ N( g  o  C$ ]/ I
to move-turtles
' x- M/ O8 n9 P; X  ask turtles [4 K8 j0 E3 `2 i/ s, s7 M' W: c! ]) [
    right random 360
- v, s: X1 g2 U1 L    forward 1
6 E/ l. ^& x# @; l* V    set energy energy - 1
1 ~, M$ E) N, b: ]/ @) e* z  Z    ]  R# k. K; U8 h! ~% x# u
end  `$ P9 w. u& n' ~& @. j/ ]
to setup-patches
+ @/ g4 {7 B3 C/ V, f0 B! X  ask patches [ set pcolor green ]( M" U& N. |/ {5 T" h/ X
end( g3 O  }' m# C! N; J7 B6 ?) R
to setup-turtles
! R, `% S+ m' T* R  create-turtles 100
' b& ]; y# e' y8 w# c  ask turtles [ setxy random-xcor random-ycor ], C- X0 y$ T. [2 \* n; |: r# _
end2 G9 [" f, j1 j. V
to eat-grass
% N. b6 j3 ?% O& g! k  ask turtles [
+ K: @6 ]- [. r" K, k    if pcolor = green [4 P. e: J! X$ W
      set pcolor black9 i' p3 z' p; `6 z
      set energy (energy + 10)1 d# F% P& C5 ]5 ?2 K; {
      ]- {' w8 c; f: C( V& X
    ifelse show-energy?3 `8 o- {0 r6 D5 E- E& H1 u
      [ set label energy ]3 ?" d0 y3 M6 U, {, t- M
      [ set label "" ]* S! E& [! h4 G, G; h
    ]
% D3 B9 g* S( g* b4 l9 |end2 o  H9 U. E! k
to reproduce6 I- ^% d) l* x: b
  ask turtles [( a# S6 _* ], l, r, w
    if energy > 50 [7 _; ]$ ?% _$ B4 R3 E
      set energy energy - 50& x( P0 O2 Z! x
      hatch 1 [ set energy 50 ]1 y7 F' E+ O9 r& n7 T2 r
      ]% }2 F4 G# n* T; E, D& Z2 W' s. F
    ]
6 b/ N1 T: Y+ D' H; J0 oend( ]' ^8 ~6 P  i( @+ r8 F- t
to check-death
2 G1 W  \0 l% @9 H- l* a  ask turtles [! r0 f1 u. q: U+ x/ A1 v( {1 X
    if energy <= 0 [ die ]
+ z9 @$ H6 _/ L$ R4 a2 V5 Q    ]! i0 H  Q1 k) M! j( p" K
end" l6 o; h' Z; w* a
to regrow-grass
$ Z% U* t/ t( V! H2 w  ask patches [
# u0 n8 |; r( |7 n. d( T6 h, E9 m    if random 100 < 3 [ set pcolor green ]
+ ?" x  G6 {7 ^7 @1 O  u  {# e; T    ]
7 {9 l" n, X: f  gend
' g1 g4 o) U  C5 R/ A$ q- }to do-plots2 _/ `, A% D0 A5 F
  set-current-plot "Totals"3 W9 g1 h; V% m7 |3 Q
  set-current-plot-pen "turtles"
1 V4 f% V. V7 U  l5 ]  plot count turtles* ^! y, h- e6 t
  set-current-plot-pen "grass"
/ w& @' Q/ W+ I; F/ i! N# p# M  plot count patches with [pcolor = green]: b- x- W! c& L8 U
end/ `* }% P8 o+ v- t6 E/ A/ R
可是运行时提示no such plot: "Totals"% U9 A% d5 U8 u3 @
error while observer running SET-CURRENT-PLOT
+ o# {$ D. h! O' Z- m. J) T- ?  called by procedure DO-PLOTS
" o( U) c! A8 Q  `  called by procedure SETUP
6 K# a" B6 P% }% u4 h# e  P- D  called by 按钮 'setup'
3 ]9 f- k: d+ j9 n2 L求大神解答啊
发表于 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 2 Z( W1 n5 b% P4 E4 k( T1 _; p
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-1-27 04:18 , Processed in 0.021393 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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