// Simple run model: 20m
control()
{
    turnsBlack = 6;
    turnsRed = 6;
    frequency = 14.080;
    angleBlack = -15; // degrees
    angleRed = 90; // degrees
    height = 16';
    runModel();
}



// Coil impedance optimization: 20m
control()
{
    real current, previous;

    turnsBlack = 1;
    turnsRed = 1;
    
    repeat(10) {
        frequency = 14.080;
        angleBlack = -15; // degrees
        angleRed = 90; // degrees
        height = 16';
    
        runModel();
        current = vswr(1);
        printf("%d turns, %.3f VSWR\n", turnsBlack, current);
        
        turnsBlack = turnsBlack + 1;
        turnsRed = turnsRed + 1;
        
        printf("\n\n");
    }
}


// Angled dipole step function
control()
{
    angleBlack = -90; // degrees
    angleRed = 90; // degrees

    repeat(19) {
        frequency = 14.080;
        turnsBlack = 6;
        turnsRed = 6;
        height = 16';
    
        runModel();
        
        angleBlack = angleBlack + 10;
        angleRed = angleRed - 10;
        
        printf("\n\n");
    }
}

// Vertical with angled counterpoise arm
control()
{
    angleBlack = -60; // degrees

    repeat(25) {
        angleRed = 90; // degrees
        frequency = 14.080;
        turnsBlack = 6;
        turnsRed = 6;
        height = 16';
    
        runModel();
        printf("VSWR:          %.2f\n", vswr(1));
        printf("efficiency:    %.2f\n", efficiency);
        printf("max gain:      %.2fdbi\n", maxGain);
        printf("takeoff angle: %.0fdeg\n", elevationAngleAtMaxGain);
        
        angleBlack = angleBlack + 5;
        
        printf("\n\n");
    }
}