Finance Pack ListPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg9544] Finance Pack ListPlot3D
- From: Rui Batista <rbatista at goldcompass.com>
- Date: Thu, 13 Nov 1997 01:40:08 -0500
- Organization: COMPASS Management
- Sender: owner-wri-mathgroup at wolfram.com
I've been writing this simple notebook to analyse the performance of a
bond.
I'm getting an error with graph3 that I don't understand.
:-)
Needs["Finance`Bonds`"]
settlement1 = {11, 6, 1997};
zeroCoupon = Bond[{10, 30, 2000}, 100, 2}]; couponVal[c_, x_] = Value
[zeroCoupon, settlment1, x]; Plot [couponVal [0, x], {x, 0, .1}]; p[c_]
= Table[{t, Value[zeroCoupon, {11, 6, 1997+t}, 5/100]}, {t, 0, 4}];
graph2 = ListPlot [p[0], PlotJoined -> True, FrameLabel -> False]; k[c_]
= Table [{t, Value [zeroCoupon, {11, 6, 1997+t, r]}, {t, 0, 5}, {r, 0,
5/100}];
graph3 = ListPlot3D [k[0]];
:-(
SurfaceGraphics: :gmat : {{{0,100}}, << 3>>, {{5,100}}}
is not a rectangular array larger than 2 x 2.
I hope someone can help me.
Rui Batista
rbatista at goldcompass.com