equil 対称行列の対の平衡

## 呼び出し手順

    T=equil(P,Q)

## パラメータ

P, Q

  正定対称行列

T

  正則行列

## 説明

`equil` は次のような `t` を返します:

`T*P*T'` および `inv(T)'*Q*inv(T)` は 共に対角行列で正定行列です.

## 例

    P=rand(4,4);P=P*P';
    Q=rand(4,4);Q=Q*Q';
    T=equil(P,Q)
    clean(T*P*T')
    clean(inv(T)'*Q*inv(T))

## 参照

- equil1
- balanc
- ctr_gram