clear                     % Clear variables
close all                 % Close figures
% Enter function
fn = @(x) x.^2;

t = -2: 0.05: 2;

subplot(1,2,1)              % Left plot
axis( [-2,2, -2,2] )        % Domain window
xlabel('x')
ylabel('y')
hold on

% Domain Lines
plot((1)*i+t,'k')           % Horizontal
plot((1)+i*t,'b--')         % Vertical

subplot(1,2,2)              % Right plot 
axis( [-4,4, -4,4] )        % Range window
xlabel('u')
ylabel('v')
hold on

% Image Curves
plot(fn((1)*i+t),'k')
plot(fn((1)+i*t),'b--')
hold off