Hot answers tagged

5

region = ImplicitRegion[ z < 4 - x*y && 0 <= x <= 2 && 0 <= y <= 1 && 0 <= z <= 4, {x, y, z}]; RegionPlot3D[region, BoxRatios -> {1, 1, 1}, Axes -> True] Volume[region] (* 7 *) RegionMeasure[region] (* 7 *) Integrate[1, {x, 0, 2}, {y, 0, 1}, {z, 0, 4 - x*y}] (* 7 *) Integrate[1, ...


2

Here is a kick --- sunday --- answer p1 := Plot[Sin[x], {x, 0, 1}] p2 := Plot[Cos[x], {x, 0, 1}] GraphicsGrid[{{p1}, {p2}}] Export["Where you want\\name of the file", pasted GraphicsGrid] You may copy the GraphicsGrid on clicking on the vertical bar


2

The option LegendMargins can be used to significantly reduce the spacing. This option can be added directly to LineLegend plots = Table[ Plot[x i, {x, 0, 1}, PlotStyle -> {Hue[i/11]}, PlotLegends -> LineLegend[{"Serial " <> ToString[i]}, LabelStyle -> {FontFamily -> "Times", 10}, LegendMargins -> {0, 0}], ...


1

You will want to set the automatic rescaling of the data passed to ColorFunction, then write your own ColorFunction that appropriately rescales the data so that a $z$ value of 25 is translated to an input of $0.5$ to the TemperatureMap color function: ParametricPlot3D[ yourFunction, yourParamValues, ColorFunctionScaling -> False, ColorFunction ...


1

Use Hue[h,s] to distinguish between groups via h and within groups via s: pts = {{{0.10, 485}, {0.22, 495}, {0.35, 500}}, {{0.94, 739}, {2.95,814}}, {{3.47, 802}}}; saturationList = {1, .5, .2, .5, .3, .7}; sl = MapIndexed[Thread[{#2[[1]], #}]&, Internal`PartitionRagged[saturationList, Length /@ pts], {1}]; newpts = Style[{#, ...


1

I think it will be better to use Graphics pts = {{{0.10, 485}, {0.22, 495}, {0.35, 500}}, {{0.94, 739}, {2.95, 814}}, {{3.47, 802}}}; saturationList = {.5, .2, .5, .3, .7}; col = {Red, Blue, Green, Brown}; Graphics[Table[{PointSize[Large], Lighter[col[[i]], saturationList[[#]]], Point[pts[[i]][[#]]]} & /@ Range[Length[pts[[i]]]], {i, ...


1

Just to get you started: cpoly = First[Cases[ChromaticityPlot[{}], _GraphicsComplex, ∞]]; xy2uv = LinearFractionalTransform[{DiagonalMatrix[{4, 6}], {0, 0}, {-2, 12}, 3}]; planckLocus[t_?NumericQ] := With[{planck = 1/((Exp[1.43877696*^7/(# t)] - 1) #^5) &}, Normalize[({{1.0478112, 0.022886602, -0.050126976}, {0.029542398, ...



Only top voted, non community-wiki answers of a minimum length are eligible