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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

Out[ ]=
{{x -> -1.21388 - 0.924188 I}, {x -> -1.21388 +
0.924188 I},
{x->0.508469 -1.36862 I}, {x->0.508469 +1.36862 I},
{x ->1.41081}}
LjZgkp_g^_glgu_ mjZ\g_gby j_rZxl/ aZ^Z\Zy gZqZevgh_ ijb[eb`_gb_ d
dhjgx1
In[ ]:=
FindRoot [Cos[x] == 2
∗
∗∗
∗
x; {x,0}]
Out[ ]=
{x -> 0.450184}
Fh`gh j_rZlv kbkl_fu mjZ\g_gbc=
In[ ]:=
Solve [{a*x +b*y == g, c*x + d*y == h} ,{x,y}]
Out[ ]=
g b (c g - a h) c g - a h
{{x -> - + --------------, y -> -( ------------ ) }
a a (-(b c) + a d) -(b c) + a d
b
In[ ]:=
FindRoot [{ x + y == Sin[x], x - y == Cos[x],
{x,0}, {y,0}]
Out[ ]=
{x -> 0.704812, y -> -0.0569214}
Kbkl_fZ
0DWKHPDWLFD
iha\hey_l j_rZlv ^bnn_j_gpbZevgu_ mjZ\g_gby b bo
kbkl_fu=
In[ ]:=
DSolve [y''[x] - 2y'[x] + 1 == 0, y[x], x]
x 2 x
Out[ ] =
{{y[x] -> - + C[1] + E C[2]}}
2
J_r_gb_ kh^_j`bl ijha\hevgu_ ihklhyggu_ K>4@ b &>5@1
Fh`gh gZclb qbke_ggh_ j_r_gb_ aZ^Zqb Dhrb ^ey ^bnn_j_gpbZevguo
mjZ\g_gbc beb bo kbkl_f=
In[ ]:=
NDSolve[{x'[t]==-y[t]-x[t],y'[t]==2x[t]-
y[t],x[0]==1,y[0]==-1},{x[t],y[t]},{t,0,10}]
Out[ ]=
{{x[t] ->
InterpolatingFunction[{0., 10.},<>][t],
y[t] -> InterpolatingFunction[{0., 10.}, <>][t]}}
In[ ]:=
Plot[Evaluate[{x[t],y[t]}/.%],{t,0,10},
PlotRange->All] 
Out[ ]= {{x -> -1.21388 - 0.924188 I}, {x -> -1.21388 +
0.924188 I},
{x->0.508469 -1.36862 I}, {x->0.508469 +1.36862 I},
{x ->1.41081}}

��������������� ��������� ������� ������� ��������� ����������� �
������
In[ ]:= FindRoot [Cos[x] == 2∗ x; {x,0}]
Out[ ]= {x -> 0.450184}


����� ������ ������� ����������
In[ ]:= Solve [{a*x +b*y == g, c*x + d*y == h} ,{x,y}]

Out[ ]=
          g       b (c g - a h)           c g - a h
{{x ->    -   +   --------------, y -> -( ------------ ) }
          a       a (-(b c) + a d)       -(b c) + a d
�
In[ ]:= FindRoot [{ x + y == Sin[x], x - y == Cos[x],
{x,0}, {y,0}]
Out[ ]= {x -> 0.704812, y -> -0.0569214}

������� ����������� ��������� ������ ���������������� ��������� � ��
��������
In[ ]:= DSolve [y''[x] - 2y'[x] + 1 == 0, y[x], x]

                       x              2 x
Out[ ] = {{y[x] -> - + C[1] + E               C[2]}}
                       2
������� �������� ����������� ���������� ���� � �����

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

In[ ]:=
NDSolve[{x'[t]==-y[t]-x[t],y'[t]==2x[t]-
y[t],x[0]==1,y[0]==-1},{x[t],y[t]},{t,0,10}]
Out[ ]={{x[t] ->
         InterpolatingFunction[{0., 10.},<>][t],
 y[t] -> InterpolatingFunction[{0., 10.}, <>][t]}}
In[ ]:= Plot[Evaluate[{x[t],y[t]}/.%],{t,0,10},
        PlotRange->All]

Страницы