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

hirnyk
Ср ноя 16, 2011 8:40 am
Форум: Maple
Тема: Бикомплексные числа
Ответы: 16
Просмотры: 5900

Re: Бикомплексные числа

sergiokapone писал(а):Как в Maple задать бикомплексное число?
А что это такое? Изьясните, пожалуйта.
hirnyk
Вт ноя 15, 2011 11:44 pm
Форум: Maple
Тема: Подставить и упростить
Ответы: 9
Просмотры: 2849

Сравните коды > showstat(sqrt); sqrt := proc(x::algebraic, f::identical(symbolic)) local c, g, h, s, y, q, r; 1 if type(x,'complex(float)') then 2 x^(1/2) elif type(x,'integer') then 3 if x < 0 then 4 return NumericEvent('real_to_complex',I...
hirnyk
Вт ноя 15, 2011 7:32 pm
Форум: Maple
Тема: Подставить и упростить
Ответы: 9
Просмотры: 2849

Работа команды

sidor2 писал(а):Спасибо, г-н hirnyk.
Но я не совсем понял Ваш ответ.
Результаты 1,984 и 0,031 подтверждают, что команда sqrt(x) считает медленнее, чем (х)^0.5
Что значит printlevel:= 10; и далее, поясните.

См. ?printlevel и
http://www.mapleprimes.com/questions/35 ... s-In-Maple
hirnyk
Вт ноя 15, 2011 6:55 am
Форум: Maple
Тема: Подставить и упростить
Ответы: 9
Просмотры: 2849

Я заметил, что если ввести в цикле sqrt(x), то мэпл тратит времени в 10 раз больше, чем при (x)^0.5. Это мне совсем непонятно. > st := time(); for j to 10^5 do sqrt(2) end do; time()-st; 1.984 > st := time(); for j to 10^5 do 2^.5 end do; time()-st; 0.031 > p...
hirnyk
Пн ноя 14, 2011 8:31 pm
Форум: Maple
Тема: Подставить и упростить
Ответы: 9
Просмотры: 2849

Что в лоб, что по лбу

алексей_алексей писал(а):Степень надо не 0,5 писать, а 1/2...
restart;
x := (4*R^2-c^2)^.5;
y := (4*R^2-a^2)^.5; f := 2*R*b+a*x-c*y = 0;
R := solve(f, R)


0., -1.*b*a*c/sqrt(2.*a^2*b^2-1.*b^4+2.*c^2*b^2-1.*c^4+2.*c^2*a^2-1.*a^4), b*a*c/sqrt(2.*a^2*b^2-1.*b^4+2.*c^2*b^2-1.*c^4+2.*c^2*a^2-1.*a^4)
hirnyk
Сб ноя 12, 2011 9:49 pm
Форум: Maple
Тема: График для системы диф. уравнений
Ответы: 8
Просмотры: 2425

Asbest111 писал(а):Спасибо. На самом деле, там должна быть спиралевидная траектория, но очень близкая к круговой. Буду думать.
0..15
hirnyk
Сб ноя 12, 2011 7:18 pm
Форум: Maple
Тема: График для системы диф. уравнений
Ответы: 8
Просмотры: 2425

Прощу прощения, видимо изначально не так вопрос задал. В принципе, мне нужен график для всех k, причем r и phi это координаты полярной с.к. График наверное polarplot должен быть. Вообще все это дело иллюстрирует движение спутника в разреженных слоях атмосферы, соответственно график должен показыват...
hirnyk
Сб ноя 12, 2011 6:18 pm
Форум: Maple
Тема: Пирамида в plot3d
Ответы: 17
Просмотры: 6784

renuar911 писал(а):Конечно, есть более компактная запись, но мне это не суть важно.

Пожалуйста, обьясните.
hirnyk
Сб ноя 12, 2011 4:34 pm
Форум: Maple
Тема: График для системы диф. уравнений
Ответы: 8
Просмотры: 2425

plots[odeplot](k,[[t,r(t)],[t,phi(t)]],0..2);
Изображение
hirnyk
Чт ноя 10, 2011 7:32 pm
Форум: Mathematica
Тема: Преобразования комплексных выражений
Ответы: 3
Просмотры: 2644

derRabe писал(а):Извините, опечатка.

In[3]:= ComplexExpand[(-1-2 I) x+y]
Out[3]= (-1-2 I) x+y

Почему не раскрывается - не понятно!

In[3]:=ComplexExpand[(-1 - 2* I)* x + y, {x, y}]
Out[3]=2 Im[x] + I (-Im[x] + Im[y] - 2 Re[x]) - Re[x] + Re[y]
hirnyk
Чт ноя 10, 2011 12:13 pm
Форум: Maple
Тема: Пирамида в plot3d
Ответы: 17
Просмотры: 6784

> restart; with(plottools): > with(plots): > a := curve([[0, 0, 0], [0, 1, 0]], color = black, thickness = 3): > b := sphere([0, 0, 0], 0.5e-1, color = red): > c := sphere([0, 1, 0], 0.5e-1, color = red): > display([a, b, c], scaling = constrained, style = patchnogrid); http://i.exponenta.ru/expone...
hirnyk
Ср ноя 09, 2011 11:40 pm
Форум: Maple
Тема: вещественный корень
Ответы: 3
Просмотры: 1337

спасибо большое. Если можно вот еще один вопрос. У меня есть уравнение f(x,y)=0 причем в f(x,y) входят радикалы как по x так и по y, и нужно построить кривую определяемую данным уравнением (то есть зная точку x точку y) хотел воспользоваться implicitplot но для нее надо задать как меняются и x и y ...
hirnyk
Ср ноя 09, 2011 10:38 pm
Форум: Maple
Тема: вещественный корень
Ответы: 3
Просмотры: 1337

> with(RealDomain):
> solve(x^3-1);

1
hirnyk
Вт ноя 08, 2011 7:39 pm
Форум: Maple
Тема: plot3d, кривая
Ответы: 2
Просмотры: 1210

SP := plots[spacecurve]([t, t^2, t^3], t = 0 .. 3, axes = normal, color = red, thickness = 3, numpoints = 500):
plots[display](SP);
hirnyk
Пн ноя 07, 2011 7:03 pm
Форум: Maple
Тема: Сумма
Ответы: 6
Просмотры: 2318

sum