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

hirnyk
Ср окт 26, 2011 9:39 pm
Форум: Maple
Тема: Составить уравнение
Ответы: 8
Просмотры: 2743

sol := SolveTools[PolynomialSystem]({x[1]*x[2]*x[3] = -c, x[1]+x[2]+x[3] = -a, x[1]*x[3]+x[1]*x[2]+x[2]*x[3] = b}, {x[1], x[2], x[3]}):
simplify((x-rhs(sol[1])^3)*(x-rhs(sol[2])^3)*(x-rhs(sol[3])^3)):
collect(%, x) = 0;

x^3+(-3*b*a+3*c+a^3)*x^2+(-3*b*a*c+3*c^2+b^3)*x+c^3 = 0
hirnyk
Пн окт 24, 2011 5:51 pm
Форум: Maple
Тема: Как быстро отбросить цифры?
Ответы: 8
Просмотры: 2509

renuar911 писал(а):Надо же! Чудеса, да и только! :)
Результаты в виде строковых переменных или же это числа?
У меня - число:
restart;
L := convert(2561486, string):
with(StringTools):
parse(SubString(L, Length(L)-1 .. Length(L)))

86
%^2
7396
hirnyk
Пн окт 24, 2011 1:25 pm
Форум: Maple
Тема: Как быстро отбросить цифры?
Ответы: 8
Просмотры: 2509

L := convert(2561486, string);
parse(StringTools[SubString](L, Length(L)-1 .. Length(L)));

86
100*frac(2561048601/100)
1
L := convert(2561048601, string);
parse(StringTools[SubString](L, Length(L)-1 .. Length(L)));

01
hirnyk
Вс окт 23, 2011 10:28 am
Форум: Maple
Тема: Не могу сделать проще это дело
Ответы: 26
Просмотры: 6790

with(RealDomain):
is(((t^5+2*t^4+4*t^3)/(4-4*t+t^2))^(1/3)=(t^3)^(1/3)*(t^2+2*t+4)^(1/3)*(1/((t-2)^2))^(1/3));

false
hirnyk
Вс окт 23, 2011 8:57 am
Форум: Maple
Тема: Не могу сделать проще это дело
Ответы: 26
Просмотры: 6790

with(RealDomain):
testeq(((t^5+2*t^4+4*t^3)/(4-4*t+t^2))^(1/3)=(t^3)^(1/3)*(t^2+2*t+4)^(1/3)*(1/((t-2)^2))^(1/3));

FAIL
hirnyk
Сб окт 22, 2011 3:27 pm
Форум: Maple
Тема: Не могу сделать проще это дело
Ответы: 26
Просмотры: 6790

Подсказка

Посмотрите ?applyrule .
hirnyk
Сб окт 22, 2011 1:51 pm
Форум: Maple
Тема: Не могу сделать проще это дело
Ответы: 26
Просмотры: 6790

Укажите конкретно чем отличается ((t^5+2*t^4+4*t^3)/(4-4*t+t^2))^(1/3) от (t^3)^(1/3)*(t^2+2*t+4)^(1/3)*(1/((t-2)^2))^(1/3) . В действительной области они тождественно равны! Повторяю, в частности было задано ((t^5+2*t^4+4*t^3)/(4-4*t+t^2))^(1/3) и именно выражение ex1 вопрошателя надо упростить. В...
hirnyk
Сб окт 22, 2011 11:58 am
Форум: Maple
Тема: Не могу сделать проще это дело
Ответы: 26
Просмотры: 6790

Ваше ex1 отличается от ex1 вопрошающего. Отличается только внешне, т.к. в моём ex1 числитель перед дальнейшими упрощениями искусственно разложен на множители. В действительной области данные выражения тождественны! Не согласен. Отличие во втором слагаемом в числителе существенно и командой factor н...
hirnyk
Сб окт 22, 2011 11:33 am
Форум: Maple
Тема: Не могу сделать проще это дело
Ответы: 26
Просмотры: 6790

Ваше ex1 отличается от ex1 вопрошающего.
hirnyk
Сб окт 22, 2011 9:37 am
Форум: Maple
Тема: упрощение радикалов
Ответы: 2
Просмотры: 1273

simplify(-(b[1]^2*(1-n[2]^2-n[3]^2)+b[2]^2*n[2]^2+b[3]^2*n[3]^2)^(3/2)*(-1/((-1+n[2]^2+n[3]^2)*b[1]^2-b[3]^2*n[3]^2-b[2]^2*n[2]^2))^(1/2)+(-1+n[2]^2+n[3]^2)*b[1]^2-b[3]^2*n[3]^2-b[2]^2*n[2]^2, symbolic)
0
hirnyk
Сб окт 22, 2011 8:22 am
Форум: Maple
Тема: Не могу сделать проще это дело
Ответы: 26
Просмотры: 6790

Во-первых, не вижу смысла делать такой цирковой номер.
Во-вторых, команда simplify,symbolic производит неверный ответ т. к. корни заданы через степени. Попробуйте их преставление в виде surd(x,n).
hirnyk
Чт окт 20, 2011 9:52 pm
Форум: Maple
Тема: Не могу сделать проще это дело
Ответы: 26
Просмотры: 6790

> A := -(1/8)*sqrt(2)*(3*t-4+I*t*sqrt(3))*(8-t^3)^(1/3):
> AA := evalf(eval(A, t = 1));
.3381616528-.5857131639*I
>abs(AA);
0.6763233057
> B := (8-t^3)^(1/3)/sqrt(2):
> BB := evalf(eval(B, t = 1));
1.352646611
abs(BB);
1.352646611
hirnyk
Чт окт 20, 2011 8:35 pm
Форум: Maple
Тема: Не могу сделать проще это дело
Ответы: 26
Просмотры: 6790

simplify(ex1, symbolic)
-(1/8)*sqrt(2)*(3*t-4+I*t*sqrt(3))*(8-t^3)^(1/3)
hirnyk
Вт окт 18, 2011 1:07 pm
Форум: Maple
Тема: Тригонометрия
Ответы: 6
Просмотры: 2510

identify

restart;
Digits := 30:
identify(evalf(cot(5*Pi*(1/4)+(1/4)*arccos(-4/5))));
-3+sqrt(10)
hirnyk
Сб окт 15, 2011 8:40 am
Форум: Общие вопросы математики
Тема: Задача, казалось бы, проста... (теория чисел)
Ответы: 12
Просмотры: 4449

> with(DirectSearch): > `assuming`([SolveEquations([97*(10*x+y)-100*k-24 = 0], {x >= 1, y >= 0, x <= 9, y <= 9}, AllSolutions)], [x::integer, y::integer, k::integer]); [[0.,[[[0.]]],[k=89,x=9,y=2],239],[1.,[[[1.]]],[k=24,x=2,y=5],148],[1.,[[[-1.]]],[k=57,x=5,y=9],99],[16.,[[[-4.]]],[k=58,x=6,y=0],63...