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

Irmantas
Ср май 05, 2010 11:13 pm
Форум: Maple
Тема: Алгоритм на поиск подстроки.
Ответы: 21
Просмотры: 6950

Работет. Вы пропустили ReadWordList := fname -> remove( type, StringTools:-Split( readbytes( fname, 'TEXT', infinity ) ), "" ): dictionary := ReadWordList( "C:/Temp/words.txt" ): Где "C:/Temp/words.txt" записаны слова, каторых ищит Subwords . "words.txt": a n ...
Irmantas
Ср май 05, 2010 3:31 pm
Форум: Maple
Тема: Алгоритм на поиск подстроки.
Ответы: 21
Просмотры: 6950

Здравствуйте.У меня возникла похожая проблема.Нужно также найти строку в тексте(до 10 символов в строке),текст размером до 10^5 символов.Надо найти все вхождения данной строки в тексте и также вхождения всех строк, полученные в результате перестановки любой пары символов в строке. Разобрался с кома...
Irmantas
Чт апр 29, 2010 12:58 pm
Форум: Maple
Тема: Упрощения
Ответы: 3
Просмотры: 1527

Re: Упрощения

Micar писал(а):Большое спасибо) Сработало.Только теперь около них появляется волнистая черта,когда пересчитывает косинус,но это мелочь.
Спасибо ещё раз!

Волнистую черту можно "снять" с помочю interface(showassumed=0):
Irmantas
Чт апр 29, 2010 9:21 am
Форум: Maple
Тема: Упрощения
Ответы: 3
Просмотры: 1527

Re: Упрощения

Здравствуйте) Провожу расчёт интегралов в Maple 7.0. В ответах показан sin(l*pi*x) и cos.Подскажите пожалуйста как сделать так чтобы он заменял синусы на нули а косинусы на минус 1 в степени? Спасибо. pi пишите Pi . Укажите что l есть целое число: assume(l, integer): x:=1: sin(l*Pi*x); cos(l*Pi*x);
Irmantas
Чт апр 22, 2010 8:24 pm
Форум: Maple
Тема: Labels на график
Ответы: 26
Просмотры: 6657

Kitonum, у меня 7 мапл и, мне кажется, там нет опции tickmarks, по крайней мере справка её не находит. Написал метки, с помощью textplot, как сказал hirnyk. Хотя ваш вариант мне больше нравится, какая у вас версия мапл? Это опция в мапле 6 есть и работает plot([[0,0],[0.5,1],[2,2.5],[3,4],[4.5,5]],...
Irmantas
Пн апр 19, 2010 12:43 pm
Форум: Maple
Тема: Помогите построить график
Ответы: 4
Просмотры: 1909

Re: хелп

X:=[1,2,3,4,5]:
Y:=[3,6,2,1,4]:
Y:=[seq([X[i],Y[i]],i=1..nops(X))]:
plot(XY,style=point);
Irmantas
Пт апр 02, 2010 6:18 pm
Форум: Maple
Тема: Система дифф. ур
Ответы: 3
Просмотры: 1736

м.. фигню я конечно написал выше. но вот может с новыми поправками..:) В примере,в учебнике, делается преобразование по лапласу уравнений системы(рисунок). Получили решения P0(s),P1(s)..Pn(s) и потом сделали обратное преобразование лапласа для этих решений, т.е. получили P0(t),P1(t)..Pn(t) Думаю, ч...
Irmantas
Чт апр 01, 2010 8:42 pm
Форум: Maple
Тема: pdsolve
Ответы: 2
Просмотры: 1977

Re: pdsolve

R:=unapply(eval(r(u,v),sol),[u,v]): R(u,v):
N:=unapply(eval(n(u,v),sol),[u,v]): N(u,v):
solve({R(0,0)=0, D[1](R)(0,0)=0, D[2](N)(0,0)=0, N(0,0)=1}):
r(u,v)=subs(%,R(u,v)); n(u,v)=subs(%%,N(u,v));
Irmantas
Чт апр 01, 2010 9:55 am
Форум: Maple
Тема: Как построить график в полярных коор-тах в лог. масштабе?
Ответы: 10
Просмотры: 4196

Re: Как построить график в полярных коор-тах в лог. масштабе

Добавте в plots[multiple] параметр axis[1] = [mode = log]. И рисуите НЕ в Classic Worksheet Maple.
Но всё равно непалучаетса что вы хотите
Irmantas
Пн мар 29, 2010 2:26 pm
Форум: Maple
Тема: Алгоритм на поиск подстроки.
Ответы: 21
Просмотры: 6950

SearchWords := proc(S::string, t::string, k::posint) local i, j, L; L:=[]: for i from 1 to k do for j from 1 to length(t)-i+1 do L:=[op(L),t[j..j+i-1]=nops([StringTools[SearchAll](t[j..j+i-1], s)])]; end do; end do: L end proc: s:="abcdefabcdeabcdabcaba": t:="abcdef": SearchWord...
Irmantas
Пт мар 19, 2010 9:22 am
Форум: Maple
Тема: Преобразование массива в матрицу не включающую весь массив.
Ответы: 3
Просмотры: 1774

Re: Преобразование массива в матрицу не включающую весь масс

f:=(i,j)->i*j: M:=Matrix(7,7,f);
M[2..-2,3..5];

здесь
2..-2 -- от 2 строки с начало до 2 строки от конца,
3..5 -- от 3 столбика до 5 столбика
Irmantas
Пн мар 15, 2010 1:27 pm
Форум: Maple
Тема: График по созданной матрице NxN
Ответы: 8
Просмотры: 2911

restart:with(plots): h:=0.01; u:=Matrix(1..101,1..101): for i from 2 to 100 do for j from 2 to 100 do u[i,j]:=h*h/(0.5*h*h+4) end do end do; for i from 2 to 100 do for j from 2 to 100 do u[i,j]:=h*h/(0.5*h*h+4)-u[i,j+1]*(-1+h*h/12)/(0.5*h*h+4)-u[i-1,j+1]*(h*h/12)/(0.5*h*h+4)-u[i-1,j]*(-1+h*h/12)/(0...
Irmantas
Пт фев 26, 2010 12:20 am
Форум: Maple
Тема: Игра "Зануда" в maple
Ответы: 7
Просмотры: 2654

ох, здорово так) Но, я не понимаю, почему он мне выдаёт ошибку при N = 1 или N = 2? И я так посмотрел сам результат. Получается, Вы воспользовались тем, что можно ход пропустить? т.к. нолики или крестики иногда ходят по два раза подряд. Так и есть? Ошыбка изправлина. Далжно быть while i<=(N+1)^2/2 ...
Irmantas
Чт фев 25, 2010 12:04 pm
Форум: Maple
Тема: Процедура с Hint [ Student[Calculus1] ]
Ответы: 2
Просмотры: 1842

Re: Процедура с Hint [ Student[Calculus1] ]

С каким Мапле работайте?
В Мапле 12 всё нормально вычисляет.

Ps.: в канце процедуры вставте Student[Calculus1][ShowSteps]();
и вычислите res(x^2*cos(x),x);