Иллюстрированный самоучитель по Mathematica



              

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


С помощью директивы Notebook [...] можно создать документ-«блокнот». Ниже представлен такой документ, создающий палитру из нескольких простых функций.

Notebook[{

Cell[BoxData[GridBox[{{

ButtonBox[\(Create\ a\ New\ Notebook\), ButtonFunction:>CompoundExpression[ Needs[ "Graphics"Graphics*"] , Needs[ "Graphics'Colors' "], Clear[ targetNB], Set[ targetNB,

NotebookCreate[ ] ] ] , ButtonEvaluator->Automatic]}, {ButtonBox[\(f[x_] := \)]},

{ButtonBox[\(Apply\ DefinitionX),

ButtonFunction:>CompoundExpression[ NotebookWrite[ targetNB, Cell[

BoxData[

FractionBox[ RowBox[ {

RowBox[ {"f", "[", "x", "]"}]/ "-", RowBox[ {"f", "[", "a", "]"}]}], RowBox[ {"x", "-", "a"}]]],

"Input"], All],

SelectionEvaluateCreateCell[ targetNB]], ButtonEvaluator->Automatic]},

{ButtonBox[\(Cancel[\[SelectionPlaceholder]]\)]}, {ButtonBox[\(Limit[\[SelectionPlaceholder] , x -> a]\)]}, {ButtonBox[\(DisplayX TogetherX),

ButtonFunction:>CompoundExpression[ NotebookWrite[ targetNB, Cell[

BoxData[

RowBox [ {

RowBox[ {"DisplayTogether", "[", "\n", "\t'V

RowBox[ {RowBox[ {"Plot", "[",

RowBox[ {RowBox[ {"f", "[", "x", "]"}], ",",

RowBox[ {"{", RowBox[ {"x", ",",

RowBox[ {"-", "5"}], ",", "5"}], "}"}],",",

RowBox[ {"PlotStyle", "->",

RowBox[ {"{", "Orange", "}"}]}]}], "]"]],

RowBox[ {"Plot", "[",

RowBox[ {"\[Placeholder]", ",",

RowBox[ {"{",

RowBox[ {"a", ",",

D/-M7i2^vr ;» "» "5"}] " , " , "5"}] '} " } ] , " , " KOWBOX [1~л -3)J, ,, Э ] \ , s ) J , ,,




Содержание  Назад  Вперед