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

volmike
Ср дек 18, 2013 9:15 pm
Форум: Mathсad
Тема: какими способами можно решить задачу в Mathcad
Ответы: 13
Просмотры: 5129

Встроенными средствами Mathcad такую задачу, скорей всего, не решить. Тут нужна более мощная CAS (Mathematica,Maple...)
Ответ к задаче:

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

Sqrt[3/2] <= r <= 3 || 29/8 <= r <= 10
volmike
Вс ноя 10, 2013 4:40 am
Форум: Общие вопросы математики
Тема: Excel - преобразовать в число
Ответы: 5
Просмотры: 3455

А вот достаточно компактное решение в Mathematica:

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

s = "30-40";
Mean@(ToExpression /@ StringSplit[s, "-"])
volmike
Ср авг 21, 2013 7:58 pm
Форум: Mathematica
Тема: Подстановка переменной в функцию
Ответы: 1
Просмотры: 2459

Можно использовать подстановку, не изменяющую функцию f:
g=f/.x[3]->5.
Можно также задать функцию с параметрами
f[x1_,x2_,x3_,x4_,x5_]:={x3 + x4, x4 + x5, x3, x4, x5} и получить необходимый результат посредством
вызова f[x1,x2,5,x4,x5].
volmike
Пн июл 08, 2013 8:11 am
Форум: Mathematica
Тема: ArcTan
Ответы: 3
Просмотры: 3435

Все-таки можно заставить Mathematica подтвердить это тождество? Если да, то как?
volmike
Вт фев 12, 2013 12:05 am
Форум: Maple
Тема: Проверка разложения на множители
Ответы: 3
Просмотры: 2073

Можно использовать команду factors - она вычисляет список множителей разложения с их степенями.
volmike
Пт дек 28, 2012 9:51 am
Форум: Mathematica
Тема: не упрощается выражение
Ответы: 2
Просмотры: 2433

В Simplify можно добавить условия неотрицательности всех подкоренных выражений, тогда исходная дробь упрощается до 1: Simplify[(Sqrt[-t+Sqrt[t^2+x^2+y^2+z^2]] Sqrt[t+Sqrt[t^2+x^2+y^2+z^2]])/Sqrt[x^2+y^2+z^2],-t+Sqrt[t^2+x^2+y^2+z^2]>=0 &&t+Sqrt[t^2+x^2+y^2+z^2]>=0&&x^2+y^2+z^...
volmike
Вт дек 25, 2012 1:13 pm
Форум: Mathсad
Тема: Задача по Mathcad
Ответы: 2
Просмотры: 1980

У задачи есть и точное решение: 1/2*(-1+sin(Pi/180)).
volmike
Чт дек 06, 2012 4:25 pm
Форум: Maple
Тема: Представление числа суммой слагаемых
Ответы: 8
Просмотры: 3169

Эта сумма имеет аналитическое представление: sum((2*n-1)^3,n=1...k)=2*k^4-k^2. Поэтому для нахождения необходимого представления числа с достаточно решить биквадратное уравнение 2*k^4-k^2=с относительно k, при необходимости взяв целую часть от решения,при этом решению будет удовлетворять только одно...
volmike
Ср окт 17, 2012 1:01 pm
Форум: Mathematica
Тема: Упрощение логического выражения теории чисел в Mathematica
Ответы: 0
Просмотры: 1851

Упрощение логического выражения теории чисел в Mathematica

Очевидно, что для любого целого положительного n и простого p верно GCD[ n , p ]=1|| p . Пытаюсь получить это тождество в Mathematica 8.0.4: FullSimplify[GCD[n, p], Element[n, Integers] && n > 0 && Element[p, Primes]] - упрощение не происходит. Есть предположение, как заставить Mathe...
volmike
Вт апр 03, 2012 4:50 pm
Форум: Mathematica
Тема: новичковский вопрос: как посчитать Xor
Ответы: 1
Просмотры: 2337

Вместо Xor использовать BitXor.
volmike
Вт мар 27, 2012 12:42 pm
Форум: Mathematica
Тема: Функция проверки вложенности одного множества в другое.
Ответы: 1
Просмотры: 2211

Функция проверки вложенности одного множества в другое.

Добрый день!
Существует ли функция в Mathematica, позволяющая проверить вложенность одного одноуровневого множества (A) в другое (B)? Использую конструкцию Union[B,A]==B,но хотелось бы найти что-нибудь поизящней.
volmike
Пн мар 26, 2012 2:08 pm
Форум: Mathematica
Тема: Уравнение с неизвестной функцией
Ответы: 12
Просмотры: 5638

Спасибо огромное, вы мне очень помогли :) Возник еще вопрос=) В каком виде выводится результат, я так понимаю, зависит от функции Partition, то есть в данном случае по три элемента {{a,b,c}, {d,e,h}} Можно ли сделать так чтоб выводилось следующим образом {{{a,b},c}, {{d,e},h}} Посмотрела хелп, но т...
volmike
Сб мар 24, 2012 12:12 am
Форум: Mathematica
Тема: Уравнение с неизвестной функцией
Ответы: 12
Просмотры: 5638

Это понимаю ) Пробовала разные варианты, но не доходит до меня куда дописывать( g[x_, y_] := {x, y, #} & /@ (f /. NSolve[(0.5^2/(1 - 3*f)^2)^(1/3)*(-x/1.1*(1 - 3*f)/f + y/3.418*0.5^2/f^2) == 1, f]); x = Table[i, {i, 0, 1, 0.1}]...
volmike
Пт мар 23, 2012 4:42 pm
Форум: Mathematica
Тема: Уравнение с неизвестной функцией
Ответы: 12
Просмотры: 5638

Добавьте еще один select с выборкой троек с последним положительным элементом. По аналогии с предыдущим моим кодом.
volmike
Пт мар 23, 2012 2:15 pm
Форум: Mathematica
Тема: Уравнение с неизвестной функцией
Ответы: 12
Просмотры: 5638

Спасибо большое!:) Скажите, а можно ли сделать так, чтоб выводились только действительные значения? Из решения выбираем лишь те тройки чисел, у которых последний элемент вещественное число. g[x_, y_] := {x, y, #} & /@ (f /. NSolve[(0.5^2/(1 - 3*f)^2)^(1/3)*...