(defun make-new-team (max_size teamNumber)
  (let ((tmpteam (make-team))
	(alphas (our-sample 'team-alpha))
	(betas 0)
	(omegas 0))
    (setf betas (- 0.4 (* 2 (- alphas 0.15)))
	  omegas (- 1 alphas betas))
    
    (setf (team-size tmpteam) (min max_size (floor (our-sample 'teamsize)))
	  (team-number tmpteam) teamNumber
	  (team-alphas tmpteam) alphas
	  (team-betas tmpteam) betas
	  (team-omegas tmpteam) omegas)
  tmpteam))