105-11-10-同心圓
Sequence[ <Expression>, <Variable>, <Start Value>, <End Value>, <Increment> ]
★同心圓
Sequence[circle[A,i],i,1, n]
Sequence[segment[A,A+(n*cos(i*2*pi/m),n*sin(i*2*pi/m))], i, 1, m]
Sequence[segment[A,A+(n*cos(t),n*sin(t))], t, 0,2*pi, 2*pi/m]