I am running a 3D plot a 100 times to show the dynamics of two undetermined variables (cM
and cR
) for a 100 values of cS
, using the following command:
Table[
Plot3D[
CentralizationBenefitSharingGraph[cM, cR, cS]
, {cM, 0, 1}
, {cR, 0, 1}
, ViewPoint -> Above
, PlotRange -> Automatic
, AxesLabel -> Automatic
, PlotLegends -> "Expressions"
, ColorFunction -> (If[#3 > 0, Green, Red] &)
, ColorFunctionScaling -> False
, PlotPoints -> 100
, FaceGrids -> {{0, 1, 0}, {0, 0, -1}, {1, 0, 0}}
, FaceGridsStyle -> Black
, AxesStyle -> Thick
, BoxStyle -> Thick
]
, {cS, 0, 1, 1/100}
]
Awfully long, sorry about that. What I am trying to do, however, is show the corresponding value of the variable cS
in every plotted graph, so that I won't have to manually add them a hundred times.
Any help is much appreciated, thanks!