performancePlot/pmfjmeter.m at master · iotmyth/performancePlot · GitHub

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
74
75
76
77
78
79
80
81
format longG

clear all;close all;
stringCSV = 'ResponseTimesDistribution';
dataID = '9';
data = readtable(strcat('/Users/mymac/Documents/SCRIPTSHEET/SKRIPSI/data_jmeter/',dataID,'/',strcat(stringCSV,'.csv')), 'ReadVariableNames', false, 'HeaderLines', 1);

markers = {'+','*','.','o','x','v','d','^','s','>','<','v','p','h','p','v','<','>','s','^','d','v','x','o','.','*'};
colors = {'b','b','m','k','y','c','g','c','y','k','m','b'};
lines = {'-','--',':','-.',':','--'};
line_width = 0.9;
marker_size = 5;
marker_counter = 1;
color_counter = 1;
line_counter = 1;
ylabels='Response Time (ms)';
ylabels1='Number of Threads';
ylabels2='Mega Bytes (MB)';
ylabels3='Probability';
legend_base_name = 'data-';

x = data{:,1};
y = data{:,2};
% y1 = data{:,3};
% y2 = data{:,4};

hold on

set(gca, 'YScale', 'log')
set(gca, 'XScale', 'log')
stem(x,y,'DisplayName','HTTP Request');
% p(1) = stem(x,y,'r','DisplayName','MQTT Connect');
% p(2) = stem(x,y1,'Color',[0 0.7 0],'DisplayName','MQTT Disconnect');
% p(3) = stem(x,y2,'b','DisplayName','MQTT Publish');

% legend(gca,'HTTP request')


box on;
grid on;
set(gcf,'Units','Inches');
ax = gca;
ax.YAxis.Exponent = 0;
ax.XAxis.Exponent = 0;
ax.GridLineStyle = ':';
ax.GridAlpha = 0.3;
ax.LineWidth = 0.9;
set(gca,'FontSize',16)


title({'Response Times Distribution','Instance Type (m5.2xlarge/m5a.2xlarge)'},'FontSize',14);
xlabel(ylabels,'FontSize',15);
ylabel('Number of responses','FontSize',15);
% ylabel('\boldmath \bf{$\log _{10} (Number\, of\, responses)$}','FontSize',15,'interpreter','latex','FontWeight', 'bold');
ax.XAxis.Exponent = 0;
pos = get(gcf,'Position');
set(findall(gcf,'-property','FontName'),'FontName','Times New Roman');
set(gcf,'PaperPositionMode','Auto','PaperUnits','Inches','PaperSize',[pos(3), pos(4)]);
% legend('MQTT Connect','MQTT Disconnect','MQTT Publish');
% legend('HTTP Request');
lgd = legend;
% lgd.FontSize=7;
% lgd.Location = 'south';
% breakxaxis([40000 280000]);
%https://stackoverflow.com/questions/18117664/how-can-i-show-only-the-legend-in-matlab
% p2(1) = stem(nan,nan,'r','DisplayName','MQTT Connect');
% p2(2) = stem(nan,nan,'DisplayName','MQTT Disconnect','Color',[0 0.7 0]);
% p2(3) = stem(nan,nan,'b','DisplayName','MQTT Publish');
% lgdh=legend(p2);
% lgdh.Location = 'northWest';
% SaveLegendToImage(gca, lgdh, 'testImage', 'tif');
% set(findall(gca, 'type', 'Legend'), 'visible', 'off')

legend('show')
print(gcf,'-dpdf',strcat('/Users/mymac/Documents/SCRIPTSHEET/SKRIPSI/hasilgrafik/',strcat(dataID,stringCSV)),'-r0');
savefig(strcat('/Users/mymac/Documents/SCRIPTSHEET/SKRIPSI/hasilgrafik/',strcat(dataID,stringCSV)));
hold off