function Norton(V,Rinw)
%function [ output_args ] = Untitled1( input_args )
%UNTITLED1 Summary of this function goes here
%   Detailed explanation goes here

V=11.23;
Rinw=1000;

Rload=[0:1:8000];
I=V./(Rinw+Rload);
Vuit=V-I.*Rinw;
Y=Vuit;
%Y(2,:)=I;

XX=load('BijkomendOpg1Data.txt');
Rexp=XX(:,1);		%1e kolom
Iexp=XX(:,2);			%2de kolom
Vexp=XX(:,3);			%3e kolom
AdVexp=XX(:,4);			%4de kolom
RdVexp=XX(:,5);			%5e kolom


%figuur tekenen
figure(1);
errorbar(Rexp,Vexp,RdVexp/2,'.b');
zoom on;
ylabel('V_{Uit, Experiment} met Relatieve fout (V)');
xlabel('R_{load} (\Omega)');
title('Norton/Thévenin-ingangsweerstand');

saveas(gcf,'NortonThéveninErr','tif');
