verbatimtex 
%&latex 
\documentclass{article} 
\usepackage{palatino} 
\newcommand{\vect}[1]{\overrightarrow{#1}}
\newcommand{\Vect}[1]{\overrightarrow{\strut #1}}
\begin{document} 
etex 
                
beginfig(1);
numeric u;
u=2.5cm ;
drawarrow (-1.2*u,0)--(1.2*u,0); 
drawarrow (0,-1.2*u)--(0,1.2*u);
draw fullcircle scaled 5cm;
%draw (0,0)--(u,(sind(45)/cosd(45))*u);
draw (0,0)--(cosd(45)*u,sind(45)*u);
draw (0,sind(45)*u)--(cosd(45)*u,sind(45)*u) dashed evenly;
draw (cosd(45)*u,0)--(cosd(45)*u,sind(45)*u) dashed evenly;
%draw (u,-1.3*u)--(u,1.3*u);
drawarrow (0.3*u,0){up}..(0.3*cosd(45)*u,0.3*sind(45)*u);
dotlabel.llft(btex $0$ etex, (0,0));
dotlabel.lrt(btex $A$ etex, (u,0));
dotlabel.ulft(btex $B$ etex, (0,u));
dotlabel.lft(btex $\sin x$ etex, (0,sind(45)*u));
dotlabel.bot(btex $\cos x$ etex, (cosd(45)*u,0));
%dotlabel.rt(btex $\tan x$ etex , (u,(sind(45)/cosd(45))*u));
label.top(btex $x$ etex,(cosd(45)*u,sind(45)*u));
endfig;
beginfig(2);
numeric u;
u=2.5cm ;
drawarrow (-1.2*u,0)--(1.2*u,0);
drawarrow (0,-1.2*u)--(0,1.2*u);
draw fullcircle scaled 5cm;
%draw (0,0)--(u,(sind(45)/cosd(45))*u);
draw (0,0)--(cosd(45)*u,sind(45)*u);
%draw (-cosd(45)*u,sind(45)*u)--(u,-(sind(45)/cosd(45))*u);
draw (-cosd(45)*u,sind(45)*u)--(cosd(45)*u,-sind(45)*u);
draw (-cosd(45)*u,sind(45)*u)--(cosd(45)*u,sind(45)*u) dashed evenly;
draw (cosd(45)*u,0)--(cosd(45)*u,sind(45)*u) dashed evenly;
draw (-cosd(45)*u,0)--(-cosd(45)*u,sind(45)*u) dashed evenly;
%draw (u,-1.3*u)--(u,1.3*u);
drawarrow (0.3*u,0){up}..(0.3*cosd(45)*u,0.3*sind(45)*u);
drawarrow (0.5*u,0){up}..(0,0.5*u)..(-0.5*cosd(45)*u,0.5*sind(45)*u);
dotlabel.llft(btex $0$ etex, (0,0));
dotlabel.lrt(btex $A$ etex, (u,0));
dotlabel.ulft(btex $B$ etex, (0,u));
dotlabel.ulft(btex $\sin x$ etex, (0,sind(45)*u));
dotlabel.bot(btex $\cos x$ etex, (cosd(45)*u,0));
dotlabel.bot(btex $-\cos x$ etex, (-cosd(45)*u,0));
%dotlabel.rt(btex $\tan x$ etex , (u,(sind(45)/cosd(45))*u));
%dotlabel.rt(btex $-\tan x$ etex , (u,-(sind(45)/cosd(45))*u));
label.top(btex $x$ etex,(cosd(45)*u,sind(45)*u));
label.top(btex $\pi-x$ etex,((-cosd(45)-0.1)*u,sind(45)*u));
endfig;

beginfig(3);
numeric u;
u=2.5cm ;
drawarrow (-1.2*u,0)--(1.2*u,0);
drawarrow (0,-1.2*u)--(0,1.2*u);
draw fullcircle scaled 5cm;
%draw (-cosd(45)*u,-sind(45)*u)--(u,(cosd(45)/sind(45))*u);
draw (-cosd(45)*u,-sind(45)*u)--(cosd(45)*u,sind(45)*u);

draw (cosd(45)*u,0)--(cosd(45)*u,sind(45)*u) dashed evenly;
draw (-cosd(45)*u,0)--(-cosd(45)*u,-sind(45)*u) dashed evenly;
draw (0,-sind(45)*u)--(-cosd(45)*u,-sind(45)*u) dashed evenly;
draw (0,sind(45)*u)--(cosd(45)*u,sind(45)*u) dashed evenly;
%draw (u,-1.3*u)--(u,1.3*u);
drawarrow (0.5*u,0){up}..(0.5*cosd(45)*u,0.5*sind(45)*u);
drawarrow (0.3*u,0){up}..(0,0.3*u)..(-0.3*cosd(45)*u,-0.3*sind(45)*u);
dotlabel.ulft(btex $0$ etex, (0,0));
dotlabel.lrt(btex $A$ etex, (u,0));
dotlabel.ulft(btex $B$ etex, (0,u));
dotlabel.lft(btex $\sin x$ etex, (0,sind(45)*u));
dotlabel.rt(btex $-\sin x$ etex, (0,-sind(45)*u));
dotlabel.bot(btex $\cos x$ etex, (cosd(45)*u,0));
dotlabel.top(btex $-\cos x$ etex, (-cosd(45)*u,0));
%dotlabel.rt(btex $\tan x$ etex , (u,(sind(45)/cosd(45))*u));
label.top(btex $x$ etex,(cosd(45)*u,sind(45)*u));
label.bot(btex $\pi+x$ etex,((-cosd(45)-0.1)*u,-sind(45)*u));
endfig;

beginfig(4);
numeric u;
u=2.5cm ;
drawarrow (-1.2*u,0)--(1.2*u,0);
drawarrow (0,-1.2*u)--(0,1.2*u);
draw fullcircle scaled 5cm;
%draw (0,0)--(u,(cosd(45)/sind(45))*u);
draw (0,0)--(cosd(45)*u,sind(45)*u);
%draw (0,0)--(u,-(cosd(45)/sind(45))*u);
draw (0,0)--(cosd(45)*u,-sind(45)*u);

draw (cosd(45)*u,-sind(45)*u)--(cosd(45)*u,sind(45)*u) dashed evenly;
draw (0,-sind(45)*u)--(cosd(45)*u,-sind(45)*u) dashed evenly;
draw (0,sind(45)*u)--(cosd(45)*u,sind(45)*u) dashed evenly;
%draw (u,-1.3*u)--(u,1.3*u);
drawarrow (0.3*u,0){up}..(0.3*cosd(45)*u,0.3*sind(45)*u);
drawarrow (0.3*u,0){down}..(0.3*cosd(45)*u,-0.3*sind(45)*u);
dotlabel.llft(btex $0$ etex, (0,0));
dotlabel.lrt(btex $A$ etex, (u,0));
dotlabel.ulft(btex $B$ etex, (0,u));
dotlabel.lft(btex $\sin x$ etex, (0,sind(45)*u));
dotlabel.lft(btex $-\sin x$ etex, (0,-sind(45)*u));
dotlabel.llft(btex $\cos x$ etex, (cosd(45)*u,0));
%dotlabel.rt(btex $\tan x$ etex , (u,(sind(45)/cosd(45))*u));
%dotlabel.rt(btex $-\tan x)$ etex , (u,-(sind(45)/cosd(45))*u));
label.top(btex $x$ etex,(cosd(45)*u,sind(45)*u));
label.bot(btex $-x$ etex,(cosd(45)*u,(-sind(45)-0.05)*u));
endfig;

beginfig(5);
numeric u;
u=2.5cm ;
drawarrow (-1.2*u,0)--(1.2*u,0);
drawarrow (0,-1.2*u)--(0,1.2*u);
draw fullcircle scaled 5cm;
%draw (0,0)--(u,(cosd(30)/sind(30))*u);
draw (0,0)--(cosd(30)*u,sind(30)*u);
%draw (0,0)--(u,(cosd(60)/sind(60))*u);
draw (0,0)--(cosd(60)*u,sind(60)*u);

draw (cosd(30)*u,0)--(cosd(30)*u,sind(30)*u) dashed evenly;
draw (cosd(60)*u,0)--(cosd(60)*u,sind(60)*u) dashed evenly;
draw (0,sind(30)*u)--(cosd(30)*u,sind(30)*u) dashed evenly;
draw (0,sind(60)*u)--(cosd(60)*u,sind(60)*u) dashed evenly;


drawarrow (0.3*u,0){up}..(0.3*cosd(30)*u,0.3*sind(30)*u);
drawarrow (0.4*u,0){up}..(0.4*cosd(60)*u,0.4*sind(60)*u);

dotlabel.llft(btex $0$ etex, (0,0));
label.bot(btex $A$ etex, (1.1*u,0.2*u));
dotlabel.bot(btex $$ etex, (u,0));
dotlabel.ulft(btex $B$ etex, (0,u));

dotlabel.lft(btex $\sin x$ etex, (0,sind(30)*u));
dotlabel.lft(btex $\cos x$ etex, (0,sind(60)*u));
dotlabel.bot(btex $\cos x$ etex, (cosd(30)*u,0));
dotlabel.bot(btex $\sin x$ etex, (cosd(60)*u,0));
%dotlabel.rt(btex $\tan x$ etex , (u,(sind(30)/cosd(30))*u));
%dotlabel.rt(btex $\tan x$ etex , (u,(sind(60)/cosd(60))*u));
label.top(btex $x$ etex,(cosd(30)*u,sind(30)*u));
label.rt(btex $\frac{\pi}{2}-x$ etex,(cosd(60)*u,(sind(60)+0.1)*u));
endfig;

beginfig(6);
numeric u;
u=2.5cm ;
drawarrow (-1.2*u,0)--(1.2*u,0);
drawarrow (0,-1.2*u)--(0,1.2*u);
draw fullcircle scaled 5cm;
%draw (0,0)--(u,(cosd(30)/sind(30))*u);
draw (0,0)--(cosd(30)*u,sind(30)*u);
%draw (0,0)--(u,(cosd(60)/sind(60))*u);
draw (0,0)--(cosd(120)*u,sind(120)*u);

draw (cosd(30)*u,0)--(cosd(30)*u,sind(30)*u) dashed evenly;
draw (cosd(120)*u,0)--(cosd(120)*u,sind(120)*u) dashed evenly;
draw (0,sind(30)*u)--(cosd(30)*u,sind(30)*u) dashed evenly;
draw (0,sind(120)*u)--(cosd(120)*u,sind(120)*u) dashed evenly;


drawarrow (0.3*u,0){up}..(0.3*cosd(30)*u,0.3*sind(30)*u);
drawarrow (0.4*u,0){up}..(0.4*cosd(120)*u,0.4*sind(120)*u);

dotlabel.llft(btex $0$ etex, (0,0));
label.bot(btex $A$ etex, (1.1*u,0.2*u));
dotlabel.bot(btex $$ etex, (u,0));
dotlabel.ulft(btex $B$ etex, (0,u));

dotlabel.lft(btex $\sin x$ etex, (0,sind(30)*u));
dotlabel.rt(btex $\cos x$ etex, (0,sind(120)*u));
dotlabel.bot(btex $\cos x$ etex, (cosd(30)*u,0));
dotlabel.bot(btex $-\sin x$ etex, (cosd(120)*u,0));
%dotlabel.rt(btex $\tan x$ etex , (u,(sind(30)/cosd(30))*u));
%dotlabel.rt(btex $\tan x$ etex , (u,(sind(120)/cosd(120))*u));
label.top(btex $x$ etex,(cosd(30)*u,sind(30)*u));
label.lft(btex $\frac{\pi}{2}+x$ etex,((cosd(120)-0.05)*u,(sind(120)+0.1)*u));
endfig;
end