powrot='t'; while powrot=='t' clc; clear all; disp(''); t=input('Mozesz wykonywac dzialania na dw�ch macierzach(1), macierzy i liczbie(2) i na jednej macierzy(3). Jakie dzialania chcesz wykonac? '); switch t case 1 disp('Na dwoch macierzach mozesz wykonac nastepujace dzialania: suma(1), roznica(2), iloczyn(3), iloraz(4), macierz roznic w wyrazach(5)'); disp('Zmiana okreslonych wierszy(6), zmiana okreslonych kolumn(7), zmiana okreslonych wyrazow (8).'); a=input('Podaj ilosc wierszy macierzy A: '); b=input('Podaj ilosc kolumn macierzy A: '); z1=input('Chcesz samodzielnie wypelnic macierze (1), wczytac macierze z pliku (2) czy wypelnic macierze losowymi danymi (3)? '); switch z1 case 1 disp('Wypelnij macierz A') for i=1:a %disp('Podaj elementy z wiersza numer :' a); for j=1:b A(i,j)=input(' '); end end disp('Wypelnij macierz B') for i1=1:a %disp('Podaj elementy z wiersza numer :' a); for j1=1:b B(i1,j1)=input(' '); end end case 2 disp('Macierze zostana wczytane z pliku MacierzA.txt i MacierzB.txt'); A= dlmread('MacierzA.txt'); B= dlmread('MacierzB.txt'); case 3 disp('Macierze zostana wypelnione losowymi liczbami'); A=randn(a,b); B=randn(a1,b1); end t1=input('Podaj jakie dzialanie chcesz wykonac: '); switch t1 case 1 A+B case 2 A-B case 3 A*B case 4 A/B case 5 for i2=1:a for j2=1:b if A(i2,j2)==B(j2,j3) C(i2,j2)=1; else C(i2,j2)=0; end end end case 6 d=input('Podaj wiersze ktore maja zostac zamienione. Podaj numer wiersza:'); for i3=1:b C(i3)=A(d,i3); A(d,i3)=B(d,i3); B(d,i3)=C(i3); C end case 7 e=input('Podaj kolumny ktore maja zostac zamienione. Podaj numer kolumny:'); for i4=1:b C(i4)=A(i4,e); A(i4,e)=B(i4,e); B(i4,e)=C(i4); C end case 8 f=input('Podaj numer wiersza elementow ktore maja zostac zamienione'); g=input('Podaj numer kolumny elementow ktore maja zostac zamienione'); k=A(f,g); A(f,g)=B(f,g); B(f,g)=k; end case 2 a=input('Podaj ilosc wierszy macierzy A: '); b=input('Podaj ilosc kolumn macierzy A: '); c=input('Podaj liczbe: '); z1=input('Chcesz samodzielnie wypelnic macierze (1), wczytac macierze z pliku (2) czy wypelnic macierze losowymi danymi (3)? '); switch z1 case 1 disp('Wypelnij macierz A') for i=1:a %disp('Podaj elementy z wiersza numer :' a); for j=1:b A(i,j)=input(' '); end end case 2 disp('Macierz zostanie wczytana z pliku MacierzA.txt'); A= dlmread('MacierzA.txt'); case 3 disp('Macierze zostana wypelnione losowymi liczbami'); A=randn(a,b); end disp('Na macierzy i liczbie mozesz wykonac dzialania suma(1), roznica(2), iloczyn(3), iloraz(4), potegowanie(5)'); disp('Sprawdzanie wystepowania liczby(6)'); t2=input('Jakie dzialanie chcesz wykonac'); switch t2 case 1 d=input('Chcesz zsumowac liczbe z jednym elementem(1) czy ze wszyskimi(2): '); switch d case 1 a1=input('Podaj numer wiersza: '); b1=input('Podaj numer kolumny: '); A(a1,b1)=A(a1,b1)+c case 2 for i1=1:a for j1=1:b A(i1,j1)=A(i1,j1)+c; end end disp(A); end case 2 e=input('Chcesz obliczyc roznice z jednym elementem(1) czy ze wszyskimi(2): '); switch d case 1 a1=input('Podaj numer wiersza: '); b1=input('Podaj numer kolumny: '); A(a1,b1)=A(a1,b1)-c case 2 for i1=1:a for j1=1:b A(i1,j1)=A(i1,j1)-c; end end disp(A); end case 3 e=input('Chcesz obliczyc iloczyn z jednym elementem(1) czy ze wszyskimi(2): '); switch d case 1 a1=input('Podaj numer wiersza: '); b1=input('Podaj numer kolumny: '); A(a1,b1)=A(a1,b1)*c case 2 for i1=1:a for j1=1:b A(i1,j1)=A(i1,j1)*c; end end disp(A); end case 4 e=input('Chcesz obliczyc iloraz z jednym elementem(1) czy ze wszyskimi(2): '); switch d case 1 a1=input('Podaj numer wiersza: '); b1=input('Podaj numer kolumny: '); A(a1,b1)=A(a1,b1)/c case 2 for i1=1:a for j1=1:b A(i1,j1)=A(i1,j1)/c; end end disp(A); end case 5 e=input('Chcesz obliczyc iloraz z jednym elementem(1) czy ze wszyskimi(2): '); switch d case 1 a1=input('Podaj numer wiersza: '); b1=input('Podaj numer kolumny: '); A(a1,b1)=A(a1,b1)^c case 2 for i1=1:a for j1=1:b A(i1,j1)=A(i1,j1)^c; end end disp(A); end case 6 for i1=1:a for j1=1:b if A(i1,j1)==c disp('Elementy sa rowne dla wiersza rownego :'); disp (i1); disp('i dla kolumny: '); disp (j1); end end end end case 3 a=input('Podaj ilosc wierszy macierzy A: '); b=input('Podaj ilosc kolumn macierzy A: '); z1=input('Chcesz samodzielnie wypelnic macierze (1), wczytac macierze z pliku (2) czy wypelnic macierze losowymi danymi (3)? '); switch z1 case 1 disp('Wypelnij macierz A') for i=1:a %disp('Podaj elementy z wiersza numer :' a); for j=1:b A(i,j)=input(' '); end end case 2 disp('Macierz zostanie wczytana z pliku MacierzA.txt'); A= dlmread('MacierzA.txt'); case 3 disp('Macierz zostanie wypelniona losowymi liczbami'); A=randn(a,b); end disp('Na macierzy mozesz wykonac dzialania: obliczyc wyznacznik (1), transpozycja (2), inwersja (3), obrot o 90 stopni(4), odbicie lustrzane(5) '); disp('suma diagonali(6), odejmowanie i dodawanie wierszy lub kolumn(7), okerslenie wystepowania danej wartosci w macierzy i wykres(8), zapis do pliku(9)'); t3=input('Jakie dzialanie chcesz wykonac: '); switch t3 case 1 g=det(A) case 2 g=transpose(A) case 3 g=inv(A) case 4 g=rot90(A) case 5 g=fliplr(A) case 6 g=trace(A) case 7 m=('Chcesz dodawac(1) czy odejmowac(2)?'); switch m case 1 g=('Chcesz dodac do siebie wiersze(1) czy kolumny(2): '); switch g case 1 h=input('Podaj numer wiersza'); n=input('Podaj numer wiersza do ktorego ma zostac dodany wiersz podany wczesniej'); for i5=1:b A(n,i5)=A(n,i5)+A(h,i5); end case 2 h=input('Podaj numer kolumny'); n=input('Podaj numer kolumny do ktorej ma zostac dodana kolumna podana wczesniej'); for i5=1:b A(i5,n)=A(i5,n)+A(i5,h); end end case 2 g=('Chcesz odjac od siebie wiersze(1) czy kolumny(2): '); switch g case 1 h=input('Podaj numer wiersza'); n=input('Podaj numer wiersza od ktorego ma zostac odjety wiersz podany wczesniej'); for i5=1:b A(n,i5)=A(n,i5)-A(h,i5); end case 2 h=input('Podaj numer kolmuny'); n=input('Podaj numer kolumny od ktorej ma zostac odjeta kolumna podany wczesniej'); for i5=1:b A(i5,n)=A(i5,n)-A(i5,h); end end end case 8 hist(A) case 9 dlmwrite('MacierzA.txt',A); end end powrot=input('Jezeli chcesz wykonac obliczenia ponownie wcisnij "t" ','s'); end