Nazwa forum

Saxton

Administrator

Dołączył: 2016-06-15

Liczba postów: 9

Zestaw 5

zad1.

f1(3)

function f1(n)

if n>0

  x = [];
  y = [];
  k=0;
 
  for i=0:n-1
    for j=0:n-i-1
      k = k+1;
      x(k) = i;
      y(k) = j;
    endfor
  endfor

hold on
plot(x,y,'*')
plot(-x,y,'*')
plot(x,-y,'*')
plot(-x,-y,'*')
plot(-y,-x,'*')
hold off
 
%plot(-x,-y,'*')
%axis([-n 1 -n 1])

endif
endfunction

zad2

x = -4:0.01:4;

y = f2(x);

plot(x,y,'r')
%axis([-4 4 -2.5 2.5])

function y = f2(x)

n = length(x);

for i=1:n
  if x(i)<0
    y(i) =  cos(x(i)^2);
  else 
    y(i) = 2*sin(x(i)^3);
  endif
endfor

endfunction

zad3

function y = f2(x)

n = length(x);

for i=1:n
  if x(i)<0
    y(i) =  cos(x(i)^2);
  else 
    y(i) = 2*sin(x(i)^3);
  endif
endfor

endfunction

function y = f3(x)

y = cos(sin(x));

endfunction

zad4

x1 = [1 3 2];
y1 = [3 7 5];

x2 = [2 3 1];
y2 = [4 6 2];

w1 = f4(x1,y1)
w2 = f4(x2,y2)

function y = f4(x,y)

%(x(2)-x(1))/(y(2)-y(1))
%(x(3)-x(2))/(y(3)-y(2))

  if (length(x)==3 && length(y)==3)
    if((x(2)-x(1))/(y(2)-y(1))==(x(3)-x(2))/(y(3)-y(2)))
      y = 1;
    else
      y = -1;
    endif
  else
  %printf("Brak 3 pkt\n");
  y=-1;
  endif

endfunction