/************************
 * File name: p8-14d.ch
 ***********************/

#include <control.h>

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

    // open-loop poles
    array double complex op[3] = {complex(0, 0),
                                  complex(-6, 0),
                                  complex(-9, 0)};

    // dominant closed-loop pole selected from the root locus 
    array double complex dp[1] = {complex(-2.333, 0)};

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

    CControl sys;

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