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
|
function [outputArg1,outputArg2] = lap_time_graph(lap_times, track, ref_lap_time)
%LAP_TIME_GRAPH En graf som visar varvtider där referenstiden och maximalt
%tillåtna avvikelser är utmärkta. Figuren inkluderar också standardavvikelsen
%%
subplot(20,1,1:8);
%% Raka streck
ref_lap_time_vector = ref_lap_time*ones(1,length(lap_times));
Min_c = ref_lap_time-0.5;
Max_c = ref_lap_time+0.5;
InD_c = ref_lap_time-1;
InU_c = ref_lap_time+1;
Min = Min_c*ones(1,length(lap_times));
Max = Max_c*ones(1,length(lap_times));
InU = InU_c*ones(1,length(lap_times));
InD = InD_c*ones(1,length(lap_times));
%% Varvtider
plot1 = stairs(lap_times);
plot1.Marker = 'o';
plot1.MarkerFaceColor = 'k';
plot1.LineStyle = 'none';
hold on
%% Referenstid
plot2 = stairs(ref_lap_time_vector);
plot2.LineWidth = 2;
plot2.Color = 'k';
%% Tillåten avvikelse
plotMax = stairs(Max);
plotMin = stairs(Min);
plotMax.Color = 'k';
plotMin.Color = 'k';
%% Osynliga hjälpstreck
plotInU = stairs(InU);
plotInD = stairs(InD);
plotInU.LineStyle = 'none';
plotInD.LineStyle = 'none';
hold off
%% Standardavvkielse
sigma = std(lap_times);
sigma = round(sigma, 2);
sig_str = num2str(sigma);
%% Text
xlabel('Varv');
ylabel('Tid [s]');
Tit = ['Varvtider bana ' num2str(track)];
title(Tit);
txt = ['Standardavvikelse: ' sig_str ' s/varv'];
annotation('textbox',[.1 0.5 .5 .05],'String',txt,'EdgeColor','none')
end
|
