Normalization of symbolic expression

Hi everyone.

this is the code

syms L R K b J s v
a1 = det ([(L*s+R) (v); (-K) (0)]);
a = det ([(L*s+R) (K); (-K) (J*s+b)]);
g=collect((a1/a)*(1/v),s);
G=subs(g,{R,L,K,b,J},{6.69,8.7*10^(-3),5.643*10^(-2),1.018*10^(-4),9.907*10^(-5)});
G=vpa(G,5);
pretty(G)

It shows the expression G as

0.05643

---------------------------------------

2

8.6191e-7 s + 0.00066366 s + 0.0038654

I would like normalize this transfer function by placing one s^2 in the denominator as

zzzzzzz

---------------------------------------

2

1 s + xxxxxxx s + yyyyyyyy

Thank you

Answer 1

[Walter Roberson]

syms L R K b J s v
a1 = det ([(L*s+R) (v); (-K) (0)]);
a = det ([(L*s+R) (K); (-K) (J*s+b)]);
g=collect((a1/a)*(1/v),s);
G=subs(g,{R,L,K,b,J},{6.69,8.7*10^(-3),5.643*10^(-2),1.018*10^(-4),9.907*10^(-5)});
G=vpa(G,5);

G

G = 

[N,D] = numden(G);

Dc = coeffs(D,s);
NN = N/Dc(end);
ND = D/Dc(end);
G = vpa(NN/ND, 5)

G =