/***************************
 * File name: rl_uncomp.ch
 **************************/

#include <control.h>

int main() {
    double k = 1;
    array double complex p[3] = {complex(-1, 0),
                                 complex(-2, 0),
                                 complex(-10, 0)};
    array double zeta[1] = {0.4};
    array double omega[1] = {10};
    CControl sys;
    CPlot plot;

    sys.model("zpk", NULL, p, k);
    sys.sgrid(1, zeta, omega);
    sys.rlocus(&plot, NULL, NULL);

    return 0;
}