In[]:=
SphericalCircumcircle::usage="Referencias:ResourceFunction: SphericalCircumcircle, SphericalPolygon. ";​​​​​​tri=RandomPoint[Sphere[],3];​​α=ResourceFunction["SphericalCircumcircle"][tri];​​β=ResourceFunction["SphericalCircumcircle"][tri,"Center"];​​γ=ResourceFunction["SphericalCircumcircle"][tri,"Radius"];​​ξ=ResourceFunction["SphericalCircumcircle"][tri,"Circle"];​​ζ=ResourceFunction["SphericalPolygon"][tri,"EdgeStyle"Directive[Blue,AbsoluteThickness[1]],"ShowEdges"True];​​q=Grid[{{Center,Radius,Points,Circumference},{β,γ,tri,ξ}},FrameAll];​​Print[q];​​​​Show[{Graphics3D[{FaceForm[],ζ}],Graphics3D[{Red,Tube[ξ]}],Graphics3D[{Directive[Blue,AbsolutePointSize[8]],Point[tri]}],Graphics3D[{Yellow,Sphere[]}]},AxesTrue,BoxRatiosAutomatic,AxesLabel->(Style[#,15,Blue]&/@{"X","Y","Z"}),AxesOrigin{0,0,0},BoxedFalse]
Center
Radius
Points
Circumference
{-0.973994,-0.0118274,0.226266}
2.30294
{{-0.483273,0.0221964,0.875188},{-0.818728,0.105039,-0.564492},{-0.5212,-0.510257,0.684097}}
BSplineCurve{{-0.482716,-0.0148932,0.87565},{-0.489703,0.728763,0.884447},{-0.826439,0.742736,-0.564351},{-0.819452,-0.000919381,-0.573147},{-0.812465,-0.744575,-0.581944},{-0.475729,-0.758549,0.866854},{-0.482716,-0.0148932,0.87565}},SplineDegree2,SplineKnots0,0,0,
1
4
,
1
2
,
1
2
,
3
4
,1,1,1,SplineWeights1,
1
2
,
1
2
,1,
1
2
,
1
2
,1
Out[]=