Thanks a lot for helping me! I fix the code, but the fit is not good. 1. I read the data here my x
xmdatapar =
ReadList["/home/roberto/F?ica/Pesquisa/<X^m>/kaon/lib/pares/xm_par.\
dat", {Number}];
xmpardata = Table[xmdatapar[[i, 1]], {i, 1, Length[xmdatapar]}]
{0.243098, 0.127303, 0.0834994, 0.0609518, 0.0473757, 0.0384113, \
0.0320716, 0.027407, 0.0237647, 0.020894, 0.0185901, 0.0167308, \
0.0151393, 0.013839, 0.0127182, 0.0117066, 0.0108577, 0.0101237, \
0.00948312, 0.00887854, 0.00834716, 0.00788257, 0.00746653, \
0.00705183, 0.00669624}
2. i need to fit this variables *Npar, (\[Alpha]RLpar , \[Alpha]2*
\[Phi]par[x_] :=
Npar*(x (1 - x))^(\[Alpha]RLpar -
1/2 ) (1 + \[Alpha]2*GegenbauerC[2, \[Alpha]RLpar, (2 x - 1)]);
3.I did a model to fit
Table[{m, Integrate[\[Phi]par[x] ( 2*x - 1)^m, {x, 0, 1}]}, {m, 2, 6,
2}];
fitxm = Integrate[\[Phi]par[x] ( 2*x - 1)^m, {x, 0, 1}];
where m is numbers even 2,4,6...50 and x my moments, [Alpha]2 need to be a negative low value like around -0.30~-0.50
FindFit[xmpardata, fitxm, {\[Alpha]RLpar, \[Alpha]2, Npar}, m]
FindFit::nrlnum: The function value {-0.243098+0. I,-0.000149731-1.55718*10^-17 I,-0.0834994+0. I,0.00219318 -1.54661*10^-17 I,-0.0473757+0. I,0.000892465 -1.444*10^-17 I,-0.0320716+0. I,<<11>>,-0.00948312+0. I,-0.000897592-9.77385*10^-18 I,-0.00834716+0. I,-0.00090295-3.41989*10^-17 I,-0.00746655+0. I,-0.000880321-9.0694*10^-18 I,-0.00669639+0. I} is not a list of real numbers with dimensions {25} at {\[Alpha]RLpar,\[Alpha]2,Nc} = {1.00001,-0.0133867,1.31278}.
{\[Alpha]RLpar -> 1.00001, \[Alpha]2 -> -0.0133867, Npar -> 1.31278}
ListPlot[xmpardata]
In[8]:= Table[
fitxm /. {\[Alpha]RLpar ->
1.00001204228849, \[Alpha]2 -> -0.0133867063850715,
Npar -> 1.3127808940632832}, {m, 2, 50, 2}]
Out[8]= {0.127153, 0.063145, 0.0393038, 0.0274371, 0.0205373, \
0.0161126, 0.0130764, 0.010887, 0.00924693, 0.00798095, 0.00697962, \
0.00617151, 0.00550909, 0.00495871, 0.00444164, 0.00412147, \
-0.000131836, -0.036299, 0.1193, -0.170002, -4.57313, -135.358, \
1499.52, 4139.2, 44729.1}
In[10]:= ListPlot[
Table[fitxm /. {\[Alpha]RLpar ->
1.00001204228849, \[Alpha]2 -> -0.0133867063850715,
Npar -> 1.3127808940632832}, {m, 2, 50, 2}]]
|