- Code: Tout sélectionner
[theta:=22*deg, phi:=63*deg, SetMatrix3D(matrix3d(rot3d(M, [Origin, \n], -pi/6))), view3D(-4,4,-4,4,-4,4), V:=vecK, A:=[3*exp(-i*pi/4),0], B:=[3.5*exp(i*pi/4),0], A':=normalize(A), B':=normalize(B), Build3D( bdDroite( [Origin, V], [arrows:=1]), bdPlan( [Origin,V], [color:=white, border:=1, contrast:=0.125]), ), Display3D(), Width:=8, Arrows:=1,Arc3D(vecI,Origin,vecI,1,1,vecK), Arc3D(A,Origin,B,2.5,1), Arrows:=0, LineStyle:=dashed, Ligne3D([A,Origin,B],0), LineStyle:=solid, Point3D(Origin), LabelDot3D(A',"$y$","SO",1,0.1), LabelDot3D(B',"$gy$","SO",1,0.1), LabelDot3D(Zsup*vecK,"$x$","NE"), LabelDot3D([2.5,0],"$\alpha$","SO")]
|
- EricEspace1.png (12.01 Kio) Consulté 28600 fois
|
- Code: Tout sélectionner
[theta:=40*deg, phi:=65*deg, Width:=8, view3D(0,6,0,5,0,4.5), IdMatrix3D(),R:=3, z:=1.75, x:=[sqrt(R^2-z^2)*exp(i*80*deg),z], intersec:=Intersection([M(0,0,z),vecK], Sphere(Origin,R)), HideStyle:=dashed, DrawAretes(intersec), Cercle(0,R), Point3D(Origin), Build3D( bdAxes(Origin, [arrows:=1, labels:=0]) ), Display3D(), Ligne3D([Origin, x],0), Arrows:=1, Arc3D(vecK,Origin,x,1,1), Arrows:=0, LabelDot3D(Xsup*vecI,"$1$","SO",0,0.1), LabelDot3D(Ysup*vecJ,"$2$","SE",0,0.1), LabelDot3D(Zsup*vecK,"$3$","N",0,0.1), LabelDot3D(x,"$x$","S",1,0.1), LabelDot3D([0,1],"$\varphi$","O",0,0.1) ]
|
- EricEspace2.png (11.19 Kio) Consulté 28597 fois
|
- Code: Tout sélectionner
[theta:=40*deg, phi:=50*deg, Width:=8, view3D(0,6,0,5,0,5), r:=3.5, z:=r+0.75, a:=[r,0], b:=[r*i,0], c:=[0,r], Point3D(Origin), alpha:=40*deg, Build3D( bdAxes(Origin, [arrows:=1, labels:=0]) ), Display3D(), Arc3D(a,Origin,c,r,1), Arc3D(a,Origin,b,r,1), Arc3D(b,Origin,c,r,1), Arrows:=1, a1:=exp(i*(-3*pi/4+alpha/2)), a2:= exp(i*(5*pi/4-alpha/2)), Arc3D([a1,z],[0,z],[a2,z] ,0.5,-1), Arc3D([Im(a1)+i*z,Re(a1)],[i*z,0],[Im(a2)+i*z,Re(a2)] ,0.5,-1), Arrows:=0, LabelDot3D(Xsup*vecI,"$1$","SO",0,0.1), LabelDot3D(Ysup*vecJ,"$2$","SE",0,0.1), LabelDot3D(Zsup*vecK,"$3$","N",0,0.1), LabelDot3D(a,"$a$","S",1,0.2),LabelDot3D(b,"$b$","NE",1,0.2), LabelDot3D(c,"$c$","E",1,0.2), LabelDot3D([0,z],"$g_2$","E",0,0.75), LabelDot3D([i*z,0],"$g_1$","NE",0,0.55)]
|
- EricEspace3.png (10.18 Kio) Consulté 28594 fois
|