Faire des tracés qui représentent aussi des points/points pour coordonnées spécifiques

Question

Je suis en train de faire une parcelle dans Mathematica de quelque chose comme

x^2 + y^2 

avec x, y € [-10, 10]. En plus de montrer l'intrigue, j'aimerais aussi inclure des points (par exemple, (0, 0)) peints dans une couleur différente. Le point (0,0) serait représenté par (0, 0, 0). Point (1, 1) serait présentée comme (1, 1, 2), etc.

Voici ce que je suis à la recherche:

Comment puis-je y parvenir?

Answer 1

f[x_, y_] := x^2 + y^2; 
t = Flatten[Table[{x, y, f[x, y]}, {x, 0, 10, 1}, {y, 1, 2, 1}], 1]; 
a = ListPointPlot3D[t, PlotStyle -> PointSize[0.05]]; 
b = Plot3D[f[x, y], {x, -10, 10}, {y, -10, 10}, 
    ColorFunction -> "MintColors"]; 
Show[{b, a}] 

Vos lignes:

f[x_, y_] := x^2 + y^2; 
t = Flatten[Table[{x, y, f[x, y]}, {x, 0, 10, 1}, {y, 5, 5, 1}], 1]; 
l = Table[ Graphics3D[{Thickness[.01], Green, 
      Line[{i, {i[[1]], i[[2]], 200} }]}], {i, t}]; 

a = ListPointPlot3D[t, PlotStyle -> PointSize[0.05]]; 
b = Plot3D[f[x, y], {x, -10, 10}, {y, -10, 10}, 
    ColorFunction -> "MintColors"]; 

Show[{b, a, l}]