%FY1001/TFY4145 Mekanisk fysikk hosten 2012.
%Program som viser bruken av funksjonen savetightfigure,
%som fjerner tomme omraader rundt pdf-figuren.
%Programmet savetightfigure.m maa ligge paa samme katalog.
%Plotting av funksjonen f(x) = 6x^2 - x^3 i omraadet -3 til 7
clear all;
%N = antall punkter langs x-aksen
N = 100;
%tabell med N x-verdier mellom x_min og x_max
x_min = -3;
x_max = 7;
x = linspace(x_min,x_max,N);
%enkleste maate aa lage tabell med f-verdier;
%legg merke til at det skrives x.^2 og ikke x^2;
%punktumet foran ^ resulterer i at
%f(1) = 6x(1)^2-x(1)^3,
%f(2) = 6x(2)^2-x(2)^3 osv
f = 6*x.^2 - x.^3;
%Alternativt med for-loekke:
%for i = 1:N
%    f(i) = 6*x(i)^2 - x(i)^3;
%end;
%Med for ... end involveres kun ett element
%i x-tabellen hver gang, og da er ikke
%punktumet foran ^ nodvendig. (Men det hadde
%heller ikke gjort noen skade :-))
%Plotter f(x)
h=figure;
plot(x,f,'linewidth',2);
%axis([x_min x_max u_min u_max]);
%Aksetekster:
xlabel('x');
ylabel('f(x)');
%Tittel:
%title('Titteltekst her hvis oenskelig');
savetightfigure(h,'graf.pdf')