设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10487|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
1 V+ b$ }0 Z6 h: G2 _5 Lto setup, M" h( V2 m! t5 x: b
  clear-all
/ G/ }: v9 z6 F) B9 @6 v  setup-patches
( v0 D3 e3 t. X  create-turtles 100
5 }, M+ L/ I' K% N2 v- \" {+ f  do-plots
3 B2 x+ T, J/ V) D/ ^5 c2 w  ask turtles [ setxy random-xcor random-ycor ]6 f+ k3 e" y* E7 x% c( e1 f
end; G4 c& P5 b% @' F2 W( T# j: K
to go+ d, f$ _7 d( {( M
  move-turtles- ~9 ~1 u2 R  z" j: f. C2 V
  eat-grass
' E6 w( E( q+ _) e, h# i3 ~  reproduce! O3 P0 e" i, Q3 |1 z
  check-death
1 G( ]4 G4 [% c8 f9 u  regrow-grass
2 |; g. E' h$ K* r% k' I0 e1 C( N  do-plots3 k! @4 Z2 G! Y6 [
end
4 w1 r7 z7 e9 K3 [4 p/ Q( Cto move-turtles/ i, }8 \: O9 M
  ask turtles [2 _" h2 I+ c2 D; {. r5 w
    right random 360
6 v0 m/ _: I( K    forward 15 [4 Q2 \/ p9 N7 _& T3 |0 v
    set energy energy - 1
7 _1 ]6 |; w, Q! c3 g    ]$ \+ D! t0 }7 l- S4 `6 I
end0 T" y" K- N- j+ G, d3 j
to setup-patches
5 c& z$ @! a9 `  ask patches [ set pcolor green ]
' d4 }  k8 {' w$ ~( j0 ]5 F8 M/ C$ `end
' s+ [8 F, v) N3 |$ R% E* @to setup-turtles
: M& u9 R8 f9 ^  z' N; |7 Z  create-turtles 100
0 b- j" W# X% H, p  ask turtles [ setxy random-xcor random-ycor ]# K$ n8 j* ?9 i* N; a' l" R# u
end1 `% R& l( ?; i2 K
to eat-grass) P/ Q7 f! z: F& K& S0 v6 ?
  ask turtles [
( |; e9 o0 a, _' W' j3 ]7 H. L    if pcolor = green [0 W5 O: r/ m: i5 }1 }) q
      set pcolor black. {5 J" w( n! _. k9 n% ?& [
      set energy (energy + 10)
* B% `% G5 L! z( s0 V      ]
' r: L) ?# A4 z. ~$ l  [    ifelse show-energy?8 T; D$ S& s5 S
      [ set label energy ]- ~- L$ v, R1 c# [; u  B
      [ set label "" ]
( S" @' [% Q$ Y2 N7 B    ]( |8 d5 m# P# C% U
end
. Q1 _8 C4 X; s5 q# M3 Kto reproduce! t1 |& P$ ]2 u. n/ n) E1 n/ s4 y( I
  ask turtles [- O- s7 r& d  [; @  ^0 P
    if energy > 50 [5 _+ A3 W7 Z8 p" J2 F/ m6 m, ~
      set energy energy - 50
; F# J" y3 _0 D5 n% ]      hatch 1 [ set energy 50 ], [3 d1 N4 S% w* l- t
      ]
1 Z2 W3 B0 L6 N- p9 g9 p5 B; U    ]
0 `5 |9 g! r* Y3 W7 q4 ^7 r# \end
( i% H  r7 H* |$ zto check-death
% N9 C* J* r0 h# J/ l9 b  ask turtles [
, V! K* |4 ]* k% x    if energy <= 0 [ die ]
4 k0 a' [5 i- B$ F    ]/ I2 U1 O& _) @; F
end
% v' e) {' n7 O" C; I6 n* Gto regrow-grass
( \% n. M. B9 j, d  ask patches [5 j3 @8 i* u2 n9 T+ [2 F
    if random 100 < 3 [ set pcolor green ]
* l* }# C( A+ u- U' X( x0 h    ]
* S4 m1 X+ ~& B2 rend
$ O& F, O: Q' Z8 Y) cto do-plots
) D1 l& ~1 X$ Y2 `% p9 Q& @! h+ o  set-current-plot "Totals"/ U% S6 z( i0 ]4 C
  set-current-plot-pen "turtles"
0 }$ I* s, K  w* P! @' @  plot count turtles
+ b; v5 k) R8 s$ ^  set-current-plot-pen "grass"
. ~  d( E9 }0 [0 v  V7 V0 f  plot count patches with [pcolor = green]6 }, k) _. {3 A* p9 z
end
; J+ g, }) J+ ]; B( B可是运行时提示no such plot: "Totals"
$ L( @7 x& j. A6 ]# xerror while observer running SET-CURRENT-PLOT
' W: [5 \& A% O( p- J9 r  called by procedure DO-PLOTS4 e9 [& f( ]7 x8 k# l7 q& a: E/ h
  called by procedure SETUP
/ |' ~9 ?; J; J. v/ S! z* C3 P  called by 按钮 'setup'
! h( ^* m) Z, \+ z1 r9 I求大神解答啊
发表于 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 6 R4 p2 D- X( A/ t9 ]4 E) [
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-3-17 05:30 , Processed in 0.020062 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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