cycleforces(cycle1,frontarea,frontwindspeed,cw,mu,m_tot)

function[cycleforces2] = cycleforces(cycle1,frontarea,frontwindspeed,cw,mu,m_tot)
%CYCLESFORCES
%cycleforces(cycle1,frontarea,frontwindspeed,cw,mu,m_tot)
%creates a drive cycleforces object (class 'cycleforces') starting from 
%a cycle object 
%The cycleforces object contains 7 fields


if nargin == 0
    cycleforces2.cycle=[];
    cycleforces2.fair=[];
    cycleforces2.frol=[];
    cycleforces2.fslope=[];
    cycleforces2.fprop=[];
    cycleforces2.ft=[];
    cycleforces2.ftpos=[];
    cycleforces2=class(cycleforces2,'cycleforces');
elseif not(isa(cycle1,'cycle'))
    error('wrong input, the first argument should be of class cycle')
%elseif nargin==6
%    error('wrong input number')
else
    fprop=f_prop(cycle1,frontarea,frontwindspeed,cw,mu,m_tot);
    frol=f_rol(cycle1,mu,m_tot);
    ft=fprop-frol;
    for k=1:length(ft)
        if ft(k)<0
            ftpos(k)=0;
        else
            ftpos(k)=ft(k);
        end
    end
    cycleforces2.cycle=cycle1.';
    cycleforces2.fair=f_air(cycle1,frontarea,frontwindspeed,cw)'.';
    cycleforces2.frol=frol'.';
    cycleforces2.fslope=f_slope(cycle1,m_tot)'.';
    cycleforces2.fprop=fprop'.';
    cycleforces2.ft=ft'.';
    cycleforces2.ftpos=ftpos.'; %moest niet meer genverteerd worden.
    cycleforces2=class(cycleforces2,'cycleforces');
end