← Back to branch summary

~drgeo-developers/drgeo/trunk

« back to all changes in this revision

Viewing changes to resources/SmalltalkSketches/Cobweb diagram.st

  • Committer: Hilaire Fernandes
  • Date: 2012-01-27 21:15:40 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20120127211540-912spf97bhpx6mve
Initial additions

Show diffs side-by-side

added added

removed removed

Lines of Context:
resources/SmalltalkSketches/Cobweb diagram.st
1
 
| canvas r f u |
2
 
 
3
 
canvas _ DrGeoSketch new axesOn scale: 500.
4
 
r _ canvas float: 2 at: 0 @ -0.1 from: 0 to: 4 name: 'r' showValue: true.
5
 
f _ [ :x | r value * x * (1 - x) ].
6
 
canvas ray: 0@0 to: 1@1.
7
 
canvas plot: f from: 0 to: 1.
8
 
u _ canvas pointOnLine: (canvas segment: 0@0 to: 1@0) hide at: 0.2.
9
 
 
10
 
100 timesRepeat: [ | v |
11
 
        v _ canvas      " v sequence term "
12
 
                point: [ :previous | previous point x @ (f value: previous point x) ] 
13
 
                parent: u.
14
 
        (canvas segment: u to: v) dotted.
15
 
        u _ canvas      " u is a point on the Ray (0,0) (1,1) " 
16
 
                point: [:previous | previous point y @ previous point y ]
17
 
                parent: v.
18
 
        v hide. u hide.
19
 
        (canvas segment: u to: v) dotted.
20
 
        v _ u].