%Zad.1 - rysowanie wykresu funkcji

clear

clf

u=[0:pi/20:2*pi]

y=(1-5*u+4*u.^2).*sin(u);

z=0.5*y;

plot(u,y,'y',u,z,'m');

grid

%zad.2 - tworzenie macierzy R

clear

clc

C=[1 2 6 -8; 4 5 0 0];

D=[3;2];

E=[8;1];

F=[5 5]

G=[-9 -6]

H=[F;G]

R=[C; D E H]

% roziwazanie rownania Rx=W z podaniem wyrazow macierzy przez uzytkownika

disp('Podaj wyrazy macierzy W o wymiarach 4x1')

a=input('pierwszy wyraz ')

b=input('drugi wyraz ')

c=input('trzeci wyraz ')

d=input('czwarty wyraz ')

W=[a;b;c;d];

disp('Wynik działania: ')

X=inv(R)*W

%zad.3 - petla for

clear

clc

for m=1:10

for n=1:12

A(m,n)=3/(5*m+2*tan(sqrt(m*n)))

end

end

disp('Wygenerowana macierz: ');

A

function[K]=macierz(E,A,L)

[E*A/L -E*A/L; -E*A/L E*A/L];

%zad.4 - przy uzyciu funkcji "funkcja.m"

clear

clc

E=input('Podaj E: ');

A=input('Podaj A: ');

L=input('Podaj L: ');

disp('Macierz sztywności: ')

funkcja(E,A,L)