Программа 48. Задача 65. Кинематическая проверка

>

restart;

>	q:=8: a:=3: # Распред. нагр. и длина уч.

Криволинейная часть на участке 1

>	f11:=piecewise(x>0 and x<a, -x*(x-a)*q/2):

Прямолинейная часть на участке 1

>	f12:=spline([0,3],[-6.242424,-5.515151],x,linear):

Эпюра на участке 1

>	f1:=piecewise(x>0 and x<3, f12+f11):

Участок 2

>	f21:=spline([3,7,9],[-5.515151,6.161616,0],x,linear):

>	f2:=piecewise(x>3 and x<9, f21):

Эпюра от единичной силы

>	g:=spline([0,3,9],[6,6,0],x,linear):

Рисунок

>	plot({f1+f2,g},x=0..9);

Интеграл

>	int(g*(f1+f2),x=0..9);