% Script A3P3
% Tests the function Rotate

clc
randn('seed',0);          

n = 1000001;
x = randn(n,1);
y = randn(n,1);
[c,s] = Rotate(x,y);

fprintf('c = %18.15f\ns = %18.15f\n',c,s)
