index.html

Az eredeti feladat

Formailag értelmesebb, egyenértékű

Kiküszöböljük v-t

In[1]:=

In[2]:=

ψ[v_, ρ_: - 1] := v^ρ/ρ(*ρ = -1 vagy 1 ? *)

In[15]:=

In[21]:=

Out[21]=

In[22]:=

Out[22]=

In[25]:=

Out[25]=

In[26]:=

Out[26]=

In[27]:=

$harmad = Table[Overscript[u, _] (R_ (t + 1) - R_t) + w[b_ (t + 1)] (t - R_ (t + 1)) == w[b_t] (t - R_t), {t, S, T - 1}]$

Out[27]=

In[29]:=

Out[29]=

A ρ=1 határeset

In[30]:=

Out[30]=

In[39]:=

Out[39]=

In[36]:=

Out[36]=

${b^* →0.799851}$

In[35]:=

Out[35]=

In[38]:=

Out[38]=

In[41]:=

${b_T/.nm[[2]], b^*/.sol}$

Out[41]=

In[42]:=

${R_T/.nm[[2]], R^*}$

Out[42]=

In[47]:=

$ListPlot[Transpose[{B, r}/.nm[[2]]], PlotStyle→ {PointSize[0.02], Red}, AxesLabel→ {b_t, R_t}] ;$

[Graphics:HTMLFiles/index_98.gif]

Created by Mathematica (January 24, 2007)