С Новым 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

Новогодняя акция для школьников, студентов и аспирантов

Компания Wolfram Research и сайт Русскоязычной поддержки Wolfram Mathematica проводят новогоднюю акцию для школьников, студентов и аспирантов России и стран СНГ.

Купите Mathematica 9 Student Edition (студенческая версия ничем не отличается по функциональности от профессиональной; ее отличие только в том, что ее может получить только учащийся - школьник, студент или аспирант) всего за 50$ (вместо 139.95$) до наступления Нового, 2013-го, года и получите возможность выиграть один из трех ценных призов.

Среди тех, кто приобретет Mathematica 9 Student Edition согласно пунктам, изложенным ниже, до наступления 2013-го года, будет разыграно 3 приза.

1-й приз: возвращение Вам всей стоимости 9-й версии Mathematica, которую Вы приобрели;

2-й приз: годовая подписка на Wolfram|Alpha Pro;

3-й приз: Wolfram|Alpha Paper Sculpture Kit.

Шаг 1 | Зайти на сайт онлайн магазина продуктов компании Wolfram Research http://store.wolfram.com

Шаг 2 | Зайти в студенческий магазин Student Store

Шаг 3 | Выбрать Вашу операционную систему и проследовать далее

Шаг 4 | Заполнить необходимые поля формы

Шаг 5 | Произвести оплату с помощью одного из возможных способов (например, с помощью банковской карты)

Шаг 6 | Написать письмо на адрес wolfram.mathematica.ru@gmail.com в котором указать Ваше Ф.И.О., и время покупки Mathematica 9 Student Edition

Подробнее о Mathematica 9 Вы можете узнать здесь:

1) 28 ноября 2012 г. - Mathematica 9 вышла - Кратко о том, что нового в 9 версии;

2) 9 основных причин, почему стоит перейти на Mathematica 9;

3) “Что бы Вы хотели сделать далее?” Представляем Предсказательный интерфейс;

4) Что нового в Mathematica 9 (официальный сайт компании Wolfram Research).

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

Длина кодов, измеренная для 14 языков программирования

Перевод поста Джона Маклуна (Jon McLoone), International Business & Strategic Development, Wolfram Research, Inc.

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

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

Список имен используемых встроенных функций и символов в порядке их появления в коде:
CompoundExpression (;) | SetDelayed (:=) | Pattern (:) | BlankNullSequence (___) | Set (=) | Import | Sort | Select | ReplaceAll (/.) | Function (&) | And (&&, ∧) | StringMatchQ | Slot (#) | Not (!, ¬) | Alternatives (|) | RuleDelayed (:>, :->) | Blank (_) | String ("...") | StringReplace | Rule (->, ->) | Cases | DeleteCases | StringJoin (<>) | Condition (/;) | StringExpression (~~) | List ({...}) | Apply (@@) | Intersection (∩) | Map (/@) | If | FileExistsQ | Get (<<) | Monitor | Do | Part ([[…]]) | Span (;;) | DumpSave | Length | Block | Greater (>) | XMLElement | ToLowerCase | Position | Extract | MemberQ | Infinity | Equal (==) | First | ReplaceRepeated (//.) | Plus (+) | StringCount | Repeated (..) | StringLength | StringSplit | Complement | Characters | FromCharacterCode | Range | CharacterRange | Through | Take | ListPlot | AspectRatio | Automatic | AxesLabel | Style | Bold | Epilog | Dashing | Thick | Red | Line | PlotRange | All | ImageSize | Show | MovingMedian | SortBy | Mean | Plot | Times (*, ×) | Sqrt | PlotStyle | GraphicsGrid | Partition | Table | Frame | True | Axes | None | FrameLabel | Median | N | Power (^) | Drop | Floor (⌊...⌋) | Panel | Labeled | FontFamily | Grid | Transpose | Join | Prepend | Rotate | Pi (π) | Reverse | PadRight | Round | ItemStyle | Directive | Spacings | Dividers | Background | Orange | Alignment | Center

Оригинальный пост: Code Length Measured in 14 Languages
Перевод сделал Максим Сахаров, студент МГТУ им. Баумана
Адаптация кода: Осипов Роман, администратор Русскоязычной поддержки Wolfram Mathematica

Я натолкнулся на неплохой проект который называется «Розеттский Код». Их цель — «представить решение одинаковых задач на максимально возможном числе различных языков программирования для того, чтобы продемонстрировать их общие места и различия и помочь человеку обладающему знаниями по решению проблемы одним методом узнать другой.»

После того как я отправил туда решения некоторых задач (например, метод “наводнения” (Flood filling) для заливки областей разной формы, вычисления углового среднего (Mean angle), а также суммирования цифр целого числа (Sum digits of an integer)) я понял, что этот ресурс предоставляет уникальную возможность количественно подтвердить гипотезу, которую я высказываю последние несколько лет — код написанный в Mathematica часто бывает короче чем эквивалентный код на других языках, благодаря, как его высокому уровню абстракции, так и встроенным вычислительным возможностям.

Вот что у меня получилось в итоге:

“Что бы Вы хотели сделать далее?”
Представляем Предсказательный интерфейс

Перевод поста Стивена Вольфрама (Stephen Wolfram), основателя и CEO компании Wolfram Research, Inc., создателя Mathematica, Wolfram|Alpha и A New Kind of Science

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

Оригинальный пост: “What Are You Going to Do Next?” Introducing the Predictive Interface
Перевод сделал Алик Клименков, студент 4-го курса механико-математического факультета КНУ им. Т. Г. Шевченко

В современном мире имеется не очень много качественно различных типов компьютерных интерфейсов. Но, с выходом Mathematica 9, я полагаю, мы получили первый по-настоящему качественно новый тип интерфейса — вычисляемый предсказательный интерфейс.

Если иметь дело с системой, которая имеет небольшой фиксированный набор возможных действий или вводов, то, как правило, можно создать интерфейс из таких элементов, как меню или формы. Но если иметь более гибкие системы, то можно определить что-то наподобие языка. В основном это будет текстовый язык (это справедливо для большей части Mathematica); а иногда он может быть визуальным (как в случае с Wolfram SystemModeler).

Задача состоит в том, чтобы сделать язык обширным и мощным, но при этом оставив его максимально понятным для людей. Как человек, преданно занимающийся разработкой компьютерного языка уже более 30 лет, я приложил огромное количество усилий к этому.

Но насчет Wolfram|Alpha у меня была другая мысль. Не нужно пытаться создать наилучший искусственный компьютерный язык, который люди потом изучат. Вместо этого следует использовать естественный язык, типа того, на котором общаются люди между собой, а затем заставить компьютер сделать все возможное, чтобы понять его. Сначала было не совсем ясно, как внедрить эту идею. Но одна из основных вещей, которые мы уяснили из Wolfram|Alpha, это то, что с достаточным количеством усилий (и с достаточным количеством внесенных данных) это возможно сделать. И, действительно, два года назад в Mathematica 8, мы использовали то, что мы делали в Wolfram|Alpha: добавили в Mathematica возможность ввода языка в свободной форме и автоматической генерации из него кода для Mathematica.

Допустим, мы только что получили какой-то вывод из Mathematica. Что делать с ним дальше? Дальше можно писать код на языке Mathematica. Или, по крайней мере, можно выразить то, что мы хотим сделать с помощью понятного языка. Но в обоих случаях необходимо проявить своего рода креативность: не имея ничего, нужно выяснить, что именно следует сообщить.

Так можем ли мы облегчить этот процесс? Я думаю, что ответ — да. И это то, что мы сейчас сделали с помощью Предсказательного интерфейса (Predictive Interface) в Mathematica 9.

Концепция Предсказательного интерфейса заключается в том, чтобы из результатов, которые Вы получили, предсказать несколько вариантов действий, которые, Вы, вероятно, хотели бы сделать.

Узнайте все о Нобелевских премиях с помощью Wolfram|Alpha

Перевод поста Ричарда Кларка (Richard Clark)

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

Оригинальный пост: Nobel prizes with Wolfram|Alpha
Перевод сделал Максим Сахаров, студент МГТУ им. Баумана

Нобелевская премия (Nobel Prize), названная в честь химика и инженера Альфреда Нобеля (Alfred Nobel), изобретателя динамита и активиста движения за развитие человечества, была недавно вручена в Стокгольме. Wolfram|Alpha может назвать нам имена лауреатов премии, включая Брайана Кобилку (Brian Kobilka) и Роберта Лефковица (Robert Lefkowitz) получивших премию по химии.

Модернизация постов блогов “Mathematica в действии” и “Wolfram Research: события, новости, объявления”

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

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

Список имен используемых встроенных функций и символов в порядке их появления в коде:
Manipulate | Show | List ({...}) | Plot3D | Times (*, ×) | Cos | Plus (+) | Power (^) | E (e) | Rule (->, ->) | Mesh | False | PlotPoints | PlotStyle | Specularity | White | Graphics3D | Sphere | Sin | Dashed | Thick | Red | Line | Table | Pi (π) | BoxRatios | PlotRange | ImageSize | AxesLabel | Map (/@) | Function (&) | Style | Slot (#) | Bold | Italic | AxesOrigin | Lighting | Orange | ViewPoint | SphericalRegion | True | ImagePadding | Axes | Boxed | Plot | Evaluate | BesselJ | AspectRatio | Thickness | AxesStyle | Directive | Arrowheads | TicksStyle | Ticks | Range | DateListPlot | WeatherData | Joined

Все новые посты блогов “Mathematica в действии” и “Wolfram Research: события, новости, объявления” теперь предоставляют вам коды Mathematica в привычном стиле цветовой дифференциации и общего вида, точно соответствующей таковой в самой системе Mathematica.
При этом при нажатии на код появится всплывающее окошко, срдержащее код, который вы можете легко скопировать.

Также все динамические манипуляторы теперь представляются не в виде статичных картинок, а в виде интереактивных CDF элементов.

При этом, все это сделано так, что ноутбук Mathematica автоматичски экспортируется в виде готовой веб-страницы, которую вы сейчас читает.

Ниже вы можете познакомиться с новшествами, о которых говорилось выше:

закрыть

Manipulate[Show[{Plot3D[Cos[x^2+y^2]E^(-x/2-y/2),{x,-1.5,2},{y,-1.5,2},Mesh->False,PlotPoints->80,PlotStyle->{Specularity[White,50]}],Graphics3D[{Sphere[3/2{Cos[angle],Sin[angle],1},1/20],{Dashed,Thick,Red,Line[Table[3/2{Cos[angle],Sin[angle],1},{angle,0,2Pi,Pi/20}]]}}]},BoxRatios->{3.5,3.5,6},PlotRange->{{-1.5,2},{-1.5,2},{-4,2}},ImageSize->500,AxesLabel->(Style[#,20,Bold,Italic]&/@{"x","y","z"}),AxesOrigin->{2,2,2},Lighting->{{"Point",Orange,3/2{Cos[angle],Sin[angle],1}}},ViewPoint->3/2{Cos[angle2],Sin[angle2],1/2},SphericalRegion->True,ImagePadding->50,Axes->axesTF,Boxed->boxTF],{{angle,0,"Lighting angle:"},0,2Pi},{{angle2,5Pi/3,"View point:"},0,2Pi},{{axesTF,False,"Axes?"},{True,False}},{{boxTF,False,"Boxed?"},{True,False}}]

закрыть

Manipulate[Plot[Evaluate@Table[BesselJ[x,x^n ]-1/2,{n,nmin,nmax,(nmax-nmin)/5}],{x,0,3},PlotRange->{{0,3},{-1,1}},ImageSize->550,AspectRatio->2/3,PlotStyle->Thickness[0.005],AxesStyle->Directive[{Thickness[0.004],Arrowheads[{0,0.03}]}],TicksStyle->Directive@{18,Bold},Ticks->{Range[0,4,1/2],Range[-2,2,1/4]},AxesLabel->(Style[#,25,Bold,Italic]&/@{"x","y"})],{{nmin,-1},-1,10},{{nmax,4},-1,10}]

закрыть

DateListPlot[WeatherData["Moscow", "Temperature", {{2012, 9,1},{2012, 12,16}}], Joined->True,ImageSize->600]

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

Падая быстрее скорости звука...

Перевод поста Джейсона Мартинеса (Jason Martinez), Research Programmer, Wolfram Research, Inc.

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

Оригинальный пост: Falling Faster than the Speed of Sound
Перевод сделала Ольга Лавренюк, аспирантка СПбГУЭФ (ФИНЭК)

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

Список имен используемых встроенных функций и символов в порядке их появления в коде:
ReplaceAll (/.) | WolframAlpha | List ({...}) | Rule (->, ->) | ImageSize | Blank (_) | CompoundExpression (;) | Set (=) | Map (/@) | Function (&) | Part ([[…]]) | Slot (#) | Exp | Most | Cases | RuleDelayed (:>, :->) | LineBox | Pattern (:) | Infinity | Interpolation | InterpolationOrder | Plot | PlotRange | AxesLabel | Style | PlotStyle | Thick | Times (*, ×) | Power (^) | SetDelayed (:=) | Plus (+) | NDSolve | Equal (==) | Derivative (') | Method | Sqrt | PlotLegends | Placed | Bottom | Maximize | Less (<) | NIntegrate | GreaterEqual (>=, ≥) | MaxSteps | Subscript | Dot (.) | D (∂) | Manipulate | Evaluate | Max | Abs | ImagePadding | Italic | Small | Appearance | Delimiter | Column | Button | TrackedSymbols | True | ControlPlacement | SaveDefinitions | ContentSize | Automatic

В один замечательный день в октябре 2012 г., Феликс Баумгартнер (Felix Baumgartner) спрыгнул с высоты 39045 метров или 24.26 миль над Землей из капсулы, поднятой 334-х футовым (101.8 м) стратостатом (размер которого в два раза больше высоты колонны Нельсона в Лондоне на Трафальгарской площади и в 2,5 раза больше диаметра дирижабля Гинденбурга). Сервис Wolfram|Alpha  может проинформировать вас о том, что этот прыжок эквивалентен падению с высоты равной высоте поставленных друг на друга 4,4 гор Эверест, или с высоты, составляющей 93% от длины марафонского забега.