ТОП-25 САМЫХ ЧАСТО ИСПОЛЬЗУЕМЫХ
функций и символов в кодах программ, написанных на языке Mathematica
(основано на Wolfram Demonstrations Project)

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

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

Список имен используемых встроенных функций и символов в порядке их появления в коде:
List ({...}) | FullForm | Times (*, ×) | ReplaceAll (/.) | Plus (+) | Power (^) | Rule (->, ->) | Sin | Cos | Set (=) | C | Clear | Part ([[…]]) | Function (&) | Slot (#) | Plot | Evaluate | Table | BesselJ | ImageSize | Pi (π) | FunctionExpand | N | E (e) | I (i) | SetDelayed (:=) | Pattern (:) | Blank (_) | Integer | MatchQ | String ("...") | Not (!, ¬) | True | If | FullSimplify | Equal (==) | Less (<) | Greater (>) | Quiet | Condition (/;) | And (&&, ∧) | False | Manipulate | Row | Factorial (!) | PlotRange | PlotLabel | Manipulator | Appearance | Map (/@) | Button | Labeled | Framed | Top | Right | CompoundExpression (;) | Out (%) | Solve | Sum (∑) | Graphics | RGBColor | Disk | MatrixForm | Style | Bold | Text | Red | Italic | Sqrt | Background | Green | Graphics3D | Sphere | Blue | DigitBlock | NumberSeparator

1 место | List

Функция, задающия список объектов, чаще используется в виде {...}.
Является в среднем 1 из 4 символов, которые используются в ноутбуке.
Появилась в Mathematica 1.
Примеры использования:

закрыть

{}

закрыть

{1}

закрыть

{a, b, c, d}

закрыть

{a, b, c, d}

закрыть

FullForm[{1, 2, {3, 4, {5, 6}}}]

Продвинутое задание функций или Mathematica на русском языке

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

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

Список имен используемых встроенных функций и символов в порядке их появления в коде:
SetDelayed (:=) | Pattern (:) | Blank (_) | Sin | Power (^) | List ({...}) | Plus (+) | Times (*, ×) | Pi (π) | Rational | Graphics | RGBColor | EdgeForm | Thickness | Large | Dashing | Small | Disk | ArcSin | Image | RawArray | Rule (->, ->) | ImageSize | Automatic | ColorSpace | Interleaving | True | Set (=) | N | Log | Factorial (!) | Timing | Cos | Integrate (∫) | FullSimplify | Out (%) | Length | Optional (:) | Red | PlotRange | Max | Axes | Circle | Blue | OptionsPattern | OptionValue | Condition (/;) | Greater (>) | Sqrt | LessEqual (<=, ≤) | Names | PatternTest (?) | PrimeQ | Framed | Table | Alternatives (|) | Integer | I (i) | Mean | Real | Complex | Re | Im | ImageMeasurements | Less (<) | Total | String ("...") | Style | Row | Orange | Options | Plot | Function (&) | Slot (#) | AspectRatio | GoldenRatio | AxesLabel | None | AxesOrigin | AxesStyle | Background | ClippingStyle | ColorFunction | ColorFunctionScaling | Epilog | Exclusions | ExclusionsStyle | Filling | FillingStyle | Frame | False | FrameLabel | FrameStyle | FrameTicks | FrameTicksStyle | GridLines | GridLinesStyle | LabelStyle | Mesh | MeshFunctions | MeshShading | MeshStyle | PlotLabel | PlotLegends | PlotPoints | Full | PlotStyle | Prolog | RegionFunction | RotateLabel | Ticks | TicksStyle | WorkingPrecision | MachinePrecision | Symbol | NumericQ | CompoundExpression (;) | Thick | Dashed | Cubics | GeneratedParameters | InverseFunctions | MaxExtraConditions | Method | Modulus | Quartics | VerifySolutions | Complexes | Reals | Integers | C | Infinity | Solve | AbsolutePointSize | Point | Line | Equal (==) | ReplaceAll (/.)

Одним из самых важных навыков в работе с системой Mathematica, является задание функций, которые имели бы самый разный вид, и зависели бы от разного количества переменных (от буквально ни одной переменной до бесконечного их количества), при этом некоторые переменные могли бы иметь значения, которые используются по умолчанию, если не вводятся их конкретные значения, другие имели бы вид опций, как у многих встроенных в Mathematica функций, или имели бы строгие ограничения на свой тип...

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

Модернизация постов блогов “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

Автоматическая генерация вариантов контрольных работ и ответов к ним в Mathematica

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

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

Список имен используемых встроенных функций и символов в порядке их появления в коде:
RandomReal | List ({...}) | RandomInteger | RandomChoice | Power (^) | Sin | Cos | BesselJ | E (e) | Times (*, ×) | Thread | Rule (->, ->) | RandomSample | SetDelayed (:=) | Block | CompoundExpression (;) | Set (=) | While | Apply (@@) | SameQ (===) | Pattern (:) | Blank (_) | Dot (.) | Cross (×) | VectorAngle | Out (%) | Or (||, ∨) | Less (<) | Length | DeleteDuplicates | Map (/@) | Function (&) | Equal (==) | DeleteCases | Slot (#) | Transpose | Reduce | TraditionalForm | RawBoxes | RowBox | Piecewise | GridBox | ToBoxes | ReplaceAll (/.) | Subscript | Abs | Grid | Det | Join | Range | Plot | Pi (π) | D (∂) | Sort | Greater (>) | DiagonalMatrix | MatrixForm | Inverse | Part ([[…]]) | Cases | Integer | Infinity | Total | Flatten | Not (!, ¬) | FreeQ | Eigensystem | Table | Unequal (!=, ≠) | Span (;;) | All | Frame | ItemSize | Alignment | Center | ItemStyle | Bold | Column | Dividers | False | Left | Export | StringJoin (<>) | NotebookDirectory

Любой учитель в школе или преподаватель в ВУЗе сталкивается с проблемой проверки знаний учащихся по своему предмету. Стандартной проверкой знаний учащегося обычно служит некоторая контрольная работа или тест. Если вы работаете в старших классах школы или в вузе, то создание большого количества схожих вариантов одной контрольной работы потребует огромного количества времени, особенно если вы хотите снабдить каждого учащегося уникальным вариантом. Скажем, в обычной группе студентов ВУЗа около 25 человек, даже если один вариант контрольной работы будет содержать всего 4 задания, то потребуется создать уже 100 задач.

К тому же нужно помнить о том, что мы живем в век цифровых технологий... а значит вся информация, в том числе и варианты контрольных работ, быстро распространятся в интернете и следующие группы студентов (классы школьников) будут уже знать заранее все, что будет в контрольной, если, особенно, существует, скажем, всего 4 варианта некоторой контрольной работы, которые даются из года в год учащимся.

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

В этом посте я продемонстрирую то, как можно создать произвольное количество вариантов некоторой контрольной работы, вместе с ответами к ней. Надеюсь, что пост окажется полезен для вас.

Генерация вариантов контрольной работы по линейной алгебре

Создадим вариант контрольной работы по линейной алгебре, который будет содержать 4 задачи:

1) для двух трехмерных векторов вычислить их скалярное и векторное произведения, а также найти угол между ними;

2) методом Гаусса решить систему 3-х линейных уравнений с 4 неизвестными;

3) вычислить определитель 3-го порядка;

4) найти собственные числа и векторы матрицы 3x3.

Импорт данных из MS Excel и их обработка на примере анализа количества участников сообщества “Wolfram Mathematica® || Русскоязычная поддержка” ВКонтакте

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

Нажмите, чтобы скачать файл MS Excel, содержащий данные...

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

Список имен используемых встроенных функций и символов в порядке их появления в коде:
Short | Import | Part ([[…]]) | Rest | Span (;;) | All | List ({...}) | ReplaceAll (/.) | Rule (->, ->) | Pattern (:) | Blank (_) | If | Equal (==) | Times (*, ×) | Split | Function (&) | Slot (#) | BlankSequence (__) | Plus (+) | Set (=) | Transpose | CompoundExpression (;) | Accumulate | Reverse | Prepend | Map (/@) | DateList | DatePlus | DateListPlot | Joined | True | AxesOrigin | ImageSize | Frame | False | PlotStyle | AbsoluteThickness | DateTicksFormat | GridLines | Automatic | Range | GridLinesStyle | Dotted | Dashed | Thick | TicksStyle | Directive | Bold | ColorFunction | Which | LessEqual (<=, ≤) | Blue | Red | Darker | Green | ColorFunctionScaling | AxesStyle | PlotMarkers | Style | White | AbsoluteTime | Evaluate | Fit | SetDelayed (:=) | Round | RuleDelayed (:>, :->) | Show | Black | DateString | Solve

В данном посте речь пойдет о том, как проанализировать документ, предоставляемый вам некоторым сайтом (организацией, работодателем и т. п.), т. е. в том виде, который вы заранее не можете по сути контролировать и делать таким, каким бы он был удобен для вас.

Расскажу об этой задаче на примере документов формата .xls, которые могут сгенерировать для своих нужд администраторы сообществ ВКонтакте.

Получение файла с набором данных

У администратора сообщества есть доступ к статистике сообщества, нажав на соответствующую кнопку, перейдем на соответствующую страницу.

Создание GIF-анимации, видео и множественный экспорт иллюстраций в Wolfram Mathematica

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

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

Список имен используемых встроенных функций и символов в порядке их появления в коде:
Plot3D | Times (*, ×) | Cos | Plus (+) | Power (^) | E (e) | List ({...}) | Rule (->, ->) | ImageSize | PlotRange | BoxRatios | Mesh | False | PlotPoints | AxesLabel | Map (/@) | Function (&) | Style | Slot (#) | Bold | Italic | AxesOrigin | Lighting | Orange | Show | Graphics3D | Sphere | PlotStyle | Specularity | White | Manipulate | Sin | Dashed | Thick | Red | Line | Table | Pi (π) | ViewPoint | SphericalRegion | True | ImagePadding | Axes | Boxed | CompoundExpression (;) | Set (=) | Block | ParallelTable | Export | StringJoin (<>) | FileByteCount | N | Apply (@@) | Divide (/, ÷) | Out (%) | CreateDirectory | ToString | Part ([[…]]) | Length

Часто появляется необходимость сохранить результаты расчета, которые являются некоторой изменяющейся в зависимости от параметра поверхностью, или графиком функции, вообще любой графической информацией в виде готовой GIF-анимации (скажем, чтобы вставить в свой сайт или презентацию, созданную в MS PowerPoint) или видео (например, чтобы выложить затем на YouTube), а может быть даже в виде большого количества  картинок для вставки в отчет о работе или научную статью.

Для этих в Mathematica предусмотрено много возможностей. Рассмотрим некоторые из них.

Создание графического объекта для последующего экспорта

Начнем с того, что создадим, собственно, некоторый динамический манипулятор, который будет представлять собой по сути то, что мы получим на выходе в виде, скажем, GIF-анимации (видео или набора картинок).

Построим некоторую поверхность, задаваемую, например, функцией f(x, y) = e^(-x/2 - y/2) cos(x^2 + y^2) на множестве x∈[-1.5; 2], y∈[-1.5; 2]. Для этого воспользуемся функцией Plot3D:

In[1]:=

Plot3D[Cos[x^2 + y^2] E^(-x/2 - y/2), {x, -1.5, 2}, {y, -1.5, 2}]

Out[1]=