wolfram-mathematica

How can i make in this code the text in Dialog Box of the Input command to be like this "Enter the 1 element","Enter the 2 element".... For[k = 1, k ≤ n, k++, br = Input["Enter the ",i,"element"]; AppendTo[x, br]; ] Make sure your variables match. :-) You can use Row to build up the text. x = {}; n = 3; For[k = 1, k <= n, k++, br = Input[Row[{"Enter the ", k, " element"}]]; AppendTo[x, br]; ] (You could also use StringJoin["Enter the ", ToString[k], " element"] , but I like Row better.) According to the Input[ ] help: The prompt given can be text, graphics or any expression. So, anything will

I have an annoying problem using GraphicsColumn() in Mathematica to combine several DateList plots in a single column. I need them to be correctly aligned as they display different timeseries for the same period, but as it turns out the size of the frame of each plot gets automatically resized depending on the length of the Y-axis labels. So combining a plot with 5-figure labels and one with 2-figure labels will totally jeopardise the vertical alignment. I tried several tweaks (e.g. setting width or max width via ImageSize), unfortunately they all seem to apply to the size of the graphic as a

I want to implement the conditional expectation operator. I will use the capital epsilon E to denote the operator. I expect at least the following input (underscore means subscript) E_2[a] E_2[x_1] E_2[x_1 + y_5] E_1[3 a + b - 4 + 2 x_] E_6[x_5 x_7] E_t[x_t] E_t[3 x_{t - 1} x_{t + 2}] to produce the following output a x_1 E_2[y_5] + x_1 -4 + 3 a + b + 2 E_2[x_5] E_6[x_7] x_5 x_t 3 E_t[x_{t + 2}] x_{t - 1} The examples above are not the only input/output pairs I need to produce, but rather serve as a test and an illustration for the syntax I prefer. I've got this far. ce means Conditional

there is a very time-consuming operation which generates a dataset in my package. I would like to save this dataset and let the package rebuild it only when I manually delete the cached file. Here is my approach as part of the package: myDataset = Module[{fname, data}, fname = "cached-data.mx"; If[FileExistsQ[fname], Get[fname], data = Evaluate[timeConsumingOperation[]]; Put[data, fname]; data] ]; timeConsumingOperation[]:=Module[{}, (* lot of work here *) {"data"} ]; However, instead of writing the long data set to the file, the Put command only writes one line: "timeConsumingOperation[]",

I have two numpy arrays: 9x9 and 9x1. I'd like to solve the differential equation at discrete time points, but am having trouble getting ODEInt to work. I do am unsure if I'm even doing the right thing. With Mathematica, the equation is: Solution = {A[t]} /. NDSolve[{A'[t] == Ab.A[t] && A[0] == A0}, {A[t]}, {t, 0, .5}, MaxSteps -> \[Infinity]]; time = 0.25; increment = 0.05; MA = Table[Solution, {t, 0, time, increment}]; Where Ab is the 9x9 matrix, A0 is the 9x1 matrix (initial). Here, I solve for time and life is good. In Python implementation I have the following code which gives me the

I want to restrict my variables to certain ranges for my entire notebook, is there a way I can do that in one go without entering a different $assumption line for every variable? Edit: I want to define the domain of variables for all calculations in my notebook (googling helped me frame my needs better!) If all of your variables are going to be (for example) Real , then you can intercept the creation of new symbols and add that assumption to $Assumptions . E.g. $Assumptions = True; $NewSymbol = If[#2 === "Global`", Print["Created new Global` variable named ", #1, ". It is assumed to be real."]

I'd like to syntax highlight Mathematica code on a MediaWiki site. I've already installed the MediaWiki extension SyntaxHighlight GeSHi and verified that it works for other languages. I tried simply putting a Mathematica langauge data file mathematica.php into MediaWiki's extension path wiki/extensions/SyntaxHighlight_GeSHi/geshi , however it didn't correctly highlight a Mathematica code block such as: <syntaxhighlight lang="Mathematica"> (* this is a comment *) List[Sin[x], Cos[x], Tan[x]]; </syntaxhighlight> Any ideas? I do not see Mathematica listed as a supported language at http://qbnz