0
$\begingroup$

I'm exporting data, but getting curly bracket in every column digit of the exported data. I am using the Table.

f2[eV_] := 
  NIntegrate[f1[e, eV], {e, -0.010, -d, d, 0.010}, 
    Method -> {"GaussKronrodRule", "GaussPoints" -> 15}, WorkingPrecision -> 15]

Plot[{f2[eV]}, {eV, -0.005, 0.005}, 
  PlotRange -> Automatic , PlotLegends -> {"(I-V)"}]

TAB = Table[{eV, f2[eV]}, {eV, -0.005, 0.005, 0.00005}];

f3 = Interpolation[TAB, Method -> "Spline"]; Derivative[1][f3];

Plot[{f3'[eV]/f3'[0.007]}, {eV, -0.007, 0.007}, 
  PlotRange -> All, PlotLegends -> {"dI/dV vs V"}]

dIdV = ParallelTable[{eV, f3'[eV]/f3'[0.005]}, {eV, -0.005, 0.005, 0.0001}];

m = dIdV[[All, 1]];

Export["C:\\Users\\gorak\\Desktop\\Nb_project\\PCAR\\GNb9\\\
GNb9_7.3K_PCAR_20102020\\BTK_fit\\GNb9_eV_vs_dIdV_4.2K_BTK_fit.txt", dIdV]
$\endgroup$
1
  • 1
    $\begingroup$ There is a few difficulties in your post. First, what is your question? Explain please, what does not work? Second, what is f1[e, eV]? We need to know this function in order to play with your code to be able to help you. Last, here the users turn the code into Mathematica format. To do this, go to your question, press the button "Edit", mark the code and press the button {} in the menu on the top of the window. This will make your code much better visible, and easier to understand and copy-paste helping us to answer your question. $\endgroup$ – Alexei Boulbitch Nov 11 '20 at 7:50

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.