Picard Numbers of Quintic Surfaces

Source Notebook

Picard Numbers of Quintic Surfaces

Originator: M. Schuett

(45 elements)

Examples

Basic Examples

Retrieve the first Picard number:

In[1]:=
ResourceData["Picard Numbers of Quintic Surfaces"][[1]]
Out[1]=

Generate a contour plot:

In[2]:=
Module[{r = 5.4`, rec = 1, op = 0.6`, region = "cube", style = "color"}, ContourPlot3D[
  Evaluate[
   ResourceData["Picard Numbers of Quintic Surfaces"][[
     3]] /. {\[FormalW] -> 1., \[FormalP] -> 1.}], {\[FormalX], -r, r}, {\[FormalY], -r, r}, {\[FormalZ], -r, r}, Axes -> False, Mesh -> False, Background -> Black, Boxed -> False, MaxRecursion -> rec, Contours -> 1, BoundaryStyle -> If[style == "color", Directive[Yellow, Thick, Opacity[op]], None], RegionFunction -> Function[{x, y, z}, If[region == "cube", True, Norm[{x, y, z}] < r]], Lighting -> "Neutral", ContourStyle -> If[style == "color", {Opacity[op], Specularity[White, 30], FaceForm[Orange, Blue]}], SphericalRegion -> True]]
Out[2]=

Enrique Zeleny, "Picard Numbers of Quintic Surfaces" from the Wolfram Data Repository (2021)  

Data Resource History

Source Metadata

Publisher Information