Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

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

  • Date Created:

Source Metadata

  • Citation: M. Schuett, "Quintic Surfaces with Maximum and Other Picard Numbers." http://arxiv.org/abs/0812.3519, M. Schuett, "Picard Numbers of Quintic Surfaces." http://arxiv.org/abs/1308.2525

Publisher Information

  • Prepared for the Wolfram Data Repository By: Enrique Zeleny
  • Publisher of Record: Enrique Zeleny