Как сократить такое выражение?

syms w i
 
 
[ -(w*3247000*i - 10543009)/(1000000*w^2 + 10543009), -(w*62200*i - 96721)/(40000*w^2 + 96721), -(w*49500*i - 9801)/(250000*w^2 + 9801)]

function [comp1, comp2, Kcomp, prost1, Kprost] = pa3del(X)
syms p
comp = [];
prost = [];
 
comp1 = [];
comp2 = [];
prost1 = [];
 
 
Kprost = 1;
Kcomp = 1;
korni = round(roots(X)*1e6)/1e6
for i = 1:length(korni)
    if ~isreal(korni(i)) % если корень комплексный
        comp = [comp korni(i)]; % добавляем в комплексные корни
    else % остались простые корни
        prost = [prost korni(i)];  % добавляем в простые корни
    end
end
for i = 1:2:length(comp)
    Re = real(comp(i));
    Im = imag(comp(i));
    ReIm = Re*Re+Im*Im;
    Kcomp = Kcomp*ReIm; 
    sdd1 = 1/ReIm;
    sdd2 = -2*sdd1*Re;
    comp1 = [comp1 sdd1];
    comp2 = [comp2 sdd2];
    
end
for i = 1:length(prost)
    Kprost = Kprost*abs(prost(i));
    prost1 =[prost1 1/abs(prost(i))];
end
end

function [ afx ] = func1(W)
syms w real
syms p
[num,den] = tfdata(W,'v');
nump = poly2sym(num, p);
denp = poly2sym(den, p);
nump1=subs(nump, p, 1j*w, 0);
denp1=subs(denp, p, 1j*w, 0);
sys1 = nump1/denp1;
Re = simplify(expand(real(sys1)));
Im = simplify(expand(imag(sys1)));
sys = Re+1j*Im;
afx = simple(sys);
end

clc
close all
clear
syms w 
digits (3)
afx6 = 1;
afx5 = 1;
afx1 = [];
afx2 = [];
w1 = logspace(-3,3,100000);
den = [ 5 4 1 4 1 4 23 1 ];
num = 10;
sys = tf(num, den)
[comp1, comp2, Kcomp, prost1, Kprost] = pa3del(den);
 
for i = 1:length(prost1)
    W = tf(1, [prost1(i) 1]);
    afx1 =[afx1 func1(W)];
    afx5 = afx5*W;
end
for i = 1:length(comp1)
    W = tf(1, [comp1(i) comp2(i) 1]);
    afx2 =[afx2 func1(W)];
    afx6 = afx6*W;
end