(1)Informatyka stosowana – przykładowe rozwiązania zadań M

(1)

Informatyka stosowana – przykładowe rozwiązania zadań M. Głowacki, L-10, PK

1

Zadania – przykładowe rozwiązania

zad. 1.

clear clc

x = [-0.5 : 0.1 : 2];

y = [-1 : 0.1 : 3];

[X,Y] = meshgrid(x,y);

Z = X.*sin(X+3) + sqrt(Y+4).*cos(-Y);

surf(X,Y,Z);

zad. 2.

clear clc

A = [-7 2 3.1 4; 1 3 0.5 1; 1.9 1.2 0 -3; 2 0 -1 0.5]

a = [-1; 3; 1; -1]

A = [A(:,1:2) a A(:,3:end)]

A(:,1) = []

tmp = A(1,:);

A(1,:) = A(end,:);

A(end,:) = tmp

A(2,:) = A(2,:) + 0.5*A(1,:) B = A([2 end],[1 end])

wynik = trace(B)

(2)

2 zad. 3.

clear clc

N = 1000;

n = 0;

for i = 1:N

Px = 2*rand(1) + 2;

Py = 7*rand(1);

if Py < -2*Px*cos(Px) n = n+1;

end end

Pprost = 2*7;

P = n/N*Pprost;

disp(P);

zad. 4.

function s = macierz_podzielne2(A)

s = 0;

[n m] = size(A);

for i = 1:n

for j = 1:m

if mod(A(i,j),2) == 0 s = s+1;

end

end end

end

% w Command Window:

A = [2 1 0 1 3; 0.5 1 4 2 -5; -2 1 5 0.1 3];

macierz_podzielne2(A)

(3)

3 zad. 5.

function b = wektor_dodatnie(a)

n = length(a);

b = [];

for i = 1:n

if a(i) > 0

b = [b a(i)];

end

end end

% w Command Window:

a = [2,-1,0.5,1.2,3,-4,5,7,-2]

wektor_dodatnie(a)