Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.
x = Pi/2
y = -0.1
z = 1

data = Table[
  With[{a = 
  0.01*(i)}, {{NIntegrate[
  a*z*Cos[t]/((t^2 - 2 t x + x^2 + y^2 + z^2)^(3/2) - 
      3 (y Sqrt[t^2 - 2 t x + x^2 + y^2 + z^2] Sin[
          t]) a), {t, -Infinity, Infinity}, 
  Method -> {"GlobalAdaptive", "MaxErrorIncreases" -> 800, 
    Method -> "GaussKronrodRule"}, AccuracyGoal -> 20, 
  MaxRecursion -> 30], 
 NIntegrate[-z/((t^2 - 2 t x + x^2 + y^2 + z^2)^(3/2) - 
     3 (y Sqrt[t^2 - 2 t x + x^2 + y^2 + z^2] Sin[
         t]) a), {t, -Infinity, Infinity}, 
  Method -> {"GlobalAdaptive", "MaxErrorIncreases" -> 800, 
    Method -> "GaussKronrodRule"}, AccuracyGoal -> 20, 
  MaxRecursion -> 30]}, 
NIntegrate[(y + 
    a*(t*Cos[t] - x*Cos[t] - Sin[t]))/((t^2 - 2 t x + x^2 + y^2 + 
       z^2)^(3/2) - 
    3 (y Sqrt[t^2 - 2 t x + x^2 + y^2 + z^2] Sin[
        t]) a), {t, -Infinity, Infinity}, 
 Method -> {"GlobalAdaptive", "MaxErrorIncreases" -> 800, 
   Method -> "GaussKronrodRule"}, AccuracyGoal -> 20, 
 MaxRecursion -> 40], a}], {i, 1, 5}]

Bx = data[[All, 1, 1]]
By = data[[All, 1, 2]]
Bz = data[[All, 2]]

a= data[[All, 3]]
B = Sqrt[Bx^2 + By^2 + Bz^2]
Transpose[a, B]


Transpose::tperm: "Permutation {1.989,1.98813,1.98748,1.98702,1.98678} is longer 
than the dimensions {5} of the array."

Out[]= Transpose[{0.01, 0.02, 0.03, 0.04, 0.05}, {1.989, 1.98813, 1.98748, 
1.98702, 1.98678}]

I want to make a ListPlot so I need {a1,B1},{a2,B2},... but Transpose is not working. I've been reading for an hour and a half trying to find a way to do it but I couldn't.

Thanks for help.

share|improve this question

closed as too localized by Mr.Wizard Sep 26 '12 at 2:47

This question is unlikely to help any future visitors; it is only relevant to a small geographic area, a specific moment in time, or an extraordinarily narrow situation that is not generally applicable to the worldwide audience of the internet. For help making this question more broadly applicable, visit the help center.If this question can be reworded to fit the rules in the help center, please edit the question.

    
Welcome to Mathematica.SE! I suggest the following: 1) As you receive help, try to give it too, by answering questions in your area of expertise. 2) Read the FAQs! 3) When you see good Q&A, vote them up by clicking the gray triangles, because the credibility of the system is based on the reputation gained by users sharing their knowledge. ALSO, remember to accept the answer, if any, that solves your problem, by clicking the checkmark sign` –  Vitaliy Kaurov Sep 26 '12 at 2:47

1 Answer 1

up vote 2 down vote accepted

It suppose to be

Transpose[{a, B}]

{{0.01, 1.989}, {0.02, 1.98813}, {0.03, 1.98748}, {0.04, 1.98702}, {0.05, 1.98678}}

and not Transpose[a, B] . Please check basic syntax usage for functions: Transpose

share|improve this answer
1  
Thanks a lot. I don't know how I missed this. Must be because it's 4.30 am. –  malganis Sep 26 '12 at 2:41

Not the answer you're looking for? Browse other questions tagged or ask your own question.