clc;
clear;
global A;

omega=logspace(0,4,20);
R=90;
C=1e-7;
Z=sqrt(R.^2+1./(omega.^2.*C.^2));
phi=atan(-1./omega.*R.*C);

A=[omega, Z, phi];  %simulierte Messwerte (exakte Werte)

%Parameter 1 ist R, Parameter 2 ist C
startvektor=[90.0 1e-4];        

Loesung=lsqnonlin('ifunction',startvektor,[],[],optimset('TolFun',1e-15,'TolX',1e-15))     
%Loesung(1) ist R, Loesung(2) ist C