% Function
x = [1:5000];
R = (x * 8171.88) ./ (2542.97 - x);

% my testet Resistors
O = [1.2 3.3 33 100 220 470 750 1000 2200 4700];

V = [16 16 20 40 80 144 216 288 536 932];

% hold plots
hold on

% draw functions
plot(R)
plot(O,V)


axis([0 500 0 1024])
xlabel("Ohm")
ylabel("Value")
text(120, 600, "Function")
text(400, 180, "tested Values")

pause
