Con este modelo, el usuario construye figuras geométricas interactivas. Las figuras obtenidas se deforman luego con el ratón. Mediante el uso de scripts, creamos una gran variedad de figuras, algunas de ellas muy complejas cuando se implementan bucles o recursividad.
Este DKM será una adaptación de Dr. Geo, para su uso conjunto como módulo DKM y aplicación autónoma.
| canvas r f u |
canvas := DrGeoSketch new axesOn scale: 500.
r := canvas float: 2 at: 0 @ -0.1 from: 0 to: 4 name: 'r' showValue: true.
f := [ :x | r value * x * (1 - x) ].
canvas ray: 0@0 to: 1@1.
canvas plot: f from: 0 to: 1.
u := canvas pointOnLine: (canvas segment: 0@0 to: 1@0) hide at: 0.2.
100 timesRepeat: [ | v |
v := canvas " v sequence term "
point: [ :previous | previous point x @ (f value: previous point x) ]
parent: u.
canvas segment: u to: v.
u := canvas " u is a point on the Ray (0,0) (1,1) "
point: [:previous | previous point y @ previous point y ]
parent: v.
v hide. u hide.
canvas segment: u to: v.
v := u]