User Portlet
Featured Contributor
| Discussions |
|---|
| Hi Günther. Many of your posts remind me of this classic sphere eversion animation called 'Inside Out'. The source code for animating it can be found here http://profs.etsmtl.ca/mmcguffin/eversion/, specifically [sphereEversion-0.3.1.tar.gz][1]. ... |
| ChatGPT seems to know programming languages like Python and C very well. There's *far* less training data for Mathematica on the internet, and it shows. For instance: "Make a song in mathematica" yields > Here is a simple example of how you can... |
| Ah! To my shame... FullSimplify@ToRadicals[Cos[Pi/24]] yields the expression. That I didn't even consider `FullSimplify`, `MinimalPolynomial` etc. is a testament to how good `Simplify` is by default (the range of expressions it deals... |
| According to - https://mathematica.stackexchange.com/questions/132670/some-information-about-primeq-function - https://math.stackexchange.com/questions/123465/do-we-really-know-the-reliability-of-primeqn-for-n1016 the test used in `PrimeQ`... |
| My guess is that `Count` isn't designed to play nice with `Resolve`, though I may be mistaken. A strange partial workaround is to 'manually define `Count`' like so A={1,1,2,2};B={1,2,2}; ... |
| My thoughts on this topic, besides that it should recieve more public discussion, are twofold. First, I am not sure whether I will buy Mathematica once I exit academia. As long as I have a 'free' license though, I'm hooked. I think both... |
| Edit: you may need Clear["Global`*"] if there are nasty definitions of `lat`, `lon`, `entropy` taking precedence. Seems to work in 12.1. Got the following output ![enter image description here][1] [1]:... |
| See `RegionUnion`, `RegionIntersection`, `MeshRegion` etc. There is a distinction between 'shells and blobs', so depending on the meshes you end up with, you may need to convert blobs to their boundaries and back. ... |
| Very neat! I thoroughly enjoyed writing this code changeover[test_,start_,step_]:={start,step}//.{x_,y_}:>If[test[x+y],{x+y,y},{x,y/2.}] exhibitchanges[listofchangesepsilons_]:=(ColorData["BrightBands"]@#&/@ ... |
| Try Plot[N[J0J1Y0Y1[z],500],{z,0,10^15},WorkingPrecision->50] The default is `WorkingPrecision->MachinePrecision`, which is about 16 on my computer (the variable `$MachinePrecision`). |