20m 5 element V-Yagi by SA6HAM

// V shaped Yagi for 14MHz with 5 elements.
// By SA6HAM

model ( "20m v-yagi" )
{
    real radiator, reflector, director1, director2, director3, radiatorPos, reflectorPos, director1Pos, director2Pos, director3Pos, feed, angle, wavelength, groundHeight;
    real xTransform, yTransform;

    setFrequency(opt);

    wavelength = c/14.175;

    // Settings
    angle = 45;
    groundHeight = 5.0;

    feed = 0.1;

    reflector = wavelength * 0.5;
    reflectorPos = - wavelength * 0.221;

    radiator = wavelength * 0.492;
    radiatorPos = 0;

    director1 = wavelength * 0.46550000;
    director1Pos = wavelength * 0.13;

    director2 = wavelength * 0.48;
    director2Pos = director1Pos + wavelength * 0.265;

    director3 = wavelength * 0.468;
    director3Pos = director2Pos + wavelength * 0.266;


    // printf("Pole length: %f meters\n", -reflectorPos + director3Pos) ;


    xTransform = (100.0 * cos(angle * (pi/180.0)) - sin(angle * (pi/180.0))) / 100.0;
    yTransform = (100.0 * sin(angle * (pi/180.0)) + cos(angle * (pi/180.0))) / 100.0;


    // Pole
    wire( // Left
        0,  // X
        reflectorPos, // Y
        groundHeight, // Z
        0, // X
        director3Pos, // Y
        groundHeight, // Z
        #30, // Thickness
        21, // Segments
    );


    repeat(1){
    // Reflector
    wire( // Left
        -reflector / 2 *xTransform - feed/2,  // X
        reflectorPos, // Y
        groundHeight + reflector /2 *yTransform, // Z
        -feed/2, // X
        reflectorPos, // Y
        groundHeight, // Z
        #14, // Thickness
        21, // Segments
    );
    wire( // Center
        -feed/2,  // X
        reflectorPos, // Y
        groundHeight, // Z
        feed/2, // X
        reflectorPos, // Y
        groundHeight, // Z
        #14, // Thickness
        21, // Segments
    );
    wire( // Right
        feed/2,  // X
        reflectorPos, // Y
        groundHeight, // Z
        feed/2 + reflector / 2 * xTransform, // X
        reflectorPos, // Y
        groundHeight + reflector / 2 * yTransform, // Z
        #14, // Thickness
        21, // Segments
    );
    }

    // Radiator
        wire( // Left
        -radiator / 2 *xTransform - feed/2,  // X
        radiatorPos, // Y
        groundHeight + radiator /2 *yTransform, // Z
        -feed/2, // X
        radiatorPos, // Y
        groundHeight, // Z
        #20, // Thickness
        21, // Segments
    );
    voltageFeed( wire( -feed/2, radiatorPos, groundHeight, feed/2, radiatorPos, groundHeight, #14, 21 ), 1.0, 0.0 ) ;
    wire( // Right
        feed/2,  // X
        radiatorPos, // Y
        groundHeight, // Z
        feed/2 + radiator / 2 * xTransform, // X
        radiatorPos, // Y
        groundHeight + radiator / 2 * yTransform, // Z
        #20, // Thickness
        21, // Segments
    );

    repeat(1) { // 1 for director1, 0 for no director1.
    // Director 1
    wire( // Left
        -director1 / 2 *xTransform - feed/2,  // X
        director1Pos, // Y
        groundHeight + director1 /2 *yTransform, // Z
        -feed/2, // X
        director1Pos, // Y
        groundHeight, // Z
        #20, // Thickness
        21, // Segments
    );
    wire( // Center
        -feed/2,  // X
        director1Pos, // Y
        groundHeight, // Z
        feed/2, // X
        director1Pos, // Y
        groundHeight, // Z
        #14, // Thickness
        21, // Segments
    );
    wire( // Right
        feed/2,  // X
        director1Pos, // Y
        groundHeight, // Z
        feed/2 + director1 / 2 * xTransform, // X
        director1Pos, // Y
        groundHeight + director1 / 2 * yTransform, // Z
        #14, // Thickness
        21, // Segments
    );
    }

    repeat(1){
    // Director 2
    wire( // Left
        -director2 / 2 *xTransform - feed/2,  // X
        director2Pos, // Y
        groundHeight + director2 /2 *yTransform, // Z
        -feed/2, // X
        director2Pos, // Y
        groundHeight, // Z
        #14, // Thickness
        21, // Segments
    );
    wire( // Center
        -feed/2,  // X
        director2Pos, // Y
        groundHeight, // Z
        feed/2, // X
        director2Pos, // Y
        groundHeight, // Z
        #14, // Thickness
        21, // Segments
    );
    wire( // Right
        feed/2,  // X
        director2Pos, // Y
        groundHeight, // Z
        feed/2 + director2 / 2 * xTransform, // X
        director2Pos, // Y
        groundHeight + director2 / 2 * yTransform, // Z
        #14, // Thickness
        21, // Segments
    );
    }

    repeat(1){
    // Director 3
    wire( // Left
        -director3 / 2 *xTransform - feed/2,  // X
        director3Pos, // Y
        groundHeight + director3 /2 *yTransform, // Z
        -feed/2, // X
        director3Pos, // Y
        groundHeight, // Z
        #14, // Thickness
        21, // Segments
    );
    wire( // Center
        -feed/2,  // X
        director3Pos, // Y
        groundHeight, // Z
        feed/2, // X
        director3Pos, // Y
        groundHeight, // Z
        #14, // Thickness
        21, // Segments
    );
    wire( // Right
        feed/2,  // X
        director3Pos, // Y
        groundHeight, // Z
        feed/2 + director3 / 2 * xTransform, // X
        director3Pos, // Y
        groundHeight + director3 / 2 * yTransform, // Z
        #14, // Thickness
        21, // Segments
    );
    }
}