Teilchenbewegungen in el./magn. Feldern (Visualisierung)

D.1 particles MATLAB
% -----------------------------------------------------------------------------
% Funktion um die Notation in MATLAB zu unterstuetzen (TRUE falls alles
% richtig, ansonsten FALSE)
function syn = matlabsyn(value)
syn=1;
% TRUE Wert
test= size(str2num(value));
if (test(2)>=2 | test(2)==0)
label=’Fehler bei Eingabe eines Wertes; .-Notation verwenden, keine Charakter
Zeichen’;
msgbox(label,’SYNTAX FEHLER’,’error’);
syn=0;
% FALSE Wert
end;
% Funktion fuer exklusive Radiobuttons
function mutual_exclude(off)
set(off,’Value’,0)
% Wert der einzelnen Buttons, dadurch wird die Ladung gesetzt
function qCharge=charge_value(handles)
if (get(handles.elecbutton,’Value’)==1)
qCharge = (-1);
else
qCharge = (1);
end;
% ==================== RADIOBUTTON (ELEKTRON) =================================
function elecbutton_Callback(hObject, eventdata, handles)
% erzeugt einen exklusiven Radiobutton, schaltet alle weiteren Buttons
% aus
off = [handles.protonbutton];
mutual_exclude(off);
% ==================== RADIOBUTTON ENDE========================================
% ==================== RADIOBUTTON (PROTON) ===================================
function protonbutton_Callback(hObject, eventdata, handles)
% erzeugt einen exklusiven Radiobutton, schaltet alle weiteren Buttons
% aus
off = [handles.elecbutton];
mutual_exclude(off)
% ==================== RADIOBUTTON ENDE========================================
% ==================== POSITIONEN =============================================
% x-Position des Teilchens (Erzeugung/Auswertung) -----------------------------
function xpos_CreateFcn(hObject, eventdata, handles)
if ispc
set(hObject,’BackgroundColor’,’white’);
else
set(hObject,’BackgroundColor’,get(0,’defaultUicontrolBackgroundColor’));
end
% je nach Version bzw. THREAD Handling in MATLAB kann es dazu kommen, dass
% nicht alle Objekte im handles Vektor aufgefuehrt werden, um dieses
% abzufangen, wird dem handles Vektor jeweils das entsprechende handle bei
% seiner Erzeugung uebergeben
handles.magnpop=hObject;
guidata(hObject, handles);
function xpos_Callback(hObject, eventdata, handles)
63