function [eventwert,isterminal,richt] = MagnetoptikEvent(t,y,qB0m,qBofm,v0)
% Magnetfeld nach Durchlaufen des Quadrupols oder Sextupols ausschalten
% Länge des Magneten 6 m

% W. Schweizer
% Simulation physikalischer Systeme - Computational Physics mit MATLAB 
% 2016

% Vers. 3.1 01/2015

eventwert = v0*t-6;  % aus in DGL
isterminal = 1;
richt = 0;