uses MtxExpr, Math387, MtxVec, MtxVecTee, MtxVecEdit,
       LinearSystems;

  procedure TForm1.Button1Click(Sender: TObject);
  var z,p,num,den: Vector;
      k: Double;
  begin
      num.SetIt(false,[1,-7,12]);
      den.SetIt(false,[1,-3, 2]);
      TransferFunToZeroPole(z,p,k,num,den);
      ViewValues(z);
      ViewValues(p);
  //        z = [4 , 3]
  //        p = [2 , 1]
  //        k = num[0]/den[0] =  1;
  end;

  #include "MtxExpr.hpp"
  #include "MtxVecEdit.hpp"
  #include "MtxVecTee.hpp"
  #include "LinearSystems.hpp"

  void __fastcall TForm41::BitBtn1Click(TObject *Sender)
  {
    sVector z,p,num,den;
    double k;

    num.Size(3);
    num[0] = 1;
    num[1] = -7;
    num[2] = 12;
    den.Size(3);
    den[0] = 1;
    den[1] =-3;
    den[2] = 2;
    TransferFunToZeroPole(z,p,k,num,den);
    ViewValues(z);
    ViewValues(p);
    //        num = [1, -7,  12]
    //        den = [1, -3,   2]
  }