1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
close all
try
python_version = pyversion;
fprintf(2,'** Python Version : %s\n',python_version);
catch e
fprintf(2,'** Error : %s\n',e.message);
end
% Import model
opem = py.importlib.import_module('opem');
model = opem.Static.Larminie_Dicks;
test_vector = opem.Params.Larminiee_Standard_Vector;
% Model inputs
test_vector{'A'} = 0.06; % The slope of the Tafel line [V]
test_vector{'E0'} = 1.178; % Fuel cell reversible no loss voltage [V]
test_vector{'T'} = 328.15; % Cell operation temperature [K]
test_vector{'RM'} = 0.0018; % The membrane and contact resistances [ohm]
test_vector{'i_0'} = 0.00654; % Exchange current at which the overvoltage begins to move from zero [A]
test_vector{'i_L'} = 100.0; % Limiting current [A]
test_vector{'i_n'} = 0.23; % Internal current [A]
test_vector{'N'} = 23; % Number of single cells
test_vector{'i-start'} = 0.1; % Cell operating current start point [A]
test_vector{'i-stop'} = 98; % Cell operating current end point [A]
test_vector{'i-step'} = 0.1; % Cell operating current step
test_vector{'Name'} = 'Larminiee_Test';
% Run simulation
test_mode = true;
print_mode = true;
report_mode = false;
result = model.Static_Analysis(test_vector,test_mode,print_mode,report_mode);
% Model outputs
P = cellfun(@vector_filter, cell(result{'P'}));
I = cellfun(@vector_filter, cell(result{'I'}));
V = cellfun(@vector_filter, cell(result{'V'}));
EFF = cellfun(@vector_filter, cell(result{'EFF'}));
Ph = cellfun(@vector_filter, cell(result{'Ph'}));
VE = cellfun(@vector_filter, cell(result{'VE'}));
% Power-Stack
figure(1)
plot(I,P)
xlabel('I(A)')
ylabel('P(W)')
legend('Power-Stack')
% Voltage-Stack & Linear Approximation
figure(2)
plot(I,V)
xlabel('I(A)')
ylabel('V(V)')
hold on
plot(I,VE)
legend('Voltage-Stack','Linear-Apx')
% Efficiency
figure(3)
plot(I,EFF)
xlabel('I(A)')
ylabel('EFF')
legend('Efficiency')
% Power-Thermal
figure(4)
plot(I,Ph)
xlabel('I(A)')
ylabel('P(W)')
legend('Power(Thermal)')
|
