User Portlet
| Discussions |
|---|
| Deleted. My post was a mistake. By routine habit I considered exponentiation. While Swastik's idea involves tetration. |
| Have a look at the function [`Iconize`][1]. It will label and persistently save its argument data in the notebook where its executed. And the icon label (with its underlying data) can be copied to other notebooks. [1]:... |
| A bit of a roundabout way: &[Wolfram Notebook][1] [1]: https://www.wolframcloud.com/obj/55448e4d-00bd-4b7c-88cc-72d74cadb2a0 |
| On GitHub I can find several Mathematica packages working with either quaternions or octonions. But none that covers both, the hyper complex numbers. [https://github.com/search?q=Quaternions%20language%3AMathematica&type=repositories][1] ... |
| In Michaels smart solution `DiscreteDelta` works the same as `KroneckerDelta`. And if one wants to extend it to also include negative values of *x* it is needed to take the absolute value: In: Table[DiscreteDelta@SawtoothWave@x, {x, -2, 2,... |
| Okay, I understand that this is just a matter of conventions. Just out of curiosity: Do you have any reference to support that positive remainders is the common and established convention? |
| Try this: dataset1 = RandomVariate[NormalDistribution[10, 2], 100]; dataset2 = RandomVariate[TriangularDistribution[{8, 12}], 100]; BoxWhiskerChart[{dataset1 -> Orange, dataset2 -> Blue}] ![enter image description here][1] ... |
| There is an option, `PrintPrecision`, that sets how many significant digits are shown in notebook output. Default 6. To change it globally one can use Preferences from the Edit menu: ![enter image description here][1] Or in Option Inspector: ... |
| Try with `PowerExpand` In[1]:= Assuming[z\[Element]Complexes,Or[(z^2)^(1/2)==z,(z^2)^(1/2)==-z]//PowerExpand] Out[1]= True |
| In cases like this there is a choice between code elegance or computation efficiency. To paraphrase Hamlet: To save or not to save? There is no fixed answer. |