Быстрое введение в систему Mathematica. Ч.1. Израилевич Я.А - 26 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

Out[16]= -
X
In[17]:= Unprotect[Integrate]
Out[17]= {Integrate}
In[18]:= Integrate[ln[x_],x_]:=x ln[x]-x
In[19]:= Protect[Integrate]
Out[19]= {Integrate}
In[20]:= Integrate[ t+2ln[t],t]
2
t
Out[20]=- + 2 (-t + t ln[t])
2
ohly b ihke_ wlh]h g_dhlhju_ ijh[e_fu hklZgmlky/ gZijbf_j/ k
bgl_]jbjh\Zgb_f=
In[20]:= Integrate[2t*ln[t],t]
Out[20]= 2 Integrate[t ln[t], t]
+bo fh`gh meZ^blv/ hij_^_eb\ k\hx nmgdpbx bgl_]jbjh\Zgby,1
>ey l_o/ dlh ijb\ud d ijhp_^mjghfm ijh]jZffbjh\Zgbx b g_ ohq_l hl
g_]h hldZau\Zlvky/ \kbkl_f_
³0DWKHPDWLFD´
ij_^hklZ\e_gu rbjhdb_
\hafh`ghklb1 Wlh ± dhfZg^u
,I/ :KLFK/ 'R/ :KLOH/ )RU/ 0RGXOH/ %ORFN
b
^jm]b_1
<hl ijb\uqgh_ hij_^_e_gb_ djhg_d_jh\kdhc ^_evlu =
In[1]:=
delta3[i_Integer,j_Integer]:=If[i==j,1,0]
In[2]:= {delta3[2,3], delta3[3,3],
delta3[2.0,3]}
Out[2]= {0,1,delta3[2., 3}]
: \hl \uqbke_gb_ nZdlhjbZeZ=
In[3]:= fact[n_Integer]:=
Module[{s},If[n>=0,s:=1;Do[s=s*i,{i,n}];s,
Print["n<0"]]]
In[4]:=
{fact[3],fact[4],fact[0],fact[3.0],fact[-2]}
n<0
Out[5]= {6, 24, 1, fact[3.], Null}
Dhg_qgh `_/ \k_ klbeb ijh]jZffbjh\Zgby \aZbfgh ijhgbdZxl b
\aZbfh^_ckl\mxl> khhl\_lkl\_ggh/ gZb[he__ wnn_dlb\guf ^ey \Zk y\ey_lky
Out[16]= -
            X
In[17]:= Unprotect[Integrate]
Out[17]= {Integrate}
In[18]:= Integrate[ln[x_],x_]:=x ln[x]-x
In[19]:= Protect[Integrate]
Out[19]= {Integrate}
In[20]:= Integrate[ t+2ln[t],t]
            2
          t
Out[20]=- + 2 (-t + t ln[t])
          2
���� � ����� ����� ��������� �������� ���������� ���������           �
����������������
In[20]:= Integrate[2t*ln[t],t]
Out[20]= 2 Integrate[t ln[t], t]
��� ����� �������� ��������� ���� ������� ����������������

     ��� ���� ��� ������ � ������������ ���������������� � �� ����� ��
���� ������������� � ������� �������������      ������������� �������
������������ ��� � ������� ��� ������ ��� ������ ���� ������� ����� �
�������
     ��� ��������� ����������� �������������� �������
In[1]:=
delta3[i_Integer,j_Integer]:=If[i==j,1,0]

In[2]:= {delta3[2,3], delta3[3,3],
delta3[2.0,3]}
Out[2]= {0,1,delta3[2., 3}]




    � ��� ���������� �����������
In[3]:= fact[n_Integer]:=
Module[{s},If[n>=0,s:=1;Do[s=s*i,{i,n}];s,
                      Print["n<0"]]]

In[4]:=
{fact[3],fact[4],fact[0],fact[3.0],fact[-2]}

    n<0
Out[5]= {6, 24, 1, fact[3.], Null}

     ������� ��� ��� ����� ���������������� ������� ��������� �
���������������� ��������������� �������� ����������� ��� ��� ��������

Страницы