Re: How to find the equidistance curves of a curve defined by Interpolation function?
- To: mathgroup at smc.vnet.net
- Subject: [mg27881] Re: How to find the equidistance curves of a curve defined by Interpolation function?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 23 Mar 2001 04:31:02 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <99chna$8d4@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
data1 = {{0, 0}, {1, 1}, {2, 3}, {5, 8}, {7, 12}};
cur = Interpolation[data1];
pline = {x, cur[x]};
perp = #/Sqrt[Dot[#, #]] &[Reverse[D[#, x] & /@ pline]*{-1, 1}];
ParametricPlot[
Evaluate[{pline, pline + 0.5*perp, pline - 0.5*perp}], {x, 0, 7}]
???
Regards
Jens
liwen liwen wrote:
>
> Dear friends,
>
> How are you! I want to know how to find the
> equidistance curves of a curve defined by
> Interpolation function, for example,
> when the equidistance is 2, the equidistance curve of
> a circle with a radium of 5 is a circle with a radium
> of 3, now I want to
> find the equidistance curves of an Interpolation curve
> defined by the following data:
>
> data1={{0,0},{1,1},{2,3},{5,8},{7,12}};
> cur=Interpolation[data1];
>
> The equidistance curves of the curve defined above has
> two curves. How can I find them?
>
> Thank you very much!
>
> Liwen 3/21/2001
>
> e-mail: gzgear at yahoo.com
>
> __________________________________________________
> Do You Yahoo!?
> Get email at your own domain with Yahoo! Mail.
> http://personal.mail.yahoo.com/