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

    function [ A, B, C, D ] = ABCD_3( f )
%UNTITLED 此处显示有关此函数的摘要
%   33.4-37.2MHz
S11=[-0.145+1i*0.275 ;0.106-1i*0.075 ;-0.089-1i*0.186 ;-0.184-1i*0.077 ;-0.138+1i*0.052 ;-0.025+1i*0.107 ;0.086+1i*0.080 ;0.149+1i*0.002 ;0.152-1i*0.088 ;0.105-1i*0.157 ;0.028-1i*0.187 ;-0.052-1i*0.172 ;-0.115-1i*0.118 ;-0.145-1i*0.041 ;-0.137+1i*0.041 ;-0.093+1i*0.107 ;-0.027+1i*0.144 ;0.045+1i*0.147 ;0.109+1i*0.118 ;0.150+1i*0.064 ;0.162-1i*0.003 ;0.142-1i*0.066 ;0.095-1i*0.116 ;0.031-1i*0.141 ;-0.039-1i*0.136 ;-0.101-1i*0.102 ;-0.142-1i*0.046 ;-0.156+1i*0.022 ;-0.140+1i*0.087 ;-0.098+1i*0.140 ;-0.037+1i*0.168 ;0.030+1i*0.167 ;0.092+1i*0.135 ;0.135+1i*0.080 ;0.151+1i*0.009 ;0.136-1i*0.064 ;0.094-1i*0.124 ;0.033-1i*0.164 ;-0.039-1i*0.177 ;-0.113-1i*0.162 ;-0.186-1i*0.103 ;-0.219+1i*0.036 ;-0.073+1i*0.239];

S12=[0.374-1i*0.307 ;0.178-1i*0.636 ;-0.212-1i*0.718 ;-0.551-1i*0.577 ;-0.767-1i*0.314 ;-0.851+1i*3.345E-4 ;-0.805+1i*0.306 ;-0.663+1i*0.555 ;-0.463+1i*0.735 ;-0.227+1i*0.841 ;0.021+1i*0.874 ;0.260+1i*0.840 ;0.477+1i*0.745 ;0.656+1i*0.600 ;0.792+1i*0.410 ;0.872+1i*0.197 ;0.893-1i*0.025 ;0.863-1i*0.242 ;0.778-1i*0.442 ;0.652-1i*0.614 ;0.489-1i*0.752 ;0.299-1i*0.846 ;0.096-1i*0.893 ;-0.116-1i*0.892 ;-0.321-1i*0.841 ;-0.511-1i*0.742 ;-0.668-1i*0.603 ;-0.790-1i*0.427 ;-0.868-1i*0.227 ;-0.895-1i*0.014 ;-0.871+1i*0.202 ;-0.796+1i*0.408 ;-0.667+1i*0.595 ;-0.491+1i*0.746 ;-0.276+1i*0.846 ;-0.034+1i*0.886 ;0.219+1i*0.852 ;0.459+1i*0.743 ;0.658+1i*0.552 ;0.788+1i*0.290 ;0.807-1i*0.014 ;0.684-1i*0.312 ;0.418-1i*0.506];

S21=[0.375-1i*0.308 ;0.177-1i*0.638 ;-0.208-1i*0.719 ;-0.549-1i*0.579 ;-0.766-1i*0.314 ;-0.850-1i*9.813E-4 ;-0.806+1i*0.304 ;-0.663+1i*0.556 ;-0.465+1i*0.735 ;-0.228+1i*0.842 ;0.019+1i*0.875 ;0.259+1i*0.840 ;0.476+1i*0.745 ;0.658+1i*0.597 ;0.793+1i*0.409 ;0.872+1i*0.196 ;0.894-1i*0.026 ;0.862-1i*0.241 ;0.781-1i*0.442 ;0.654-1i*0.613 ;0.488-1i*0.754 ;0.302-1i*0.846 ;0.096-1i*0.895 ;-0.115-1i*0.894 ;-0.322-1i*0.842 ;-0.509-1i*0.742 ;-0.668-1i*0.602 ;-0.791-1i*0.426 ;-0.867-1i*0.229 ;-0.895-1i*0.015 ;-0.871+1i*0.202 ;-0.795+1i*0.410 ;-0.667+1i*0.594 ;-0.491+1i*0.747 ;-0.276+1i*0.847 ;-0.033+1i*0.887 ;0.218+1i*0.855 ;0.459+1i*0.743 ;0.661+1i*0.551 ;0.787+1i*0.291 ;0.807-1i*0.015 ;0.680-1i*0.316 ;0.418-1i*0.506];

S22=[-0.156+1i*0.156 ;-0.121+1i*0.220 ;-0.058+1i*0.256 ;0.005+1i*0.241 ;0.024+1i*0.201 ;0.013+1i*0.175 ;-0.005+1i*0.175 ;-0.012+1i*0.191 ;-0.004+1i*0.209 ;0.015+1i*0.217 ;0.036+1i*0.215 ;0.051+1i*0.205 ;0.058+1i*0.192 ;0.058+1i*0.181 ;0.055+1i*0.175 ;0.052+1i*0.173 ;0.051+1i*0.176 ;0.055+1i*0.179 ;0.061+1i*0.181 ;0.070+1i*0.179 ;0.077+1i*0.174 ;0.083+1i*0.167 ;0.085+1i*0.161 ;0.085+1i*0.156 ;0.084+1i*0.154 ;0.085+1i*0.154 ;0.090+1i*0.156 ;0.098+1i*0.156 ;0.108+1i*0.154 ;0.121+1i*0.147 ;0.132+1i*0.135 ;0.140+1i*0.120 ;0.143+1i*0.103 ;0.143+1i*0.088 ;0.142+1i*0.075 ;0.143+1i*0.063 ;0.149+1i*0.048 ;0.157+1i*0.024 ;0.160-1i*0.016 ;0.142-1i*0.070 ;0.091-1i*0.124 ;0.005-1i*0.150 ;-0.091-1i*0.124];

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