Re: Different answers between versions
- To: mathgroup at smc.vnet.net
- Subject: [mg42950] Re: Different answers between versions
- From: nilton.volpato at ig.com.br (Nilton Volpato)
- Date: Tue, 5 Aug 2003 02:05:02 -0400 (EDT)
- References: <bg9n2a$pjh$1@smc.vnet.net> <bgctmi$9kh$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
> fpoly[x_] = Sum[a[i] x^i, {i, 0, 9}];
>
> Solve[{f[0] == -h1, f[cmin] == 0, f[cmax/2] == h2, f[cmax] == 0,
> f[47/50 lmax] == h1, f[3/4 cmax] == h2/3, f'[0] == 0,
> f'[cmax/2] == 0, f'[cmax] == 0, f''[cmin] == 0} /.
> {cmax -> 480, cmin -> 120, lmax -> 600, h1 -> 100, h2 -> 120,
> f -> Function[x, Evaluate[fpoly[x]]]}];
>
> fpoly[x_] = fpoly[x] /. First[%]
This worked, as expected. Thanks.
> There is, perhaps, a better way to proceed: Since you are doing
> polynomial interpolation, why not use the built-in Interpolation? Here
Because I need the coefficients of the resulting polynomial. Can I get
this from InterpolationFunction? Mathematica seems to hide the result
in a InterpolationFunction object.
Thank you,
-- Nilton