← Back to branch summary

~hilaire-fernandes/drgeo/trunk

« back to all changes in this revision

Viewing changes to resources/SmalltalkSketches/Cobweb diagram.st

  • Committer: Hilaire Fernandes
  • Date: 2022-08-15 15:18:37 UTC
  • Revision ID: hilaire.fernandes@gmail.com-20220815151837-6ta4g0ymzln715j4
Organisation

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 fullscreen 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].
 
 
b'\\ No newline at end of file'