% (a)
a = 1.1;

% (b)
x = 3.4;

% (c)
y = a * x ^ a / x ^ (a + 1);

% (d)
r1 = [5  1.5451  -4.0451  -4.0451  1.5451  5];

% (e)
r2 = [0  4.7553  2.9389  -2.9389  -4.7553  0];

% (f)
r3 = linspace(5, 25, 5);

% (g)
c = [-1; 8; 2; 3; 9];

% (h)
first = c(1);

% (i)
last = c(end);

% (j)
d = c;

% (k)
d(3) = 1000;

% (l)
tmp = d(1);
d(1) = d(end);
d(end) = tmp;

% (m)
plot(r2, r1, 'b-s')
axis equal
axis([-6 6 -5 5])
xlabel('x')
ylabel('y')

% (n)
plot(r2, r1, 'r--')
axis equal
axis([-8 8 -6 6])
xlabel('x')
ylabel('y')


