karl_karlsson
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Только число обращении к к Alpha из Mathematica ограничено:
Цитата: The WolframAlpha function is limited to
1000 API calls per day for professional Premier Service subscribers,
500 API calls per day for student and classroom Premier Service subscribers,
100 API calls per day for all other users, unless an API upgrade is purchased. |
panda3
Цитата:| Вообще, Wolfram Alpha и Mathematica никак не связаны. |
Wolfram Alpha это по сути обычное приложение работающее поверх обычной Математики.
Код там такой же, ну и саму Математику уже на языке самой Математики и пишут.
Поэтому и объем ее так быстро возрастает, ну и число ошибок соответственно.
Если в базовой функции ошибка, то потом как ее вызывают на более высоком уровне, та же ошибка распространяется.
Дальше, у Альфы кроме кода еще имеется и база данных.
Многое чего она и не вычисляет, но берет из базы.
Как бы еще имеется некий алгоритм самопополнения, ну и еще там где виден спрос ее вручную пополняют.
Когда то, где то на рутрекере обсуждали, хотя возможно это обсуждение уже удалено.
Примерно 5-6 лет назад объем этой базы составлял порядка 150 ГБ.
Сейчас там возможно уже терабайты.
Была доступна в качестве беты, потом на коммерческой основы, потом я уже и не смотрел.
Стоила дорого, хотя это совсем не самое главное - Альфа очень ресурсоемкая.
Под нее требуется серьезный кластер.
tim9867
Цитата: Единственно, что не очень устраивает, что сразу выдается посчитанный коэффициент.
Ну т.е. вместо 1/ln1.4 сразу пишет 2.972....
А можно избежать такого сокращения записи? |
Математика устроена так, что увидев десятичную точку "." она сразу все вычисляет как бы у вас N[] выполняется. Посмотрите Help насчет N[].
Поэтому вводим например:
Код:| InverseFunction[(14/10)^# &] |
И вот Математика выдает:
Код:
Цитата: Хотя с WolframAlfa["solve sin(x)-cos(y)+log(y)=0"]
такой фокус не прокатил. Никак WM на такую команду не среагировала. |
Ну потому что у вас имеется "Alfa", а вот надо "Alpha".
Цитата: Но для поиска и отрисовки обратной функции никакого "Open code" в ответе онлайн нет.
Какие команды на самом деле выдают ответ - непонятно. |
А вот график обратной функции рисуется очень легко.
Вот график прямой функции:
Код: ContourPlot[
Cos[y] == Log[y] + Sin[x], {x, -5.6, 2.7}, {y, -0.79, 7.3}] |
Меняем местами x и y, получаем график обратной функции:
Код: ContourPlot[
Cos[x] == Log[x] + Sin[y], {x, -0.79, 7.3}, {y, -5.6, 2.7}] |
Вот например так будут видны оба графика, еще линия их симметрии, график функции y == x
Код: Show[ContourPlot[x == y, {x, -7.3, 7.3}, {y, -7.3, 7.3}],
ContourPlot[
Cos[y] == Log[y] + Sin[x], {x, -5.6, 2.7}, {y, -0.79, 7.3}],
ContourPlot[
Cos[x] == Log[x] + Sin[y], {x, -0.79, 7.3}, {y, -5.6, 2.7}]] |
|
