设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11304|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
" i: ], r0 `( Y1 O) ]4 yto setup
( o8 z* ^- y- Z# }  clear-all
% m- M2 r2 o" P0 [# {) h9 p  setup-patches0 U3 A: v% b- x( d
  create-turtles 100
: m* G3 D' q& h" [2 O  do-plots/ G; a4 s+ T9 Z+ a4 q
  ask turtles [ setxy random-xcor random-ycor ]. \) f3 q+ J- K! [! ^% K
end# v( q, @- C# k/ |
to go& t5 s1 l; s$ o9 b0 L7 w
  move-turtles! M, ~! b4 }6 g) c2 ]  @
  eat-grass1 f6 h" m( [' B7 l8 T
  reproduce3 j! d5 x  @4 z3 d; c
  check-death
3 m' ^& |6 B# Y! [2 g: l! c  e$ `  regrow-grass& u" \# Y- Z. C: a" ]) ]; A
  do-plots4 P8 l7 m, F9 ^# `5 f& b1 y) M5 b
end( R7 |& r; |/ I
to move-turtles1 t: G- k+ f/ H* m$ B/ b
  ask turtles [
4 `: g4 e9 W$ }  u    right random 360: S1 M# O* ^3 T, ~
    forward 1' S9 {3 q/ Q, T2 E
    set energy energy - 1
& O' `' w$ F8 z    ]
0 M. V6 t3 M9 C0 |2 fend8 ?( `9 s" w+ q, s; s+ R
to setup-patches
6 O! ~4 [' I6 c* A& _  ask patches [ set pcolor green ]
7 O7 _" t+ h: R% K8 }end
2 z( ]* U; V0 G! L* A% jto setup-turtles
7 ^: {8 J  F) C7 d2 A  create-turtles 1000 R6 d! X3 l  [8 S4 g/ t. m* `
  ask turtles [ setxy random-xcor random-ycor ]
; G8 n8 A# J/ ^4 Kend8 I7 E2 B& M& \' N) w
to eat-grass& w9 ~* V- x2 L" |- E( @4 U
  ask turtles [$ {1 F# P! r  n  k0 R, J% v
    if pcolor = green [
4 v& \6 C! Q( j+ z. |+ P* e$ N      set pcolor black
! i* x  ]; R2 M, Z- O      set energy (energy + 10)
+ Y' U3 ~! o( @: z7 K      ]
4 b4 k) j: S5 b2 q* |    ifelse show-energy?5 j  g' r+ F$ Z* F7 }: `( X! r
      [ set label energy ]0 s3 f9 e9 I, `/ e' H, n/ k8 g
      [ set label "" ]3 p& N* O  ~  {  l
    ]
. J9 `' o: N. @& @, Hend
/ ]5 `0 y" A. @( j; Y3 Ato reproduce
# r4 X- j7 o7 H$ c# @  ask turtles [* x' A- C) U5 n% }
    if energy > 50 [7 ]8 b5 ]6 o/ `
      set energy energy - 50
. {3 j4 X% J! N9 w6 e) Z      hatch 1 [ set energy 50 ]
3 k9 r7 D5 K# g+ U      ]* b; \) R" f( m; [; ~* b
    ]
+ r: r; m+ c* W0 Rend
# \0 R$ K. A* M  [( C. o( Yto check-death
, `, y9 F3 o4 M; V# W$ M  ask turtles [2 u/ W0 Q4 w; }6 \7 B* o
    if energy <= 0 [ die ]
% K  v$ V2 G7 Z& z9 r6 `, C9 x    ]
  N/ J- x6 @1 O1 G/ q4 \end' |1 q3 A0 i! f9 E, g
to regrow-grass$ ^; T( i9 [9 ]1 b
  ask patches [' [! P& v3 C3 I  Q" I& F
    if random 100 < 3 [ set pcolor green ]* W9 e" ?& c7 d4 I
    ]
6 z& b5 {/ S  T. u, G' Z+ D# Lend: y+ b. j! ^& [$ v
to do-plots
6 G# a' q& _& T- M3 K- E  set-current-plot "Totals"+ K) v) g2 h0 |3 V' U6 e
  set-current-plot-pen "turtles"- D4 w' M$ N$ e* m
  plot count turtles
7 y( y; _3 P8 a! y9 f  E0 o- q  set-current-plot-pen "grass"
$ X& T7 ]5 ], e$ U* J8 E" s& g  plot count patches with [pcolor = green]
5 e, ^0 y, H. x  o: h# i; I7 Rend
/ J# Z6 E% \% I: a- g7 O2 P可是运行时提示no such plot: "Totals"
! p; a  @  s+ R% n5 F6 ~/ J) Y5 ierror while observer running SET-CURRENT-PLOT+ a- P9 [6 _3 u2 P& g
  called by procedure DO-PLOTS* g! g0 [; O- A1 ]' |% V8 w- O/ t
  called by procedure SETUP
- K$ q: A6 l7 ], D& r1 c: j5 F- ~  called by 按钮 'setup'/ m. b  s. |/ x$ 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 4 u1 `& D1 |: u% ]4 c2 t
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-16 19:12 , Processed in 0.035130 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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