scale = default, exponential, or logarithmic -- This option specifies whether the tree should be plotted using the exponential, logarithmic, or the default scale.

The TreePlot command plots the specified binomial/trinomial tree.

The tree is displayed using the plots[display] command. All unprocessed arguments are interpreted as plot options and will be passed to the plots[display] command when the final plot data structure is generated.

with(Finance):

S0 := 100;

$\mathrm{S0}≔100$

r := 0.05;

$r≔0.05$

sigma := 0.3;

$\mathrm{\sigma }≔0.3$

T := 3.0;

$T≔3.0$

N := 20;

$N≔20$

Su := exp(sigma*sqrt(T/N));

$\mathrm{Su}≔1.123208700$

Sd := exp(-sigma*sqrt(T/N));

$\mathrm{Sd}≔0.8903064939$

Pu := (exp(r*T/N)-Sd)/(Su-Sd);

$\mathrm{Pu}≔0.5033086765$

Tree := BinomialTree(T, N, S0, Su, Pu, Sd);

$\mathrm{Tree}:=\mathbf{module}\left(\right)\mathbf{end\; module}$

TreePlot(Tree, thickness = 2, axes = boxed, gridlines = true);

TreePlot(Tree, thickness = 2, axes = boxed, gridlines = true, scale = logarithmic);

Su := exp((r-sigma^2/2)*T/N+sigma*sqrt(T/N));

$\mathrm{Su}≔1.124051423$

Sd := exp((r-sigma^2/2)*T/N-sigma*sqrt(T/N));

$\mathrm{Sd}≔0.8909744742$

Pu := 0.5;

$\mathrm{Pu}≔0.5$

Tree2 := BinomialTree(T, N, S0, Su, Pu, Sd);

$\mathrm{Tree2}:=\mathbf{module}\left(\right)\mathbf{end\; module}$

TreePlot(Tree2, thickness = 2, axes = boxed, gridlines = true);

TreePlot(Tree2, thickness = 2, axes = boxed, gridlines = true, scale = logarithmic);

Su := exp((r-sigma^2/2)*2*T/N+2*sigma*sqrt(T/N));

$\mathrm{Su}≔1.263491601$

Sd := exp((r-sigma^2/2)*2*T/N-2*sigma*sqrt(T/N));

$\mathrm{Sd}≔0.7938355137$

Pu := 0.25;

$\mathrm{Pu}≔0.25$

Pd := 0.25;

$\mathrm{Pd}≔0.25$

Tree3 := TrinomialTree(T, N/2, S0, Su, Pu, Sd, Pd);

$\mathrm{Tree3}:=\mathbf{module}\left(\right)\mathbf{end\; module}$

TreePlot(Tree3, thickness = 2, axes = boxed, gridlines = true);

TreePlot(Tree3, thickness = 2, axes = boxed, gridlines = true, scale = logarithmic);

plots[display](TreePlot(Tree2, color = red), TreePlot(Tree3, transparency = 0.3), axes = boxed, thickness = 2, gridlines);

M := CoxIngersollRossModel(ZeroCurve(0.03), 0.05, 0.5, 0.002, 0.1);

$M:=\mathbf{module}\left(\right)\mathbf{end\; module}$

T := ShortRateTree(M, 3, 15);

$T:=\mathbf{module}\left(\right)\mathbf{end\; module}$

TreePlot(T, axes = boxed, thickness = 3, gridlines = true, color = cyan .. blue);

The Finance[TreePlot] command was introduced in Maple 15.

For more information on Maple 15 changes, see Updates in Maple 15.