◼
  • Define your dds
  • In[]:=
    p[0]=6500​​p[n_]:=.94*p[n-1]+0
    Out[]=
    6500
    ◼
  • Test the output
  • In[]:=
    p[150]
    Out[]=
    0.605468
    ◼
  • Show a table
  • In[]:=
    TableForm[Table[{n,p[n]},{n,0,23}]]
    Out[]//TableForm=
    0
    6500
    1
    6110.
    2
    5743.4
    3
    5398.8
    4
    5074.87
    5
    4770.38
    6
    4484.15
    7
    4215.1
    8
    3962.2
    9
    3724.47
    10
    3501.
    11
    3290.94
    12
    3093.48
    13
    2907.87
    14
    2733.4
    15
    2569.4
    16
    2415.23
    17
    2270.32
    18
    2134.1
    19
    2006.05
    20
    1885.69
    21
    1772.55
    22
    1666.2
    23
    1566.22
    ◼
  • Show a scatter plot of the previous
  • In[]:=
    ListPlot[%22,JoinedFalse]
    Out[]=
    5
    10
    15
    20
    1000
    2000
    3000
    4000
    5000
    6000