Fungerande varvtidsgraf

2 files changed, 63 insertions, 34 deletions

diff --git a/Kod/bilbana/privete/LaptimeTest.m b/Kod/bilbana/privete/LaptimeTest.m
new file mode 100644
index 0000000..0cf1422
--- /dev/null
+++ b/Kod/bilbana/privete/LaptimeTest.m
@@ -0,0 +1,63 @@
+%{
+GRAPHS: Efter avslutad körning skall plottar som sammanfattar körningen
+visas på styrdatorns skärm. Nödvändiga plottar är:
+• En graf som visar varv och varvtider där referenstiden och
+maximalt tillåtna avvikelser är utmärkta. Figuren skall också inkludera en 
+text som anger standardavvikelsen.
+• Gaspådrag mot tid/hastighet för varje segment.
+%}
+disp('Startar test av grafer')
+%% IN
+ref_lap_time = 14;
+track = 1;
+%% Figur
+figure(1);
+clf;
+subplot(10,1,1:9);
+%% Raka streck
+ref_lap_time_vector = ref_lap_time*ones(1,length(car1.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(car1.lap_times));
+Max = Max_c*ones(1,length(car1.lap_times));
+InU = InU_c*ones(1,length(car1.lap_times));
+InD = InD_c*ones(1,length(car1.lap_times));
+%% Varvtider
+disp(car1.lap_times);
+disp(ref_lap_time_vector);
+plot1 = stairs(car1.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(car1.lap_times);
+sigma = round(sigma, 2);
+sig_str = string(sigma);
+%% Text
+xlabel('Varv');
+ylabel('Tid [s]');
+title('Varvtider'); %Todo vilken bana?
+txt = join(['Standardavvikelse:',sig_str, 's']);
+annotation('textbox',[.1 0.05 .4 .05],'String',txt,'EdgeColor','none')
+disp(sig_str);
\ No newline at end of file
diff --git a/Kod/bilbana/privete/Test3.m b/Kod/bilbana/privete/Test3.m
deleted file mode 100644
index 5527f2a..0000000
--- a/Kod/bilbana/privete/Test3.m
+++ /dev/null
@@ -1,34 +0,0 @@
-%{
-GRAPHS: Efter avslutad körning skall plottar som sammanfattar körningen
-visas på styrdatorns skärm. Nödvändiga plottar är:
-• En graf som visar varv och varvtider där referenstiden och
-maximalt tillåtna avvikelser är utmärkta. Figuren skall också inkludera en 
-text som anger standardavvikelsen.
-• Gaspådrag mot tid/hastighet för varje segment.
-%}
-disp('Startar test av grafer')
-%% IN
-ref_lap_time = 13;
-%% Bana 1
-figure(1);
-%% Varvtid
-ref_lap_time_vector = ref_lap_time*ones(1,length(car1.lap_times));
-
-subplot(1,1,1);
-disp(car1.lap_times);
-disp(ref_lap_time_vector);
-plot1 = stairs(car1.lap_times);
-plot1(1).Marker = 'o';
-plot1(1).MarkerFaceColor = 'k';
-plot1(1).LineStyle = 'none';
-hold on
-plot2 = stairs(ref_lap_time_vector);
-plot2(1).LineWidth = 2;
-plot2(1).Color = 'k';
-hold off
-
-
-
-xlabel('Varv');
-ylabel('Tid [s]');
-title('Varvtider');
\ No newline at end of file