John
Reputation
1,761
Next privilege 2,000 Rep.
Edit questions and answers
 Dec4 accepted Applying several patterns to Split Dec4 comment Applying several patterns to Split I like your approach better from the perspective of comprehension. However, LeonidShifrins approach is faster. Dec4 asked Applying several patterns to Split Nov29 revised Restricted accumulation of values added 5 characters in body Nov29 accepted How to define a large number of assumptions? Nov29 accepted Why is an integer not considered as a real? Nov29 asked How to define a large number of assumptions? Nov27 comment Determining the week of a year from a given date @Heike stevenvh is right. Is there a way to avoid these two problems (week 0 and week 53)? Nov27 comment Determining the week of a year from a given date Why would 2010-01-01 return week 53? Doesn't one year only contain 52 weeks? Nov27 comment Determining the week of a year from a given date I was not aware of using Java within Mathematica. What you wrote sounds interesting. Can you recommend any website or so where I can learn more from implementing java-code into Mathematica and also on available java-scripts? Nov26 comment Usage of plot results @SimonWoods Two more things I did not mentioned before: (1) It would be nice to have the button to appear above the line and (2) if the button touches one of the PlotMarkers Clipboard should only copy the corresponding data-point. Nov26 accepted Usage of plot results Nov23 comment Usage of plot results @SimonWoods The behaviour of the button is a bit strange. It does not change its colour immediately when I touch another line. (Maybe my Mac is reacting to slow?) Nov22 asked Usage of plot results Nov9 comment Leveling peaks in list Almost. With {a___, b_, c_, d_, e___} instead of {a__, b_, c_, d_, e__} it works. (i.e. BlankNullSequence instead of BlankSequence) Nov9 comment Leveling peaks in list The following works but maybe there is a better approach: first = {left_, right_, rest___} /; left > right :> {left/2, left/2, right, rest}; sec = {rest___, left_, right_} /; right > left :> {rest, Mean[{left, right}], Mean[{left, right}]}; third = {a___, b_, c_, d_, e___} /; b < c > d :> {a, Mean[{b, c}], Mean[{b, c}], d, e}; (# //. first //. sec //. third) & @ data Nov8 comment Leveling peaks in list An extreme value is always to be levelled if its neighbour is lower (e.g. dataNoLevelling={1,5,5,5,1} -> (*resNoLevelling={1,5,5,5,1}*)and dataLevelling={100,5,5,5,100} -> (*resLevelling={50,50,5,5,52.5,52,5}*) Nov8 comment Leveling peaks in list I just discovered that there is one problem with your approach. Lets say you have data={10,0,0,0,10}. Then both, the first and the last value, are extrem values which I would like to level as described. I did not pay attention to this case when I asked my question. The problem I see, is that the approach must extend data to the left. (desired result: res={5,5,0,0,5,5}. Note: Length@res-Length@data=1) Nov5 accepted Difference between AbsoluteTiming and Timing Nov5 comment Restricted accumulation of values @J.M. What about the If-clause? Do have an idea how one could substitute this part of my code with another expression?