Блог русскоязычной поддержки Wolfram Mathematica

Wolfram Mathematica исполнилось 25 лет!

Общее количество использованных в посте встроенных функций или символов: 33

Список имен используемых встроенных функций и символов в порядке их появления в коде:
Manipulate | ParametricPlot | Evaluate | Table | Plus (+) | Times (*, ×) | List ({...}) | Pi (π) | Rule (->, ->) | Epilog | Text | Style | GrayLevel | Power (^) | Bold | FontFamily | PlotRange | AspectRatio | ImageSize | Axes | False | Background | Black | PlotStyle | Thick | Initialization | CompoundExpression (;) | Set (=) | SetDelayed (:=) | Pattern (:) | Blank (_) | Cos | Sin

Сегодня замечательное событие!

Ровно 25 лет назад — 23 июня 1988 г. — вышла в свет первая версия самой мощной и универсальной вычислительной системы в Мире — Wolfram Mathematica.

Подробнее о истории системы Mathematica вы можете узнать из блога:

Краткая история системы Mathematica

О создателе системы Mathematica, Стивене Вольфраме, вы можете узнать из блога:

Моменты жизни Стивена Вольфрама — основателя компании Wolfram Research, создателя Mathematica, Wolfam|Alpha и автора фундаментальной монографии A New Kind of Science

Документации всех версий системы Mathematica:

1, 2, 3, 4, 5, 6, 7, 8, 9.

Динамический манипулятор, на основе которого создано поздравительное видео:

закрыть

Manipulate[ ParametricPlot[ Evaluate@Table[ m f[t, a] + (1 - m) g[t, a], {m, 0.05, 1 - 0.05, 0.05}], {t, 0, 2 Pi}, Epilog -> Text[Style["MATHEMATICA 25 ЛЕТ", GrayLevel[ a/(max - min) - min/( max - min), (a/(max - min) - min/(max - min))], 60 (a/(max - min) - min/(max - min)), Bold, FontFamily -> "Myriad Pro Cond"], {0, 0}], PlotRange -> 2 {{-(16/9), 16/9}, {-1, 1}}, AspectRatio -> 1080/1920, ImageSize -> {1920, 1080}/3.5, Axes -> False, Background -> Black, PlotStyle -> Table[{Thick, GrayLevel[1 - i]}, {i, 0.1, 1 - 0.1, 0.1}]], {{a, (max + min)/2, ""}, min, max, (max - min)/500}, Initialization -> {min = -10; max = 12; f[t_, a_] := {Cos[t] + Cos[a t], Sin[t] + Sin[a t]}; g[t_, a_] := {Cos[t] + a/10 Cos[ a t], Sin[t] + a/10 Sin[ a t]}}]

Блог принадлежит “Русскоязычной поддержке Wolfram Mathematica"©
При любом использовании материалов блога, ссылка на блог обязательна.
Создано с помощью Wolfram Mathematica 9