Perl, 235 211 225 211 207 196 179 177 175 168 160 156 146 chars

<>=~/-d+/;for$y(@a=-$ ..$ ){print+(map$_|$y?!($t=8*($y>0)+atan2(-$y,$_)/atan2 1,1)&-$&/45==8|$t>=$`/45&$t<=-$&/45?qw(- / | \)[$t%4]:$":o,@a),$/}

www.un.org/Depts/DGACM/index_spanish.htm

Perl using say feature, 161 149 139 chars

$ echo -n  <>=~/-d+/;for$y(@a=-$ " " ..$ " " ){say map$_|$y?!($t=8*($y>0)+atan2(-$y,$_)/atan2 1,1)&-$&/45==8|$t>=$`/45&$t<=-$&/45?qw(- / | \)[$t%4]:$":o,@a}  | wc -c
139
$ perl -E  <>=~/-d+/;for$y(@a=-$ " " ..$ " " ){say map$_|$y?!($t=8*($y>0)+atan2(-$y,$_)/atan2 1,1)&-$&/45==8|$t>=$`/45&$t<=-$&/45?qw(- / | \)[$t%4]:$":o,@a} 

www.un.org/Depts/DGACM/index_spanish.htm

Perl without trailing newline, 153 143 chars

<>=~/-d+/;for$y(@a=-$ ..$ ){print$/,map$_|$y?!($t=8*($y>0)+atan2(-$y,$_)/atan2 1,1)&-$&/45==8|$t>=$`/45&$t<=-$&/45?qw(- / | \)[$t%4]:$":o,@a}

www.un.org/Depts/DGACM/index_spanish.htm Original version commented:

$_=<>;m/(d+)-(d+) (d+)/;$e=$1/45;$f=$2/45; # parse angles and radius, angles are 0-8
for$y(-$3..$3){                               # loop for each row and col
    for$x(-$3..$3){
            $t=atan2(-$y,$x)/atan2 1,1;   # angle of this point
            $t+=8if($t<0);                # normalize negative angles
            @w=split//,"-/|\"x2;         # array of ASCII symbols for enclosing lines
            $s.=!$x&&!$y?"o":$t==$e||$t==$f?$w[$t]:$t>$e&&$t<$f?"x":$";
            # if it s origin -> "o", if it s enclosing line, get symbol from array
            # if it s between enclosing angles "x", otherwise space
    }
    $s.=$/;
}
print$s;

www.un.org/Depts/DGACM/index_spanish.htm EDIT 1: Inlined sub, relational and equality operators return 0 or 1. www.un.org/Depts/DGACM/index_spanish.htm EDIT 2: Added version with comments. www.un.org/Depts/DGACM/index_spanish.htm EDIT 3: Fixed enclosing line at 360º. Char count increased significantly. www.un.org/Depts/DGACM/index_spanish.htm EDIT 4: Added a shorter version, bending the rules. www.un.org/Depts/DGACM/index_spanish.htm EDIT 5: Smarter fix for the 360º enclosing line. Also, use a number as fill. Both things were obvious. Meh, I should sleep more :/ www.un.org/Depts/DGACM/index_spanish.htm EDIT 6: Removed unneeded m from match operator. Removed some semicolons. www.un.org/Depts/DGACM/index_spanish.htm EDIT 7: Smarter regexp. Under 200 chars! www.un.org/Depts/DGACM/index_spanish.htm EDIT 8: Lots of small improvements:

• Inner for loop -> map (1 char)
• symbol array from split string -> qw (3 chars)
• inlined symbol array (6 chars, together with the previous improvement 9 chars!)
• Logical or -> bitwise or (1 char)
• Regexp improvement (1 char)
• Use arithmethic for testing negative angles, inspired by Jacob s answer (5 chars)

www.un.org/Depts/DGACM/index_spanish.htm EDIT 9: A little reordering in the conditional operators saves 2 chars. www.un.org/Depts/DGACM/index_spanish.htm EDIT 10: Use barewords for characters. www.un.org/Depts/DGACM/index_spanish.htm EDIT 11: Moved print inside of loop, inspired by Lowjacker s answer. www.un.org/Depts/DGACM/index_spanish.htm EDIT 12: Added version using say. www.un.org/Depts/DGACM/index_spanish.htm EDIT 13: Reuse angles characters for fill character, as Gwell s answer does. Output isn t as nice as Gwell s though, that would require 5 additional chars :) Also, .. operator doen t need parentheses. www.un.org/Depts/DGACM/index_spanish.htm EDIT 14: Apply regex directly to <>. Assign range operator to a variable, as per Adrian s suggestion to bta s answer. Add version without the final newline. Updated say version. www.un.org/Depts/DGACM/index_spanish.htm EDIT 15: More inlining. map{block}@a -> map expr,@a.

Lua, 259 characters

略微滥用<条码>非白色空间特性条款,以产生一种令人厌恶的显示,更重要的是避免中风。

m=math i=io.read():gmatch("%d+")a=i()/45 b=i()/45 r=i()for y=r,-r,-1 do for x=-r,r do c=m.atan2(y,x)/m.pi*4 c=c<0 and c+8 or c k=1+m.modf(c+.5)io.write(x==0 and y==0 and o or c>=a and c<=b and( -/|\-/|\- ):sub(k,k)or c==0 and b==8 and - or   )end print()end

投入:45-360 4

\|||///
\|||// 
\\|//  
--\|/   
----o----
--//|\--
////|\\
///|||\
///|||\

Able to handle odd angles

投入:15-75 8

           |/////
          |//////
          |//////
          |//////
          ///////
         |//////-
         ////--- 
         //-     
        o        
                 
                 
                 
                 
                 
                 
                 
                 

MATLAB, 188 chars :)

input ;[w x r]=strread(ans, %d-%d%d);l= - [X] Y&r;[X]=meshgrid(-:r);T=atan2(-Y,X)/pi*180;T=T+(Tlt;=0360;T(T>w&Tlt;x)=-42;T(T=w)=-l(1+w/45);T(T=x=+x=l(1+x/45);T(r+1,r+1)=- o;char(T)

Commented code:

%%# Get the string variable (enclose in quotes, e.g.  45-315 4 )
input   
%%# Extract angles and length
[w x r]=strread(ans, %d-%d%d );
%%# Store characters
l= -/|-/|- ;
%%# Create the grid
[X Y]=meshgrid(-r:r);
%%# Compute the angles in degrees
T=atan2(-Y,X)/pi*180;
%%# Get all the angles
T=T+(T<=0)*360;
%# Negative numbers indicate valid characters
%%# Add the characters
T(T>w&T<x)=-42;
T(T==w)=-l(1+w/45);
T(T==x)=-l(1+x/45);
%%# Add the origin
T(r+1,r+1)=- o ;
%%# Display
char(-T)

Mathematica 100 Chars

由于图形过于完美:

  f[x_-y_ z_]:=Graphics@Table[
                 {EdgeForm@Red,Disk[{0,0},r,{x °,y °}],{r,z,1,-1}]
                 SetAttributes[f,HoldAll]

Invoke with f[30-70 5]

成果

http://a.imageshack.us/img80/4294/angulosgolf.png”

http://a.imageshack.us/img59/7892/angulos2.png”

Note

The SetAttributes[f, HoldAll];

之所以需要,是因为投入

    f[a-b c] 

否则将被解释为

    f[(a-b*c)]

GNU BC, 339 chars

www.un.org/spanish/ga/president

scale=A
a=read()/45
b=read()/45
c=read()
for(y=c;y>=-c;y--){for(x=-c;x<=c;x++){if(x==0)if(y<0)t=-2else t=2else if(x>0)t=a(y/x)/a(1)else if(y<0)t=a(y/x)/a(1)-4else t=a(y/x)/a(1)+4
if(y<0)t+=8
if(x||y)if(t==a||t==b||t==b-8){scale=0;u=(t%4);scale=A;if(u==0)"-";if(u==1)"/";if(u==2)"|";if(u==3)""}else if(t>a&&t<b)"x"else" "else"o"};"
"}
quit

MATLAB 7.8.0 (R2009a) - 168 163 162 characters

从

[w x r]=strread(input(  , s ), %d-%d%d );
l= o -/|-/|- ;
X=meshgrid(-r:r);
T=atan2(-X ,X)*180/pi;
T=T+(T<=-~w)*360;
T(T>x|T<w)=-1;
T(r+1,r+1)=-90;
disp(l(fix(3+T/45)))

>> arc
0-135 4
||||////
 |||///-
  ||//--
   |/---
    o----