Marques d'un segment.
2 participants
Page 1 sur 1
Marques d'un segment.
Bonsoir Patrick,
Est-il possible d'avoir toutes les marques des segments penchées dans le même sens ?
De plus, y-a-t-il un moyen de transformer un rectangle avec ses marques pour éviter de répéter la commande markseg() comme je l'ai fait ?
Est-il possible d'avoir toutes les marques des segments penchées dans le même sens ?
De plus, y-a-t-il un moyen de transformer un rectangle avec ses marques pour éviter de répéter la commande markseg() comme je l'ai fait ?
- Code:
[Fenetre(-4+8*i,4-2*i,1+1*i),A:=[0+0*i],B:=[3+0*i],C:=[3+3*i],D:=[0+3*i],
Width:=8,Drectangle(A,B,C),
Drectangle(sym(rect(A,B,C),D,C)),Drectangle(sym(rect(A,B,C),D,A)),
Drectangle(hom(rect(A,B,C),D,-1)),markseg(A,B,2,0.1,0.3),markseg(C,B,2,0.1,0.3),
markseg(C,D,2,0.1,0.3),markseg(A,D,2,0.1,0.3),markseg(C,3+6*i,2,0.1,0.3),
markseg(3+6*i,6*i,2,0.1,0.3),markseg(6*i,-3+6*i,2,0.1,0.3),
markseg(-3+6*i,-3+3*i,2,0.1,0.3),markseg(-3,0,2,0.1,0.3),
markseg(-3+3*i,-3,2,0.1,0.3), markseg(-3+3*i,3*i,2,0.1,0.3),
angleD(A,D,C,0.25),
Label(0-0.3*i,"A",3-0.3*i,"B",3.3+3*i,"C",-0.3+2.7*i,"D",3+6.3*i,"E",
0+6.3*i,"F",-3+6.3*i,"G",-3.3+3*i,"H",-3-0.3*i,"K")]
F.Couvreur- Nombre de messages : 137
Age : 61
Date d'inscription : 10/02/2008
Re: Marques d'un segment.
Bonsoir Fabrice,
Je te propose une boucle pour faire les 4 carrés, on en réalité on en dessine qu'un:
On définit une liste de 6 vecteurs de translations pour le segment [A,B], puis pour vecteur V dans la liste on translate le segment [A,B] et on le dessine avec les marques.
On refait ensuite le même principe pour le ssegment [B,C], il y a un petit problème technique pour que les marques soient dans le même sens, il faut leur faire subir une symétrie par rapport au segment, pour cela on récupère les points des marques (avec Get) on leur faire subir la symetrie (macro sym) et on dessine le résultat.
on obtient:
PS: peut être serait-il bon d'ajouter à la macro markseg un paramètre optionnel pour forcer l'inclinaison souhaitée.
Je te propose une boucle pour faire les 4 carrés, on en réalité on en dessine qu'un:
- Code:
[Fenetre(-4+8*i,4-2*i,1+1*i),A:=[0+0*i],B:=[3+0*i],C:=[3+3*i],D:=[0+3*i],
Width:=8,
for V in [0, C-B, 2*(C-B), A-B, D-B, 2*D-A-B] do {vecteurs translations pour [AB]}
L:=shift([A,B],V), Ligne(L,1), markseg(L[1],L[2],2,0.1,0.3),
od,
for V in [0, C-B, A-B, A+C-2*B, 2*A-2*B, 2*A+C-3*B] do {vecteurs translations pour [BC]}
L:=shift([B,C],V), Ligne(L,1), Ligne(sym( Get(markseg(L[1],L[2],2,0.1,0.3)), [L[1],L[2]]) ,0),
od,
angleD(A,D,C,0.25),
Label(0-0.3*i,"A",3-0.3*i,"B",3.3+3*i,"C",-0.3+2.7*i,"D",3+6.3*i,"E",
0+6.3*i,"F",-3+6.3*i,"G",-3.3+3*i,"H",-3-0.3*i,"K")]
On définit une liste de 6 vecteurs de translations pour le segment [A,B], puis pour vecteur V dans la liste on translate le segment [A,B] et on le dessine avec les marques.
On refait ensuite le même principe pour le ssegment [B,C], il y a un petit problème technique pour que les marques soient dans le même sens, il faut leur faire subir une symétrie par rapport au segment, pour cela on récupère les points des marques (avec Get) on leur faire subir la symetrie (macro sym) et on dessine le résultat.
on obtient:
PS: peut être serait-il bon d'ajouter à la macro markseg un paramètre optionnel pour forcer l'inclinaison souhaitée.
Re: Marques d'un segment.
Bonjour Patrick,
Le temps me manque !!!
Il est évident que ce code est plus propre ; en fait, je ne pense pas assez à faire des boucles, même si je crois savoir les faire.
@+ (Les vacances vont me permettre d'écrire quelques codes : notamment pour créer des pavages pour le cours sur les vecteurs . )
Le temps me manque !!!
Il est évident que ce code est plus propre ; en fait, je ne pense pas assez à faire des boucles, même si je crois savoir les faire.
Je crois que ce serait une bonne idée.PS: peut être serait-il bon d'ajouter à la macro markseg un paramètre optionnel pour forcer l'inclinaison souhaitée.
@+ (Les vacances vont me permettre d'écrire quelques codes : notamment pour créer des pavages pour le cours sur les vecteurs . )
F.Couvreur- Nombre de messages : 137
Age : 61
Date d'inscription : 10/02/2008
Sujets similaires
» graduer un segment
» marquer un segment dans l'espace
» Ajouter des labels et des marques correspondantes
» marquer un segment dans l'espace
» Ajouter des labels et des marques correspondantes
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|