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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

:gbfZpby b a\md
Djhf_ klZlbq_kdbo ]jZnbq_kdbo bah[jZ`_gbc
³0DWKHPDWLFD´
fh`_l lZd`_
ijhba\h^blv ZgbfZpbx1 :gbfZpby ihemqZ_lky ba ihke_^h\Zl_evghklb dZ^jh\
iml_f bo [ukljhc ijhdjmldb1 DZ`^uc dZ^j ± wlh ]jZnbq_kdh_ bah[jZ`_gb_ /
dhlhjh_ fh`_l [ulv ihemq_gh ijb ihfhsb ]jZnbq_kdbo nmgdpbc iZd_lZ
³0DWKHPDWLFD´
1
< bgl_jn_ck_
³0DWKHPDWLFD´
^ey :LQGRZV ZgbfZpby ^_eZ_lky lZd= jZaf_klbl_
dZ^ju \ ihke_^h\Zl_evghklb yq__d/ aZl_f \u^_ebl_ yq_cdb b aZimklbl_
ZgbfZpbx k ihfhsvx dhf[bgZpbb deZ\br &WUO.<1
Dh]^Z \u \\h^bl_ ihke_^h\Zl_evghklv dZ^jh\ ^ey ZgbfZpbb/ \Z`gh/ qlh[u
dZ^ju [ueb kh\f_klbfufb1 >ey wlh]h/ gZijbf_j/ ke_^m_l mdZau\Zlv y\gu_
agZq_gby ^ey hipbb
3ORW5DQJH
\f_klh agZq_gby ih mfheqZgbx
$XWRPDWLF
/
qlh[u fZkrlZ[ \ jZaguo dZ^jZo [ue h^bgZdh\uf1
Ijbf_j ihke_^h\Zl_evghklb dZ^jh\ ^ey ZgbfZpbb
In[]:=
Do [Plot3D[Sin[c*2Pi+Sqrt[x^2+y^2]], {x,-Pi,Pi},{y,-
Pi,Pi},PlotPoints->30,
PlotRange-> {Automatic,Automatic, {-1,1}}],{c,0,1,0.1}]
i_j\uc dZ^j ihke_^h\Zl_evghklb
Qlh[u ihemqblv \
³0DWKHPDWLFD´
a\md/ h[uqgh bkihevamxl dhfZg^m
3OD\
1
DhfZg^Z
3OD\>I>W@/ ^W/ WPLQ/ WPD[`@
\u^Z_l a\md/ Zfieblm^Z dhlhjh]h
hij_^_ey_lky dZd nmgdpby I \j_f_gb W \ k_dmg^Zo hl
WPLQ
^h
WPD[
1
Ijhba\_^_f ]Zjfhgbdm qZklhlu 4333 =p ^ebl_evghklvx \ h^gm k_dmg^m1
In[]:=
Play[Sin[2 Pi 1000 t], {t, 0, 1}]
Out[]=
-Sound-
                          �������� � ����

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

������ ������������������ ������ ��� ��������
In[]:=
Do [Plot3D[Sin[c*2Pi+Sqrt[x^2+y^2]], {x,-Pi,Pi},{y,-
Pi,Pi},PlotPoints->30,
PlotRange-> {Automatic,Automatic, {-1,1}}],{c,0,1,0.1}]




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




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

���������� ��������� ������� ���� �� ������������� � ���� ��������
In[]:=
     Play[Sin[2 Pi 1000 t], {t, 0, 1}]
Out[]=
     -Sound-

Страницы