JackieNg-[team-composition-mitigation]-project-EECS 472

globals [
 imported-jobs ;;an indicator whether the csv data file import was successful
 time ;;tracks the simulation time in minutes, while every tick represents five minutes.
 temp-color-store
 task-slot-1-full
 task-slot-2-full
 task-slot-3-full
 task-slot-4-full
 t-list
 i ;;index for while loops for plotting
 team-pa
 team-na
 team-in
 team-be
]

links-own [
 paffect ;;positive affect values for each link, ranging [0,1]
 naffect ;;negative affect values for each link, ranging [0,1]
 inform ;;instrumental: informational values for each link, ranging [0,1]
 behave ;;instrumental: behavioral values for each link, ranging [0,1]
 ;;creates data storing lists for each type of link
 pa-list
 na-list
 in-list
 be-list
 last-task-update
 pintervene ;; cumulative intervention cost for positive affect
 nintervene ;; cumulative intervention cost for negative affect
 iintervene ;; cumulative intervention cost for informational ties
 bintervene ;; cumulative intervention cost for behavioral ties
 pintervene-list
 nintervene-list
 iintervene-list
 bintervene-list
 patrack-list
 natrack-list
 intrack-list
 betrack-list
]

extensions[csv]

breed [astronauts astronaut]
astronauts-own [
 role
 ;;individual differences collected from HERA
 values
 decision-making-style
 psychological-collectivism
 openness
 conscientiousness
 extraversion
 agreeableness
 neuroticism
 emotional-experience
 emotional-expression
 self-monitoring
 positive-response-to-stress
 suppression
 reappraisal
 education-level
 gender
 age
 working-memory
 general-cognitive-functioning
 social-desirability
]

breed [jobs job]
;;have a task importer  where things you want to knwo about a job are defined and set
;;make a csv first column is when task is introduced, task duration, four columns for each hera member
;;comment code
jobs-own[
 start-time
 duration
 assigned-to-CMD
 assigned-to-FE
 assigned-to-MS1
 assigned-to-MS2
 teaming-episode
 ;;task variables
 degree-of-self-leadership
 leadership-distribution
 goal-interdependence
 workload
 mts
 task-switching
 virtuality
 skill-differentiation
 team-size
 current?
]

;; Routine for the ABM Simulation setup

to setup
  clear-all
  set time 0
  setup-agents
  setup-links
  reset-ticks
  set imported-jobs False
  import-jobs
  set t-list list 0 0
  ask links [
  set pa-list list 0 0.5
  set na-list list 0 0.15
  set in-list list 0 0.5
  set be-list list 0 0.6
  set patrack-list list 0 0.5
  set natrack-list list 0 0.15
  set intrack-list list 0 0.5
  set betrack-list list 0 0.6
  set paffect 0.5 ;; initialize paffect at time 0
  set naffect 0.15 ;; initialize naffect at time 0
  set inform 0.5 ;; initialize inform at time 0
  set behave 0.6 ;; initialize behave at time 0
  set pintervene-list list 0 0
  set nintervene-list list 0 0
  set iintervene-list list 0 0
  set bintervene-list list 0 0
  ]
  refresh
end 

;;Creates the four agents for the model: CMD, FE, MS1, MS2

to setup-agents
  create-astronauts 1 [
    set role "CMD"
    set shape "astronaut"
    set size 4
    set color white
    set xcor 0
    set ycor 9
    ;;individaul difference variables
    set values 4.4
    set decision-making-style 5.3
    set psychological-collectivism 5.9
    set openness 4.5
    set conscientiousness 4.1
    set extraversion 3.3
    set agreeableness 4.3
    set neuroticism 2.3
    set emotional-experience 0
    set emotional-expression 0
    set self-monitoring 4.6
    set positive-response-to-stress 0
    set suppression 3.5
    set reappraisal 7
    set education-level 1
    set gender 1
    set age 1
    set working-memory 0
    set general-cognitive-functioning 0
    set social-desirability 0
  ]
  ask patch 1 5 [
    set plabel "CMD"
  ]
  create-astronauts 1 [
    set role "FE"
    set shape "astronaut"
    set size 4
    set color white
    set xcor 0
    set ycor -9
    ;;individaul difference variables
    set values 5.1
    set decision-making-style 5.3
    set psychological-collectivism 7
    set openness 4.7
    set conscientiousness 5
    set extraversion 4.6
    set agreeableness 4.5
    set neuroticism 1.0
    set emotional-experience 0
    set emotional-expression 0
    set self-monitoring 3.1
    set positive-response-to-stress 0
    set suppression 3.5
    set reappraisal 7
    set education-level 1
    set gender 1
    set age 0
    set working-memory 0
    set general-cognitive-functioning 0
    set social-desirability 0
  ]
  ask patch 0.3 -5 [
    set plabel "FE"
  ]
  create-astronauts 1 [
    set role "MS1"
    set shape "astronaut"
    set size 4
    set color white
    set xcor -9
    set ycor 0
    ;;individaul difference variables
    set values 4.4
    set decision-making-style 5.0
    set psychological-collectivism 5.4
    set openness 3.4
    set conscientiousness 4.1
    set extraversion 3.3
    set agreeableness 4.3
    set neuroticism 2.3
    set emotional-experience 0
    set emotional-expression 0
    set self-monitoring 3.1
    set positive-response-to-stress 0
    set suppression 3.5
    set reappraisal 7
    set education-level 1
    set gender 1
    set age 1
    set working-memory 0
    set general-cognitive-functioning 0
    set social-desirability 0
  ]
  ask patch -5 0 [
    set plabel "MS1"
  ]
  create-astronauts 1 [
    set role "MS2"
    set shape "astronaut"
    set size 4
    set color white
    set xcor 9
    set ycor 0
    ;;individaul difference variables
    set values 3.8
    set decision-making-style 5.3
    set psychological-collectivism 5.7
    set openness 3.4
    set conscientiousness 3.9
    set extraversion 4.0
    set agreeableness 4.2
    set neuroticism 1.4
    set emotional-experience 0
    set emotional-expression 0
    set self-monitoring 3.5
    set positive-response-to-stress 0
    set suppression 2.5
    set reappraisal 4.2
    set education-level 1
    set gender 1
    set age 1
    set working-memory 0
    set general-cognitive-functioning 0
    set social-desirability 0
  ]
  ask patch 6 0 [
    set plabel "MS2"
  ]
end 

;; Creates the setup for all links for the model

to setup-links
  ;ask all turtles to create a link to every other turtle that's not itself
  ask astronauts with [who != 0][
    create-link-to turtle 0
  ]
  ask astronauts with [who != 1][
    create-link-to turtle 1
  ]
  ask astronauts with [who != 2][
    create-link-to turtle 2
  ]
  ask astronauts with [who != 3][
    create-link-to turtle 3
  ]
  ask links [
   ;;set color rgb 255 0 0
   set color approximate-hsb 0 90 70
   set shape "curvy"
   set thickness 0.2
  ]
end 

to update-paffect
  ask links [set paffect (paffect ^ decay-pa ) ;;time decay of ties
    ]
  ask jobs with [hidden? = false] [
    if (assigned-to-cmd = 1 and assigned-to-fe = 1) [pa-teaming 0 1 who pa-teaming 1 0 who]
    if (assigned-to-cmd = 1 and assigned-to-ms1 = 1) [pa-teaming 0 2 who pa-teaming 2 0 who]
    if (assigned-to-cmd = 1 and assigned-to-ms2 = 1) [pa-teaming 0 3 who pa-teaming 3 0 who]
    if (assigned-to-fe = 1 and assigned-to-ms1 = 1) [pa-teaming 1 2 who pa-teaming 2 1 who]
    if (assigned-to-fe = 1 and assigned-to-ms2 = 1) [pa-teaming 1 3 who pa-teaming 3 1 who]
    if (assigned-to-ms1 = 1 and assigned-to-ms2 = 1) [pa-teaming 2 3 who pa-teaming 3 2 who]
    ]
  ask links [

   ;; update CMD links for interventions
   let k 1
   while [k < 4] [
   if time > Num-Periods * 5 [
     if sum [patrack-list] of link 0 k < Threshold [
       set paffect paffect + random-float Benefit
       set pintervene pintervene + Cost
     ]
   ]

   set k (k + 1)
   ]

   ;; update FE links for interventions
   let l 0
   while [l < 4] [
   ifelse l != 1 [

   if time > Num-Periods * 5 [
     if sum [patrack-list] of link 1 l < Threshold [
       set paffect paffect + random-float Benefit
       set pintervene pintervene + Cost
     ]
   ]

   set l (l + 1)]

   [set l (l + 1)]
   ]

   ;; update MS1 links for interventions
   let m 0
   while [m < 4] [
   ifelse m != 2 [
   if time > Num-Periods * 5 [
     if sum [patrack-list] of link 2 m < Threshold [
       set paffect paffect + random-float Benefit
       set pintervene pintervene + Cost
     ]
   ]

   set m (m + 1)]

   [set m (m + 1)]
   ]

   ;; update MS2 links for interventions
   let n 2
   while [n > -1] [
   if time > Num-Periods * 5 [
     if sum [patrack-list] of link 3 n < Threshold [
       set paffect paffect + random-float Benefit
       set pintervene pintervene + Cost
     ]
   ]

   set n (n - 1)
   ]
  if paffect > 1 [set paffect 1]
  if paffect < 0 [set paffect 0]

  set pa-list lput paffect pa-list ;;adds new paffect value to the end of the list
  set patrack-list lput paffect patrack-list
  if length patrack-list > Num-Periods [set patrack-list but-first patrack-list]
  set pintervene-list lput pintervene pintervene-list ;;adds new positive intervention value to the end of the list
  ]
end 

to update-naffect
  ask links [set naffect (naffect ^ decay-na) ;;time decay of ties
  ]
  ask jobs with [hidden? = false] [
    if (assigned-to-cmd = 1 and assigned-to-fe = 1) [na-teaming 0 1 who na-teaming 1 0 who]
    if (assigned-to-cmd = 1 and assigned-to-ms1 = 1) [na-teaming 0 2 who na-teaming 2 0 who]
    if (assigned-to-cmd = 1 and assigned-to-ms2 = 1) [na-teaming 0 3 who na-teaming 3 0 who]
    if (assigned-to-fe = 1 and assigned-to-ms1 = 1) [na-teaming 1 2 who na-teaming 2 1 who]
    if (assigned-to-fe = 1 and assigned-to-ms2 = 1) [na-teaming 1 3 who na-teaming 3 1 who]
    if (assigned-to-ms1 = 1 and assigned-to-ms2 = 1) [na-teaming 2 3 who na-teaming 3 2 who]
    ]
  ask links [

;; update CMD links for interventions
   let k 1
   while [k < 4] [
   if time > Num-Periods * 5 [
     if sum [natrack-list] of link 0 k > Threshold [
       set naffect naffect - random-float Benefit
       set nintervene nintervene + Cost
     ]
   ]

   set k (k + 1)
   ]

   ;; update FE links for interventions
   let l 0
   while [l < 4] [
   ifelse l != 1 [

   if time > Num-Periods * 5 [
     if sum [natrack-list] of link 1 l > Threshold [
       set naffect naffect - random-float Benefit
       set nintervene nintervene + Cost
     ]
   ]

   set l (l + 1)]

   [set l (l + 1)]
   ]

   ;; update MS1 links for interventions
   let m 0
   while [m < 4] [
   ifelse m != 2 [

   if time > Num-Periods * 5 [
     if sum [natrack-list] of link 2 m > Threshold [
       set naffect naffect - random-float Benefit
       set nintervene nintervene + Cost
     ]
   ]
   set m (m + 1)]

   [set m (m + 1)]
   ]

   ;; update MS2 links for interventions
   let n 2
   while [n > -1] [
   if time > Num-Periods * 5 [
     if sum [natrack-list] of link 3 n > Threshold [
       set naffect naffect - random-float Benefit
       set nintervene nintervene + Cost
     ]
   ]

   set n (n - 1)
   ]

 if naffect > 1 [set naffect 1]
 if naffect < 0 [set naffect 0]

 set na-list lput naffect na-list ;;adds new naffect value to the end of the list
 set natrack-list lput naffect natrack-list
 if length natrack-list > Num-Periods [set natrack-list but-first natrack-list]
  set nintervene-list lput nintervene nintervene-list ;;adds new nintervene value to the end of the list
  ]
end 

to update-inform
  ask links [set inform (inform ^ decay-in) ;;time decay of ties
  ]
  ask jobs with [hidden? = false] [
    if (assigned-to-cmd = 1 and assigned-to-fe = 1) [in-teaming 0 1 who in-teaming 1 0 who]
    if (assigned-to-cmd = 1 and assigned-to-ms1 = 1) [in-teaming 0 2 who in-teaming 2 0 who]
    if (assigned-to-cmd = 1 and assigned-to-ms2 = 1) [in-teaming 0 3 who in-teaming 3 0 who]
    if (assigned-to-fe = 1 and assigned-to-ms1 = 1) [in-teaming 1 2 who in-teaming 2 1 who]
    if (assigned-to-fe = 1 and assigned-to-ms2 = 1) [in-teaming 1 3 who in-teaming 3 1 who]
    if (assigned-to-ms1 = 1 and assigned-to-ms2 = 1) [in-teaming 2 3 who in-teaming 3 2 who]
    ]
  ask links [

   ;; update CMD links for interventions
   let k 1
   while [k < 4] [
   if time > Num-Periods * 5 [
     if sum [intrack-list] of link 0 k < Threshold [
       set inform inform + random-float Benefit
       set iintervene iintervene + Cost
     ]
   ]
   set k (k + 1)
   ]

   ;; update FE links for interventions
   let l 0
   while [l < 4] [
   ifelse l != 1 [

   if time > Num-Periods * 5 [
     if sum [intrack-list] of link 1 l < Threshold [
       set inform inform + random-float Benefit
       set iintervene iintervene + Cost
     ]
   ]

   set l (l + 1)]

   [set l (l + 1)]
   ]

   ;; update MS1 links for interventions
   let m 0
   while [m < 4] [
   ifelse m != 2 [

   if time > Num-Periods * 5 [
     if sum [intrack-list] of link 2 m < Threshold [
       set inform inform + random-float Benefit
       set iintervene iintervene + Cost
     ]
   ]

   set m (m + 1)]

   [set m (m + 1)]
   ]

   ;; update MS2 links for interventions
   let n 2
   while [n > -1] [
   if time > Num-Periods * 5 [
     if sum [intrack-list] of link 3 n < Threshold [
       set inform inform + random-float Benefit
       set iintervene iintervene + Cost
     ]
   ]
   set n (n - 1)
   ]

  if inform > 1 [set inform 1]
  if inform < 0 [set inform 0]

  set in-list lput inform in-list ;;adds new informational value to the end of the list
  set intrack-list lput inform intrack-list
  if length intrack-list > Num-Periods [set intrack-list but-first intrack-list]
  set iintervene-list lput iintervene iintervene-list ;;adds new informational intervention value to the end of the list
  ]
end 

to update-behave
  ask links [set behave (behave ^ decay-be) ;;time decay of ties
  ]
  ask jobs with [hidden? = false] [
    if (assigned-to-cmd = 1 and assigned-to-fe = 1) [be-teaming 0 1 who be-teaming 1 0 who]
    if (assigned-to-cmd = 1 and assigned-to-ms1 = 1) [be-teaming 0 2 who be-teaming 2 0 who]
    if (assigned-to-cmd = 1 and assigned-to-ms2 = 1) [be-teaming 0 3 who be-teaming 3 0 who]
    if (assigned-to-fe = 1 and assigned-to-ms1 = 1) [be-teaming 1 2 who be-teaming 2 1 who]
    if (assigned-to-fe = 1 and assigned-to-ms2 = 1) [be-teaming 1 3 who be-teaming 3 1 who]
    if (assigned-to-ms1 = 1 and assigned-to-ms2 = 1) [be-teaming 2 3 who be-teaming 3 2 who]
    ]
  ask links [

  ;; update CMD links for interventions
  let k 1
   while [k < 4] [
   if time > Num-Periods * 5 [
     if sum [betrack-list] of link 0 k < Threshold [
       set behave behave + random-float Benefit
       set bintervene bintervene + Cost
     ]
   ]

   set k (k + 1)
   ]

   ;; update FE links for interventions
   let l 0
   while [l < 4] [
   ifelse l != 1 [

;;   set betrack-list lput behave betrack-list
;;   if length betrack-list > Num-Periods [set betrack-list but-first betrack-list]
   if time > Num-Periods * 5 [
     if sum [betrack-list] of link 1 l < Threshold [
       set behave behave + random-float Benefit
       set bintervene bintervene + Cost
;;       show replace-item 4 [betrack-list] of link 1 l behave
     ]
   ]

   set l (l + 1)]

   [set l (l + 1)]
   ]

   ;; update MS1 links for interventions
   let m 0
   while [m < 4] [
   ifelse m != 2 [

   if time > Num-Periods * 5 [
     if sum [betrack-list] of link 2 m < Threshold [
       set behave behave + random-float Benefit
       set bintervene bintervene + Cost
;;       show replace-item 4 [betrack-list] of link 2 m behave
     ]
   ]

   set m (m + 1)]

   [set m (m + 1)]
   ]

   ;; update MS2 links for interventions
   let n 2
   while [n > -1] [
   if time > Num-Periods * 5 [
     if sum [betrack-list] of link 3 n < Threshold [
       set behave behave + random-float Benefit
       set bintervene bintervene + Cost
     ]
   ]

   set n (n - 1)
   ]
if behave > 1 [set behave 1]
if behave < 0 [set behave 0]

set be-list lput behave be-list ;;adds new behavioral value to the end of the list
set betrack-list lput behave betrack-list
if length betrack-list > Num-Periods [set betrack-list but-first betrack-list]
set bintervene-list lput bintervene bintervene-list ;;adds new behavioral intervention value to the end of the list
  ]
end 

to pa-teaming [part1 part2 jobnum] ;;updates teaming for two participants. Cmd = 0, Fe = 1, Ms1 = 2, Ms2 = 3. part1 = perciever, part2 = percieved, jobnum = who of the job being called
    ask link part1 part2 [
      set paffect ( paffect    ;;previous tie value including decay over time
         + scale-pa ;;weight for scaling amount of change on each time step
         * (([      0.09 * values + 0.15 * decision-making-style + 0.2 * psychological-collectivism + 0.02 * openness + 0.15 * conscientiousness + 0.2 * extraversion + 0.52 * agreeableness - 0.5 * neuroticism + 0.31 * emotional-experience + 0.46 * emotional-expression + 0.22 * self-monitoring + 0.6 * positive-response-to-stress + 0.23 * reappraisal - 0.1 * education-level - 0.01 * gender + 0.19 * age + 0.15 * general-cognitive-functioning + 0.35 * social-desirability   ] of turtle part1);;attributes of perciever
         +([        0.09 * values + 0.15 * decision-making-style + 0.2 * psychological-collectivism + 0.02 * openness + 0.15 * conscientiousness + 0.2 * extraversion + 0.52 * agreeableness - 0.5 * neuroticism + 0.31 * emotional-experience + 0.46 * emotional-expression + 0.22 * self-monitoring + 0.6 * positive-response-to-stress + 0.23 * reappraisal - 0.1 * education-level - 0.01 * gender + 0.19 * age + 0.15 * general-cognitive-functioning + 0.35 * social-desirability      ] of turtle part2);;attributes of percieved
         +([        0.6 * goal-interdependence - 0.15 * workload - 0.4 * mts - 0.4 * virtuality + 0.15 * team-size      ] of turtle jobnum));;attributes of the task
           )
    ]
end 

to na-teaming [part1 part2 jobnum] ;;updates teaming for two participants. Cmd = 0, Fe = 1, Ms1 = 2, Ms2 = 3. part1 = perciever, part2 = percieved, jobnum = who of the job being called
  ask link part1 part2 [
      set naffect ( naffect    ;;previous tie value including decay over time
         + scale-na ;;weight for scaling amount of change on each time step
         * (([      0 - 0.16 * values - 0.15 * decision-making-style - 0.4 * psychological-collectivism - 0.15 * openness + 0.15 * conscientiousness + 0.56 * neuroticism - 0.12 * emotional-experience - 0.27 * emotional-expression - 0.6 * positive-response-to-stress + 0.46 * suppression + 0.23 * reappraisal - 0.44 * education-level - 0.41 * gender - 0.42 * age + 0.4 * general-cognitive-functioning      ] of turtle part1);;attributes of perciever
         +([        0 - 0.16 * values - 0.15 * decision-making-style - 0.4 * psychological-collectivism - 0.15 * openness + 0.15 * conscientiousness + 0.56 * neuroticism - 0.12 * emotional-experience - 0.27 * emotional-expression - 0.6 * positive-response-to-stress + 0.46 * suppression + 0.23 * reappraisal - 0.44 * education-level - 0.41 * gender - 0.42 * age + 0.4 * general-cognitive-functioning     ] of turtle part2);;attributes of percieved
         +([        0.05 * goal-interdependence + 0.15 * workload + 0.15 * mts + 0.15 * virtuality + 0.09 * team-size      ] of turtle jobnum));;attributes of the task
           )
    ]
end 

to in-teaming [part1 part2 jobnum] ;;updates teaming for two participants. Cmd = 0, Fe = 1, Ms1 = 2, Ms2 = 3. part1 = perciever, part2 = percieved, jobnum = who of the job being called
  ask link part1 part2 [
      set inform ( inform    ;;previous tie value including decay over time
         + scale-in ;;weight for scaling amount of change on each time step
         * (([      0.11 * values + 0.15 * decision-making-style + 0.25 * openness + 0.26 * conscientiousness + 0.3 * extraversion + 0.25 * agreeableness + 0.22 * neuroticism + 0.15 * emotional-expression - 0.15 * self-monitoring + 0.15 * positive-response-to-stress - 0.4 * suppression + 0.4 * reappraisal + 0.33 * education-level + 0.29 * age + 0.23 * general-cognitive-functioning   ] of turtle part1);;attributes of perciever
         +([        0.11 * values + 0.15 * decision-making-style + 0.25 * openness + 0.26 * conscientiousness + 0.3 * extraversion + 0.25 * agreeableness + 0.22 * neuroticism + 0.15 * emotional-expression - 0.15 * self-monitoring + 0.15 * positive-response-to-stress - 0.4 * suppression + 0.4 * reappraisal + 0.33 * education-level + 0.29 * age + 0.23 * general-cognitive-functioning     ] of turtle part2);;attributes of percieved
         +([        0.85 * goal-interdependence + 0.6 * workload + 0.4 * mts - 0.6 * virtuality + 0.15 * skill-differentiation + 0.15 * team-size      ] of turtle jobnum));;attributes of the task
           )
    ]
end 

to be-teaming [part1 part2 jobnum] ;;updates teaming for two participants. Cmd = 0, Fe = 1, Ms1 = 2, Ms2 = 3. part1 = perciever, part2 = percieved, jobnum = who of the job being called
  ask link part1 part2 [
      set behave ( behave    ;;previous tie value including decay over time
         + scale-be ;;weight for scaling amount of change on each time step
         * (([      0 - 0.13 * values + 0.32 * psychological-collectivism + 0.46 * conscientiousness + 0.38 * extraversion + 0.28 * agreeableness - 0.37 * neuroticism + 0.15 * self-monitoring + 0.6 * positive-response-to-stress + 0.4 * reappraisal - 0.16 * age + 0.6 * working-memory + 0.09 * general-cognitive-functioning     ] of turtle part1);;attributes of perciever
         +([        0 - 0.13 * values + 0.32 * psychological-collectivism + 0.46 * conscientiousness + 0.38 * extraversion + 0.28 * agreeableness - 0.37 * neuroticism + 0.15 * self-monitoring + 0.6 * positive-response-to-stress + 0.4 * reappraisal - 0.16 * age + 0.6 * working-memory + 0.09 * general-cognitive-functioning     ] of turtle part2);;attributes of percieved
         +([        0 - 0.4 * degree-of-self-leadership + 0.6 * goal-interdependence + 0.6 * workload + 0.4 * mts - 0.4 * virtuality + 0.6 * skill-differentiation - 0.15 * team-size     ] of turtle jobnum));;attributes of the task
           )
    ]
end 

to do-plotting
  set-current-plot "Tie Strength of CMD"
  clear-plot
  set-current-plot-pen "CMD -> FE"
  set i 0
  ask link 0 1 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]
  set-current-plot-pen "CMD -> MS1"
  set i 0
  ask link 0 2 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]
  set-current-plot-pen "CMD -> MS2"
  set i 0
  ask link 0 3 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]

  set-current-plot "Tie Strength of MS1"
  clear-plot
  set-current-plot-pen "MS1 -> CMD"
  set i 0
  ask link 2 0 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]
  set-current-plot-pen "MS1 -> MS2"
  set i 0
  ask link 2 3 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]
  set-current-plot-pen "MS1 -> FE"
  set i 0
  ask link 2 1 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]

  set-current-plot "Tie Strength of MS2"
  clear-plot
  set-current-plot-pen "MS2 -> CMD"
  set i 0
  ask link 3 0 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]
  set-current-plot-pen "MS2 -> MS1"
  set i 0
  ask link 3 2 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]
  set-current-plot-pen "MS2 -> FE"
  set i 0
  ask link 3 1 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]

  set-current-plot "Tie Strength of FE"
  clear-plot
  set-current-plot-pen "FE -> CMD"
  set i 0
  ask link 1 0 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]
  set-current-plot-pen "FE -> MS1"
  set i 0
  ask link 1 2 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]
  set-current-plot-pen "FE -> MS2"
  set i 0
  ask link 1 3 [
     while [i < length t-list] [
       if (displayn = "Positive affect") [plotxy item i t-list item i pa-list]
       if (displayn = "Negative affect") [plotxy item i t-list item i na-list]
       if (displayn = "Informational ties") [plotxy item i t-list item i in-list]
       if (displayn = "Behavioral ties") [plotxy item i t-list item i be-list]
       set i (i + 1)
     ]]
end 


;;refreshes the display for the model based on the chooser values

to refresh
  ;;displays current tasks, hides non-current tasks. Repositions all tasks into correct task-slots
  ask jobs with [(teaming-episode = 1) and (hidden? = false) and not((start-time <= time) and (start-time + duration > time))] [
    if (ycor = -15) [set task-slot-1-full 0]
    if (ycor = -12) [set task-slot-2-full 0]
    if (ycor = -9) [set task-slot-3-full 0]
    if (ycor = -6) [set task-slot-4-full 0]
    hide-turtle
  ]
  ask jobs with [(hidden? = true) and (teaming-episode = 1) and (start-time <= time) and (start-time + duration > time)] [
    ifelse (task-slot-1-full = 0) [
      set ycor -15
      set task-slot-1-full 1]
    [ifelse (task-slot-2-full = 0) [
      set ycor -12
      set task-slot-2-full 1]
    [ifelse (task-slot-3-full = 0) [
      set ycor -9
      set task-slot-3-full 1]
    [if (task-slot-4-full = 0) [
      set ycor -6
      set task-slot-4-full 1]]]]
    show-turtle
  ]
  ;;colors astronauts based upon the current tasks
  ask astronauts [set color white]
  ask jobs with [(hidden? = false) and (teaming-episode = 1)] [
    set temp-color-store color
    if (assigned-to-cmd = 1) [ask astronaut 0 [set color temp-color-store]]
    if (assigned-to-fe = 1) [ask astronaut 1 [set color temp-color-store]]
    if (assigned-to-ms1 = 1) [ask astronaut 2 [set color temp-color-store]]
    if (assigned-to-ms2 = 1) [ask astronaut 3 [set color temp-color-store]]
  ]
  ;;displays the correct type of ties
  if (displayn = "Positive affect") [ask links [set color approximate-hsb (paffect * 140) 90 70]]
  if (displayn = "Negative affect")[ask links [set color approximate-hsb (naffect * 140) 90 70]]
  if (displayn = "Informational ties")[ask links [set color approximate-hsb (inform * 140) 90 70]]
  if (displayn = "Behavioral ties")[ask links [set color approximate-hsb (behave * 140) 90 70]]
  ;;displays the current time
  ask patch 15 15 [
    set plabel time
  ]
  do-plotting
end 


;; The main simulation routine for the program

to go
  ;;steps forward in model time
  update-paffect
  update-naffect
  update-inform
  update-behave
  set team-pa team-scale-pa * (([paffect] of link 0 1 + [paffect] of link 0 2 + [paffect] of link 0 3 + [paffect] of link 1 0 + [paffect] of link 1 2 + [paffect] of link 1 3 + [paffect] of link 2 0 + [paffect] of link 2 1 + [paffect] of link 2 3 + [paffect] of link 3 0 + [paffect] of link 3 1 + [paffect] of link 3 2) / 12)
  set team-na team-scale-na * (([naffect] of link 0 1 + [naffect] of link 0 2 + [naffect] of link 0 3 + [naffect] of link 1 0 + [naffect] of link 1 2 + [naffect] of link 1 3 + [naffect] of link 2 0 + [naffect] of link 2 1 + [naffect] of link 2 3 + [naffect] of link 3 0 + [naffect] of link 3 1 + [naffect] of link 3 2) / 12)
  set team-in team-scale-in * (([inform] of link 0 1 + [inform] of link 0 2 + [inform] of link 0 3 + [inform] of link 1 0 + [inform] of link 1 2 + [inform] of link 1 3 + [inform] of link 2 0 + [inform] of link 2 1 + [inform] of link 2 3 + [inform] of link 3 0 + [inform] of link 3 1 + [inform] of link 3 2) / 12)
  set team-be team-scale-be * (([behave] of link 0 1 + [behave] of link 0 2 + [behave] of link 0 3 + [behave] of link 1 0 + [behave] of link 1 2 + [behave] of link 1 3 + [behave] of link 2 0 + [behave] of link 2 1 + [behave] of link 2 3 + [behave] of link 3 0 + [behave] of link 3 1 + [behave] of link 3 2) / 12)
  set time (time + 5) ;;time stored in five minute increments (one twelth of an hour)
  set t-list lput time t-list ;;adds the new time to the end of the t-list
  refresh
  tick
end 


;; A subroutine for importing jobs from csv

to import-jobs
  ;; open a file on the system
  let filename "runData.csv"
  file-open filename

  ;; parses the file
  let header csv:from-row file-read-line
  while [ not file-at-end? ] [
    let items csv:from-row file-read-line
    create-jobs 1 [
      ;; not visible until (ticks = start-time)
      hide-turtle

      ;; make the tasks have a box shape
      set shape "box"
      set size 3

      set start-time item 4 items
      set duration item 6 items
      set assigned-to-MS1 item 9 items
      set assigned-to-FE item 10 items
      set assigned-to-CMD item 11 items
      set assigned-to-MS2 item 12 items
      set teaming-episode item 13 items
      ;;indepedent variables of each task
      set degree-of-self-leadership item 14 items
      set leadership-distribution item 15 items
      set goal-interdependence item 16 items
      set workload item 17 items
      set mts item 18 items
      set task-switching item 19 items
      set virtuality item 20 items
      set skill-differentiation item 21 items
      set team-size item 22 items

      set xcor 15
      set ycor 0
    ]
  ]
  ;; import complete, so close the file
  file-close
  set imported-jobs true
end 

to-report link-paffects
  report [(list self paffect)] of links
end 

to-report link-naffects
  report [(list self naffect)] of links
end 

to-report link-inform
  report [(list self inform)] of links
end 

to-report link-behave
  report [(list self behave)] of links
end 

to-report link-pintervene
  report [(list self pintervene)] of links
end 

to-report link-nintervene
  report [(list self nintervene)] of links
end 

to-report link-iintervene
  report [(list self iintervene)] of links
end 

to-report link-bintervene
  report [(list self bintervene)] of links
end