/****************************
 * File name: rlf_uncomp.ch
 ***************************/

#include <control.h>

int main() {
    // default system gain
    double dk = 1;

    // uncompensated system poles
    array double complex up[3] = {complex(0, 0),
                                  complex(-4, 0),
                                  complex(-6, 0)};

    // dominant pole selected from the root locus 
    array double complex dp[1] = {complex(-1.007, 2.63)};

    // closed-loop poles when one of the dominant poles is selected  
    array double complex p[3];

    // system gain when one of the dominant poles is selected  
    array double k[1];

    CControl sys;

    sys.model("zpk", NULL, up, dk);
    sys.rlocfind(k, p, dp);
    printf("k: %f\n", k);
    printf("poles: %f\n", p);
    
    return 0;
}