pen2ea ペンシルからE,A に変換

## 呼び出し手順

    [E,A]=pen2ea(Fs)

## 引数

Fs

  行列ペンシル `s*E-A`

E,A

  `Fs=s*E-A`となるような行列

## 説明

ユーティリティ関数. ペンシル `Fs=s*E-A`を指定すると, 行列`E` および `A`を返します.

## 例

    E=[1,0];A=[1,2];s=poly(0,'s');
    [E,A]=pen2ea(s*E-A)