Hello Everyone,
b1 = 1; \[CapitalGamma]0 = 2; b2 = 1;
R1 = -Log[1 - ef]
sol = ParametricNDSolve[{N1'[t] == -R1*N1[t] +
b1*\[CapitalGamma]0*N2[t],
N2'[t] == +R1*N1[t] - \[CapitalGamma]0*N2[t],
N3'[t] == b2*\[CapitalGamma]0*N2[t] - \[CapitalGamma]0/2 N3[t],
N1[0] == .65, N2[0] == 0, N3[0] == 0}, {N1, N2, N3}, {t, 0,
300}, {ef}]
ListLinePlot[
Evaluate@Table[
NIntegrate[t*N2[ef][t] /. sol, {t, 0, 300}], {ef, 0.1, 1, 0.1}],
PlotRange -> All]
Why I am getting so many warnings?
b1 = 1; \[CapitalGamma]0 = 2; b2 = 1;
R1 = -Log[1 - ef]
sol = ParametricNDSolve[{N1'[t] == -R1*N1[t] +
b1*\[CapitalGamma]0*N2[t],
N2'[t] == +R1*N1[t] - \[CapitalGamma]0*N2[t],
N3'[t] == b2*\[CapitalGamma]0*N2[t] - \[CapitalGamma]0/2 N3[t],
N1[0] == .65, N2[0] == 0, N3[0] == 0}, {N1, N2, N3}, {t, 0,
300}, {ef}]
ListLinePlot[
Evaluate@Table[
NIntegrate[t*N2[ef][t] /. sol, {t, 0, 300}], {ef, 0.1, 1, 0.1}],
PlotRange -> All]
Why I am getting so many warnings?