Pacement de points

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

Pacement de points

Messagepar Fabrice » 07 Jan 2014 20:07

Bonsoir Patrick,
Deux questions à propos du code ci-après (que j'espère correct !):
- les marques des croix sont moyennement visibles quand on imprime la figure (dotscale ? opacity ? ...) ;
- comment améliorer le code pour placer les points I, J et K de manière aléatoire ?

Code: Tout sélectionner
[view(-10,9,-10,9),Marges(0,0,0,0),size(10), view3D(-6,6,-6,6,-6,7),
p1:=[Origin,vecK],
matri:=matrix3d(rot3d(M,[Origin,M(1,0,0)],-58*deg)),
d:=[Origin,vecI],A:=Copy(getdroite(d,1.8),1,2),
B:=Copy(getplan(p1),3,2),C:=Copy(getplan(p1),1,2),
I:=M(-1.5,4.5,0),J:=M(-2,-3,0),K:=M(-1,-4,0),
hiddenLines:=1,
Build3D(
bdPlan(p1,[color:=red,opacity:=0.7,bordercolor:=red,border:=1]),
bdPlan(p1,[matrix:=matri,color:=lavender,bordercolor:=lavender,opacity:=0.5,
border:=1]),
bdDroite(d,[color:=blue,width:=10,scale:=1.8]),
bdDot(I,[dir:=[vecI+vecJ,vecI-vecJ],dotstyle:=cross,dotscale:=2]),
bdDot(J,[dir:=[vecI+vecJ,vecI-vecJ],dotstyle:=cross,dotscale:=2]),
bdDot(mtransform3d(K,matri),[dir:=[mtransform3d(vecI+vecJ,matri),mtransform3d(vecI-vecJ,matri)],dotstyle:=cross,dotscale:=2]),
bdLabel( A, "$d$", [labelpos:=[0.5,-1], above:=1]),
bdLabel( I, "I", [labelpos:=[0.3,1], above:=1]),
bdLabel( J, "J", [labelpos:=[0.3,1], above:=1]),
bdLabel( B, "$\mathscr{P}$", [labelpos:=[0.75,2.25+0.4*i], above:=1]),
bdLabel(mtransform3d(C,matri),"$\mathscr{P\prime}$",[labelpos:=[0.65,0.5+1.5*i],above:=1]),
bdLabel(mtransform3d(K,matri),"K",[labelpos:=[0.5,0.5+i],above:=1]),
),
Display3D()
]

Merci.
Fabrice
 
Messages: 139
Inscription: 14 Août 2009 12:22

Re: Pacement de points

Messagepar P.Fradin » 07 Jan 2014 21:36

Salut,

comment améliorer le code pour placer les points I, J et K de manière aléatoire ?


Qu'entends-tu par là ? Il n'y a aucun lien entre ces trois points ?
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Pacement de points

Messagepar P.Fradin » 07 Jan 2014 22:10

Transparence et traits cachés ne vont pas vraiment ensemble...
Je te propose ceci:
Code: Tout sélectionner
[view(-10,9,-10,9),Marges(0,0,0,0),size(10), view3D(-6,6,-6,6,-6,7),
    p1:=[Origin,vecK],
    matri:=matrix3d(rot3d(M,[Origin,M(1,0,0)],-58*deg)),
    d:=[Origin,vecI],A:=Copy(getdroite(d,1.8),1,2),
    B:=Copy(getplan(p1),3,2),C:=Copy(getplan(p1),1,2),
    I:=M(0,4.5,0),J:=M(1.5,-2,0),K:=M(-3,-4.5,0),
    hiddenLines:=0,
    Build3D(
    bdPlan(p1,[color:=red,opacity:=0.5,bordercolor:=red,border:=1]),
    bdPlan(p1,[matrix:=matri,color:=lavender,bordercolor:=lavender,opacity:=0.5,
    border:=1]),
    bdDroite(d,[color:=blue,width:=10,scale:=1.8]),
    bdDot(I,[dir:=[vecI+vecJ,vecI-vecJ],dotstyle:=cross,dotscale:=2]),
    bdDot(J,[dir:=[vecI+vecJ,vecI-vecJ],dotstyle:=cross,dotscale:=2]),
    bdDot(mtransform3d(K,matri),[dir:=mtransform3d([vecI+vecJ,vecI-vecJ],matri),dotstyle:=cross,
                                 dotscale:=2]),
    bdLabel( A, "$d$", [labelpos:=[0.5,-1], above:=1]),
    bdLabel( I, "I", [labelpos:=[0.3,1], above:=1]),
    bdLabel( J+0.001*vecK, "J", [labelpos:=[0.3,1], above:=0]),
    bdLabel( B, "$\mathscr{P}$", [labelpos:=[0.75,2.25+0.4*i], above:=1]),
    bdLabel(mtransform3d(C,matri),"$\mathscr{P\prime}$",[labelpos:=[0.65,0.5+1.5*i],above:=1]),
    bdLabel(mtransform3d(K,matri),"K",[labelpos:=[0.5,1+i/2],above:=1]),
    ),
    Display3D()
    ]

placementFab.png
placementFab.png (15.19 Kio) Consulté 6266 fois
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Pacement de points

Messagepar Fabrice » 07 Jan 2014 23:08

P.Fradin a écrit:Salut,
Qu'entends-tu par là ? Il n'y a aucun lien entre ces trois points ?

Oui, je le sais, mais l'idée était qu'à chaque compilation du code, les points se plaçaient de façon aléatoire.
Évidemment, les points I et J appartiennent au plan P et le point K au plan P'.
Mais bon, laisses tomber, c'était une idée un peu farfelue.
Merci.
Fabrice
 
Messages: 139
Inscription: 14 Août 2009 12:22


Revenir vers Questions - Réponses

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 4 invités

cron