LINUX.ORG.RU

WolframAlpha для решения уравнений кто-нибудь разбирается? Или другой софт.

 


1

2

Как сделать, что бы WolframAlpha посчитал уравнение вида:

sum( (y-(k*x+z))^2 ) d/dk = 0
, где x,y,z - элементы множеств, и требуется найти k в точке где его производная равна нулю.

Вот такая штука не прошла,

solve[D[ sum[ (y[t] - (x[t]*k + z[t]*(1-k)) )^2, {t,n} ], k] = 0, k]
говорит all values of k are solutions.

Пришлось на бумажке считать. Или может другой есть бесплатный софт, желательно под Ubuntu, в котором удобно было бы считать сложные выражения, даже если сам не знаешь как они считаются?



Последнее исправление: victor79 (всего исправлений: 1)

Ответ на: комментарий от DELIRIUM

А как не Maxima посчитать указанное выражение, я туда на вскидку внес:

solve([diff(∑(y-(k*x+z))^2,k,1)=0], [k]);
но что то не вижу что бы посчиталось решение.

victor79
() автор топика
Ответ на: комментарий от victor79

там решение д.б. такое:

k = sum(x*y - x*z) / sum( x^2 )

victor79
() автор топика
Ответ на: комментарий от victor79

Я не в курсе, я не гуру maxima, просто знаю, что она есть и заточена под символьные вычисления. Поделился этим сакральным знанием =)

DELIRIUM ☆☆☆☆☆
()

Wolfram alpha

linear fit {1.3, 2.2},{2.1, 5.8},{3.7, 10.2},{4.2, 11.8}
aquadon ★★★★★
()
Последнее исправление: aquadon (всего исправлений: 1)

У меня работает

n = 2;
x[t_] = t;
y[t_] = 2 t;
z[t_] = 5 t;
Solve[D[Sum[(y[t] - (x[t]*k + z[t]*(1 - k)))^2, {t, n}], k] == 0, k]

{{k -> 3/4}}
Zodd ★★★★★
()
Ответ на: комментарий от aquadon

вот это у тебя голова, я и не разглядел сразу

ZERG ★★★★★
()
Ответ на: комментарий от Zodd

Так у него не функции, а набор точек

ZERG ★★★★★
()

Можешь сходить купить на рутрекер Wolfram Mathematica, Matlab или Maple.

Hartmann
()
Ответ на: комментарий от Zodd

ответ д.б. такой:

k = sum(x*y - x*z) / sum( x^2 )
что является решением этого уравнения. Я хочу заставить выводить его формулы, что бы потом эти формулы вбивать в свою программу.

victor79
() автор топика
Ответ на: комментарий от victor79

Напиши понятнее что ты хочешь получить. Что такое x,y,z. Какое уравнение ты хочешь решить из заглавного поста не понятно.

Zodd ★★★★★
()
Ответ на: комментарий от Zodd

Вот так?

n = 3;
X = Array[x, n];
Y = Array[y, n];
Z = Array[z, n];
Solve[D[Sum[(y[t] - (x[t]*k + z[t]*(1 - k)))^2, {t, n}], k] == 0]

res:
{{y[3] -> (1/(
   x[3] - z[3]))(k x[1]^2 + k x[2]^2 + k x[3]^2 - x[1] y[1] - 
     x[2] y[2] + x[1] z[1] - 2 k x[1] z[1] + y[1] z[1] - z[1]^2 + 
     k z[1]^2 + x[2] z[2] - 2 k x[2] z[2] + y[2] z[2] - z[2]^2 + 
     k z[2]^2 + x[3] z[3] - 2 k x[3] z[3] - z[3]^2 + k z[3]^2)}, {x[
    3] -> z[3], 
  y[2] -> (1/(
   x[2] - z[2]))(k x[1]^2 + k x[2]^2 - x[1] y[1] + x[1] z[1] - 
     2 k x[1] z[1] + y[1] z[1] - z[1]^2 + k z[1]^2 + x[2] z[2] - 
     2 k x[2] z[2] - z[2]^2 + k z[2]^2)}, {x[1] -> z[1], x[2] -> z[2],
   x[3] -> z[3]}, {x[2] -> z[2], x[3] -> z[3], 
  y[1] -> k x[1] + z[1] - k z[1]}}
Zodd ★★★★★
()
Последнее исправление: Zodd (всего исправлений: 1)
Ответ на: комментарий от Zodd

Нет не так, нужно найти выражение которое находит значение k в точке, где производная по k равна нулю. k=fn(x,y,z). Я уже пару раз здесь написал решение. Вопросик, а как задавать в WolphramAlpha несколько строк через тчк-запятую? На сайте не дает, может это через другой софт?

victor79
() автор топика
Ответ на: комментарий от victor79

Возьми триал на две недели на левый email, в чём проблема-то

ZERG ★★★★★
()
Ответ на: комментарий от victor79

У вас проблема с постановкой задачи. Напишите какие у вас функции и по какой переменной вы берете производную. Пока что ваши записи не корректны. Например, в функции есть параметр к или нет?

Вопросик, а как задавать в WolphramAlpha несколько строк через тчк-запятую? На сайте не дает, может это через другой софт?

Пишите все в одной строке через точку с запятой

Zodd ★★★★★
()
1 мая 2020 г.
Ответ на: комментарий от DELIRIUM

Maxima интересная прога, даже комплексные числа знает, только процесс решения не показывает.

anonymous
()
Ответ на: комментарий от anonymous

А ведь для школьников это важнее ответа. Помню мне поставили двойку за неправильный метод.

anonymous
()
Ответ на: комментарий от anonymous

Кстати, говорят, американцы решают квадратные уравнения совсем по другому. Гораздо более сложным способом, но зато логичным. Кто-то на лоре показывал скан их учебника.

anonymous
()
Ответ на: комментарий от anonymous

Дополнением до квадрата? Не могу себе представить более «логичного» способа, хотя назвать его «сложнее» тоже язык не поворачивается

unanimous ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.