TeXgraph# {version 1.975} Cmd Fenetre(-11+8*i, 9-7*i, 0.45+0.45*i); Marges(0, 0, 0, 0); Border(0); [OriginalCoord(1), IdMatrix()]; [theta:=0.5236, phi:=1.0472, IdMatrix3D(), ModelView(central), DistCam(20)]; [GrayScale(0), ComptGraph:=2]; Mac xlegend = "x"; ylegend = "y"; zlegend = "z"; cross3D = [ {cross3D(point3D, V1,V2 [, options (scale)])} $a:=%1, $v1:=normalize(%2), $v2:=normalize(%3), SaveAttr(), scale:=1, $options:=%4, $L:=0.5*scale/2, Ligne3D([a-L*v1,a+L*v1,jump,a-L*v2,a+L*v2],0), RestoreAttr() ]; text3d1 = "$x$"; text3d2 = "$y$"; text3d3 = "$z$"; Cmd [tMin:=-5,tMax:=5,DotScale:=1+i]; Graph objet1 = [ Marges(0,0,0,0), view(-11,9,-7,8), size(9), ModelView(central), DistCam(20), viewDir(30,60), Arrows:=1, BoxAxes3D(grid:=1,gridcolor:=gray,FillStyle:=full, FillColor:=aliceblue, zlimits:=[0,5]), x:=M(-2, 1,2), y:=M(1, -2,2), R:=M(-1, 0.5, 1), LabelDot(Proj3D(R),"$R$","NO",0), Ligne3D([Origin,x],0), Arrows:=0, Ligne3D([Origin, pxy(x),x,jump,y,pxy(y)],1), FillStyle:=full, FillColor:=pink, FillOpacity:=0.3, Ligne3D([M(Xinf,Yinf,2),M(Xinf,Ysup,2),M(Xsup,Ysup,2),M(Xsup,Yinf,2)],1), FillStyle:=none, LabelDot(Proj3D(x),"$x$","NE",0), cross3D(x,vecJ,vecI), LabelDot(Proj3D(y),"$y$","NO",0), cross3D(y,vecJ,vecI), ]; Cmd [IsVisible:=0]; Graph objet2 = [ view(-4.5,5.5,-5,5.5), Marges(0,0,0,0), size(9), ModelView(ortho), view3D(-5,5,-5,5,-5,5), viewDir(-30,70), FillColor:=yellowgreen, FillStyle:=full, FillOpacity:=0.2, Color:=darkgreen, N:=M(2,2,1), R:=3, hiddenLines:=0, S:=Sphere(Origin, 3), P:=[Origin, N], Build3D( bdPlan([Origin,N], [color:=royalblue, bordercolor:=black, scale:=0.75,border:=1, opacity:=1]), bdSphere(Origin, 3, [color:=skyblue,contrast:=0.5]), bdCercle(Origin, R+0.01,N,[color:=red,width:=8]), bdAxes(Origin, [arrows:=1]) ), Display3D() ];