Return to Answer

replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/

Source Link

edited Apr 13, 2017 at 12:55

You can use Extrusion:

S1 = Plot3D[-69*(Cosh[(3*x)/299] - 1) + 200, {x, -200, 200}, {y, -1, 1}, 
 Mesh -> None, BoxRatios -> {1, .1, 1}, 
 ColorFunction -> "Rainbow", PlotPoints -> 40, Extrusion -> 10];
Show[{S1}, Boxed -> False, Axes -> False]

Sharp Edges in ContourPlot3D with Thickness setting Sharp Edges in ContourPlot3D with Thickness setting

You can use Extrusion:

S1 = Plot3D[-69*(Cosh[(3*x)/299] - 1) + 200, {x, -200, 200}, {y, -1, 1}, 
 Mesh -> None, BoxRatios -> {1, .1, 1}, 
 ColorFunction -> "Rainbow", PlotPoints -> 40, Extrusion -> 10];
Show[{S1}, Boxed -> False, Axes -> False]

Sharp Edges in ContourPlot3D with Thickness setting

You can use Extrusion:

S1 = Plot3D[-69*(Cosh[(3*x)/299] - 1) + 200, {x, -200, 200}, {y, -1, 1}, 
 Mesh -> None, BoxRatios -> {1, .1, 1}, 
 ColorFunction -> "Rainbow", PlotPoints -> 40, Extrusion -> 10];
Show[{S1}, Boxed -> False, Axes -> False]

Sharp Edges in ContourPlot3D with Thickness setting

Source Link

created Jul 29, 2016 at 0:28

Young

7.5k
1
22
46

You can use Extrusion:

S1 = Plot3D[-69*(Cosh[(3*x)/299] - 1) + 200, {x, -200, 200}, {y, -1, 1}, 
 Mesh -> None, BoxRatios -> {1, .1, 1}, 
 ColorFunction -> "Rainbow", PlotPoints -> 40, Extrusion -> 10];
Show[{S1}, Boxed -> False, Axes -> False]

Sharp Edges in ContourPlot3D with Thickness setting