Les valeurs de theta et phi etant de 360 et 80 resp, j'ai utilisé le code ci-dessous pour produire un dessin (bon j'ai enlevé les labels). le dessin ne me derange pas mais j'ai m'impression d'avoir trop écris.
[
view(-4.3,4.3,-3.5,3.5),
Arc3D([-sqrt(5)*i,2],[0,0],[sqrt(5)*i,2],3,-1),
DrawPlan([[0,2],vecK],vecJ-5*vecI,8,7),
Color:=white,
for b from 2 to 3 step 0.01 do Arc3D([-i*sqrt(9-(b^2)),b],[0,b],[i*sqrt(9-(b^2)),b],sqrt(9-(b^2)),1,vecK) od,
Color:=black,
LineStyle:=dahed,
Arc3D([-sqrt(5)*i,2],[0,2],[sqrt(5)*i,2],sqrt(5),-1,vecK),
LineStyle:=solid,
Arc3D([-sqrt(5)*i,2],[0,0],[sqrt(5)*i,2],3,1),
Arc3D([-sqrt(5)*i,2],[0,2],[sqrt(5)*i,2],sqrt(5),1,vecK),
LineStyle:=dashed,
Arc3D([-sqrt(5)*i,2],[0,0],[sqrt(5)*i,2],3,-1),
Ligne3D([[0,-3],[0,3]],0),
Ligne3D([[-i*sqrt(5),2],[0,3]],0),
Ligne3D([[i*sqrt(5),2],[0,3]],0),
Ligne3D([[-i*sqrt(5),2],[0,-3]],0),
Ligne3D([[i*sqrt(5),2],[0,-3]],0)
]
Merci de me proposer quelque chose de pro.