|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Mikhail Kostousov 2:5020/400 18 Jun 2004 00:53:34
To : Alexander Drozdov
Subject : Re: Математика
--------------------------------------------------------------------------------
Alexander Drozdov wrote:
> #!/bin/bash
> echo "Hello Mikhail"; cat << _EOF_
>
> 16 июн 04 21:03, Mikhail Kostousov писал([ao]) Alexander Drozdov:
>
> MK> Вопрос уже не столько по конфе, сколько по предмету обсуждения.
> MK> Возможны ли в mupad, или scilab или в maxima такие вещи, как
> MK> подстановки ":>"?
>
> ты скажи что эта подстановка делает... а потом может и ответят --- можно или
> нет, сделать такое в scilab (а он вообше вроде с численной математики), mupad,
> maxima
>
> _EOF_
> echo "Да не завалят тебя горы спама, Mikhail!"
>
Подстановка позволяет заменить одно выражение на другое в процессе
обработки функции, причем замена может зависить от параметров функции, а
также количество таких замен тоже могут зависить от параметра функции.
Это полезно например при рисовании фракталов: пример из Mathematica
<< Graphics`Graphics`
\!\(\(doLine[start_, finish_] :=
Module[{vec, norm}, vec = finish - start;
norm = Reverse[vec] {\(-1\), 1}
1\/\(2 \@ 3\); {Line[{start, start + vec\/3}],
Line[{start + vec\/3, start + vec\/2 + norm}],
Line[{start + vec\/2 + norm, start + 2 vec\/3}],
Line[{start + 2 vec\/3, finish}]}];\)\)
\!\(Snowflake[n_Integer?NonNegative] :=
Show[Graphics[
Nest[\((# /.
Line[{start_, finish_}] :>
doLine[start, finish])\) &, {Line[{{0,
0}, {1\/2, \@3\/2}}], Line[{{1\/2, \@3\/2}, {1, 0}}],
Line[{{1, 0}, {0, 0}}]}, n]], AspectRatio \[Rule] Automatic,
PlotRange \[Rule] All]\)
Snowflake[4]
--
С уважением, Михаил Костоусов
--
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
