25

Not a solution but too big for a comment. There seems to be a catastrophic failure in Eigenvalues happening that is not due to the matrix being crazy. As a diagnostic, let's calculate the smallest (by absolute value) eigenvalue of the upper-left $n\times n$ part of the matrix M = mat[xlist[[3]]]; For odd $n$ the answer is zero, so let's only do this for ...


24

OK, there are a few things going on here. Let me explain them in turn. First, as the message suggests, this should be written in Inactive form (we'll get to the why later). If you click on the three dots in front of the error message and follow the link to the reference page you will find some information on this error message. To write the equation in ...


19

This is a quick example of calling the exported compiled function from a standalone executable on Windows. A few things to note which are currently undocumented and that can definitely be subject to change (and improvement) in the future: the function is named Main by default and the example uses an explicit prototype rather than including a header file; ...


16

No need to modify a stylesheet, it is sufficient to evaluate SetOptions[$FrontEnd, StyleHints -> {"CodeFont" -> "Courier"}] or equivalently CurrentValue[$FrontEnd, {StyleHints, "CodeFont"}] = "Courier"; for permanently setting the default font to "Courier New" system-wide in Mathematica 11. Note that the undocumented StyleHints option is new in ...


12

Yes, this is possible with a little faff. What we want to do is get the RegionUnion of all the countries the antipode intersects with, and then intersect the antipode with that region, and get the remaining area. Let's use New Zealand as an example. ant = GeoAntipode[Polygon@Entity["Country", "NewZealand"]] Now, we can get the countries that this ...


11

There is another new feature in M12.0: GraphicsColumn will now align the frames. You can use this: d1 = Table[{x, .1 Sin[x]}, {x, 0, 3 Pi, Pi/9}]; d2 = Table[{x, Cos[x]}, {x, 0, 4 Pi, Pi/7}]; GraphicsColumn[ ListLinePlot[#, InterpolationOrder -> 2, GridLines -> Automatic, PlotRange -> {{0, 4 Pi}, Automatic}, Frame -> True] &...


11

Following the lead from J.M., and then some comments therein from User18 and QuantumDot, the following is working: In the common StyleSheet, under Notebook options, I added the option: StyleHints->{"CodeFont" -> "Courier"} So, for example, the options now read: Cell[StyleData["Notebook"], Saveable->False, ShowAutoSpellCheck->False, ...


9

Tl;dr Version 12 supports CUDA 10.1, which includes support for Turing Architecture. To download the most updated version, even if you’ve just updated & are having trouble: Needs["CUDALink`"] CUDAResourcesInstall["<path_to_paclet>", Update->True] As noted by @ilian, version 12 supports Turing chips/architecture. What this means is that GPUs ...


7

Rough answer: things which are "mathy functions" don't show the the implict times, all others do. Numbers times function or symbols times function don't show the symbol. Two NumberQ things in a row do show the symbol. We don't currently have a means on adding to the list of mathy functions. Right now, there's a global on/off switch in the options ...


7

I test nonlinear FEM using solutions obtained by other methods. I developed one of these methods for the problem of the nature convection, aerodynamics, and unsteady hydrodynamics, using linear FEM - see Solver for unsteady flow with the use of Mathematica FEM . Let me give an example. After the release of Mathematica version 12, I tested a non-linear FEM on ...


7

I attempted a workaround, to see if Eigensystem had any issues also. It does. This is very unfortunate. (Will we have to wait for 12.1 for the fix (?!)) My code here: e3[n_?EvenQ] := Eigensystem[M[[;; n, ;; n]]][[1]] // Abs // Min Produces the following, which matches with @Roman shows: (Apologies the colors/styles don't match with the plot from @Roman !...


7

Looks like a bug to me: In version 12.0, the typesetting of Quantity objects in TraditionalForm (which is used for legends in Legended expressions) breaks after typesetting a quantity with the same unit in StandardForm. To see this, consider the following example: (use a fresh kernel) TraditionalForm@Quantity[3.5, "Percent"] Quantity[3.5, "Percent"] ...


6

To be fully in control of the styling, I would suggest converting the quantity to a number. I suggest replacing Row[{"(", #, , ")"}] with Row[{"(", QuantityMagnitude[#], "%)"}]


5

As the ilian's answer, I make a note for Visual Studio user here to supplement: source.cpp file #include<iostream> using namespace std; extern "C" int Main(int); int main() { cout << Main(3) << endl; return 0; } configure Visual Studio In Configuration Properties/Debugging/Environment add PATH=C:\Program Files\Wolfram ...


5

Dimitris, The following books will be coming out shortly (in the US): Analysis With Mathematica, Oct 10, 2019. Using Mathematica for Quantum Mechanics: A Student’s Manual, Jul 26, 2019. The Student's Introduction to Mathematica and the Wolfram Language, Jun 29, 2019.


5

For neural networks, you can do NeuralNetworks`Private`$ExpandNetSummaryBoxByDefault = True; to open them by default. For most other types of summary boxes, you can use the following: prot = Unprotect@BoxForm`ArrangeSummaryBox; DownValues@BoxForm`ArrangeSummaryBox = DownValues@BoxForm`ArrangeSummaryBox /. HoldPattern@DynamicModule[ {open_ = ...


4

The problem is that the callouts need a significant amount of image padding on the right. Typically, you can use PlotRangeClipping->True to eliminate the parts of the curves that extend beyond the plot range, but in this case that would also eliminate the callouts. A possible workaround is to insert a white rectangle after the plots to wipe out the ...


4

This is a follow-up of @ilian's answer, which doesn't work under macOS but provides a promising basis. The error reported by @happy fish that dyld: Library not loaded: @rpath/function.dylib Referenced from: ... Reason: image not found Abort trap: 6 suggests the linking was not correct. Then I tried to correct the @rpath issue (which seems to be a bug but I'...


4

Re question 2 and NDSolve: How to control "DifferenceOrder" at each step has been shown in this tutorial, which has been available for several versions. Dynamic control of order is usually not simple, since you have to evaluate whether to change the order every step (or every $k^{\rm th}$ step). One can control the order for certain method families, such ...


4

Re question 3: There are NBodySimulation and NBodySimulationData. Related Q&A: (25562), (31094), (38478), (63571), (81340), (81340), (105342), (121035), (133349), (135857), (164196), (181275)


4

Until someone discovers the magic undocumented option that controls the initial states of Openers, you can process the boxes to modify the initializations of DynamicModules in information grid: collapse = RawBoxes @ Replace[ToBoxes[#], HoldPattern[Typeset`open$$ = _] :> (Typeset`open$$ = False), All] &;     Information["*`*Entity"] // collapse


3

Note: For most tasks, the improved GraphicsGrid functions from version 12.0 are (finally) more than sufficient (see @Szabolcs answer). I post this answer mostly as an alternative for those who need a bit more flexibility/don't have access to Mathematica 12. You can also use the PlotGrid function from the ForScience` paclet (mostly written by me). It has ...


3

At a slight tweak on Sjoerd's solution, you can execute any JavaScript on the page to see if a particular document state has been reached (modern web pages are almost never 'static' so you have to do something more specific to ascertain you are in the state you want to capture an image of): result = WebExecute[session, "JavaScriptExecute" -> "... ...


3

This is an unavoidable problem due to the nature of the modern web. You never know when a page has finished loading, because modern websites have Javascripts that just continuously refresh the page, so some websites will not have loaded completely after WebExecute returns from "OpenPage". When WebExecute returns, there's still a possibility that scripts ...


3

Here's a better fix, which is essentially the one I made to our nightly development version: Convert`TeX`ExpressionToTeX; System`Convert`TeXFormDump`StripIdentityBoxes[System`Convert`CommonDump`boxes_]:= System`Convert`CommonDump`boxes //. { RowBox[{System`Convert`CommonDump`x_}]:>System`Convert`CommonDump`x, InterpretationBox[TemplateBox[...


3

[This is a full rewrite of my original answer] J. Antonio's question points out how FunctionCompile is indeed still in very early experimental stages of development, that something so simple as computing a finite sum won't compile. But I agree with Henrik that this new compilation engine holds great promise, not just for the greatly expanded number of data ...


2

I was able to reproduce the image on Windows V12. Replacing Line with Tube appears to help this case. {Show[Graphics3D[{FaceForm[Yellow], DiscretizeGraphics@ Polygon[{{-1, -1, 0}, {-1, 1, 0}, {1, 1, 0}, {1, -1, 0}}]}], Graphics3D[{Thick, Black, Line[{{-1, 0, -0.1}, {1, 0, -0.1}}]}], PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, ViewPoint -...


2

Assuming you never want to try to create TeX of the new numerical approximations output, you could do: Unprotect[Convert`TeX`ExpressionToTeX]; Convert`TeX`ExpressionToTeX[expr_, o___?OptionQ] /; !TrueQ@$TeX := Block[ {$TeX=True, BoxForm`UseApproximations=False}, Convert`TeX`ExpressionToTeX[expr,o] ] Protect[Convert`TeX`ExpressionToTeX]; Then: Root[...


2

I worked with some contrived data and came up with this. I believe the general approach will work with your actual data even some of details need to changed. Contrived data data1 = Table[x^1.35 + 50, {x, 0, 33}]; data2 = Table[x^1.35, {x, 0, 33}]; places1 = Placed[ {"1", "2", "4", "8", "16", "32"}, Table[{x, Log[x^1.35 + 50]} // N, {x, Subdivide[...


2

Here's a trick to force that (sadly there is no and can be no option by how this function is written): Information; (* activate the autoloader *) DownValues[System`InformationDump`labeledgridwithopener] = DownValues[System`InformationDump`labeledgridwithopener] /. DynamicModuleBox[{Typeset`open$$ = True}, a___] :> DynamicModuleBox[{Typeset`open$...


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