In[]:=
ClearAll​​end=6*
3
10
​​​​model=
c
-Kpx-
K3Ktx
Kmeno3+Kt

-
Kpx

Kmeno3Kp+
Kpx+
K3Ktx
Kmeno3+Kt

Kmeno3Kp+
K3Ktx
Kmeno3+Kt

K3Kt-
Kpx+
K3Ktx
Kmeno3+Kt

K3Kt-
Kpx

KpKt+
Kpx+
K3Ktx
Kmeno3+Kt

KpKt
Kmeno3Kp-K3Kt+KpKt
Out[]=
ClearAll
Out[]=
6000
Out[]=
c
-Kpx-
K3Ktx
Kmeno3+Kt

-
Kpx

Kmeno3Kp+
Kpx+
K3Ktx
Kmeno3+Kt

Kmeno3Kp+
K3Ktx
Kmeno3+Kt

K3Kt-
Kpx+
K3Ktx
Kmeno3+Kt

K3Kt-
Kpx

KpKt+
Kpx+
K3Ktx
Kmeno3+Kt

KpKt
Kmeno3Kp-K3Kt+KpKt
In[]:=
data=ReadList["pori.dat",{Number,Number}]​​nlf=NonlinearModelFit[data,model,{{c,
-5
10
},{K3,
-2
10
},{Kmeno3,
-3
10
},{Kt,
-3
10
},{Kp,
-3
10
}},x]​​Show[ListPlot[data],Plot[nlf[x],{x,0,end},PlotStyleRed],FrameTrue]​​Normal[nlf]​​nlf["BestFitParameters"]
Out[]=
{{0,0.},{30,2.0476×
-8
10
},{60,7.87794×
-8
10
},{90,1.68441×
-7
10
},{120,2.84323×
-7
10
},{150,4.22221×
-7
10
},{180,5.76087×
-7
10
},{210,7.43183×
-7
10
},{240,9.20596×
-7
10
},{270,1.10618×
-6
10
},{300,1.29784×
-6
10
},{330,1.49385×
-6
10
},{360,1.69257×
-6
10
},{390,1.8929×
-6
10
},{420,2.09375×
-6
10
},{450,2.29384×
-6
10
},{480,2.49238×
-6
10
},{510,2.6892×
-6
10
},{540,2.88367×
-6
10
},{570,3.07522×
-6
10
},{600,3.2638×
-6
10
},{630,3.44912×
-6
10
},{660,3.63087×
-6
10
},{690,3.80894×
-6
10
},{720,3.98323×
-6
10
},{750,4.15357×
-6
10
},{780,4.3199×
-6
10
},{810,4.48225×
-6
10
},{840,4.64057×
-6
10
},{870,4.79482×
-6
10
},{900,4.94507×
-6
10
},{930,5.0914×
-6
10
},{960,5.23383×
-6
10
},{990,5.3724×
-6
10
},{1020,5.50722×
-6
10
},{1050,5.63833×
-6
10
},{1080,5.76581×
-6
10
},{1110,5.88972×
-6
10
},{1140,6.01015×
-6
10
},{1170,6.12717×
-6
10
},{1200,6.24087×
-6
10
},{1230,6.3514×
-6
10
},{1260,6.45879×
-6
10
},{1290,6.56305×
-6
10
},{1320,6.66426×
-6
10
},{1350,6.76262×
-6
10
},{1380,6.85812×
-6
10
},{1410,6.95078×
-6
10
},{1440,7.04075×
-6
10
},{1470,7.12815×
-6
10
},{1500,7.21296×
-6
10
},{1530,7.29522×
-6
10
},{1560,7.37513×
-6
10
},{1590,7.45272×
-6
10
},{1620,7.528×
-6
10
},{1650,7.60101×
-6
10
},{1680,7.67193×
-6
10
},{1710,7.74078×
-6
10
},{1740,7.80756×
-6
10
},{1770,7.87234×
-6
10
},{1800,7.93527×
-6
10
},{1830,7.99635×
-6
10
},{1860,8.05558×
-6
10
},{1890,8.11299×
-6
10
},{1920,8.16861×
-6
10
},{1950,8.22252×
-6
10
},{1980,8.27478×
-6
10
},{2010,8.32544×
-6
10
},{2040,8.37457×
-6
10
},{2070,8.42222×
-6
10
},{2100,8.46846×
-6
10
},{2130,8.51334×
-6
10
},{2160,8.55693×
-6
10
},{2190,8.59929×
-6
10
},{2220,8.64047×
-6
10
},{2250,8.68054×
-6
10
},{2280,8.71947×
-6
10
},{2310,8.75723×
-6
10
},{2340,8.79385×
-6
10
},{2370,8.82937×
-6
10
},{2400,8.86381×
-6
10
},{2430,8.89722×
-6
10
},{2460,8.92964×
-6
10
},{2490,8.96109×
-6
10
},{2520,8.99162×
-6
10
},{2550,9.02126×
-6
10
},{2580,9.05005×
-6
10
},{2610,9.07801×
-6
10
},{2640,9.1052×
-6
10
},{2670,9.13163×
-6
10
},{2700,9.15732×
-6
10
},{2730,9.1823×
-6
10
},{2760,9.2066×
-6
10
},{2790,9.23018×
-6
10
},{2820,9.25305×
-6
10
},{2850,9.27523×
-6
10
},{2880,9.29674×
-6
10
},{2910,9.31758×
-6
10
},{2940,9.33778×
-6
10
},{2970,9.35737×
-6
10
},{3000,9.37637×
-6
10
},{3030,9.39482×
-6
10
},{3060,9.41274×
-6
10
},{3090,9.43014×
-6
10
},{3120,9.44702×
-6
10
},{3150,9.46339×
-6
10
},{3180,9.47929×
-6
10
},{3210,9.49471×
-6
10
},{3240,9.50966×
-6
10
},{3270,9.52417×
-6
10
},{3300,9.53826×
-6
10
},{3330,9.55192×
-6
10
},{3360,9.56518×
-6
10
},{3390,9.57804×
-6
10
},{3420,9.59053×
-6
10
},{3450,9.60264×
-6
10
},{3480,9.6144×
-6
10
},{3510,9.62581×
-6
10
},{3540,9.63687×
-6
10
},{3570,9.64762×
-6
10
},{3600,9.65804×
-6
10
},{3630,9.66816×
-6
10
},{3660,9.67799×
-6
10
},{3690,9.68757×
-6
10
},{3720,9.69689×
-6
10
},{3750,9.70597×
-6
10
},{3780,9.71479×
-6
10
},{3810,9.72335×
-6
10
},{3840,9.73166×
-6
10
},{3870,9.73972×
-6
10
},{3900,9.74752×
-6
10
},{3930,9.75507×
-6
10
},{3960,9.76237×
-6
10
},{3990,9.76941×
-6
10
},{4020,9.7762×
-6
10
},{4050,9.7828×
-6
10
},{4080,9.78923×
-6
10
},{4110,9.79548×
-6
10
},{4140,9.80157×
-6
10
},{4170,9.80749×
-6
10
},{4200,9.81323×
-6
10
},{4230,9.81881×
-6
10
},{4260,9.82421×
-6
10
},{4290,9.82945×
-6
10
},{4320,9.83451×
-6
10
},{4350,9.83941×
-6
10
},{4380,9.84413×
-6
10
},{4410,9.84869×
-6
10
},{4440,9.85312×
-6
10
},{4470,9.85744×
-6
10
},{4500,9.86165×
-6
10
},{4530,9.86575×
-6
10
},{4560,9.86973×
-6
10
},{4590,9.87359×
-6
10
},{4620,9.87735×
-6
10
},{4650,9.88099×
-6
10
},{4680,9.88452×
-6
10
},{4710,9.88793×
-6
10
},{4740,9.89123×
-6
10
},{4770,9.89442×
-6
10
},{4800,9.8975×
-6
10
},{4830,9.9005×
-6
10
},{4860,9.90342×
-6
10
},{4890,9.90626×
-6
10
},{4920,9.90903×
-6
10
},{4950,9.91172×
-6
10
},{4980,9.91434×
-6
10
},{5010,9.91687×
-6
10
},{5040,9.91933×
-6
10
},{5070,9.92172×
-6
10
},{5100,9.92402×
-6
10
},{5130,9.92625×
-6
10
},{5160,9.92841×
-6
10
},{5190,9.93049×
-6
10
},{5220,9.93252×
-6
10
},{5250,9.9345×
-6
10
},{5280,9.93642×
-6
10
},{5310,9.9383×
-6
10
},{5340,9.94012×
-6
10
},{5370,9.94189×
-6
10
},{5400,9.9436×
-6
10
},{5430,9.94527×
-6
10
},{5460,9.94688×
-6
10
},{5490,9.94844×
-6
10
},{5520,9.94995×
-6
10
},{5550,9.9514×
-6
10
},{5580,9.95281×
-6
10
},{5610,9.95419×
-6
10
},{5640,9.95553×
-6
10
},{5670,9.95683×
-6
10
},{5700,9.9581×
-6
10
},{5730,9.95934×
-6
10
},{5760,9.96053×
-6
10
},{5790,9.9617×
-6
10
},{5820,9.96283×
-6
10
},{5850,9.96392×
-6
10
},{5880,9.96497×
-6
10
},{5910,9.966×
-6
10
},{5940,9.96698×
-6
10
},{5970,9.96794×
-6
10
},{6000,9.96889×
-6
10
}}
Out[]=
FittedModel
-1.05542
-0.006005x

-2.36424×
-6
10
0.000999561x

+0.0000118393
0.00500544x

-9.47504×
-6
10
0.006005x



Out[]=
Out[]=
-1.05542
-0.006005x

(-2.36424×
-6
10
0.000999561x

+0.0000118393
0.00500544x

-9.47504×
-6
10
0.006005x

)
Out[]=
{c0.0000100002,K30.01134,Kmeno30.00132126,Kt0.00104403,Kp0.000999561}
In[]:=
fit=Plot[%%,{x,0,end}]
Out[]=
1000
2000
3000
4000
5000
6000
2×
-6
10
4×
-6
10
6×
-6
10
8×
-6
10
1×
-5
10