Mια προοπτική για τα μαθηματικά, το μοτίβο και το αφηρημένο.
Mathematica code:
Manipulate[Graphics[Line[
Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]],
PlotRange -> 1.3],
{r, .1, 1}, {a, 0.001, 4*Pi, .0001}, {s, 1,500, 1}]
Table[{-r^n*Sin[n*2*Pi/a], r^n*Cos[n*2*Pi/a]}, {n, 0, s}]],
PlotRange -> 1.3],
{r, .1, 1}, {a, 0.001, 4*Pi, .0001}, {s, 1,500, 1}]
Έρχεται το πολλαπλό βιβλίο ΝΕΟ — βρες όλες τις επιλογές εδώ
PDF & Ψηφιακά Μαθησιακά Αντικείμενα — χωρίς εγγραφή • Portify
📚 437 βιβλία🎬 22.000+ Ψηφιακά Μαθησιακά Αντικείμενα
Δες τα βιβλία →
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου