Как построить график функции

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

Модератор: Admin

tonyk
Сообщения: 2
Зарегистрирован: Пн июл 01, 2019 3:33 pm

Как построить график функции

Сообщение tonyk » Пн июл 01, 2019 3:38 pm

Здравствуйте!
Пытаюсь построить график функции по значениям их массивов. Ткните носом в ошибку, пожалуйста.

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

restart;
> N := 160; P := 4;
                                     160
                                      4
> X := array[1 .. P*N]; Y := array[1 .. P*N];
> fs := 50;
                                     50
> F := A*sqr(x); A := 1;
                                  A sqr(x)
                                      1
> for i from 0 to P*N-1 do X[i+1] := i; Y[i+1] := evalf(subs(x = i, F)) end do;
> plot(X, Y, x = 0 .. 100);
Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Markiyan Hirnyk
Сообщения: 1338
Зарегистрирован: Вс дек 04, 2011 11:07 pm

Re: Как построить график функции

Сообщение Markiyan Hirnyk » Пн июл 01, 2019 8:38 pm

Ваш код содержит не одну ошибку. Вот его исправление:

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

restart;
N := 160:
P := 4:
A := 1:
X := Vector(1 .. P*N):
Y := Vector(1 .. P*N):
F := A*sqrt(x):
for i from 0 to N*P - 1 do
    X[i + 1] := i;
    Y[i + 1] := eval(F, x = i);
end do:
plot(X, Y);

Kitonum
Сообщения: 2078
Зарегистрирован: Ср дек 31, 2008 1:55 pm
Откуда: г. Пенза

Re: Как построить график функции

Сообщение Kitonum » Пн июл 01, 2019 9:33 pm

То же самое можно написать короче без циклов, если векторы задать как ниже в коде. Или даже ещё короче, т.к. фактически имеем очень простую функцию одной переменной, заданной на конечном множестве:

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

restart;
N := 160:
P := 4:
A := 1:
X := Vector(1 .. P*N, i->i-1):
Y := Vector(1 .. P*N, i->A*sqrt(i-1)):
plot(X, Y);

restart;
N := 160:
P := 4:
A := 1:
plot(A*sqrt(x), x=0..P*N-1);

tonyk
Сообщения: 2
Зарегистрирован: Пн июл 01, 2019 3:33 pm

Re: Как построить график функции

Сообщение tonyk » Вт июл 02, 2019 6:53 am

О! Как лаконично! Я несколько лет не прикасался к Maple, многое забыл. Благодарю! Хороший пинок! Его-то мне и не хватало!