% :::::::::::::::::: Integral mit Trapez-  &  Quad -  Function  :::::::::::::::::::::::
% ::::::::::::::::::::::::::  :::::::::::::
clear all ; close all  ; clf;
disp(['°°°°°°°°°°°° S T A R T °°°°°°°°°°°°°°°°°°°° ',date,' °°°°°°°°°°°°°°°°°°°°°'])
format compact
% :::::::::::::::::::::::::::::: Basic - Integration :::::::::
format long g

x = linspace(0,pi,1000);
y = sin(x);
Tzone =  trapz(x,y)
% ::::::::::::::::::::::::::::::::::
Lzone = quadl(@sin,0,pi)               % adaptive Lobatto-Quadratur
% :::::::::::::::::::::::::::::::::::::
Szone = quad ('sin(x)', 0, pi)          % adaptive Simpson-Quadratur
% ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
% :::::::::::::::::::::::: Querschnitts - Fläche im Eisenbahn - Tunnel :::::::::::::::::::::::
xx = -3:1:3;                                % Spannweite
yy = 4/9 * xx .^2;                         % Tunnel - Querschnitt = parabelform

TuSimp = quad('4/9*x.^2', -3,3)       % Fläche lt. Book = 16m²
TuTrap =  trapz(xx,yy)