abcd2s.m

%% Chain Matrix to S-Parameters
% This function takes values of ABCD chain matrix and characteristic
% impedence z0 and returns S-Parameter Matrix
%
% Author: Salman Khan
%         Univesitt Paderborn, Germany
function [s_new] = abcd2s(A,B,C,D,z0)
    divider = A+(B/z0)+(C*z0)+D;
    s11new = (A+(B/z0)-(C*z0)-D)/divider;
    s12new = (2*(A*D-B*C))/divider;
    s21new = 2/divider;
    s22new = (-A+(B/z0)-(C*z0)+D)/divider;
    s_new = [s11new s12new; s21new s22new];