In[]:=
Δ=0.15;σ=12;
In[]:=
Φ[j_Integer,n_Integer]:=0/;n<0
In[]:=
Φ[1,n_Integer]:=(11Exp[1]/3)Δ((n+8)Exp[-n/8]-8)/;n>=0
In[]:=
Φ[j_Integer,n_Integer]:=Φ[j,n-1]+(11/3)Log[1+(13/1056)(Φ[j-1,n-σ-1]-Φ[j,n-σ-1])]/;And[n>=0,j>=2]
In[]:=
ListLinePlot[Table[{n/8,Φ[1,n]},{n,0,80}]]
Out[]=
ListLinePlot[Table[{n/8,Φ[j,n]},{j,1,2},{n,0,80}]]
Out[]=
In[]:=
ListLinePlot[Table[{n/8,Φ[j,n]},{j,1,3,1},{n,0,80,1}]]
Out[]=
In[]:=
RecurrenceTable[{Φ[j,n]==Φ[j,n-1]+(11/3)Log[1+(13/1056)(Φ[j-1,n-σ-1]-Φ[j,n-σ-1])],Φ[j,n]==0/;n<0},Φ,{j,2,5},{n,0,8}]
RecurrenceTable
:Equation or list of equations expected instead of Φ[j,n]0/;n<0 in the first argument Φ[j,n]
11
3
Log1+
13Plus[2]
1056
+Φ[j,-1+n],Φ[j,n]0/;n<0.
Out[]=
RecurrenceTableΦ[j,n]
11
3
Log1+
13(Φ[-1+j,-13+n]-Φ[j,-13+n])
1056
+Φ[j,-1+n],Φ[j,n]0/;n<0,Φ,{j,2,5},{n,0,8}