Le package Tortue définit un ensemble de commandes pour dessiner des figures géométriques.

Pour avoir accès au package :

<<Tortue`

Fonctions disponibles :

Names["Tortue`*"]

Exemple d'utilisation: tracer un polygone fermé

nouvelleLigne[{5,2},75°]

avance[12]

tourne[π-32°]

avance[13]

tourne[π-125°]

avance[4]

fermeLigne[]

fig=ligne[]

aa=arguments[]

bi=bissectrIntG[]

Show[Graphics[{Line[fig],Text["A",fig[[1]],{-1,1}],Text["B",fig[[2]],{-1,-1}],Text["C",fig[[3]],{1,0}],Text["D",fig[[4]],{1,1}],Text["α",fig[[1]]+1 {Cos[bi[[1]]],Sin[bi[[1]]]}],Text["β",fig[[2]]+2 {Cos[bi[[2]]],Sin[bi[[2]]]}],Text["γ",fig[[3]]+1 {Cos[bi[[3]]],Sin[bi[[3]]]}],Text["δ",fig[[4]]+1 {Cos[bi[[4]]],Sin[bi[[4]]]}],Circle[fig[[2]],1.5`,{aa[[2]],aa[[1]]+π}],Circle[fig[[3]],0.5`,{aa[[3]],aa[[2]]+π}],Circle[fig[[4]],0.5`,{aa[[4]],aa[[3]]+π}],Circle[fig[[1]],0.5`,{aa[[1]],aa[[-1]]-π}]},AspectRatio->Automatic,PlotRange->All]]