zadanie 1: %Zad.1 - rysowanie wykresu funkcji

clear

clf

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

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

z=0.5*y;

plot(u,y,'g',u,z,'b');

title('Wykres funkcji; f(u)-zielony, 0.5*f(u)-niebieski')

xlabel('x')

ylabel('y')

grid

Zadanie 2: %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]

R=[C; D E [F;G]]

% roziwazanie rownania Rx=W

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

w1=input('pierwszy wyraz ')

w2=input('drugi wyraz ')

w3=input('trzeci wyraz ')

w4=input('czwarty wyraz ')

W=[w1;w2;w3;w4];

disp('Wynik działania X=inv(R)*W: ')

X=inv(R)*W

Zadanie 3: %zad.3 - petla for

clear

clc

for m=1:10

for n=1:12

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

end

end

disp('Utworzona macierz: ');

U

Zadanie 4: %zad.4 - przy użyciu funkcji "macierz.m"

clear

clc

E=input('Podaj moduł sprężystości E: ');

A=input('Podaj pole przekroju A: ');

L=input('Podaj długość elementu L: ');

disp('Macierz sztywności elementu kratowego K: ')

macierz(E,A,L)

………………………………………………………………..

%nazwa pliku funkcji macierz.m

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

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

---