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

С Новым 2013-м годом!

Нажмите, чтобы скачать данный пост в виде ноутбука Mathematica...

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

Список имен используемых встроенных функций и символов в порядке их появления в коде:
Manipulate | Graphics3D | List ({...}) | Table | Plus (+) | Times (*, ×) | Cos | Sin | Pi (π) | Power (^) | Rule (->, ->) | Lighting | Boxed | False | Background | Black | SphericalRegion | True | ImageSize | White | Orange | RuleDelayed (:>, :->) | Initialization | CompoundExpression (;) | SetDelayed (:=) | Pattern (:) | Blank (_) | Sphere | RandomReal

Поздравляем вас с Наступающим Новым 2013-м годом, друзья!

За прошедший 2012-й год Русскоязычная поддержка Wolfram Mathematica смогла добиться многого и шагнула далеко вперед. С 1 января 2012 г. количество участников сообщества ВКонтакте выросло на 337.705% (с 305 до 1030 человек), было отвечено на более 2 тысяч вопросов, в том числе только здесь, ВКонтакте, более чем на 750 (это 79.1139% всех записей на стене группы, опубликованных за все время).

В сентябре была проведена олимпиада по Mathematica среди студентов и аспирантов СНГ, в 2013-м году она будет проведена снова, с учетом всех пожеланий участников.

В октябре прошедшего года было проведено Российское Турне “Технологии Wolfram”, семинары которого в 5 городах России (Москва, Казань, Екатеринбург, Новосибирск, Томск) посетило более 300 человек.

Также в течение 2012 г. появилось два сертифицированных инструктора технологий и учебных курсов Wolfram в странах СНГ — Роман Осипов и Григорий Фридман.

Были открыты блоги "Wolfram Research: события, новости, объявления (35 постов) и Mathematica в действии" (7 постов).

Сайт русскоязычной поддержки переехал на новый адрес wolframmathematica.ru

Был проведен розыгрыш 9-й версии Mathematica.

В новом, 2013-м году Русскоязычная поддержка и компания Wolfram Research готовят для вас много нового! Сайт wolframmathematica.ru будет оптимизирован и модернизирован, чтобы было удобно общаться о Mathematica и других продуктах компании Wolfram на специализированной для этого платформе. Планируется два турне: по странам, находящимся на Кавказе и по России, с рассказом о Mathematica 9, мастер-классами и пр. Откроется Mathematica-вики — энциклопедия Mathematica на русском языке, и еще много нового.

С Наступающим Новым 2013-м годом, друзья! Успехов в ваших делах, здоровья и счастья!

Оставайтесь с нами, пользуйтесь самой мощной и универсальной вычислительной системой Мира — системой Mathematica, ее последней, 9-й версией. С ней вам доступны любые высоты и ваш творческий потенциал может раскрыться как никогда раньше, это проверено многократно.

закрыть

Manipulate[Graphics3D[{Table[{color1,spheres[r,{0,0,0.5-4 r},5 r,0.4],Table[{color1,spheres[0.2 r,{r Cos[i],r Sin[i],0.5-4 r},8 r,0.1]},{i,0,2 Pi-2 Pi/(r/0.5),2 Pi/(r/0.5)}]},{r,0.5,detal,0.5}]},Lighting->{{"Point",color2,{0,-10,0}},{"Point",color3,{0,10,-11}}},Boxed->False,Background->Black,SphericalRegion->True,ImageSize->500],{{color1,White,"Цвет шаров елочки:"},White},{{color2,Orange,"Цвет верхнего источника света:"},Orange},{{color3,White,"Цвет нижнего источника света:"},White},{{detal,10,"Детализация:"},0.5,10,0.5},Initialization :> {x[u_,v_,r_]:=-r Cos[u] Cos[v]; y[u_,v_,r_]:=-r Cos[v] Sin[u]; z[u_,v_,r_]:=r Sin[v]; point[u_,v_,r_,{x0_,y0_,z0_}]:={x[u,v,r],y[u,v,r],z[u,v,r]}+{x0,y0,z0}; spheres[r_,{x0_,y0_,z0_},n_,r1_]:=Table[Sphere[point[RandomReal[{0,2 Pi}],RandomReal[{-Pi/2,Pi/2}],r,{x0,y0,z0}],RandomReal[{0.01,r1}]],{n}];}]

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