In[]:=
ClearAll["Global`*"]
In[]:=
SetDirectory[NotebookDirectory[]];
In[]:=
(*Exponentialmodel*)
In[]:=
c1=1.;
In[]:=
c2=1.;
In[]:=
c3=0.1;
In[]:=
y1=c1+c2*Exp[-c3*t];
In[]:=
G1=Plot[y1,{t,0,100},PlotRange{{0,All},{0,All}}]
Out[]=
0
20
40
60
80
100
0.0
0.5
1.0
1.5
2.0
In[]:=
(*LinearModel*)
In[]:=
c5=3.;
In[]:=
c6=0.2;
In[]:=
y2=c5-c6*t;
In[]:=
G2=Plot[y2,{t,0,100},PlotRange{{0,All},{0,All}}]
Out[]=
0
2
4
6
8
10
12
14
0.0
0.5
1.0
1.5
2.0
2.5
3.0
In[]:=
Show[G1,G2]
Out[]=
0
20
40
60
80
100
0.0
0.5
1.0
1.5
2.0
2.5
3.0
(*Findtheintersectionpoint*)
In[]:=
NSolve[{y1y2&&t>0&&t<100},t]
Out[]=
{{t7.68039}}