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