I need a function that takes a list {x_1, x_2, x_3, ..., x_n} (for example) and returns {{x_1, x_2},{x_2,x_3},...{x_(n-1),x_n}}. My current function is Transpose@{Drop[#, -1], Drop[#, 1]} &@. Is there a better way?
@rm-rf just a quick follow up - is it possible to take the list {x_1,x_2,x_3,...x_n} and return {{x_1},{x_1,x_2},{x_1,x_2,x_3},{x_2,x_3,x_4},...,{x_(n-3),x_(n-2),x_(n-1)},{x_(n-2),x_(n-1),x_n},{x_(n-1),x_n},{x_n}}?
Someone recently mentioned in chat that asking questions in chat is unwelcome behavior. Personally, I ask some short questions which I feel shouldn't be asked as a proper question on the main site, in particular short optimization questions or questions involving opinion. Can I get a sense from t...
@VincentTjeng btw, although not very well documented, the fourth argument can also take values other than {±1, ±1} (useful if you want different lengths hanging on each end)
i'm writing a short snippet of code to compare each value with the preceding and subsequent n values to determine whether it is an extrema
what I have in the end is extremaPosition = Flatten@Position[ Map[#, Partition[valueList, 2*aroundRange + 1, 1, {-(1 + aroundRange), 1 + aroundRange}, {}]] - tempvaluelist, 0.] &;
so we can have extremaPosition[Min] or extremaPosition[Max]
I want the numbers along the axis to be larger than the default value. Can this be done?
The reason I am asking is because i frequently make charts in mathematica and use them in word. I export the charts as .bmp files and then paste the images in word. The default text size for the axis is...
@YvesKlett Yeah... well, definitely not something I'm going to close single handedly though. If you want to, that's fine (there might actually be some detailed dupes on this... hard to imagine this has never been asked). You could still make an instructive answer out of it by discussing alternatives to Directive (which wolfies has done), such as changing BaseStyle.
Come to think of it, I'm positive there was an answer by @mr.wizard on designing custom styles and just applying it to the plot on demand instead of modifying the default options... too sleepy to search now though
@rm-rf no, I was not thinking about getting you to close it - I was on the brink of voting to do so, but the the refreshingly direct (if not pretty) title might be helpful for newcomers.
Is there a way in Mathematica to find the local maxima of a set of points?
Suppose you have
points={{xa,ya},{xb,yb},{xc,yc}...}
peakQ[{{x1_,y1_},{x2_,y2_},{x3_,y3_}}] := Abs[y1] > Abs[y2] && Abs[y2] < Abs[y3];
peaks=Map[#[[2]]&, Select[Partition[points,3,1],peakQ[#]&]]
Is it correct becau...
You probably might get better results if you apply some sort of smoother such as moving average/Savitsky-Golay filter or maybe try using a Kalman filter...
while I'm fine with doing it in this case as I needed to document the code, I was wondering whether you could replace (in this case) valueList with a #
i'll try to come up with a better example - I often face these kind of problems in my coding, but the example i just quoted doesn't emphasize the issue
I would like to eventually teach Mathematica to my future high school students. In high school, there are many students who haven't taken a computer science class yet. I know Mathematica can get really complicated(it was for my first year!), what are some things that I should include in my lesso...
@acl The unpublished rant. Well, that it takes maybe a bit too much rigour and effort to use Mma to teach CS. But that implied the view of CS as a field of study that every student is expected to continue for years full time for a profession... I guess that's not exactly the thing (s?)he was asking about.
That question sounded to me like someone asking "how do you teach computational genomics algorithms to high school students" when what is meant is really "genetics for high school students" :)
I don't have a faintest idea what "CS for high school students" might mean. Back when I went to something equal to high school, it was "automatic data processing" (or "computers"), and definitely not full of formalisms, algorithms, data structures, compiler theory and stuff. So, Mma could actually be a reasonable tool for experimentation.
Hey folks, I have seen a number of elegant answers using the commands Sow[] and Reap[], but even after I read the help file I don't really understand these commands and how they can be so useful. Anyone know if there are tutorials out there dealing with this specifically?
I have a list, such as:
testdata = {{1, 317}, {2, 317}, {3, 317}, {4, 317}, {5, 317}, {6,
317}, {7, 318}, {8, 318}, {9, 318}, {10, 318}, {11, 319}, {12,
319}, {13, 319}, {14, 319}, {15, 314}, {16, 314}, {17, 314}, {18,
314}, {19, 314}, {20, 314}, {21, 314}, {22, 314}, {23, 314}, {...
I want the numbers along the axis to be larger than the default value. Can this be done?
The reason I am asking is because i frequently make charts in mathematica and use them in word. I export the charts as .bmp files and then paste the images in word. The default text size for the axis is...
Is there a way in Mathematica to find the local maxima of a set of points?
Suppose you have
points={{xa,ya},{xb,yb},{xc,yc}...}
peakQ[{{x1_,y1_},{x2_,y2_},{x3_,y3_}}] := Abs[y1] > Abs[y2] && Abs[y2] < Abs[y3];
peaks=Map[#[[2]]&, Select[Partition[points,3,1],peakQ[#]&]]
Is it correct becau...
