设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12290|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]+ U0 l% j7 x/ P- j' A# J
to setup
% |- |* z9 W' L5 f- W. C& S0 _  clear-all% b8 t, {, `  ]  R& S( p# L- W
  setup-patches! K% A: k2 |6 U6 @
  create-turtles 100
1 U1 k: [6 p+ A( @  do-plots  f" q0 r( |8 R* \
  ask turtles [ setxy random-xcor random-ycor ]7 k6 C4 R3 A' }$ f" o, [( v! p( ^# J
end2 v( j- G  T5 x( d
to go
* V. I6 s$ k9 ]3 H  move-turtles
; _  c$ [! P2 g8 a9 E  eat-grass! x0 z& d# P2 s* ?1 m6 V1 Y
  reproduce# g, Z1 b7 p% l6 u" E/ u# b
  check-death. c0 u9 \( q( R
  regrow-grass
: J& b' R/ g) v: J( `' w  do-plots
) p# R7 J5 V/ s7 K  M( C5 Qend
, {6 p/ i3 f6 bto move-turtles
) g: X7 H. _8 S6 C  ask turtles [
, k3 I  g8 n4 |5 ]- M; `& M    right random 360
3 H2 H/ Z+ D6 f0 }0 a! d0 B6 W    forward 16 R1 y: L% @  q( F
    set energy energy - 1$ L( L0 d  s5 ]+ n
    ]
2 t3 ~9 x5 w, K+ Gend
4 C9 u& z4 P( V# f/ `1 @# Qto setup-patches
; N1 D# I  i" x0 K( u- V. e+ V. O  ask patches [ set pcolor green ]
& z/ y# O$ ?. `9 K: }+ bend
& `6 A2 |" `9 J" @. l* Kto setup-turtles6 ]# K( P9 U1 I) k: e
  create-turtles 100
6 h3 S: ^# }* R7 b  ask turtles [ setxy random-xcor random-ycor ]6 _% G% I% f" B
end
/ x/ }7 k" E% q, u9 u9 ]to eat-grass  M  Z! h; l: C. R' r& x% R
  ask turtles [
0 W, _7 B2 v" [    if pcolor = green [
, p! h2 t, b) d! c      set pcolor black* n* C' @" f5 f9 h, m
      set energy (energy + 10)
' \6 O0 k% v0 D3 V2 H7 _      ]3 H& C5 f. ~1 g! j/ k9 h8 {
    ifelse show-energy?/ K' C* [: c- j3 A6 ?' z/ S
      [ set label energy ]
  V1 p# x. q; ]5 A* ?9 h! z      [ set label "" ]
' Z+ Q4 G  `, s& e; v9 }' X0 m" G# D    ]
5 A2 O3 z+ v( y2 }0 V) e% [' vend
  E2 p2 H$ f* y) P3 ito reproduce
) a# w5 l' j8 L  ask turtles [
- i$ v  `  W( Z. \: Z    if energy > 50 [' D5 }& P) @! W/ [; l
      set energy energy - 50
1 u) M4 N$ Y+ G) F      hatch 1 [ set energy 50 ]5 A! y- X6 I: ~, ~
      ]/ D7 [- E) ]& P: _7 x. \: U  F
    ]
4 C6 m0 r# M; z0 J/ Wend/ l( p1 G1 I1 B$ P; T; P
to check-death/ [4 q5 m. o+ A8 \
  ask turtles [
; i3 g, R! U0 W# }' t    if energy <= 0 [ die ]
% x& }; @1 Y9 J    ]
% D" M0 p7 b+ p) V! ?: [) r5 ]end
9 n; K* y1 H  U" z0 pto regrow-grass
! o  u7 k4 i$ R3 f) C  ask patches [
0 s% v0 m4 j; \7 V7 [( y    if random 100 < 3 [ set pcolor green ]% x) u( g% b3 p* l7 h
    ]
0 d2 p$ g: V7 v( d9 k+ rend
2 J, G8 D+ ^) `. U- Qto do-plots" H& A0 i1 {2 P+ m1 J
  set-current-plot "Totals"7 E4 a" q/ h" S4 B9 M# j
  set-current-plot-pen "turtles"0 w6 S' k; l' @0 {2 E% r: a
  plot count turtles1 \3 s" b$ w- v) T* v# x7 s9 r/ I
  set-current-plot-pen "grass"" Z/ D+ G+ b& _9 n$ S9 ^% K
  plot count patches with [pcolor = green]
" F( U# Q, J) Cend) h! H9 h8 g9 v
可是运行时提示no such plot: "Totals"
6 }, o7 r9 Q" ~* k+ u: m$ {; Xerror while observer running SET-CURRENT-PLOT
8 I. {: p3 \3 l' P4 X  called by procedure DO-PLOTS
+ ^0 T, G1 D" S8 q3 _# ^" z$ Z  called by procedure SETUP
1 o* a0 _$ t& n( R" W  called by 按钮 'setup'$ e/ ~3 y' ^- |2 S! }3 x
求大神解答啊
发表于 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 % {) g5 x* F) W. r9 v- I
建一个叫做叫做Totals的绘图框就行了
! ]+ D6 x- Z  f8 O' I
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-7 11:13 , Processed in 0.016709 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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