[OpenSCAD] Ovals

Revar Desmera revarbat at gmail.com
Tue Sep 4 16:41:10 EDT 2018

> On Sep 4, 2018, at 8:44 AM, jsc <jsc at alum.mit.edu> wrote:
> On the subject of rocket nosecones, I created an OpenSCAD model some time ago
> to generate Haack series shapes:
> https://www.thingiverse.com/thing:804129
> These shapes are calculated to minimize drag in supersonic flows, so not
> something that is functionally useful for model rockets. Still, I thought it
> might be of interest.
> Some work would need to be done to make it suitable for fitting to a rocket.

Of course I only see this post AFTER I wrote my own.  :)
Well, I might as well post it:

pi = 3.1415926536;

function haack(x, L, R, C) = let(
        h = acos(1-(2*x/L))
    ) (R/sqrt(pi)) * sqrt(h*pi/180 - sin(2*h)/2 + C*pow(sin(h),3));

function haack_series(L, R, C, steps) = [ 
        for(i = [0:steps]) let(x = i*L/steps) [x, haack(x, L, R, C)] 

// L is the length of the nosecone.
// R is the radius of the nosecone base.
// C should be 0 for a Von-Kármán ogive.
// steps is the granularity of the shape along the length.
module haack_nosecone(L, R, C=0, steps=100) {
        haack_series(L, R, C, steps),
        [[L, R], [L, 0], [0, 0]] 
    translate([0,0,L]) {
        rotate_extrude(angle=360, convexity=2) {
            rotate([0,0,-90]) polygon(points=pts);

haack_nosecone(L=80, R=50, C=0);

- Revar

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.openscad.org/pipermail/discuss_lists.openscad.org/attachments/20180904/73da9d08/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: PastedGraphic-1.png
Type: image/png
Size: 81088 bytes
Desc: not available
URL: <http://lists.openscad.org/pipermail/discuss_lists.openscad.org/attachments/20180904/73da9d08/attachment.png>

More information about the Discuss mailing list