Quadrillage triangulaire

N'oubliez pas de consulter les sujets avant de poser votre question, merci.

Quadrillage triangulaire

Messagepar Eric » 21 Mars 2021 22:31

Bonsoir Patrick

Existe-t-il une commande pour tracer automatiquement un quadrillage à base de triangles équilatéraux ?
Eric
 
Messages: 242
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Quadrillage triangulaire

Messagepar P.Fradin » 21 Mars 2021 23:10

Bonsoir Eric,

Pas de commande toute faite. On peut s'en sortir avec des boucles for en traçant des droites.
Que souhaites-tu exactement ?
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1835
Inscription: 29 Oct 2008 15:04

Re: Quadrillage triangulaire

Messagepar Eric » 21 Mars 2021 23:46

Je souhaite tracer un quadrillage triangulaire sur lequel j'ajouterai une figure à figure pour un exercice du type appliquer une rotation d'angle 60 ou 120 degrés ...
Eric
 
Messages: 242
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Quadrillage triangulaire

Messagepar P.Fradin » 22 Mars 2021 14:05

Voici le code d'une macro, appelons la quad_triangle(), prenant un paramètre: la longueur du côté des triangles :
Code: Tout sélectionner
[//quad_triangle( long)
$d:=%1, //longueur d'un coté
$k:=0, //horizontales
$cf := sqrt(3)/2 , $ell := d*cf, $icf:=sqrt(3), $ell':=d*icf,
$y:=0,
while y<=Ymax do
      Droite(i*y, i*y+1),
      Inc(y,ell)
od,
$y:=-ell, ///horizontales
while y>=Ymin do
      Droite(i*y, i*y+1),
      Inc(y,-ell)
od,
//obliques  1
$u := Ymin+icf*Xmin,
$v := Ymax+icf*Xmax,
a :=u,
a := 0,
while a<=v do
      Droite(i*a,i*(a-icf)+1),
      Inc(a,ell')
od,
a := -ell',
while a>=u do
      Droite(i*a,i*(a-icf)+1),
      Inc(a,-ell')
od,
//obliques  2
$u := -Ymax+icf*Xmin,
$v := -Ymin+icf*Xmax,
a :=0,
while a>=u do
      Droite(i*a,i*(a+icf)+1),
      Inc(a,-ell')
od,
a :=ell',
while a<=v do
      Droite(i*a,i*(a+icf)+1),
      Inc(a,ell')
od]


Exemple d'utilisation :
Code: Tout sélectionner
[//command
Margin(0,0,0,0), size(8),
quad_triangle(1)



quadrillage_triangles.png
quadrillage_triangles.png (18.14 Kio) Consulté 2067 fois
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1835
Inscription: 29 Oct 2008 15:04

Re: Quadrillage triangulaire

Messagepar Eric » 22 Mars 2021 18:33

Je te remercie. Je vais essayer de m'en servir (sous peu).
Eric
 
Messages: 242
Inscription: 07 Août 2009 21:05
Localisation: Asnieres

Re: Quadrillage triangulaire

Messagepar Eric » 20 Août 2021 21:39

Juste un petit mot pour te dire que j'ai pu m'en servir pour produire ce que je souhaitais.
Eric
 
Messages: 242
Inscription: 07 Août 2009 21:05
Localisation: Asnieres


Revenir vers Questions - Réponses

Qui est en ligne ?

Utilisateurs parcourant ce forum : Bing [Bot] et 3 invités

cron