%Skrpypt rysujacy wykres 3D

r=[0:0.2:2];

t=[0:pi/10:2*pi];

x=r*cos(t);

y=r*sin(t);

z=exp((-x^2)-(y^2));

surf(x,y,z)

wsk=fopen('H:/Chwila/ts/MatLab/GrupaA/Pch01_01.dat','r');

tekst1=textscan(wsk, '%f%f', 'headerlines', 2);

tekst2=textscan(wsk, '%f%f', 'headerlines', 11);

tekst3=textscan(wsk, '%f%f', 'headerlines', 20);

tekst4=textscan(wsk, '%f%f', 'headerlines', 16);

tekst5=textscan(wsk, '%f%f', 'headerlines', 12);

x1=tekst1{1};

x2=tekst2{1};

x3=tekst3{1};

x4=tekst4{1};

x5=tekst5{1};

y1=tekst1{2};

y2=tekst2{2};

y3=tekst3{2};

y4=tekst4{2};

y5=tekst5{2};

hold on

semilogx(x1,y1,'or')

semilogx(x2,y2,'ob')

semilogx(x3,y3,'oy')

semilogx(x4,y4,'og')

semilogx(x5,y5,'om')

hold off

lan1=textscan(wsk, '%s', 'headerlines', 2);

lan2=textscan(wsk, '%s', 'headerlines', 2);

lan3=textscan(wsk, '%s', 'headerlines', 2);

lan4=textscan(wsk, '%s', 'headerlines', 2);

lan5=textscan(wsk, '%s', 'headerlines', 2);

legend([lan1,lan2,lan3,lan4,lan5],'location','SouthEast')

%Funkcja przeliczaja jednostki

%(x,n) x - wartosc do przeliczenia

%n: 1-Gram, 2-Uncja, 3-cetnar, 4-funt

function wynik=ANGWAG(x,n)

if n==1

wynik=x/1000;

elseif n==2

wynik=x*28.3495/1000;

elseif n==3

wynik=x*50.8023;

elseif n==4

wynik=x*0.45;

end

%Skrypt wyznaczający sumę wszystkich liczb naturalnych nieparzystych

%mniejszych od podanej

disp('Skrypt wyznaczający sumę wszystkich liczb naturalnych nieparzystych mniejszych od podanej')

a=input('Podaj liczbę: ');

sum=0;

for i=1:a

if fix(i/2)*2~=i

sum=sum+i;

sum

end

end