%% Movies of parametrized curves and tangents


%% A plane curve - a cusp

syms t

r = [t^3 t^2]
 
%% 
% The file *cusptan.mat* was created with the commands 
syms t
r = [t^3 t^2]
cusptan =curvetan(r,t,-1,1,-4,4,-3,3)
save('cusptan','cusptan')

%%
% You can view the movie without executing those command by giving the 
% commands:

load('cusptan')
mplay(cusptan)
 

%% A space curve - a helix

%% 
% The file *helixtan.mat* was created with the commands 
syms t
helix = [cos(t), sin(t), t]
helixtan =curvetan3(helix,t,0,6*pi,-1.5,1.5,-1.5,1.5,0,20,-38,30)
save('helixtan','helixtan')

%%
% You can view it with the commands

load('helixtan')
mplay(helixtan)