вывод ряда точек на график

Форум пользователей пакета Maple

Модератор: Admin

smorodina82
Сообщения: 28
Зарегистрирован: Вт мар 25, 2008 8:01 pm
Контактная информация:

вывод ряда точек на график

Сообщение smorodina82 » Вт мар 25, 2008 8:09 pm

Почему на график выводится последняя точка цикла? Как вывести все точки на один график?
with(plots):mn:=5:
> for q from 1 to (mn-1)*mn do if q>=mn and modp(q,mn)=0 then next else S:=q+1 : S1:=q^2: print([S,S1]);
> fi od: pointplot({[S,S1]});

Андрей М.
Сообщения: 239
Зарегистрирован: Чт апр 21, 2005 3:15 pm

Сообщение Андрей М. » Вт мар 25, 2008 11:27 pm

См. пример в приложении.

smorodina82
Сообщения: 28
Зарегистрирован: Вт мар 25, 2008 8:01 pm
Контактная информация:

интерполяция-пространственное представление

Сообщение smorodina82 » Ср мар 26, 2008 2:04 pm

Спасибо, Андрей! Еще вопросик! Я интерполирую сплайном ряд точек. Получаю график на плоскости. Как получить этот график в пространстве?
> restart:with(plots):
> X1:=[1.799959840,1.476243409,1.459701293,1.734882236,.5713071197]:Y1:=[.4743279944,.9358847395,.9972113415,.5895891380,.9358847395]:
> dat:=[[1.799959840,.4743279944],[1.476243409,.9358847395],[1.459701293,.9972113415],[1.734882236,.5895891380],[.5713071197,.9358847395],[.4896873994,1.741732582],[.4896873994,1.855562146]]: K:=pointplot(dat):
> Digits:=5: f:=interp(X1,Y1,x);
> F:=plot(f,x=0.5..1.8):
> display(F,K);