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

aar
Пн сен 22, 2008 9:10 am
Форум: Maple
Тема: Уравнений больше чем переменных
Ответы: 3
Просмотры: 2713

Попробуйте solve({eq1,eq2,...,eq12})
aar
Вс сен 07, 2008 8:47 am
Форум: Maple
Тема: Операция соединение списков.
Ответы: 1
Просмотры: 1841

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

> l1 := [1, 4];
> l2 := [5, 4, 2];
> [l1[], l2[]];
                               [1, 4, 5, 4, 2]
aar
Пн авг 18, 2008 8:04 am
Форум: Maple
Тема: Как обнулить малое число?
Ответы: 3
Просмотры: 2767

Как это сделать одной функцией, не знаю. Можно вот так:

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

> f := a*10^(-8)+b;
> fnormal(evalf(f), Digits-1);
                                      b
aar
Чт июл 24, 2008 6:05 pm
Форум: Maple
Тема: оператор ->
Ответы: 3
Просмотры: 2528

?map
aar
Чт июл 24, 2008 9:54 am
Форум: Maple
Тема: оператор ->
Ответы: 3
Просмотры: 2528

В Maple оператор -> это сокращенная запись для структуры proc() ... end proc. Запрограммировать можно все, что угодно, выглядеть будет не очень понятно и красиво: > (arg -> op(0, arg)[f(op(1, arg)), op(2, arg)])(a[x, y]); a[f(x), y] Другой вари...
aar
Ср июл 23, 2008 10:21 am
Форум: Maple
Тема: Как вывести действительные значения?
Ответы: 1
Просмотры: 1845

Например, так:

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

> V := {u = 0., v = 1.570796327}, {u = .7878680367, v = -1.570796327+1.576129532*I}
> remove(has, {V}, I);
                         {{u = 0., v = 1.570796327}}
aar
Сб май 31, 2008 7:27 am
Форум: Maple
Тема: программа в режиме ожидания
Ответы: 1
Просмотры: 2006

f := proc (x) if x = 0 then printf("Write integer"); scanf("%d") else x end if end proc:

Смотрите хелп по scanf.
aar
Ср май 28, 2008 9:08 am
Форум: Maple
Тема: Прямое произведение матриц
Ответы: 5
Просмотры: 3714

Смотрите хелп для tensor[prod].
aar
Пн май 26, 2008 9:24 am
Форум: Maple
Тема: реш системы диф ур
Ответы: 6
Просмотры: 3796

Не знаю, насколько это законно. Проверяйте: > S1 := dsolve({ur1, ur2}) assuming t>=0: > S2 := dsolve({ur1, ur2}) assuming t<=0: > S2 := eval(S2, {_C1 = _C3, _C2 = _C4}): > eval(S1, S2): > S:= eval(%, t = 0): Дальше надо смотреть, что получилось в S. Поскольку у меня вышло: > S[2]; _C4 = -_C1 + _C2 т...
aar
Пн май 26, 2008 8:43 am
Форум: Maple
Тема: Почему subs так подставляет? И как с этим бороться
Ответы: 5
Просмотры: 3815

Вам же написали, M11 нужно поправить (как именно, догадаться не возможно), а потом подставлять subs.
aar
Чт май 22, 2008 9:26 am
Форум: Maple
Тема: реш системы диф ур
Ответы: 6
Просмотры: 3796

Замените в Вашей системе sign на signum. Решите систему отдельно при lambda=A slv := dsolve(eval({ur1,ur2},lambda=A)); и при lambda=-A slv1 := dsolve(eval({ur1,ur2},lambda=-A)); Потом сами проверяйте условия. lambda=A и lambda=-A получаются, если решать отдельно систему с ur1:=t*diff(U1(t),t) + A*U2...
aar
Ср май 21, 2008 9:04 am
Форум: Maple
Тема: реш системы диф ур
Ответы: 6
Просмотры: 3796

Скорее всего, вместо sign(t) нужно использовать signum(t). И условия непонятны: что такое U(t), T1, T2?
aar
Вс май 18, 2008 11:53 am
Форум: Maple
Тема: Формальное произведение рядов
Ответы: 1
Просмотры: 2501

Не знаю такой процедуры. Можно перемножать не любые ряды, а голономные, используя пакет gfun. Т.е. h1 := Sum((-1)^k*x^k/k!, k=0..infinity) ряд голономный, формальное решение дифф.ур. y(x)+diff(y(x), x)=0 Нужно умножить на что-либо подобное --- постройте для него дифф.ур. и используйте процедуру gfun...
aar
Сб май 03, 2008 10:34 am
Форум: Maple
Тема: почему не считает интеграл?
Ответы: 4
Просмотры: 3134

По какому параметру разложить в ряд?
Например, по a раскладывается. Попробуйте:
> In := int((n*p3/(a*b)-A*p2)*sin(n*f)*B, f = 0 .. Pi):
> series(In,a);
aar
Сб май 03, 2008 8:21 am
Форум: Maple
Тема: Задание точности численых вычислений.
Ответы: 3
Просмотры: 3339

Смотрите Digits в хелпе.