LM3478: AN-1990 Compensation for Current Mode Control SEPIC

VIN =5;   %--PARAMETERS OF THE LM3478
VOUT= 5;
ROUT =10;
COUT =0.0001;
RCOUT =0.05;
L1 =0.000033;
L2 =0.000033;
CS =0.000001;
FSW =400000;
RSN =0.02;
RSL =2000;
VREF =1.26;
GM =0.0008;
RO =47500;
VSL =0.092; %---END PARAMETERS
D =0.5;
RF2 =10000;
RF1 =29700;
ADC=0.180;
LM=(D^2)*L1+((1-D)^2)*L2;
MC=(VSL+0.000040*RSL)*FSW/RSN;
T2 =1/FSW;
TM=(T2/2)*(2*MC+(VIN/L1)+(VIN/L2));   %--------
s = tf('s'); 
CC0 =L1*L2*LM;
CC2 =L1^2*L2^2*CS;
D0=ROUT*((1-D)^2); %---Δ(s)coefficients of(4)
D1=LM+((1-D)^2)*RCOUT*ROUT*COUT;
D2=LM*(RCOUT+ROUT)*COUT+((1-D)^2)*(L1+L2)*ROUT*CS;
D3=L1*L2*CS+((1-D)^2)*(L1+L2)*RCOUT*ROUT*CS*COUT;
D4=L1*L2*(RCOUT+ROUT)*CS*COUT;

N0 =5*10; %---(3)Nn(s);  %--From(2)ND(s)
N1 =VIN*RCOUT*ROUT*COUT-(D^2/(1-D)^2)*VIN*L1;
N2 =VIN*(L1+L2)*ROUT*CS-(D^2/(1-D)^2)*VIN*L1*RCOUT*COUT;
N3 =VIN*(L1+L2)*RCOUT*ROUT*CS*COUT-(D/(1-D)^2)*VIN*L1*L2*CS;
N4 =-(D/(1-D)^2)*VIN*L1*L2*RCOUT*CS*COUT;
NN0 =D*(1-D)*ROUT; %--From (3)NN(s)
NN1 =D*(1-D)*RCOUT*ROUT*COUT;
NN2 =(1-D)*L2*RCOUT*CS;
NN3 =(1-D)*L2*RCOUT*ROUT*CS*COUT;
CD0=(VIN*L1*L2)/(1-D); %--The coefficients of (7) 
CD1=L1*L2*LM*TM+(D/(1-D))*((1-D)*L2-D*L1)*VIN*L1*(T2+(L2/ROUT*(1-D)));
CD2=(VIN*L1*L2/(1-D))*((L1+L2)*CS-L1*T2*(D^2/ROUT*(1-D)));
CD3 =L1^2*L2^2*CS*TM;
CV0=(1-D)*L1*L2;
CV1=D*L1*(LM-D*L1)*T2;
CV2=(1-D)*L1*L2*(L1+L2)*T2;
NC0 =CC0*N0;  %---coefficients of (8) 
NC1 =CC0*N1;
NC2 =CC0*N2+CC2*N0;
NC3 =CC0*N3+CC2*N1;
NC4 =CC0*N4+CC2*N2;
NC5 =CC2*N3;
NC6 =CC2*N4;
DP0 =CD0*D1+CD1*D0-CV0*N1;   %---The coefficients of (7)
DP1 =CD0*D2+CD1*D1+CD2*D0-CV0*N2-CV1*N1-CV2*N1;
DP2 =CD0*D3+CD1*D2+CD2*D1-CD3*D1-CV0*N3-CV1*N2-CV2*N1;
DP3 =CD0*D4+CD1*D3+CD2*D2-CD3*D1-CV0*N4-CV1*N3-CV2*N2;
DP4 =CD1*D4+CD2*D3+CD3*D2-CV1*N4-CV2*N3;
DP5 =CD1*D4+CD3*D3-CV2*N4;
DP6 =CD3*D4;
DCC =DP0+DP1*s+DP2*s^2+DP3*s^3+DP4*s^4+DP5*s^5+DP6*s^6;
NCC =NC0+NC1*s+NC2*s^2+NC3*s^3+NC4*s^4+NC5*s^5+NC6*s^6;
G= ((NCC)/(DCC*RSN))*ADC;
bode (G);