Questions about the use of built-in Mathematica functions, including pure functions.

learn more… | top users | synonyms

1
vote
3answers
92 views

Breaking a While loop

A simple example to illustrate what I'm talking about: m=0; While[m<=50, m=m+1; p=m] The result is: m=51 p=51 In ...
3
votes
0answers
80 views

Extracting an equation from an interpolated function

Im trying to use LibraryLink to do some calculations in C but part of the expression i want to calculate is an Interpolating Function. C cant use that obviously so I'm trying to shift it to a data ...
0
votes
0answers
98 views

How to speed up my code with constructing matrices

I have run this program for a long time to get the result for n = 2048(about 5hours) and no more result till now (can't run with n = 4096). I would know how to make it more efficient. Any help or ...
0
votes
2answers
71 views

Operations on transfer function model

Suppose I have a transfer function defined via TransferFunctionModel, e.g. tf == TransferFunctionModel[{{1/s}}, s]. How can I ...
8
votes
0answers
101 views

Why is this evaluation halved when adding units?

Why does this strange behavior occur when dealing with units and quantities? ...
1
vote
0answers
58 views

How to put Black as the background colour, and text as white in Mathematica? [duplicate]

My question is equal to this one,even though by different reasons. I would like to know how can I change the white background to black, and the black text to white. I'm asking again, since a year has ...
0
votes
2answers
78 views

Parametric Function

i'm struggling to implement the following parametric function: I need to create a g function with two arguments (w and v). If w and v are not empty lists, then it will return a list containing two ...
1
vote
0answers
40 views

Input `Reduce[Mod[a + x, l] == 0, x]' and output `x == -a + kl`?

Reduce[a + x == k l && k > 0, x] (* k > 0 && x == -a + k l *) I think a + x == k l and ...
5
votes
2answers
109 views

How to use Manipulate to cycle through a list of lists over a function

So I can do something like this which I like: Manipulate[i, {i, {1,2,3,4}}] It lets me pick which specific values I want to allow to be chosen for my function. ...
3
votes
0answers
45 views

How to add my own functions to the library? [duplicate]

I would like to have my own functions (some sort of helper or utility functions) available all the times I run Mathematica. How to do that?
2
votes
1answer
90 views

IntegerQ and Element Integers give different results in one case

f1[x_] := IntegerQ[x] f2[x_] := Element[x, Integers] Both functions give identical results in everything except for such case: ...
0
votes
2answers
53 views

Solving coefficients of a function having boundary conditions

I have a function F=c+dz, which has particular boundary values, say F(z=1)=2 and F(z=-1)=1, ...
2
votes
2answers
78 views

FullForm applied to functions

I would have expected FullForm[Cases[{a^2, a^3}, a_^1]] to produce ...
0
votes
1answer
68 views
1
vote
1answer
114 views

Write 7. as 7.0 and .7 as 0.7 [closed]

i would like to know how to do in order to transform using a function .7 in 0.7 and 7 in 7.0. I need that the values in the list will really change because i must print them in a text file. Thank ...
10
votes
1answer
202 views

Max element of a list with a custom ordering function

I need a function to find max element of a list according to some custom ordering function, assuming that the function implements a total order (elements being compared might not even be numbers). ...
1
vote
2answers
107 views

Pattern Match and Replace Expression involving Pure Function

Let's say I have an expression that in held form contains a pointer to a function. expr = Hold[2*{"FUNCTION1"} + 5]; ...
-1
votes
2answers
157 views
10
votes
8answers
451 views

Find the minimum integer r such that $(10^r - 1)/37$ is an integer

I know Element[(10^r - 1)/37, Integers] tests the condition. So what is the command that gives me the minimum integer value r ...
2
votes
1answer
39 views

Default value behaves differently when used in Function and when used with Cases

Consider this example: Cases[{4, x, 5 a , 6 x}, x_.*a_ :> x] (*{1, 1, 5, 6}*) It is clear that the _. took 1 as a ...
2
votes
1answer
84 views

PrimitiveRoot function

The function PrimitiveRoot[n] claims to return the smallest primitive root of n. I believe this is not true. For example ...
1
vote
3answers
144 views

Create a function which gets a function and a x as argument and returns the y [closed]

After a few hours and lots of tries, I am hoping that someone could give me a solution to my problem. I want to have a function, which gets a function and a value as arguments. The function should now ...
2
votes
2answers
99 views

Generating a permutation of elements in chunks

Is there a way for me to generate a list of permutations in "chunks" such that I needn't store everything on RAM all at once? Consider that (WARNING: DO NOT RUN! --- Will generate a list with 13! = ...
2
votes
1answer
51 views

Double application of NIntegrate produces unexpected error messages [duplicate]

In the course of trying to answer 69601, I encountered unexpected error messages. In highly simplified form, NIntegrate[NIntegrate[z y, {y, 0, 10}], {z, 0, 10}] ...
1
vote
2answers
96 views

Expressions containing globally undefined symbols inside a function where they are defined

Consider the following code. f[a_,b_]:=x; Clear[a,b]; x=a+b; f[1,2] It returns a+b. However, from a certain viewpoint, one ...
13
votes
11answers
1k views

Divide all but the maximal element in a list by 10?

I have a list of numerical data, and I want to write a program that will keep the maximum as it is, but reduce the rest by certain factor (such as 10). For example: ...
4
votes
1answer
114 views

Coefficients of a polynomial in powers of 10

Can I express a polynomial function in Mathematica in power (ScientificForm) ? I was trying: ...
1
vote
0answers
67 views

What are the differences between these functions when used for NMaximize?

In short, the question is how to construct the function you want to optimize? ...
6
votes
4answers
142 views

Minimizing a function with a constant $l > 0$

I'm VERY new to Mathematica and would like some help with minimizing a function. $$f(x) = \frac{1}{2} \sqrt{\frac{\left(l^4+x^4\right)^2}{l^4 x^2}}$$ I want to find which $x-value$ (probably ...
0
votes
2answers
116 views

Replace variables and redefine a function

I would like to redefine a function f(x)=1+2x^2 to a new function g(y)=1+2y by using the replacement ...
6
votes
3answers
177 views

Is it possible to find generating functions of infinite sequences with Mathematica?

I'm trying to find the generating function of a sequence as $(0,1,0,1,0,1,\dots)$ but reading Mathematica's help on FindGeneratingFunction[] seems to tell me that ...
1
vote
2answers
125 views

Josephus problem

See the Josephus Problem. My code takes in two numbers; one is the number of participants, and the other is supposed to be the number of players skipped between executions. ...
1
vote
2answers
56 views

Incomplete Integration in Area

Area[2 Sqrt[(1 - p^2)^2 - r^2], {p, 0, 1}, {r, 0, 1 - p^2}] is able to perform only the integral over r, leaving the integral ...
0
votes
0answers
50 views

Plot function failure, and understanding how mathematica selects recursion points for correction

I think it is best to start out by directing everyone to this link. The discussion concerns why the Plot function fails to accurately generate a simple sine wave for given parameters. The answer given ...
0
votes
1answer
81 views

How to fill a Marshal buffer with whitespace using NETLink

Further to Todd Gayley's answer on string handling in a DLL function, I have the following code: ...
1
vote
1answer
53 views

Aborting from a Dialog box

I'm trying to abort a While cycle, with a dialog box. I've tried the following: ...
4
votes
0answers
58 views

Can one generate the default output of Hash[expr] (from Mathematica <= 9) in Mathematica 10

Mathematica 10 silently changed the behavior of Hash when the algorithm is not specified explicitly using an option. Is there any way (such as an undocumented ...
3
votes
1answer
147 views

Function that returns the second argument of Reap

I'm trying to create a function that returns only the second argument of Reap. Here's my naive guess of how it would go : Reap2[x_]:= Flatten[Reap[x][[2]],1] ...
5
votes
0answers
100 views

More Ticks::ticks errors in AbsoluteOptions in v10

Bug introduced in 10.0.0 While the specific bug affecting Plot described in AbsoluteOptions prints error messages in V10 has been fixed in 10.0.2 there remain ...
0
votes
2answers
77 views

Choosing pairs from a list that satisfy a certain equality [closed]

If I have many numbers in here {{A,B},{C,D},{E,F}.....} And I want choose the B,D,F,....(the second number) to run a function y=f(x), where x=B,D,F.... Then I need to check if y=f(B) is equal to A or ...
0
votes
3answers
88 views

choose any number e that is relatively prime to n

I try to write a command that means choose any number e that is relatively prime to n, like e^n [Congruent] 1 (mod n), but it didn't give me a value of e. e^n [Congruent] 1 (mod n)
0
votes
0answers
78 views

How to conveniently stop a programme without aborting the computation

I have a programme that will have to run for a few days. However, I would like the user to have the option of stopping the computation of the code, without aborting it, when he desires, without ...
0
votes
0answers
42 views

Regarding Cycles and Lists of Functions

So, I'm trying to determine the Normal Matrix of a Least Squares Aproximation; I have a basis constituted by 8 functions f1,f2...f8; I have 9 points which constitute Datax = {x1,x2...x9} Now, I ...
3
votes
3answers
150 views

What is shorthand way of Reap list that may be empty because of zero Sow

Sometimes because of conditionals, you cannot guarantee that Sow will be called at least once. Reap[Sow[1]][[2,1]] results in ...
0
votes
2answers
59 views

Binding trigonometric terms

I have many terms like A = Cos[Pi/18 + 2 x] + Cos[Pi/18 - 2 x] and I want to convert A to ...
1
vote
3answers
67 views

Defining a function using a preceding expression

How can I automatically define a function inside my Mathematica code using a result (expression) that preceded the point of definition. For example: ...
1
vote
1answer
106 views

Quantize a real-valued function?

I'm wondering if there's a built-in way in Mathematica to take a function whose output values are continuous, and quantize it to produce a step function. For example, I have the function ...
1
vote
1answer
50 views

How to package a function for export?

I often post code for functions on Stack-Exchange, and then later find that they are unexecutable - that people can't use them because I mistakenly omitted some private functions or values that are ...
15
votes
2answers
229 views

Where is the old option TraceInternal->True?

Already at least in version 2 (I think), the function Solve calls the function Roots. At that time, I had a rather dirty trick, that still works, to verify this: ...