Interpolation of boat hulls

• To: mathgroup at smc.vnet.net
• Subject: [mg16143] Interpolation of boat hulls
• From: "Dr. Christopher Purcell" <purcell at drea.dnd.ca>
• Date: Sat, 27 Feb 1999 03:23:10 -0500
• Sender: owner-wri-mathgroup at wolfram.com

```>Any ideas on curves I might use to generate these templates? I've done a
>search at www.wolfram.com on 'boats' and had no hits. I've not seen any
>other question quite like this on the list. Sorry, if I'm too far out of
>band. Thanks.
>--
>Jay Gallivan      |41st Floor		|Voice: (312)683-6386
>Technology Manager|181 W. Madison Street|Fax:   (312)683-6474
>PaineWebber Inc.  |Chicago, IL 60602	|mailto:jgalliv at painewebber.com

There is a boat hull example shown in
http://www.wolfram.com/devconf97/postconference/presentations/FiniteElement
FiniteElement.nb.
This was done using the Interpolation function to create smooth curves
through the points read from the table of offsets for a hull.
Here is the table that produced the dory hull in the above example. You may
need to get a book on boatbuilding
to learn how to read the table, but these are basically the XYZ coordinates
of points on the hull at the stations. You don't need Mathematica
to plot these, just a tape measure, and a sheet of paper, but spending
a rainy Saturday plotting these on your laptop is much nicer than cleaning
the garage

(* Offsets of 16' Swampscott Dory
in units of {feet,inches,eighths} *)

scale=34.0/1.260; (* plans scale factor *)

(* Heights in following order: {bottom,sta1,sta2,sta3,sta4,sheer} *)
hstem= {{0,5,0},{1,4,4},{1,8,1 },{1,11,0},{2,2,0},{2,4,5 }};
hsta1= {{0,3,4},{0,7,2},{0,10,0},{1,1,3 },{1,6,0},{1,10,6}};
hsta2= {{0,2,0},{0,4,0},{0,6,6 },{0,10,2},{1,3,2},{1,8,6 }};
hsta3= {{0,2,3},{0,4,4},{0,6,4 },{0,9,4 },{1,2,5},{1,8,5 }};
hsta4= {{0,3,4},{0,8,2},{0,10,4},{1,1,4 },{1,5,4},{1,10,5}};
hstern={{0,4,2},{1,1,4},{1,4,6 },{1,8,2 },{2,0,1},{2,3,5 }};

(* Widths  in order: {bottom,sta1,sta2,sta3,sta4,sheer} *)
wstem= {{0,0,0},{0,0,0},{0,0,0},{0,0,0},{0,0,0 },{0,0,0 }};
wsta1= {{0,6,1},{1,0,1},{1,4,0},{1,7,2},{1,9,6 },{1,10,4}};
wsta2= {{1,0,0},{1,4,2},{1,9,2},{2,1,0},{2,3,2 },{2,4,0 }};
wsta3= {{1,0,2},{1,4,3},{1,8,4},{2,0,5},{2,3,7 },{2,4,4 }};
wsta4= {{0,4,7},{1,0,0},{1,3,5},{1,6,7},{1,10,1},{1,10,7}};
wstern={{0,1,1},{0,6,2},{0,8,0},{0,9,7},{0,10,4},{0,9,6 }};

(* Longitudinal station locations *)
length={{0,0,0},{4,3,0},{7,1,0},{9,11,0},{12,9,0},{16,1,0}};

(* Longitudinal locations of stem for bottom->sheer *)
lstem={{0,29,4},{0,.359*scale,0},{0,.208 * scale,0},
{0,.111*scale,0},{0,.058 * scale,0},{0,0,0}};

(* Longitudinal locations of stern for bottom ->sheer *)
lstern={{0,165,0},{0,165+.415 * scale,0},{0,165+.560*scale,0},
{0,165+.689*scale,0},{0,165+.871 * scale,0},{16,1,0}};

Dr. Christopher J. Purcell
DREA, 9 Grove St. Dartmouth NS B2Y3Z7

```

• Prev by Date: problem with integral
• Next by Date: How to convert .eps to .gif ??
• Previous by thread: problem with integral
• Next by thread: How to convert .eps to .gif ??