TeXgraph# {version 1.995} Cmd Window(-10.25+5*i, 6.5-7*i, 0.507462686567164+0.507462686567164*i); Margin(0, 0, 0, 0); Border(0); [OriginalCoord(1), IdMatrix()]; [theta:=0.5236, phi:=1.0472, IdMatrix3D(), ModelView(ortho)]; [GrayScale(0), ComptGraph:=0]; Mac f = [4*cos(%1)-cos(4*%1)+i*(4*sin(%1)-sin(4*%1)),2]; Cmd [NbPoints:=100,tMin:=-5,tMax:=5,DotScale:=1+i]; Graph user_1 = [//command view(-10.25,6.5,-7,5), Marges(0,0,0,0), size(8.5), viewDir(30,60), V:= [4-2*i,-5], NewMac("f", "[4*cos(t)-cos(4*t)+i*(4*sin(t)-sin(4*t)),2]", t), C:=curve2Cone(f(t),0,2*pi,V,1,B), P2:=[M(0,0,3)+V/2,vecJ+6*vecK], Delta := [M(2,-5,-4), V], cone2 := ClipFacet(C,P2,cone1), // B récupère la liste des points 3d des bords haut et bas du cylindre C2:= Intersection(P2,C,L), I := interDP([Delta,V],P2), H1:= L[53,2],H3:= L[133,2], V1:=V+0.75*(H1-H3), H2 := proj3d(V1,P2), FillStyle:=full, FillOpacity:=0.5, Width:=2, DrawFacet(cone1, [color:=white]), draw("line", Proj3D([V1,H2]), [Width:=5, Arrows:=2, legend:="$h$", labeldir:="E", labelsep:=0.1]), draw("line", Proj3D([V1,V]), [Width:=5, LineStyle:=userdash]), angleD(Proj3D(V1),Proj3D(H2),Proj3D(H2+(H1-H3))), angleD(Proj3D(H2),Proj3D(V1),Proj3D(V)), DrawPlan(P2,vecI,12,12), draw("line", Proj3D(L), [close:=1, FillStyle:=fdiag, FillColor:=black,Width:=8]), DrawFacet(cone2, [color:=white, FillStyle:=full, FillOpacity:=0.5, Width:=2]), FillStyle := none, A:=(B[101,2]+B[103,2])/2, // 2ième point 3d du bord (le kième point est B[2k-1,2]) LabelSize:=footnotesize, LabelDot(Proj3D(A),"$\mathscr{C}$","N",0,0.15), LabelDot(Proj3D(V),"$S$","O",0,0.15), ];