plotting – Using ListPlot3D with custom colours

I would like to use ListPlot3D to make a 3D plot using a file containing the following information (4 columns): x, y, f(x,y), w(x,y). Here x and y are the coordinates in the Cartesian framework, f(x,y) is some function that depends on x and y, and w(x,y) is another function that represents weights of the function f. So for each data point in f(x,y) we have the corresponding weight w(x,y).
To plot the function f(x,y) I do the following:
f = Import(“file.dat”, “Table”);
ListPlot3D(f)
and that is fine. Now I want to have this plot but with colours determined by the weights, i.e. for each point in “f” I would like to have the colour determined by the value of “w”. Suppose “w” takes values from 0 to 1, I want that 0 corresponds to “blue” and 1 corresponds to “red”, and all values in-between is the gradient between “blue” and “red”. For example, if I have a row in “file.dat”: 0, 1, 10, 0.5, I would like a 3D plot where at (x,y)=(0,1) the value of the function is f=10 and the colour of this point is 50% blue and 50% red. Can you suggest please how to do this in Mathematica?

Many thanks!

plotting – How does function ListPlot3D color according to the values (or specified value) in the fourth column?

I want to plot the data from the second to the fourth columns and color them according to the data in the fifth column:

data = {{1., 74., 781., 5., 4.}, {2., 1373., 731., 11., 4.}, {3., 
   1321., 1791., 28., 4.}, {4., 0., 1787., 4., 2.}, {5., 1049., 2127.,
    12., 4.}, {6., 1647., 2728., 6., 2.}, {7., 2883., 3617., 15., 
   4.}, {8., 2383., 3692., 7., 2.}, {9., 2708., 2295., 22., 4.}, {10.,
    2933., 1767., 7., 4.}, {11., 4233., 895., 6., 5.}, {12., 4043., 
   1895., 14., 1.}, {13., 2427., 3971., 2., 1.}, {14., 3526., 4357., 
   7., 4.}, {15., 5062., 4339., 5., 4.}, {16., 4777., 4897., 8., 
   1.}, {17., 5868., 4904., 16., 4.}, {18., 6534., 5641., 6., 
   1.}, {19., 5481., 6004., 0., 4.}, {20., 4592., 4603., 6., 
   1.}, {21., 2486., 5999., 2., 1.}, {22., 3299., 6018., 4., 
   4.}, {23., 3573., 6213., 5., 1.}, {24., 4741., 6434., 5., 5.}};

ListPointPlot3D(data((All, 2 ;; All)), ColorFunctionScaling -> True, 
 ColorFunction -> (Hue(#4) &), PlotRange -> Full)

But the above graph cannot be dyed according to the fifth column data. What should I do?

Plot – ListPoinPlot3D works, but ListPlot3D does not

I do not understand what is going on. The same table that was drawn with the tool ListPointPlot3D returns the desired output. But planned with ListPlot3D gives an empty box. I repeat, The dates are exactly the sameand is organized in the form {{x1,y1,f[x1,y1]},{x2,y2,f[x2,y2]},.....}, but planned with the environment ListPointPlot3D gives a correct output while plotted with ListPlot3D gives an empty box:

<img src = "https://i.stack.imgur.com/3vTb5.png" alt = "Data that was recorded with ListPointPlot3D"/>

<img src = "https://i.stack.imgur.com/sFf6P.png" alt = "Data that was recorded with ListPlot3D"/>

Plot – Mesh is lost in ListPlot3D with some PlotTheme

When drawing the following data with PlotThemes "Business" or "Web", the lowest dat1 gets no network at all. But without this PlotThemes, it certainly gets a normal network. Is it possible to restore a network in the same style?

Table[ListPlot3D[{dat1, dat2, dat3}, PlotTheme -> {"Grid", theme}, 
  PlotStyle -> Directive[Opacity[0.8]], 
  ImageSize -> Medium], {theme, {"Business", "Web"}}]

Enter the image description here

The data are as follows

{dat1, dat2, dat3}={{{-0.499997, 1.1159*10^-24, 0.00166667}, {-0.447933, -0.00745823, 
   0.00193863}, {-0.329345, -0.0251481, 
   0.00258457}, {-0.185936, -0.0478652, 
   0.00341362}, {-0.00466817, -0.0702993, 
   0.00421323}, {0.17738, -0.063759, 
   0.00390719}, {0.291455, -0.0496345, 
   0.00335362}, {0.361163, -0.0380495, 
   0.00291912}, {0.404419, -0.0294144, 
   0.00260623}, {0.431835, -0.023104, 
   0.00238468}, {0.449641, -0.0184808, 
   0.00222726}, {0.461516, -0.0150467, 
   0.00211387}, {0.469674, -0.0124357, 
   0.00203034}, {0.475486, -0.0103782, 
   0.00196665}, {0.479852, -0.00866813, 
   0.00191543}, {0.483422, -0.00713736, 
   0.00187089}, {0.486726, -0.00564181, 
   0.00182817}, {0.490211, -0.00406795, 
   0.00178344}, {0.494104, -0.00238877, 
   0.00173548}, {0.497943, -0.000816103, 
   0.00169024}, {0.499985, -4.80375*10^-6, 0.00166681}, {-0.499997, 
   0., 0.00166667}, {-0.447933, 0., 0.00166667}, {-0.329345, 0., 
   0.00166667}, {-0.185936, 0., 0.00166667}, {-0.00466817, 0., 
   0.00166667}, {0.17738, 0., 0.00166667}, {0.291455, 0., 
   0.00166667}, {0.361163, 0., 0.00166667}, {0.404419, 0., 
   0.00166667}, {0.431835, 0., 0.00166667}, {0.449641, 0., 
   0.00166667}, {0.461516, 0., 0.00166667}, {0.469674, 0., 
   0.00166667}, {0.475486, 0., 0.00166667}, {0.479852, 0., 
   0.00166667}, {0.483422, 0., 0.00166667}, {0.486726, 0., 
   0.00166667}, {0.490211, 0., 0.00166667}, {0.494104, 0., 
   0.00166667}, {0.497943, 0., 0.00166667}, {0.499985, 0., 
   0.00166667}, {-0.499997, -1.1159*10^-24, 0.00166667}, {-0.447933, 
   0.00745823, 0.00193863}, {-0.329345, 0.0251481, 
   0.00258457}, {-0.185936, 0.0478652, 0.00341362}, {-0.00466817, 
   0.0702993, 0.00421323}, {0.17738, 0.063759, 0.00390719}, {0.291455,
    0.0496345, 0.00335362}, {0.361163, 0.0380495, 
   0.00291912}, {0.404419, 0.0294144, 0.00260623}, {0.431835, 
   0.023104, 0.00238468}, {0.449641, 0.0184808, 
   0.00222726}, {0.461516, 0.0150467, 0.00211387}, {0.469674, 
   0.0124357, 0.00203034}, {0.475486, 0.0103782, 
   0.00196665}, {0.479852, 0.00866813, 0.00191543}, {0.483422, 
   0.00713736, 0.00187089}, {0.486726, 0.00564181, 
   0.00182817}, {0.490211, 0.00406795, 0.00178344}, {0.494104, 
   0.00238877, 0.00173548}, {0.497943, 0.000816103, 
   0.00169024}, {0.499985, 4.80375*10^-6, 
   0.00166681}}, {{-0.499775, -2.23009*10^-29, 
   0.015}, {-0.447627, -0.0062654, 0.0174493}, {-0.328834, -0.0211268,
    0.0232669}, {-0.185163, -0.0402156, 
   0.0307354}, {-0.00369302, -0.0590547, 
   0.0379344}, {0.177888, -0.0534841, 
   0.0351482}, {0.291581, -0.041624, 
   0.0301654}, {0.361089, -0.0319073, 
   0.0262588}, {0.404244, -0.0246666, 
   0.0234461}, {0.43161, -0.0193754, 
   0.0214547}, {0.449392, -0.0154988, 
   0.0200398}, {0.461257, -0.0126193, 
   0.0190205}, {0.469412, -0.0104297, 
   0.0182696}, {0.475225, -0.00870432, 
   0.0176971}, {0.479594, -0.00727014, 
   0.0172366}, {0.483169, -0.00598633, 
   0.0168362}, {0.486479, -0.004732, 
   0.0164521}, {0.489972, -0.00341197, 
   0.0160499}, {0.493872, -0.00200358, 
   0.0156187}, {0.497717, -0.000684506, 
   0.015212}, {0.499763, -4.02915*10^-6, 0.0150012}, {-0.499775, 0., 
   0.015}, {-0.447627, 0., 0.015}, {-0.328834, 0., 0.015}, {-0.185163,
    0., 0.015}, {-0.00369302, 0., 0.015}, {0.177888, 0., 
   0.015}, {0.291581, 0., 0.015}, {0.361089, 0., 0.015}, {0.404244, 
   0., 0.015}, {0.43161, 0., 0.015}, {0.449392, 0., 0.015}, {0.461257,
    0., 0.015}, {0.469412, 0., 0.015}, {0.475225, 0., 
   0.015}, {0.479594, 0., 0.015}, {0.483169, 0., 0.015}, {0.486479, 
   0., 0.015}, {0.489972, 0., 0.015}, {0.493872, 0., 
   0.015}, {0.497717, 0., 0.015}, {0.499763, 0., 0.015}, {-0.499775, 
   2.23009*10^-29, 0.015}, {-0.447627, 0.0062654, 
   0.0174493}, {-0.328834, 0.0211268, 0.0232669}, {-0.185163, 
   0.0402156, 0.0307354}, {-0.00369302, 0.0590547, 
   0.0379344}, {0.177888, 0.0534841, 0.0351482}, {0.291581, 0.041624, 
   0.0301654}, {0.361089, 0.0319073, 0.0262588}, {0.404244, 0.0246666,
    0.0234461}, {0.43161, 0.0193754, 0.0214547}, {0.449392, 0.0154988,
    0.0200398}, {0.461257, 0.0126193, 0.0190205}, {0.469412, 
   0.0104297, 0.0182696}, {0.475225, 0.00870432, 
   0.0176971}, {0.479594, 0.00727014, 0.0172366}, {0.483169, 
   0.00598633, 0.0168362}, {0.486479, 0.004732, 0.0164521}, {0.489972,
    0.00341197, 0.0160499}, {0.493872, 0.00200358, 
   0.0156187}, {0.497717, 0.000684506, 0.015212}, {0.499763, 
   4.02915*10^-6, 0.0150012}}, {{-0.499375, -1.99206*10^-21, 
   0.025}, {-0.447075, -0.00311103, 0.0290871}, {-0.327912, -0.010491,
    0.0387955}, {-0.183768, -0.0199738, 
   0.0512644}, {-0.00193427, -0.0293216, 
   0.0632699}, {0.178798, -0.0264874, 
   0.0585302}, {0.291806, -0.0206033, 
   0.0502241}, {0.360955, -0.0157925, 
   0.0437245}, {0.403929, -0.0122092, 
   0.0390471}, {0.431205, -0.00959079, 
   0.0357357}, {0.448944, -0.00767234, 
   0.0333829}, {0.460791, -0.00624721, 
   0.0316879}, {0.46894, -0.00516351, 
   0.0304392}, {0.474755, -0.00430945, 
   0.0294868}, {0.47913, -0.0035995, 
   0.0287209}, {0.482714, -0.00296393, 
   0.0280548}, {0.486035, -0.00234293, 
   0.0274159}, {0.489541, -0.00168937, 
   0.0267468}, {0.493454, -0.000992039, 
   0.0260294}, {0.497311, -0.000338924, 
   0.0253527}, {0.499362, -1.99498*10^-6, 0.0250021}, {-0.499375, 0., 
   0.025}, {-0.447075, 0., 0.025}, {-0.327912, 0., 0.025}, {-0.183768,
    0., 0.025}, {-0.00193427, 0., 0.025}, {0.178798, 0., 
   0.025}, {0.291806, 0., 0.025}, {0.360955, 0., 0.025}, {0.403929, 
   0., 0.025}, {0.431205, 0., 0.025}, {0.448944, 0., 
   0.025}, {0.460791, 0., 0.025}, {0.46894, 0., 0.025}, {0.474755, 0.,
    0.025}, {0.47913, 0., 0.025}, {0.482714, 0., 0.025}, {0.486035, 
   0., 0.025}, {0.489541, 0., 0.025}, {0.493454, 0., 
   0.025}, {0.497311, 0., 0.025}, {0.499362, 0., 0.025}, {-0.499375, 
   1.99206*10^-21, 0.025}, {-0.447075, 0.00311103, 
   0.0290871}, {-0.327912, 0.010491, 0.0387955}, {-0.183768, 
   0.0199738, 0.0512644}, {-0.00193427, 0.0293216, 
   0.0632699}, {0.178798, 0.0264874, 0.0585302}, {0.291806, 0.0206033,
    0.0502241}, {0.360955, 0.0157925, 0.0437245}, {0.403929, 
   0.0122092, 0.0390471}, {0.431205, 0.00959079, 
   0.0357357}, {0.448944, 0.00767234, 0.0333829}, {0.460791, 
   0.00624721, 0.0316879}, {0.46894, 0.00516351, 
   0.0304392}, {0.474755, 0.00430945, 0.0294868}, {0.47913, 0.0035995,
    0.0287209}, {0.482714, 0.00296393, 0.0280548}, {0.486035, 
   0.00234293, 0.0274159}, {0.489541, 0.00168937, 
   0.0267468}, {0.493454, 0.000992039, 0.0260294}, {0.497311, 
   0.000338924, 0.0253527}, {0.499362, 1.99498*10^-6, 0.0250021}}}

Plot – ListPlot3D: Make sure that certain data points have a specific color, while the rest of the data is colored

I have a 3D data set and I want to colorize the ListPlot3D, but all values ​​equal to zero are displayed as a single color. For example, if the non-zero points remain the same here, the environment should be gray, for example. Thanks in advance for any advice.

Enter the image description here

graphics3d – ListPlot3D surface with logarithmic scale

I try to do a ListPlot3D However, I do not get an answer from Mathematica. I also want to introduce a logarithmic scale in the y-axis. Which function could offer me from my data the best surface?

data = {{0.5, 10^-7, 30.32}, {0.5, 2.32 10^-7, 80.14}, {0.5, 5 10^-8, 7.52}, {0.5, 7.5 10^-8, 10.06}, {0.5, 4 10^-7, 100}, {0.5, 1 10^-8,0}, {0.75, 10^-7, 63.21}, {0.75, 2.32 10^-7, 100}, {0.75, 5 10^-8,25.39}, {0.75, 7.5 10^-8, 45.06}, {0.75, 4 10^-7, 100}, {0.75,1 10^-8, 0}, {1, 10^-7, 100}, {1, 2.32 10^-7, 100}, {1, 5 10^-8, 42.90}, {1, 7.5 10^-8, 68.88}, {1, 4 10^-7, 100}, {1, 1 10^-8, 0}, {1.5, 10^-7, 100}, {1.5, 2.32 10^-7, 100}, {1.5, 5 10^-8, 74.26}, {1.5, 7.5 10^-8, 100}, {1.5, 4 10^-7, 100}, {1.5, 1 10^-8,3.31}, {2, 10^-7, 100}, {2, 2.32 10^-7, 100}, {2, 5 10^-8, 100}, {2, 7.5 10^-8, 100}, {2, 4 10^-7, 100}, {2, 1 10^-8, 10.64}}

Thank you very much

graphics3d – The ListPlot3D label is covered by the interface in a combined graphic

I'm trying to draw some points on the upper leaf of the hyperboloid. When I try to label them, the label is partially covered by the surface. You can see this in the following code

show[{
  ParametricPlot3D[{Sinh[x] sin[y]sinh[x] cos[y]cosh[x]}, {x, 0,
1}, {y, -Pi, Pi}, PlotStyle -> {Opacity[1], Yellow}, Mesh -> {5, 10},
PlotPoints -> {2, 100}].
ListPointPlot3D[{{Sinh[0.5] sin[Pi/2]sinh[0.5] cos[Pi/2].
cosh[0.5]} -> style["CS", 15]}]}]

The label is blocked by the surface

How can I show the label in front of the surface? I tried to change the style[“CS”, 15] send someone an SMS["C"{Sinh["C"{Sinh[“C”{Sinh[“C”{Sinh[0.5] sin[Pi/2]sinh[0.5] cos[Pi/2]cosh[0.5]}]and it does not help.

Many Thanks!

To edit: I use these commands in a manipulation command (in which the size of the hyperboloid changes along with other drawn planes and curves). and I do not know the final position, so moving the text or changing your position is not a great solution. I want to look at it from different angles and always be able to see the label. Is there a way to render the labels last (the top)?