% dvmoeb.m Hilfsfunktion zum Moebius-Band moefidef.m 
function dv = dvmoeb(alf,tet,fac)
d0 = [fac 0 0]';
ca = cos(alf);
sa = sin(alf);
ct = cos(tet);
st = sin(tet);

dv = [ca -sa 0; sa ca 0 ; 0 0 1]* ...
        [ct  0 -st ; 0 1 0; st 0 ct] * d0;
