www.gusucode.com > matlab编程遗传算法计算匹配电路源码程序 > code1/code/MATLAB源代码/matlab_match/ABCD_2.m

    function [ A, B, C, D ] = ABCD_2( f )
%UNTITLED 此处显示有关此函数的摘要
%   33.4-37.2MHz
S11=[-0.158+1i*0.219 ;0.038-1i*0.083 ;-0.135-1i*0.144 ;-0.192+1i*0.013 ;-0.084+1i*0.130 ;0.059+1i*0.132 ;0.150+1i*0.049 ;0.165-1i*0.055 ;0.117-1i*0.138 ;0.036-1i*0.174 ;-0.048-1i*0.160 ;-0.109-1i*0.106 ;-0.132-1i*0.034 ;-0.115+1i*0.034 ;-0.070+1i*0.078 ;-0.014+1i*0.089 ;0.034+1i*0.069 ;0.061+1i*0.025 ;0.058-1i*0.025 ;0.026-1i*0.067 ;-0.023-1i*0.087 ;-0.077-1i*0.079 ;-0.119-1i*0.045 ;-0.139+1i*0.004 ;-0.131+1i*0.057 ;-0.096+1i*0.096 ;-0.045+1i*0.111 ;0.009+1i*0.095 ;0.048+1i*0.051 ;0.060-1i*0.011 ;0.038-1i*0.071 ;-0.010-1i*0.109 ;-0.064-1i*0.115 ;-0.103-1i*0.089 ;-0.105-1i*0.050 ;-0.067-1i*0.027 ;-0.009-1i*0.034 ;0.074-1i*0.068 ;0.252-1i*0.218];

S12=[0.318-1i*0.414 ;0.022-1i*0.646 ;-0.340-1i*0.633 ;-0.641-1i*0.438 ;-0.807-1i*0.128 ;-0.812+1i*0.211 ;-0.687+1i*0.506 ;-0.472+1i*0.718 ;-0.211+1i*0.839 ;0.065+1i*0.869 ;0.328+1i*0.814 ;0.557+1i*0.686 ;0.736+1i*0.498 ;0.850+1i*0.274 ;0.896+1i*0.024 ;0.872-1i*0.222 ;0.783-1i*0.451 ;0.634-1i*0.646 ;0.442-1i*0.792 ;0.216-1i*0.881 ;-0.023-1i*0.906 ;-0.259-1i*0.867 ;-0.471-1i*0.769 ;-0.654-1i*0.618 ;-0.793-1i*0.426 ;-0.876-1i*0.205 ;-0.901+1i*0.037 ;-0.857+1i*0.280 ;-0.747+1i*0.508 ;-0.570+1i*0.698 ;-0.337+1i*0.833 ;-0.071+1i*0.888 ;0.207+1i*0.861 ;0.475+1i*0.739 ;0.695+1i*0.523 ;0.829+1i*0.213 ;0.811-1i*0.155 ;0.574-1i*0.489 ;0.172-1i*0.576];

S21=[0.319-1i*0.413 ;0.018-1i*0.647 ;-0.340-1i*0.632 ;-0.640-1i*0.440 ;-0.807-1i*0.132 ;-0.813+1i*0.211 ;-0.687+1i*0.507 ;-0.475+1i*0.720 ;-0.209+1i*0.841 ;0.063+1i*0.870 ;0.326+1i*0.814 ;0.557+1i*0.685 ;0.736+1i*0.499 ;0.850+1i*0.272 ;0.897+1i*0.027 ;0.874-1i*0.223 ;0.784-1i*0.453 ;0.637-1i*0.644 ;0.444-1i*0.791 ;0.216-1i*0.880 ;-0.022-1i*0.906 ;-0.255-1i*0.868 ;-0.470-1i*0.767 ;-0.652-1i*0.622 ;-0.792-1i*0.425 ;-0.875-1i*0.204 ;-0.900+1i*0.038 ;-0.857+1i*0.281 ;-0.749+1i*0.505 ;-0.570+1i*0.699 ;-0.337+1i*0.832 ;-0.074+1i*0.887 ;0.206+1i*0.860 ;0.471+1i*0.739 ;0.696+1i*0.524 ;0.829+1i*0.213 ;0.813-1i*0.158 ;0.575-1i*0.489 ;0.177-1i*0.577];

S22=[-0.160-1i*0.004 ;-0.196+1i*0.124 ;-0.132+1i*0.211 ;-0.059+1i*0.227 ;-0.022+1i*0.211 ;-0.011+1i*0.201 ;-0.002+1i*0.205 ;0.015+1i*0.212 ;0.038+1i*0.213 ;0.061+1i*0.203 ;0.078+1i*0.187 ;0.088+1i*0.167 ;0.090+1i*0.146 ;0.088+1i*0.128 ;0.081+1i*0.112 ;0.071+1i*0.099 ;0.057+1i*0.089 ;0.040+1i*0.084 ;0.023+1i*0.085 ;0.007+1i*0.094 ;-0.003+1i*0.109 ;-0.005+1i*0.127 ;0.003+1i*0.143 ;0.018+1i*0.153 ;0.037+1i*0.152 ;0.054+1i*0.140 ;0.062+1i*0.120 ;0.056+1i*0.097 ;0.039+1i*0.080 ;0.015+1i*0.077 ;-0.005+1i*0.089 ;-0.011+1i*0.110 ;0.004+1i*0.126 ;0.031+1i*0.121 ;0.049+1i*0.083 ;0.015+1i*0.033 ;-0.059-1i*0.003 ;-0.149+1i*0.056 ;-0.158+1i*0.157];

A=((1+S11(f))*(1-S22(f))+S12(f)*S21(f))/(2*S21(f));
B=50*((1+S11(f))*(1+S22(f))-S12(f)*S21(f))/(2*S21(f));
C=((1-S11(f))*(1-S22(f))-S12(f)*S21(f))/(2*S21(f)*50);
D=((1-S11(f))*(1+S22(f))+S12(f)*S21(f))/(2*S21(f));
end