figure(1)

p = 0:40:10000;                 % potenciometro
r1 = 128;                       % resistencia em paralelo com o potenciometro
r1_final = p.*r1./(p+r1);       % resultado do paralelo

f = 0:1:length(p);
fin_ini = round(mean(f((r1_final>=114) & (r1_final<=116))));
fin_end = round(mean(f((r1_final>=124) & (r1_final<=126))));

plot(p,r1_final, p(fin_ini), r1_final(fin_ini), 'or', p(fin_end), r1_final(fin_end), 'or')

figure(2)
plot(p(fin_ini:fin_end), r1_final(fin_ini:fin_end), 'k')
return

r2 = 120;                       % resistencia em serie com o paralelo do potenciometro com r1
r2_final = r1_final + r2;       % resultado da serie

r3 = 140;                       % resistencia em paralelo o circuito todo

% r_final = r2_final.*r3./(r2_final + r3) % resistencia equivalente
% plot(p,r_final)



figure(2)

p = 0:40:10000;                 % potenciometro
r1 = 1000;                      % resistencia em paralelo com o potenciometro
r1_final = p.*r1./(p+r1);       % resultado do paralelo

r2 = 120;                       % resistencia em serie com o paralelo do potenciometro com r1
r2_final = r1_final + r2;       % resultado da serie

r3 = 140;                       % resistencia em paralelo o circuito todo
r3_final = r2_final.*r3./(r2_final + r3);

r4 = 10;                       % resistencia em serie com o circuito anterior
r4_final = r3_final+r4;

r5 = 1000;                       % resistencia em paralelo o circuito todo

r_final = r4_final.*r5./(r4_final + r5); % resistencia equivalente
plot(p,r_final)