% 28.10.2011
clear; clc
%% Loese GlS
A = [3 -2 -1; 0 1 1; -1 3 0];
f = [0; 2; 2];
x = A\f;
disp(x)
% Probe;
fp = A*x;
% Residuum
res = f-A*x;
nr = norm(res);
disp(['Norm des Residuums: ',num2str(nr)] )
%%
% spezielle Fkt.
size(A)
numel(A)
% letzte Zeile 
A(end,:)

%% zeros, ones, rand, eye, diag
ones(5)
C = diag(1:5);
p = diag(C)

%% Meshgrid
x = linspace(1,2,11);
y = linspace(0.5,2.5,5);
[xx,yy] = meshgrid(x,y);
zz = sin(3*pi*xx).*exp(2-yy);
surf(xx,yy,zz)

pause()

%% 2D Grafik
clear; clc; clf
%fplot('sin(x)',[0,2*pi])
ezplot('sin(x)',[0,2*pi])
pause()
%
x = linspace(0,2*pi,101);
y = sin(x);
%plot(x,y)
% und nochmal die Grafik
createfigure1(x,y)