matlab0002

%Kolokwiumlb_IS

%zad.1 (lpkt) wyświetlić na ekranie nazwiska autorów skryptu disp('Napisał WT')

^zad.2 (2pkt) obliczyć wartośćwyra_enia x=pi/4; sqrt(sin(x)^A2+exp(tan(x)))

Wybór = 1;

while (Wybor==l | Wybor==2)

%zad.3 (2pkt) poprosiću_ytkownika o wybór jednej z dwóch opcji:

% 1- macierze, 2- wykresy

Wybor=input('Wybierz opcje: 1- macierze; 2- wykresy ') switch Wybór case 1

%zad.4a (lpkt) usunąć z przestrzeni roboczej zmienne A, B i C elear ABC

%zad.4b (2pkt) korzystając z funkcji ones, zeros, diag oraz eye zbudować macierz

D=[diag([2,4,6]), eye(3), zeros(3,1);4*ones(1,7)]

%zad.4c (2pkt) utworzyć i wyświetlić macierz A o wymiarach N x N, składajaca sie

% z liczb losowych całkowitych z przedziału <50 ; 70>

N=input('Podaj liczbę wierszy i kolumn macierzy A :')

A=50+round(20*rand(N))

%zad.4d (2pkt) przepisać do wektora wierszowego B kwadraty elementów % stojących w ostatnim wierszu macierzy A B=A(N,:).^A2; disp(B)

%zad.4e (2pkt) za pomocą pętli obliczyć ile jest w macierzy A liczb mniejszych

% od 60 i wyświetlić odpowiedni komunikat

ile=0;

for i=l:N

for j=l:N

if A(i, j ) <60

ile=ile+l;

end

end

end

disp(streat(['W macierzy jest ’,num2str(ile),• liczb mniejszych od 60.'])) %zad 4.f (2pkt) bez u_ycia pętli obliczyć ile jest w macierzy A elementów %parzystych

s=sum(sum(rem(A,2)==0))

disp(streat(['W macierzy jest ',num2str(s),' liczb parzystych.'])) case 2

%zad5.a (lpkt) zamknacwszystkie okna graficzne close all

%zad.5b (2pkt) otworzyć nowe okno graficzne do narysowania w nim trzech wykresów,    * ^

%jeden pod drugim i na srdkowym wykresie narysować czerwona linia kropkowana %wykres funkcji, dodać tytuł wykresu i opis osi figurę

subplot(3,1,2) x=linspace(0, 4*pi,100); y=(x.^A2+l).*exp(cos(x)); plot(x,y,'b—')

title('Wykres funkcji y=(x^A{2}+1)e^A{cos(x)}') xlabel('wartości x') ylabel('wartości y')

%zad.5.c (2pkt) otworzyć okno graficzne o numerze 5 i narysować wykres krzywej