Найден 141 результат

fenix85
Пт мар 02, 2012 3:11 pm
Форум: Maple
Тема: Многократное решение системы и построение графика
Ответы: 59
Просмотры: 13294

вроде уже работает, посмотрите пожалуйста все ли правильно в коде restart; Digits := 10; alpha := 0; delta1 := 0; delta2 := 0.2e-1; N := 100; epsilon := 1/100; mu := proc (y1, y7, y8) options operator, arrow; evalf((1-2/y1)*y8-epsilon*y1*(y1-3)*y7^3) end proc; M := []; for i from 0 to N do delta := ...
fenix85
Пт мар 02, 2012 2:41 pm
Форум: Maple
Тема: Многократное решение системы и построение графика
Ответы: 59
Просмотры: 13294

алгоритм для нахождения точки с максимальной второй координатой y8 работает restart; Digits := 10; delta := 50; epsilon := 10^(-2); y1 := 3+delta; alpha := 0; f := -y1^2*y7^2+(1-2/y1)*y8^2-1; d := -y1^3*y7^2+y8^2+3*epsilon*y1^2*y7*y8*(1/y1^2)+epsilon*(y1^6-3*y1^5)*y7^3*y8/y1^3+epsilon*(-y1^3+3*y1^2)...
fenix85
Чт мар 01, 2012 3:11 pm
Форум: Maple
Тема: командные строки
Ответы: 1
Просмотры: 1022

командные строки

Некоторые алгоритмы в Мэйпл требуют выполнения в пределах одной командной строки. Вопрос: как в Мэйпл делать так, чтобы для одной командной строки> (команда) можно было записать элегантно много команд (кроме ИСПОЛЬЗОВАНИЯ пробела!) в столбик так, чтобы было легко читабельно и понятно??????
fenix85
Чт мар 01, 2012 2:52 pm
Форум: Maple
Тема: Многократное решение системы и построение графика
Ответы: 59
Просмотры: 13294

s[i, 2]...-скажите пожалуйста правильно ли я понял: первый индекс i отвечает за номер списка (подсписка) A_i:=[a_i, b_i] в самом списке s:=[seq(A_j,j=1..k)],а второй номер отвечает за номер элемента(подсписка) номер которого i в списке s
fenix85
Чт мар 01, 2012 12:20 pm
Форум: Maple
Тема: Многократное решение системы и построение графика
Ответы: 59
Просмотры: 13294

в применении к системе этот алгоритм тоже не работает ...??? вот restart; Digits := 10; delta := 0; epsilon := 10^(-2); y1 := 3+delta; alpha := 0; f := -y1^2*y7^2+(1-2/y1)*y8^2-1; d := -y1^3*y7^2+y8^2+3*epsilon*y1^2*y7*y8*(1/y1^2)+epsilon*(y1^6-3*y1^5)*y7^3*y8/y1^3+epsilon*(-y1^3+3*y1^2)*y7*y8^3/y1^...
fenix85
Ср фев 29, 2012 10:39 pm
Форум: Maple
Тема: Многократное решение системы и построение графика
Ответы: 59
Просмотры: 13294

Если Вам из списка списков необходимо отобрать подсписок с максимальным вторым элементом, то можно действовать как в примере: s:=[[-3,1], [1,3], [-1,2], [2,4], [3,1]]: if nops(s)=0 then h:=[] else h:=s[1]: for i to nops(s)-1 do if s[i+1][2]>=s[i][2] then h:=s[i+1]: fi: od: fi: h; [2, 4] этот алгори...
fenix85
Ср фев 29, 2012 6:20 pm
Форум: Maple
Тема: Многократное решение системы и построение графика
Ответы: 59
Просмотры: 13294

Уважаемый, Kitonum! Помогите пожалуйста. В написанном вами коде, я изменил функцию в процедуре с mu := proc (y1, y8) options operator, arrow; evalf((1-2/y1)^(1/2)*y8) end proc на mu := proc (y1, y7, y8) options operator, arrow; evalf((1-2/y1)*y8-epsilon*y1*(y1-3)*y7^3) end proc. Теперь на каждой ите...
fenix85
Ср фев 29, 2012 12:33 am
Форум: Maple
Тема: решение системы уравнений с дополнительным условием
Ответы: 8
Просмотры: 2341

Re: Да

там с помощью команды s := solve({d, f}, {y7, y8}); S := evalf(s) система не решается, а с помощью команды st := RootFinding[Isolate]({d3, f}, [y7, y8]) решается. Не могу понять в чем дело?предыдущей системе была ошибка со знаком ... если исправить, то решения существуют
fenix85
Пн фев 27, 2012 6:27 pm
Форум: Maple
Тема: решение системы уравнений с дополнительным условием
Ответы: 8
Просмотры: 2341

Re: Да

у меня проблемы с системой, почему-то не хочет решаться ....?? restart; Digits := 41; delta := 10; epsilon := 10^(-2); y1 := 3+delta; alpha := 0; f := -y1^2*y7^2+(1-2/y1)*y8^2-1; d := (y1-2)*y7^2*(1+epsilon^2/y1^3)+y8^2*(1-2/y1)*(1-2*epsilon^2/y1^3)/y1^2-3*epsilon*y7*y8*(1-2/y1)/y1^2; s := RootFindi...
fenix85
Вс фев 26, 2012 7:47 pm
Форум: Maple
Тема: число знаков для значений массива
Ответы: 4
Просмотры: 1530

упс!))
fenix85
Вс фев 26, 2012 6:33 pm
Форум: Maple
Тема: число знаков для значений массива
Ответы: 4
Просмотры: 1530

Kitonum писал(а):Вы забыли после Digits поставить двоеточие.



restart: Digits=20: alpha:= 0: delta1:=0: delta2:= -0.05: N:= 2: epsilon:= 1/100:
посмотрите еще раз, двоеточие стоит
fenix85
Вс фев 26, 2012 5:03 pm
Форум: Maple
Тема: число знаков для значений массива
Ответы: 4
Просмотры: 1530

число знаков для значений массива

Как сделать так чтобы массив содержал значение с 20 знаками (например) после запятой, а не 10 так как это прописано по умолчанию. В начале я прописываю Digits = 20 , но все равно значение записываемые в массив содержат десять знаков, а не 20 restart: Digits=20: alpha:= 0: delta1:=0: delta2:= -0.05: ...
fenix85
Пт фев 24, 2012 4:11 am
Форум: Maple
Тема: Многократное решение системы и построение графика
Ответы: 59
Просмотры: 13294

изменяя количество шагов итераций, я пришел к выводу что для большого числа шагов программа дает сбои при построении графиков .. (речь идет о непонятных ответвления), поскольку я по точечно прошел по системе уравнений в областях, для которых построеный график теряет гладкость и увидел там нет пробле...
fenix85
Ср фев 22, 2012 9:28 pm
Форум: Maple
Тема: Многократное решение системы и построение графика
Ответы: 59
Просмотры: 13294

А Вы зарегистрировались на главной странице? да, я зарегистрировался с главной страницы(несколько раз пробовал) и меня все равно посылают на главную страницу... Тогда ничем помочь не могу! написал админу и .... надо было полдня подождать (незнаю почему) ..... уже сейчас могу качать с этого сайта! У...
fenix85
Ср фев 22, 2012 2:52 pm
Форум: Maple
Тема: Многократное решение системы и построение графика
Ответы: 59
Просмотры: 13294

И еще проблемка: черная кривая должна приближаться к красной при приближении к точке delta = 0,006314502297, т.е. в этой точке они должни срастатся.....а на графике етого нет((