a guest Nov 12th, 2019 70 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. soma_tempos3(M,[Op1|LP],ResuT,ResuA):-
  2.         op_prod_client(Op1,M,Fer,_,_,_,TConc,Tsetup,Texec),
  3.         Tempo is Tsetup + Texec,
  4.         ((Tempo-TConc)>0,!,TempoA is Tempo-TConc; TempoA is 0),!,
  5.         soma_tempos3(Fer,M,LP,Tempo,TempoA,ResuT,ResuA).
  7. soma_tempos3(_,_,[],ResuT,ResuA,ResuT,ResuA).
  8. soma_tempos3(Fer, M, [Op2|LOp], Tempo, TempoA,ResuT, ResuA):-
  9.     op_prod_client(Op2,M,Fer1,_,_,_,TConc,Tsetup,Texec),
  10.     ((Fer==Fer1,!,Tempo1 is Texec+Tempo);
  11.             Tempo1 is Tsetup+Texec+Tempo),
  12.     ((Tempo1-TConc)>0,!,TempoA1 is Tempo1-TConc+TempoA; TempoA1 is TempoA),
  13.     soma_tempos3(Fer1,M,LOp,Tempo1,TempoA1,ResuT, ResuA),!.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand