Ошибка при построении графика

@flash6300 · Регистрация: 08.03.2013

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста, почему график не строится?

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
restart; 
m1 := 2.5; 
j1 := 1.2; 
j2 := 1.5; 
l := .3; 
tau := 2; 
h := 0.05; 
fi0 := 0; 
fitau := pi/3;
kk := tau/h;
t := array(0 .. kk); 
for i from 0 by 0.05 to 2 do t[i] := i; 
print(t); 
fi111 = fi0+(fitau-fi0)*(10-15*t(i)/tau+6*t^2/tau^2)*t^3/tau^3; 
fit = 30*(fitau-fi0)*(1-2*t/tau+t^2/tau^2)*t^2/tau^3; 
fitt = 60*(fitau-fi0)*(1-3*t/tau+2*t^2/tau^2)*t/tau^3; 
P = m1*l*(fit^2*((3*(1+sin(fi111)^2))/cos(fi111)^3-2-3*(1-cos(fi111))/cos(fi111))+3*fitt*sin(fi111)/cos(fi111)^2); 
print(fi111) end do;
plot(t, P);

@murom2013 · 27.04.2017, 16:57

ух ты, сколько всего...

Сообщение от flash6300

kk := tau/h;
t := array(0 .. kk);

результат деления -- нецелое число по умолчанию, поэтому в качестве параметра индексирования массива он точно не подходит. использовать trunc или round. в данном примере можно просто поставить 40.

Сообщение от flash6300

for i from 0 by 0.05 to 2 do t[i] := i;

аналогично. i принимает дробные значения, для индексирования массива не подходит. надо запустить новый индекс самостоятельно, занулить его в начале программы и прибавлять единицу каждый раз внутри цикла.

Сообщение от flash6300

print(t);

совершенно необязательно при каждом проходе цикла выводить массив на экран. делает листинг совершенно нечитабельным.

Сообщение от flash6300

fi111 =

здесь и далее обязательно писать с двоеточием, ибо происходит присвоение значения переменной.

Сообщение от flash6300

plot(t, P);

это делается не так. следует создать еще один массив, в который будут помещаться пары точек из массивов t и P. также следует изменить стиль графика.

как-то так:

Haskell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
restart:
m1 := 2.5: j1 := 1.2: j2 := 1.5: l := .3: tau := 2: h := 0.05: fi0 := 0: fitau := (1/3)*Pi:
t := array(0 .. 40): P := array(0 .. 40): Gr := array(0 .. 40):
k := 0:
for i from 0 by 0.05 to 2 do
t[k] := i: 
fi111 := fi0+(fitau-fi0)*(10-15*t[k]/tau+6*t[k]^2/tau^2)*t[k]^3/tau^3:
fit := (30*(fitau-fi0))*(1-2*t[k]/tau+t[k]^2/tau^2)*t[k]^2/tau^3:
fitt := (60*(fitau-fi0))*(1-3*t[k]/tau+2*t[k]^2/tau^2)*t[k]/tau^3:
P[k] := m1*l*(fit^2*((3*(1+sin(fi111)^2))/cos(fi111)^3-2-(3*(1-cos(fi111)))/cos(fi111))+3*fitt*sin(fi111)/cos(fi111)^2):
Gr[k] := [t[k], P[k]]:
k := k+1
end do:
plot(Gr, style = point)

да, еще Pi надо писать с большой буквы...

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .