You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
91 lines
3.1 KiB
91 lines
3.1 KiB
# Defines a basic counting mechanism with no time bonus
|
|
exercise_timing = [ 55, 85, 130 ];
|
|
counting_params = [ 0, 0, 0; 55, 30, 45 ];
|
|
step = 5;
|
|
timeframe = [ 0, 150 ];
|
|
t = [ timeframe(1) : step : timeframe(2) ];
|
|
function y = count_basic (student_params, counting_params, step, timeframe)
|
|
# Timing variables
|
|
t0 = idivide(int32 (timeframe(1)), step);
|
|
t1 = idivide(int32 (student_params(1)), step);
|
|
t2 = idivide(int32 (student_params(2)), step);
|
|
t3 = idivide(int32 (student_params(3)), step);
|
|
tmax = idivide(int32 (timeframe(2)), step);
|
|
|
|
# Counting weights
|
|
p1 = counting_params(2, 1);
|
|
p2 = counting_params(2, 2);
|
|
p3 = counting_params(2, 3);
|
|
|
|
y = [ timeframe(1) : step : timeframe(2) ] * 0;
|
|
val = 0;
|
|
for i = 1:length(y)
|
|
tx = i - 1;
|
|
if (tx == t1)
|
|
val += p1;
|
|
elseif (tx == t2)
|
|
val += p2;
|
|
elseif (tx == t3)
|
|
val += p3;
|
|
else
|
|
endif
|
|
y(i) = val;
|
|
endfor
|
|
endfunction
|
|
|
|
# Unit tests
|
|
count_basic([55, 85, 130], counting_params, step, timeframe)
|
|
count_basic([50, 75, 115], counting_params, step, timeframe)
|
|
count_basic([60, 95, 145], counting_params, step, timeframe)
|
|
|
|
# Graph parameters
|
|
figure(1);
|
|
clf(1);
|
|
set(1, "defaulttextfontsize", 8);
|
|
set(1, "defaultaxesfontsize", 4);
|
|
xlabel("time");
|
|
ylabel("points");
|
|
title("Points awarded for each exercise without taking time into account");
|
|
xlim([0 150]);
|
|
ylim([0 150]);
|
|
|
|
# There will be multiple series on the same figure
|
|
hold on;
|
|
|
|
# End-of-exercise markers
|
|
line("xdata", [ 55, 55 ], "ydata", [ 0, 130 ], "linewidth", 2, "linestyle", "--", "color", "#777777");
|
|
text(55,0, "Expected end of \nexercise Hero ", "rotation", 90, "horizontalalignment", "right", "fontsize", 3, "fontunits", "points");
|
|
line("xdata", [ 85, 85 ], "ydata", [ 0, 130 ], "linewidth", 2, "linestyle", "--", "color", "#777777");
|
|
text(85,0, "Expected end of \nexercise Villain ", "rotation", 90, "horizontalalignment", "right", "fontsize", 3, "fontunits", "points");
|
|
line("xdata", [ 130, 130 ], "ydata", [ 0, 130 ], "linewidth", 2, "linestyle", "--", "color", "#777777");
|
|
text(130,0, "Expected end of \nexercise Fight ", "rotation", 90, "horizontalalignment", "right", "fontsize", 3, "fontunits", "points");
|
|
|
|
# Linear progression (for reference)
|
|
l1 = plot(t, t, "-;Linear progression: 1 point per minute;", "linewidth", 2);
|
|
|
|
# on-time user
|
|
y = count_basic([55, 85, 130], counting_params, step, timeframe);
|
|
l2 = plot(t, y, "-;normal user;", "linewidth", 4);
|
|
|
|
# early user
|
|
y = count_basic([50, 75, 115], counting_params, step, timeframe);
|
|
l3 = plot(t, y, "-;early user;", "linewidth", 4);
|
|
|
|
# late user
|
|
y = count_basic([60, 95, 145], counting_params, step, timeframe);
|
|
l4 = plot(t, y, "-;late user;", "linewidth", 4);
|
|
|
|
# Set axes line width
|
|
set(gca, "linewidth", 2)
|
|
|
|
# End of multiple series on the same figure
|
|
hold off;
|
|
|
|
# Legend
|
|
legend([l1, l2, l3, l4], "location", "northwest", "fontsize", 5, "fontunits", "points");
|
|
|
|
# Save figure as PNG file
|
|
print(gcf, "counting-scheme-no-time.tmp.png", "-dpng", "-S4096,2160");
|
|
|
|
# Add an alpha channel and remove the white background (requires GraphicsMagick)
|
|
system('gm convert counting-scheme-no-time.tmp.png -transparent white counting-scheme-no-time.png');
|
|
|