User Portlet
| Discussions |
|---|
| labspace[l_, a_, b_, i_, cs_] := Block[{}, (List @@ ColorConvert[ColorConvert[LABColor[{l, a, b}], cs], "LAB"])[[i]]]; lmindata = NMinimize[{labspace[l, a, b, 1, "HSB"], (-1 3,... |
| &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/4b0c3998-410c-4f3e-bd40-9da51a1a8215 |
| &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/61a1e392-971a-4639-a6f3-6811d97812e0 |
| &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/dabfa625-b424-4877-b305-b17125015a22 |
| Are there other ways to Do something once without additional overhead? Here's a short example, but I have instances with dozens of lines of code. If[overwriteBrightBandsPlot, Do[ Export[brightBandsPlotPNGfile, LPXH2]; ... |
| For ChromaticityPlot3D, I'd like to specify an initial rotation (or alternately, a different coordinate order). Here is what is generated by default: Print[ ChromaticityPlot3D[ "RGB", "RGB", Appearance ->... |
| &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/f79ebc56-0fa8-48d1-b304-f016554c6c0d |
| In the example below, the GridLines extend below and to the left of the axes. How to prevent this? ![enter image description here][1] X = 10000; Xfractions = N[(#/X) & /@ Range[0, X]]; brightBandsXRGBcolors =... |
| Is there a Built-in function to obtain color coordinates from a color directive? I'm currently doing it the hard way: colors = {RGBColor["AliceBlue"], RGBColor["DarkMagenta"]}; colorcoords = ToExpression[ StringSplit[ ... |
| In Mathematica 12.2, I'd like to have a user-defined function create a data structure, initialize it, and return it. I'm failing at the 1st step, so instead creating it beforehand with the function performing the initialization: ... |