Search Results

So you want something like this: f[x_?VectorQ] := Most @ x + Rest @ x // Evaluate // Defer then f[{x,y}] + f[{x,0}] + f[{0,y}] {x} + {y} + {x + y}

Take a look at the result of the partial expression within your Q function: Times @@@ {Iinit} {2.123*10^-134} It produces a list (e.g. a vector) but what you want for your multiplications seem …

With a little help from other sources and the links given as a comment to my question I came up with a solution. Essentially Gauss-Krüger is a variant of the Transversal Mercator projection so this pr …

In Mathematica you can work with formulae as well as with functions. It is probably best to stick to one approach and not mix. … (aka delayed definitions) This will work using functions: y[x_, α_] := -3 x + 2 α m[α_, y_] := α + y Manipulate[ Plot[ m[ alpha, y[x, alpha] ], {x, 0, 10} ], {alpha, 0 …

geodetic coordinate system) and a High-value (North-value in UTM; x-coordinate int the geodetic coordinate system) Far from being an expert in geodesy the way I understand it Mathematica's geodetic functions … Thus: How can I enter the Gauss-Krüger-Coordinates into Mathematica so they can be used for distance-calculations and conversions using Mathematica's geodetic functions? …

I wanted to use the Pick function with a condition. But there seems to be an issue here. Take a look at this: selection = {0,1.2,3,0.,5}; Pick[{1,2,3,4,5},selection,elem_ /; elem =!= 0] In Mathemat …

There are probably many ways to do this and here are just some examples to get you going into the right direction. First note that you might simply use Sequence: f[a_,b_,m_] := {a :> m[[1,1]]*a + m[ …

Another possibility is to make this a distribution and then use all the machinery that goes with that: SeedRandom["December 27, 2017"]; distReaction = With[ { reaction = {0.2, 0.5, 1} …

A variation to Xminer's answer: With[ { names = FinancialData["NYSE:UN*", "Lookup"], (* use "NYSE:*" for more *) lower = 10, upper = 100 (* use 12 for your example *) …

Here is the approach I would take to transform your dataset to a nested Association: Clear[ makeNested ]; makeNested[ assoc_, keylist_] := GroupBy[ assoc, keylist ] // Apply[ Association, …

First we set up a global variable that assigns aspect ratio functions: $aspectRatioFunctions = Function[ func, Switch[ func, "ratio2", Function[ {p1,p2}, 2 p1/p2 ], "ratio3", Function …

Michael E2 has already hinted at what happens here. To get a deeper understanding of the issue a good place to start is the tutorial Modularity and the Naming of Things There you will find the s …

You can get rid of the O using Normal: (* using your reported output *) out = Abs[-12. + (1.95833 + 7.7 I) beta + (1.40482 - 0.584549 I) beta^2 +O[beta]^5/2]^2; Plot[ Evaluate @ Normal @ out, { bet …