User Portlet
| Discussions |
|---|
| Do Callouts work in Graphics? If so, how would I have the values of **centers** appear below the ellipses in this example? centers = {0, 28.7, 33.8, 48.0, 55.4, 71.9}; Graphics[ Join[ ({Black, Circle[{#, 0}, {0.1, 0.4}]} & /@... |
| I'm interested in importing and navigating in Mathematica v12.2 desktop a recent GenBank whole genome of Ficus carica cultivar Dottato: https://www.ncbi.nlm.nih.gov/genome/53047?genome_assembly_id=749845 I've come up empty handed in the... |
| I have numerical data for 3D surfaces that I wish to mutually crop; i.e. crop the front and back with the left, right, top, and bottom - and similarly for the other 2 permutations. Afterwards, I will join these to make the surface of a volume. And... |
| 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 |