设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9857|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
* p- Q) I; a0 u! K0 T# Qto setup/ I. |( ~9 T2 t! N) A  X
  clear-all! |5 N& G. G: p/ R$ X, u
  setup-patches) u' ^& f+ S6 ~6 d; Q- N/ }
  create-turtles 100" t" j: z* r) L2 x: u' Z: z
  do-plots
; [" l$ L/ v2 c0 l  ask turtles [ setxy random-xcor random-ycor ]3 X; _4 D& W( V8 [# j8 g5 _
end
  o1 a; q$ V, R+ l( Y2 k- Oto go+ e  t: ?4 \! \% u& k
  move-turtles& p, u. p2 o% z) Y! e6 o& S
  eat-grass
, N$ L& w4 K1 G  reproduce
+ F1 S' k6 X) R( f: B  check-death
1 h6 C$ k3 _9 F  regrow-grass
/ f* ~$ E3 I6 d) L- O4 {# t& k  U6 f% d  do-plots
4 n" e. x- ]7 q+ C8 G, V8 Qend  D5 T1 T) k2 t: r
to move-turtles
% A. `6 z$ r2 c7 g6 u* `  \& k9 [  ask turtles [
+ E5 H" F7 Q' V- a- V, X1 L    right random 360. n+ I1 `: Y% Q+ E
    forward 14 @6 f/ N2 T. [/ y/ {
    set energy energy - 1
7 C" w1 r% z* c    ]
1 [, G+ j( a: `end
: @. K% R% G" sto setup-patches# g( N, I' g- O, V
  ask patches [ set pcolor green ]0 P5 G& F2 |( i: e& ~- q" V" N: }
end
; ]/ `! j3 {& z- r0 Kto setup-turtles, u8 h( t; R  m  X# R
  create-turtles 100- F0 V! z6 {) \1 B; U. s
  ask turtles [ setxy random-xcor random-ycor ]
7 K, C8 o. b; u: J% u! gend
9 k% ]0 l- U% W# W; u# nto eat-grass+ m! x9 c# G5 {
  ask turtles [3 B" m+ L/ g" T8 ~
    if pcolor = green [
! `2 A8 v! @( D% P      set pcolor black
: h( k+ P. U' n, [/ S      set energy (energy + 10)7 n8 g- @% l) p$ ^. D2 K* `
      ]
2 m. K2 A6 v( }/ r  v+ w    ifelse show-energy?
4 b* H1 m- X( i9 V* A4 ~      [ set label energy ]2 x5 Y+ }/ }, V- N0 b
      [ set label "" ]( ^, ~% C, O/ ^
    ]3 d1 T4 g; j' b5 B6 e. W
end) F! ?; E9 z; e6 @6 {  z7 ~2 L
to reproduce
8 {  y3 G5 d+ E4 a7 M* [1 _5 A( a  ask turtles [! T5 q4 Q4 Y4 E( p- Z5 ?
    if energy > 50 [: M/ m8 C- @  k( |" X+ H
      set energy energy - 50
) D( |& ~3 u( L2 \7 L* r! ]      hatch 1 [ set energy 50 ]
9 d/ d! `& o3 [  u/ S      ]
& O( b0 `, L8 `& B" M/ U* ]    ]6 {8 r) a: }& m+ x4 ]3 E9 v) l
end1 w! x! P% [" M
to check-death
: W+ n) }5 Z# i  ask turtles [
' X/ B/ C5 z0 |' |5 T    if energy <= 0 [ die ]$ [5 z6 c2 q, p6 g1 w7 M- j1 G
    ], y3 `* Q6 r5 z
end
' g0 f; J/ z( r7 i" Vto regrow-grass4 k( K6 H: x9 z0 U$ N: g3 A8 X
  ask patches [
! K7 l; U  H" C9 s6 P  R    if random 100 < 3 [ set pcolor green ]
; _% X2 Y0 X3 x    ]
, N- ^# V! A; K8 j4 _1 Iend# H1 r0 _# q+ N  ~0 `' W1 ?; o
to do-plots
; [; y9 Q9 w5 D% c- c( r) a  set-current-plot "Totals"' w  I9 j; q; Z
  set-current-plot-pen "turtles"7 L5 z7 n+ p/ z; _1 Y
  plot count turtles
6 }# g& o# E: U$ }  set-current-plot-pen "grass"
$ b6 T3 ?; W% j$ r' y  plot count patches with [pcolor = green]
7 S2 v1 L+ h7 n% e; tend
; V1 V: `% g. r: |可是运行时提示no such plot: "Totals"
8 I( R  v' O. S" L2 ierror while observer running SET-CURRENT-PLOT
* w+ i  f- p% O: x* Y3 X  K  called by procedure DO-PLOTS
- d" V+ f; o! G# \  called by procedure SETUP
* C3 l- w5 [: M' A" {  called by 按钮 'setup'3 n! U0 t; D5 D9 Q9 t, o
求大神解答啊
发表于 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 $ M' L, z' ?/ u- v7 s$ T, j
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

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

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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