| |
| |
|
[theta:=22*deg, phi:=40*deg,
SetMatrix3D(matrix3d(rot3d(M, [Origin, \n], -pi/6))),
view3D(-4,4,-4,4,-4,4), V:=vecK, A:=[3*exp(-i*pi/2),0], B:=[3.5*exp(i*pi/2),0],
A':=normalize(A), B':=normalize(B),
Build3D(
bdDroite( [Origin, V], [arrows:=1])
),
Display3D(), Width:=8,
Arrows:=1,Arc3D(vecI,Origin,vecI,1,1,vecK),
Arrows:=0,
LineStyle:=solid, Point3D(Origin),
LabelDot3D(A',"$x$","NO",1,0.1), LabelDot3D(B',"$y=gkg^{-1}x$","SE",1,0.1),
LabelDot3D(Zsup*vecK,"$gn$","NE")
]
[theta:=22*deg, phi:=40*deg,
SetMatrix3D(matrix3d(rot3d(M, [Origin, \n], -pi/6))),
view3D(-4,4,-4,4,-4,4), V:=vecK, A:=[exp(-i*pi/2),0], B:=[exp(i*pi/2),0],
Width:=8, Arrows:=1,
Ligne3D([Origin, Zsup*V],0), Arc3D(vecI,Origin,vecI,1,1,vecK),
Arrows:=0, LineStyle:=solid, Point3D(Origin),
LabelDot3D(A,"$x$","NO",1,0.1), LabelDot3D(B,"$y=gkg^{-1}x$","SE",1,0.1),
LabelDot3D(Zsup*V,"$gn$","NE")
]
[theta:=22*deg, phi:=40*deg,
SetMatrix3D(matrix3d(rot3d(M, [Origin, \n], -pi/6))),
view3D(-4,4,-4,4,-4,4), V:=vecK, A:=[exp(-i*pi/2),0], B:=[exp(i*pi/2),0],
Width:=8,
Ligne3D([Zinf*V,Origin],0), FillStyle:=full,
Arrows:=1, Arc3D(vecI,Origin,vecI,1,1,vecK), FillStyle:=none,
Ligne3D([Origin, Zsup*V],0),
Arrows:=0, LineStyle:=solid, Point3D(Origin),
LabelDot3D(A,"$x$","NO",1,0.1), LabelDot3D(B,"$y=gkg^{-1}x$","SE",1,0.1),
LabelDot3D(Zsup*V,"$gn$","NE")
]
P.Fradin a écrit:Alors c'est un disque !
[
view(-8,8,-8,8,), Marges(0,0,0,0), size(8),
view3D(-5,7,-5,7,-3,5),
FillStyle:=full, FillColor:=lightgray,
plan:= [M(0,0,-3),vecK],
DrawPlan( plan, vecJ, 12,12,-3),
Arrows:=1, Axes3D(0,0,-3), Arrows:=0,
FillColor:=white,
Dsphere(Origin, 3,2), Nord:=M(0,0,3), a:=3*normalize( M(1,1,0) ),
Ligne3D([Nord, M(0,0,Zsup)],0),
Sa:=interDP( [Nord,a-Nord], plan),
Width:=8, LineStyle:=dotted,
Ligne3D([Nord,a],0),
Ligne3D([M(Xinf,0,-3),M(Xsup,0,-3),jump,M(0,Yinf,-3),M(0,Ysup,-3),jump,M(0,0,Zinf),M(0,0,Zsup)],0),
LineStyle:=solid,
Ligne3D([a,Sa],0),
LabelDot3D(Nord, "$N$", "NE", 1), LabelDot3D(a, "$a$", "NE", 1),
LabelDot3D(Sa, "$S(a)$", "E", 1)
]
[
view(-8,8,-8,8,), Marges(0,0,0,0), size(8),
view3D(-5,7,-5,7,-3,5),
FillStyle:=full, FillColor:=lightgray,
plan:= [M(0,0,-3),vecK],
DrawPlan( plan, vecJ, 12,12,-3),
Arrows:=1, Axes3D(0,0,-3), Arrows:=0,
FillColor:=white,
Dsphere(Origin, 3,2), Nord:=M(0,0,3), a:=3*normalize( M(1,1,0) ),
Ligne3D([Nord, M(0,0,Zsup)],0),
Sa:=interDP( [Nord,a-Nord], plan),
Width:=8, LineStyle:=dotted,
Ligne3D([Nord,a],0),
Ligne3D([M(Xinf,0,-3),M(Xsup,0,-3),jump,M(0,Yinf,-3),M(0,Ysup,-3),jump,M(0,0,Zinf),M(0,0,Zsup)],0),
LineStyle:=solid,
Ligne3D([a,Sa],0),
LabelDot3D(Nord, "$N$", "NE", 1), LabelDot3D(a, "$a$", "NE", 1),
LabelDot3D(Sa, "$S(a)$", "E", 1),
LabelDot3D( M(5,-6,-3), "$\mathcal C$","E")
]
[
theta:=50*deg, phi:=60*deg, view(-4,4,-4,4), Marges(0,0,0,0), size(9),
C:=Cylindre( M(0,0,-2), 4*vecK,3, 45),
P:=[Origin, M(1,0,3)],
A:=[M(2,0,0), M(-1.5,1.5,0), M(-1.5,-1.5,0)],
A:=proj3dO(A,P,vecK),
I:=Intersection(P,C,F),
FillStyle:=bdiag,FillColor:=black,
LineStyle:=noline, Ligne3D( F,1),
LineStyle:=solid, Width:=8, FillStyle:=none, HideStyle:=dashed,
DrawAretes(I,0),
Dcylindre( M(0,0,-2), 4*vecK,3,0), Point3D(A)
]
Revenir vers Géométrie de l'espace
Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 11 invités