0
$\begingroup$

How can I do this in Mathematica:

r=Range[0,20,0.13];
fr = HeavisideTheta[r];
data = somecoolfunctionsinmathematica[r,fr]

So that data now is in the form useful to Fit: {{r_1,fr_1},{r_2,fr_2},...}

Thanks!

2 Answers 2

1

This is the correct way to use Table if you prefer it to Map:

Table[{i, HeavisideTheta[10 - i]}, {i, 0, 20, 0.013}]
0

I've found it, albeit syntactically a bit... involved (but I've seen a lot worse):

data = Table[{r[i], HeavisideTheta[10-r[i]]}, {r[i], Range[0, 20, 0.013]}]
  • 0
    `Map` will do it: `{#,HeavisideTheta[10-#]}&/@Range[0,20,0.013]`2011-11-09
  • 0
    Also `Transpose[{#, HeavisideTheta[10 - #]}]&[Range[0, 20, 0.013]]`...2011-11-09
  • 0
    Funny how the (IMHO) much worse pops up in comments under my answer :)2011-11-09
  • 0
    That's alright. IMHO taking a procedural approach when functional methods are available is a bit of a step backwards, but whatever, right?2011-11-11