Программа 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); |