Wolfram 언어

대수학과 정수론

Tweet-a-Program

AnglePathCirclePoints는 소량의 코드만으로 심미적인 결과를 생성할 수 있으며, Wolfram Tweet-a-Program 작성 사용에 최적의 함수입니다. 다음은 Wolfram 언어 사용자가 작성한 tweet의 예입니다.

TaP 예제 1.

In[1]:=
Click for copyable input
Graphics@{NestList[ Rotate[#, Pi/2, {0, 4 Pi}] &, {Brown, Polygon@AnglePath@ Tuples[Table[t^2 Sin[t^2 + t]/.5, {t, 0, Pi/5, 0.01}], 2]}, 3]}
Out[1]=

TaP 예제 2.

In[2]:=
Click for copyable input
Graphics[{Polygon[ AnglePath[Tuples[Table[Sin@t/8, {t, 0, 5 E/8, .03}], 2]], VertexColors -> Table[Hue[i/3250], {i, 3250}]]}]
Out[2]=

TaP 예제 3.

In[3]:=
Click for copyable input
Graphics@{EdgeForm@Red, Pink, Polygon@AnglePath@ Tuples[Table[t^2 Sin[t^2 - t]/.5, {t, 0, Pi/5, .0105}], 2]}
Out[3]=

TaP 예제 4.

In[4]:=
Click for copyable input
k = Tuples[Range[-2, 2, .15], {2}]; Graphics@{BSplineCurve@Sin@CirclePoints[#, .14, 25] & /@ k, Red, Point@Sin@CirclePoints[#, .15, 2] & /@ k}
Out[4]=

관련 예제

de en es fr ja pt-br ru zh