CompareSRandCRinRailwaySign.../ACload/compare.m

71 lines
2.1 KiB
Matlab

%% parameters setting
% System Redundancy (SR)
lambdaB_SR = 11.76e-6;% hours^(-1)
lambdaR_SR = 16.6e-6;
muB_SR = 0.5;% hours^(-1)
muR_SR = muB_SR;
% Component Redundancy (CR)
lambdaB_CR = 17*lambdaB_SR;
lambdaR_CR = 17*lambdaR_SR;
muB_CR = 0.5;% hours^(-1)
muR_CR = muR_SR;
ModulePower = 10;% kW
minLoad = 40;% kW
loadStep = 20;% kW
%% start evaluation
numberOfEvaluations = 6;
MTTF_perc_impr = zeros(numberOfEvaluations,1);
MTBF_perc_impr = zeros(numberOfEvaluations,1);
MTBF_SR = zeros(numberOfEvaluations,1);
MTBF_CR = zeros(numberOfEvaluations,1);
Energy_perc_impr = zeros(numberOfEvaluations,1);
for i = 1 : numberOfEvaluations
Load = minLoad + i*loadStep;% kW, typical values from 50 to 100 kW
n = ceil(Load/ModulePower);
nm = n+3;% nm is n+m
PotTransformerMonolite=0.04*2*Load;
PotTransformerModular=0.04*Load;
Energy_perc_impr(i) = 100; % estimate based only on transformers' consumption
[A_SR,MTTF_SR,MTBF_SR_value] = evaluate_SR(nm,n,lambdaB_SR,lambdaR_SR,muB_SR,muR_SR);
[A_CR,MTTF_CR,MTBF_CR_value] = evaluate_CR(nm,n,lambdaB_CR,lambdaR_CR,muB_CR,muR_CR);
MTBF_SR(i) = MTBF_SR_value;
MTBF_CR(i) = MTBF_CR_value;
A_perc_impr = 100*(A_CR-A_SR)/A_SR;
MTTF_perc_impr(i) = 100*(MTTF_CR-MTTF_SR)/MTTF_SR;
MTBF_perc_impr(i) = 100*(MTBF_CR_value-MTBF_SR_value)/MTBF_SR_value;
end
%% Plot
x = minLoad : loadStep : (minLoad+(numberOfEvaluations-1)*loadStep);
zeroline=zeros(1,length(x));
fs = 14;
f1=figure(1);
f1.Position = [50 50 650 650];
title('Percentage of improvement','FontSize',fs-2);
hold on;
xlabel('DC load [kW]','FontWeight','bold','FontSize',fs);
plot(x,MTBF_perc_impr,'Color',[0,0,0],'LineWidth',2);
plot(x,zeroline,'Color',[0.4,0.4,0.4]);
f2=figure(2);
f2.Position = [50 50 650 650];
title('Mean Time Between two Failures (MTBF)','FontSize',fs-2);
hold on;
xlabel('DC load [kW]','FontWeight','bold','FontSize',fs);
ylabel('MTBF [hours]','FontWeight','bold','FontSize',fs);
plot(x,MTBF_SR,"--",'Color',[0.5,0,0.5],'LineWidth',2);
plot(x,MTBF_CR,"-.",'Color',[0,0.7,0],'LineWidth',2);
legend('SR','CR','FontSize',fs);