Найдено 32 результата

dims12
Пн май 09, 2011 2:08 pm
Форум: Mathematica
Тема: неправильно считается интеграл
Ответы: 4
Просмотры: 3451

А откуда известно, каков правильный ответ?
dims12
Пн май 09, 2011 10:34 am
Форум: Mathematica
Тема: Одна и та же ошибка и в Mathematica 7, и в Maple 11
Ответы: 9
Просмотры: 8187

Это происходит от того, что Математика автоматически преобразует выражение, с которым Вы оперируете. Степень в знаменателе она представляет, как отрицательную степень: In[58]:= 1/f[t]^3 // FullForm Out[58]//FullForm= Power[f[t],-3] В этом выражении, как видите, не присутствует того элемента, который...
dims12
Ср дек 22, 2010 8:17 pm
Форум: Mathematica
Тема: Почему окружность становится эллипсом?
Ответы: 0
Просмотры: 1564

Почему окружность становится эллипсом?

Пытаюсь нарисовать динамический рисунок с одновременной выдачей численной информацией и получаю круг, которые "плохо себя ведёт" -- иногда, при отпускании мышки, становится эллипсом. Искажение не затрагивает линии и локатора. Почему так, не пойму? Если круг сам по себе, а не внутри списка,...
dims12
Вт ноя 02, 2010 11:34 pm
Форум: Mathematica
Тема: Можно ли создавать свои графические примитивы?
Ответы: 3
Просмотры: 2391

Нет, это не подходит, потому что так -- голова меняется (с FigureOfMyOwn на Circle), а мне надо, чтобы голова не менялась, я хочу анализировать её.
dims12
Пн ноя 01, 2010 12:29 pm
Форум: Mathematica
Тема: Можно ли создавать свои графические примитивы?
Ответы: 3
Просмотры: 2391

Можно ли создавать свои графические примитивы?

Я хочу создать свою фигуру FigureOfMyOwn, которая бы рисовалась функцией Graphics и вела себя так же, как такие функции, как Circle или Line, то есть, чтобы они не преобразовывались автоматически во что-то другое при вычислении. То есть, мне не подходит определить FigureOfMyOwn как функцию, которая ...
dims12
Пн ноя 01, 2010 12:23 pm
Форум: Mathematica
Тема: В каком порядке проверяются глобальные определения функций?
Ответы: 2
Просмотры: 2120

Понятно что можно задать не пересекающиеся условия. Вопрос в том, что делать если они пересекаются и хочешь сам контролировать порядок. Ясно, что писать программу, но я не знал как в программе сделать отсутствие определения. Пока что нашёл функцию Defer: F[x_] := If[x < 2, 2, If[x > 3, 10, Defer[F[x...
dims12
Вс окт 31, 2010 8:23 pm
Форум: Mathematica
Тема: В каком порядке проверяются глобальные определения функций?
Ответы: 2
Просмотры: 2120

В каком порядке проверяются глобальные определения функций?

Например: In[111]:= F[x_] := 2 /; x < 3 In[112]:= F[x_] := 10 /; x > 2 In[113]:= F[1] Out[113]= 2 In[114]:= F[2] Out[114]= 2 In[115]:= F[3] Out[115]= 10 Почему в последнем случае выполняется последнее правило? Просто потому, что оно последнее? Или это непредсказуемо? Как мне взять это под контроль п...
dims12
Пт апр 30, 2010 3:12 pm
Форум: Mathematica
Тема: золотое сечение
Ответы: 1
Просмотры: 1837

Конечно есть, он так и называется, While.

Только учтите, что "программой" является любое выражение (можно в круглых скобках), разделённое точкой с запятой.

While[условие, программа]

например

n=0;
While[n<10, оператор1; оператор2; ...; n=n+1];
dims12
Вт апр 27, 2010 12:46 pm
Форум: Mathematica
Тема: Почему не работает Return?
Ответы: 0
Просмотры: 1710

Почему не работает Return?

Написал функцию для проверки, не пересекаются ли списки, вот так: Intersects[x_List, y_List] := (Do[(Print["Outer step ", xi]; Do[(Print[xi, yi]; If[xi == yi, (Print["Returning True"]; Return[True])]), {yi, y}]), {xi, x}]; False)...
dims12
Вт апр 27, 2010 12:07 pm
Форум: Mathematica
Тема: Можно ли определить свой формат?
Ответы: 2
Просмотры: 2252

Я сделал так (работает):

Код: Выделить всё

In[1]:= Format[M[x___]] := {{x}}

In[2]:= M[a, b, c, d]

Out[2]= {{a, b, c, d}}
[/code]
dims12
Вт апр 27, 2010 12:00 pm
Форум: Mathematica
Тема: Как определить операции наивной теории множеств?
Ответы: 4
Просмотры: 2993

Gordon писал(а):Зачем рекурсия?

Я хочу получить объект типа "множество" и работать с ним, как с объектом.
dims12
Пн апр 26, 2010 8:49 pm
Форум: Mathematica
Тема: Можно ли определить свой формат?
Ответы: 2
Просмотры: 2252

Можно ли определить свой формат?

Допустим, я хочу, чтобы списки с головой Multiplicity отображались в виде {{....}}

Можно ли это сделать?
dims12
Пн апр 26, 2010 8:09 pm
Форум: Mathematica
Тема: Как определить операции наивной теории множеств?
Ответы: 4
Просмотры: 2993

Вот так получилось:

M[x___] := (Union[{x}] /. List -> M) /; HasDuplicates[x]
dims12
Пн апр 26, 2010 8:04 pm
Форум: Mathematica
Тема: Как определить операции наивной теории множеств?
Ответы: 4
Просмотры: 2993

Непонятно, как прервать рекурсию?

Допустим, я вношу определение

M[x___] := If[HasDuplicates[x], (Union[{x}] /. List -> M), M[x]]

пытаюсь вычислить -- получаю превышение предела рекурсси.

Как мне её прервать?