blob: 7648e8fb0565755a7658e25c4ea66dd81476929b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
function [] = circle(centre,radius,NOP)
THETA=linspace(0,2*%pi,NOP);
RHO=ones(1,NOP)*radius;
z=tan(THETA);
x=sqrt(((RHO).^2)./(1+(z.^2)));
y=x.*z;
x=x+centre(1);
y=y+centre(2);
plot2d(x,y,style=-2);
set(gca(),"auto_clear","off") //hold on
plot2d(-(x)+2*(centre(1)),y,style=-2);
/////////////// End of Function circle
|