*computation of network variables.

*how many empty fields?.
*calculation of string length.
COMPUTE co1_stri_len = LENGTH(RTRIM(c1)) .
COMPUTE co2_stri_len = LENGTH(RTRIM(c2)) .
COMPUTE co3_stri_len = LENGTH(RTRIM(c3)) .
COMPUTE co4_stri_len = LENGTH(RTRIM(c4)) .
COMPUTE co5_stri_len = LENGTH(RTRIM(c5)) .
COMPUTE co6_stri_len = LENGTH(RTRIM(c6)) .
COMPUTE co7_stri_len = LENGTH(RTRIM(c7)) .
COMPUTE co8_stri_len = LENGTH(RTRIM(c8)) .
COMPUTE co9_stri_len = LENGTH(RTRIM(c9)) .
COMPUTE co10_stri_len = LENGTH(RTRIM(c10)) .
COMPUTE co11_stri_len = LENGTH(RTRIM(c11)) .
COMPUTE co12_stri_len = LENGTH(RTRIM(c12)) .
COMPUTE co13_stri_len = LENGTH(RTRIM(c13)) .
COMPUTE co14_stri_len = LENGTH(RTRIM(c14)) .
COMPUTE co15_stri_len = LENGTH(RTRIM(c15)) .
COMPUTE co16_stri_len = LENGTH(RTRIM(c16)) .
COMPUTE co17_stri_len = LENGTH(RTRIM(c17)) .
COMPUTE co18_stri_len = LENGTH(RTRIM(c18)) .
COMPUTE co19_stri_len = LENGTH(RTRIM(c19)) .
EXECUTE .

*count how often string length=0.
COUNT
  no_collab = co1_stri_len  (0)  .
VARIABLE LABELS no_collab 'no name for collaboration partner mentioned' .
EXECUTE .


COUNT
  in_fac0 = co2_stri_len co3_stri_len co4_stri_len co5_stri_len  (0)  .
VARIABLE LABELS in_fac0 'number of not filled in names within faculty' .
EXECUTE .


COUNT
  out_fac0 = co6_stri_len co7_stri_len co8_stri_len co9_stri_len  (0)  .
VARIABLE LABELS out_fac0 'number of not filled in names outside faculty' .
EXECUTE .

COUNT
  bus0 = co10_stri_len co11_stri_len co12_stri_len co13_stri_len  (0)  .
VARIABLE LABELS bus0 'number of not filled in names business network' .
EXECUTE .

COUNT
  friends0 = co14_stri_len co15_stri_len co16_stri_len co17_stri_len  (0)  .
VARIABLE LABELS friends0 'number of not filled in names friends network' .
EXECUTE .

COUNT
  extra_net0 = co18_stri_len co19_stri_len  (0)  .
VARIABLE LABELS extra_net0 'number of not filled in extra names' .
EXECUTE .


COMPUTE in_fac_net_size = 4 - in_fac0 .
EXECUTE .

COMPUTE out_fac_net_size = 4 - out_fac0 .
EXECUTE .

COMPUTE bus_net_size = 4 - bus0 .
EXECUTE .

COMPUTE friend_net_size = 4 - friends0 .
EXECUTE .


COMPUTE extra_net_size = 2-extra_net0 .
EXECUTE .


COUNT
  doubles = v65_4 v65_3 v65_2 v65_1 v66_4 v66_3 v66_2 v66_1 v67_4 v67_3 v67_2 v67_1 v68_4 v68_3 v68_2 v68_1  (1)  .
VARIABLE LABELS doubles 'number of double mentioned names' .
EXECUTE .


COMPUTE net_size = in_fac_net_size + out_fac_net_size + bus_net_size + friend_net_size + extra_net_size - doubles + (1
 -no_collab) .
EXECUTE .

*two respondents gave logically inconstent answers (login 420 und login 780).
 *they filled in no names but clicked on the double buttons, they receive missing values for their network sizes of four and five. 

missing values net_size (-4, -5).


COMPUTE possible_ties = (net_size * (net_size - 1) )/ 2 .
EXECUTE .


COUNT
  nr_not_filled_in_mvars = m19_18 m19_17 m19_16 m19_15 m19_14 m19_13 m19_12 m19_11 m19_10 m19_9 m19_8 m19_7 m19_6 m19_5 m19_4 m19_3
  m19_2 m18_17 m18_16 m18_15 m18_14 m18_13 m18_12 m18_11 m18_10 m18_9 m18_8 m18_7 m18_6 m18_5 m18_4 m18_3 m18_2 m17_16 m17_15
  m17_14 m17_13 m17_12 m17_11 m17_10 m17_9 m17_8 m17_7 m17_6 m17_5 m17_4 m17_3 m17_2 m16_15 m16_14 m16_13 m16_12 m16_11 m16_10
  m16_9 m16_8 m16_7 m16_6 m16_5 m16_4 m16_3 m16_2 m19_1 m18_1 m17_1 m16_1 m15_14 m15_13 m15_12 m15_11 m15_10 m15_9 m15_8 m15_7
  m15_6 m15_5 m15_4 m15_3 m15_2 m15_1 m14_13 m14_12 m14_11 m14_10 m14_9 m14_8 m14_7 m14_6 m14_5 m14_4 m14_3 m14_2 m14_1 m13_12
  m13_11 m13_10 m13_9 m13_8 m13_7 m13_6 m13_5 m13_4 m13_3 m13_2 m13_1 m12_11 m12_10 m12_9 m12_8 m12_7 m12_6 m12_5 m12_4 m12_3
  m12_2 m12_1 m11_10 m11_9 m11_8 m11_7 m11_6 m11_5 m11_4 m11_3 m11_2 m11_1 m10_9 m10_8 m10_7 m10_6 m10_5 m10_4 m10_3 m10_2
  m10_1 m9_8 m9_7 m9_6 m9_5 m9_4 m9_3 m9_2 m9_1 m8_7 m8_6 m8_5 m8_4 m8_3 m8_2 m8_1 m7_6 m7_5 m7_4 m7_3 m7_2 m7_1 m6_5 m6_4
  m6_3 m6_2 m6_1 m5_4 m5_3 m5_2 m5_1 m4_3 m4_2 m4_1 m3_2 m3_1 m2_1  (0)  .
VARIABLE LABELS nr_not_filled_in_mvars 'number of not filled in  m-variables' .
EXECUTE .


COUNT
  nr_dk_mvars = m19_18 m19_17 m19_16 m19_15 m19_14 m19_13 m19_12 m19_11 m19_10 m19_9 m19_8 m19_7 m19_6 m19_5 m19_4 m19_3
  m19_2 m18_17 m18_16 m18_15 m18_14 m18_13 m18_12 m18_11 m18_10 m18_9 m18_8 m18_7 m18_6 m18_5 m18_4 m18_3 m18_2 m17_16 m17_15
  m17_14 m17_13 m17_12 m17_11 m17_10 m17_9 m17_8 m17_7 m17_6 m17_5 m17_4 m17_3 m17_2 m16_15 m16_14 m16_13 m16_12 m16_11 m16_10
  m16_9 m16_8 m16_7 m16_6 m16_5 m16_4 m16_3 m16_2 m19_1 m18_1 m17_1 m16_1 m15_14 m15_13 m15_12 m15_11 m15_10 m15_9 m15_8 m15_7
  m15_6 m15_5 m15_4 m15_3 m15_2 m15_1 m14_13 m14_12 m14_11 m14_10 m14_9 m14_8 m14_7 m14_6 m14_5 m14_4 m14_3 m14_2 m14_1 m13_12
  m13_11 m13_10 m13_9 m13_8 m13_7 m13_6 m13_5 m13_4 m13_3 m13_2 m13_1 m12_11 m12_10 m12_9 m12_8 m12_7 m12_6 m12_5 m12_4 m12_3
  m12_2 m12_1 m11_10 m11_9 m11_8 m11_7 m11_6 m11_5 m11_4 m11_3 m11_2 m11_1 m10_9 m10_8 m10_7 m10_6 m10_5 m10_4 m10_3 m10_2
  m10_1 m9_8 m9_7 m9_6 m9_5 m9_4 m9_3 m9_2 m9_1 m8_7 m8_6 m8_5 m8_4 m8_3 m8_2 m8_1 m7_6 m7_5 m7_4 m7_3 m7_2 m7_1 m6_5 m6_4
  m6_3 m6_2 m6_1 m5_4 m5_3 m5_2 m5_1 m4_3 m4_2 m4_1 m3_2 m3_1 m2_1  (99)  .
VARIABLE LABELS nr_dk_mvars 'number of do not know m-variables' .
EXECUTE .




COUNT
  nr_between_alteri_ties = m19_18 m19_17 m19_16 m19_15 m19_14 m19_13 m19_12 m19_11 m19_10 m19_9 m19_8 m19_7 m19_6 m19_5 m19_4 m19_3
  m19_2 m18_17 m18_16 m18_15 m18_14 m18_13 m18_12 m18_11 m18_10 m18_9 m18_8 m18_7 m18_6 m18_5 m18_4 m18_3 m18_2 m17_16 m17_15
  m17_14 m17_13 m17_12 m17_11 m17_10 m17_9 m17_8 m17_7 m17_6 m17_5 m17_4 m17_3 m17_2 m16_15 m16_14 m16_13 m16_12 m16_11 m16_10
  m16_9 m16_8 m16_7 m16_6 m16_5 m16_4 m16_3 m16_2 m19_1 m18_1 m17_1 m16_1 m15_14 m15_13 m15_12 m15_11 m15_10 m15_9 m15_8 m15_7
  m15_6 m15_5 m15_4 m15_3 m15_2 m15_1 m14_13 m14_12 m14_11 m14_10 m14_9 m14_8 m14_7 m14_6 m14_5 m14_4 m14_3 m14_2 m14_1 m13_12
  m13_11 m13_10 m13_9 m13_8 m13_7 m13_6 m13_5 m13_4 m13_3 m13_2 m13_1 m12_11 m12_10 m12_9 m12_8 m12_7 m12_6 m12_5 m12_4 m12_3
  m12_2 m12_1 m11_10 m11_9 m11_8 m11_7 m11_6 m11_5 m11_4 m11_3 m11_2 m11_1 m10_9 m10_8 m10_7 m10_6 m10_5 m10_4 m10_3 m10_2
  m10_1 m9_8 m9_7 m9_6 m9_5 m9_4 m9_3 m9_2 m9_1 m8_7 m8_6 m8_5 m8_4 m8_3 m8_2 m8_1 m7_6 m7_5 m7_4 m7_3 m7_2 m7_1 m6_5 m6_4
  m6_3 m6_2 m6_1 m5_4 m5_3 m5_2 m5_1 m4_3 m4_2 m4_1 m3_2 m3_1 m2_1  (1 thru 2).
VARIABLE LABELS nr_between_alteri_ties 'number of existing ties between alteri' .
EXECUTE .


COUNT
  nr_between_alteri_ties_nonexistent = m19_18 m19_17 m19_16 m19_15 m19_14 m19_13 m19_12 m19_11 m19_10 m19_9 m19_8 m19_7 m19_6 m19_5
  m19_4 m19_3 m19_2 m18_17 m18_16 m18_15 m18_14 m18_13 m18_12 m18_11 m18_10 m18_9 m18_8 m18_7 m18_6 m18_5 m18_4 m18_3 m18_2
  m17_16 m17_15 m17_14 m17_13 m17_12 m17_11 m17_10 m17_9 m17_8 m17_7 m17_6 m17_5 m17_4 m17_3 m17_2 m16_15 m16_14 m16_13 m16_12
  m16_11 m16_10 m16_9 m16_8 m16_7 m16_6 m16_5 m16_4 m16_3 m16_2 m19_1 m18_1 m17_1 m16_1 m15_14 m15_13 m15_12 m15_11 m15_10
  m15_9 m15_8 m15_7 m15_6 m15_5 m15_4 m15_3 m15_2 m15_1 m14_13 m14_12 m14_11 m14_10 m14_9 m14_8 m14_7 m14_6 m14_5 m14_4 m14_3
  m14_2 m14_1 m13_12 m13_11 m13_10 m13_9 m13_8 m13_7 m13_6 m13_5 m13_4 m13_3 m13_2 m13_1 m12_11 m12_10 m12_9 m12_8 m12_7 m12_6
  m12_5 m12_4 m12_3 m12_2 m12_1 m11_10 m11_9 m11_8 m11_7 m11_6 m11_5 m11_4 m11_3 m11_2 m11_1 m10_9 m10_8 m10_7 m10_6 m10_5
  m10_4 m10_3 m10_2 m10_1 m9_8 m9_7 m9_6 m9_5 m9_4 m9_3 m9_2 m9_1 m8_7 m8_6 m8_5 m8_4 m8_3 m8_2 m8_1 m7_6 m7_5 m7_4 m7_3 m7_2
  m7_1 m6_5 m6_4 m6_3 m6_2 m6_1 m5_4 m5_3 m5_2 m5_1 m4_3 m4_2 m4_1 m3_2 m3_1 m2_1  (3)  .
VARIABLE LABELS nr_between_alteri_ties_nonexistent 'number of non-existing ties between alteri' .
EXECUTE .


*recoding for valued density within the network of alteri.


RECODE
  m19_18 m19_17 m19_16 m19_15 m19_14 m19_13 m19_12 m19_11 m19_10 m19_9 m19_8 m19_7 m19_6 m19_5
  m19_4 m19_3 m19_2 m18_17 m18_16 m18_15 m18_14 m18_13 m18_12 m18_11 m18_10 m18_9 m18_8 m18_7 m18_6 m18_5 m18_4 m18_3 m18_2
  m17_16 m17_15 m17_14 m17_13 m17_12 m17_11 m17_10 m17_9 m17_8 m17_7 m17_6 m17_5 m17_4 m17_3 m17_2 m16_15 m16_14 m16_13 m16_12
  m16_11 m16_10 m16_9 m16_8 m16_7 m16_6 m16_5 m16_4 m16_3 m16_2 m19_1 m18_1 m17_1 m16_1 m15_14 m15_13 m15_12 m15_11 m15_10
  m15_9 m15_8 m15_7 m15_6 m15_5 m15_4 m15_3 m15_2 m15_1 m14_13 m14_12 m14_11 m14_10 m14_9 m14_8 m14_7 m14_6 m14_5 m14_4 m14_3
  m14_2 m14_1 m13_12 m13_11 m13_10 m13_9 m13_8 m13_7 m13_6 m13_5 m13_4 m13_3 m13_2 m13_1 m12_11 m12_10 m12_9 m12_8 m12_7 m12_6
  m12_5 m12_4 m12_3 m12_2 m12_1 m11_10 m11_9 m11_8 m11_7 m11_6 m11_5 m11_4 m11_3 m11_2 m11_1 m10_9 m10_8 m10_7 m10_6 m10_5
  m10_4 m10_3 m10_2 m10_1 m9_8 m9_7 m9_6 m9_5 m9_4 m9_3 m9_2 m9_1 m8_7 m8_6 m8_5 m8_4 m8_3 m8_2 m8_1 m7_6 m7_5 m7_4 m7_3 m7_2
  m7_1 m6_5 m6_4 m6_3 m6_2 m6_1 m5_4 m5_3 m5_2 m5_1 m4_3 m4_2 m4_1 m3_2 m3_1 m2_1  
  (3=0)  (2=1)  (1=2)  (99=99)  (0=SYSMIS)  INTO  
  m19_18new m19_17new m19_16new m19_15new m19_14new m19_13new m19_12new m19_11new m19_10new m19_9new m19_8new m19_7new m19_6new m19_5new
  m19_4new m19_3new m19_2new m18_17new m18_16new m18_15new m18_14new m18_13new m18_12new m18_11new m18_10new m18_9new m18_8new m18_7new m18_6new m18_5new m18_4new m18_3new m18_2new
  m17_16new m17_15new m17_14new m17_13new m17_12new m17_11new m17_10new m17_9new m17_8new m17_7new m17_6new m17_5new m17_4new m17_3new m17_2new m16_15new m16_14new m16_13new m16_12new
  m16_11new m16_10new m16_9new m16_8new m16_7new m16_6new m16_5new m16_4new m16_3new m16_2new m19_1new m18_1new m17_1new m16_1new m15_14new m15_13new m15_12new m15_11new m15_10new
  m15_9new m15_8new m15_7new m15_6new m15_5new m15_4new m15_3new m15_2new m15_1new m14_13new m14_12new m14_11new m14_10new m14_9new m14_8new m14_7new m14_6new m14_5new m14_4new m14_3new
  m14_2new m14_1new m13_12new m13_11new m13_10new m13_9new m13_8new m13_7new m13_6new m13_5new m13_4new m13_3new m13_2new m13_1new m12_11new m12_10new m12_9new m12_8new m12_7new m12_6new
  m12_5new m12_4new m12_3new m12_2new m12_1new m11_10new m11_9new m11_8new m11_7new m11_6new m11_5new m11_4new m11_3new m11_2new m11_1new m10_9new m10_8new m10_7new m10_6new m10_5new
  m10_4new m10_3new m10_2new m10_1new m9_8new m9_7new m9_6new m9_5new m9_4new m9_3new m9_2new m9_1new m8_7new m8_6new m8_5new m8_4new m8_3new m8_2new m8_1new m7_6new m7_5new m7_4new 
  m7_3new m7_2new  m7_1new m6_5new m6_4new m6_3new m6_2new m6_1new m5_4new m5_3new m5_2new m5_1new m4_3new m4_2new m4_1new m3_2new m3_1new m2_1new  .

EXECUTE .

MISSING VALUES m19_18new m19_17new m19_16new m19_15new m19_14new m19_13new m19_12new m19_11new m19_10new m19_9new m19_8new m19_7new m19_6new m19_5new
  m19_4new m19_3new m19_2new m18_17new m18_16new m18_15new m18_14new m18_13new m18_12new m18_11new m18_10new m18_9new m18_8new m18_7new m18_6new m18_5new m18_4new m18_3new m18_2new
  m17_16new m17_15new m17_14new m17_13new m17_12new m17_11new m17_10new m17_9new m17_8new m17_7new m17_6new m17_5new m17_4new m17_3new m17_2new m16_15new m16_14new m16_13new m16_12new
  m16_11new m16_10new m16_9new m16_8new m16_7new m16_6new m16_5new m16_4new m16_3new m16_2new m19_1new m18_1new m17_1new m16_1new m15_14new m15_13new m15_12new m15_11new m15_10new
  m15_9new m15_8new m15_7new m15_6new m15_5new m15_4new m15_3new m15_2new m15_1new m14_13new m14_12new m14_11new m14_10new m14_9new m14_8new m14_7new m14_6new m14_5new m14_4new m14_3new
  m14_2new m14_1new m13_12new m13_11new m13_10new m13_9new m13_8new m13_7new m13_6new m13_5new m13_4new m13_3new m13_2new m13_1new m12_11new m12_10new m12_9new m12_8new m12_7new m12_6new
  m12_5new m12_4new m12_3new m12_2new m12_1new m11_10new m11_9new m11_8new m11_7new m11_6new m11_5new m11_4new m11_3new m11_2new m11_1new m10_9new m10_8new m10_7new m10_6new m10_5new
  m10_4new m10_3new m10_2new m10_1new m9_8new m9_7new m9_6new m9_5new m9_4new m9_3new m9_2new m9_1new m8_7new m8_6new m8_5new m8_4new m8_3new m8_2new m8_1new m7_6new m7_5new m7_4new 
  m7_3new m7_2new  m7_1new m6_5new m6_4new m6_3new m6_2new m6_1new m5_4new m5_3new m5_2new m5_1new m4_3new m4_2new m4_1new m3_2new m3_1new m2_1new  (99). 

value label m19_18new m19_17new m19_16new m19_15new m19_14new m19_13new m19_12new m19_11new m19_10new m19_9new m19_8new m19_7new m19_6new m19_5new
  m19_4new m19_3new m19_2new m18_17new m18_16new m18_15new m18_14new m18_13new m18_12new m18_11new m18_10new m18_9new m18_8new m18_7new m18_6new m18_5new m18_4new m18_3new m18_2new
  m17_16new m17_15new m17_14new m17_13new m17_12new m17_11new m17_10new m17_9new m17_8new m17_7new m17_6new m17_5new m17_4new m17_3new m17_2new m16_15new m16_14new m16_13new m16_12new
  m16_11new m16_10new m16_9new m16_8new m16_7new m16_6new m16_5new m16_4new m16_3new m16_2new m19_1new m18_1new m17_1new m16_1new m15_14new m15_13new m15_12new m15_11new m15_10new
  m15_9new m15_8new m15_7new m15_6new m15_5new m15_4new m15_3new m15_2new m15_1new m14_13new m14_12new m14_11new m14_10new m14_9new m14_8new m14_7new m14_6new m14_5new m14_4new m14_3new
  m14_2new m14_1new m13_12new m13_11new m13_10new m13_9new m13_8new m13_7new m13_6new m13_5new m13_4new m13_3new m13_2new m13_1new m12_11new m12_10new m12_9new m12_8new m12_7new m12_6new
  m12_5new m12_4new m12_3new m12_2new m12_1new m11_10new m11_9new m11_8new m11_7new m11_6new m11_5new m11_4new m11_3new m11_2new m11_1new m10_9new m10_8new m10_7new m10_6new m10_5new
  m10_4new m10_3new m10_2new m10_1new m9_8new m9_7new m9_6new m9_5new m9_4new m9_3new m9_2new m9_1new m8_7new m8_6new m8_5new m8_4new m8_3new m8_2new m8_1new m7_6new m7_5new m7_4new 
  m7_3new m7_2new  m7_1new m6_5new m6_4new m6_3new m6_2new m6_1new m5_4new m5_3new m5_2new m5_1new m4_3new m4_2new m4_1new m3_2new m3_1new m2_1new  99 'do not know' 0 'non-existing' 1 'weak'
 2 'strong'. 



COMPUTE nr_missing_mvars = possible_ties - (nr_dk_mvars + nr_between_alteri_ties + nr_between_alteri_ties_nonexistent) .
EXECUTE .

variable label nr_missing_mvars 'real missing mvars'.
EXECUTE .

*valued density within the network of alteri.

IF ((possible_ties - nr_dk_mvars - nr_missing_mvars) > 0) densi_valued = (SUM(m19_18new,m19_17new, m19_16new, m19_15new, m19_14new, m19_13new, m19_12new, m19_11new, m19_10new, m19_9new, m19_8new, m19_7new, m19_6new, m19_5new,
  m19_4new, m19_3new, m19_2new, m18_17new, m18_16new, m18_15new, m18_14new, m18_13new, m18_12new, m18_11new, m18_10new, m18_9new, m18_8new, m18_7new, m18_6new, m18_5new, m18_4new, m18_3new, m18_2new,
  m17_16new, m17_15new, m17_14new, m17_13new, m17_12new, m17_11new, m17_10new, m17_9new, m17_8new, m17_7new, m17_6new, m17_5new, m17_4new, m17_3new, m17_2new, m16_15new, m16_14new, m16_13new, m16_12new,
  m16_11new, m16_10new, m16_9new, m16_8new, m16_7new, m16_6new, m16_5new, m16_4new, m16_3new, m16_2new, m19_1new, m18_1new, m17_1new, m16_1new, m15_14new, m15_13new, m15_12new, m15_11new, m15_10new,
  m15_9new, m15_8new, m15_7new, m15_6new, m15_5new, m15_4new, m15_3new, m15_2new, m15_1new, m14_13new, m14_12new, m14_11new, m14_10new, m14_9new, m14_8new, m14_7new, m14_6new, m14_5new, m14_4new, m14_3new,
  m14_2new, m14_1new, m13_12new, m13_11new, m13_10new, m13_9new, m13_8new, m13_7new, m13_6new, m13_5new, m13_4new, m13_3new, m13_2new, m13_1new, m12_11new, m12_10new, m12_9new, m12_8new, m12_7new, m12_6new,
  m12_5new, m12_4new, m12_3new, m12_2new, m12_1new, m11_10new, m11_9new, m11_8new, m11_7new, m11_6new, m11_5new, m11_4new, m11_3new, m11_2new, m11_1new, m10_9new, m10_8new, m10_7new, m10_6new, m10_5new,
  m10_4new, m10_3new, m10_2new, m10_1new, m9_8new, m9_7new, m9_6new, m9_5new, m9_4new, m9_3new, m9_2new, m9_1new, m8_7new, m8_6new, m8_5new, m8_4new, m8_3new, m8_2new, m8_1new, m7_6new, m7_5new, m7_4new, 
  m7_3new, m7_2new,  m7_1new, m6_5new, m6_4new, m6_3new, m6_2new, m6_1new, m5_4new, m5_3new, m5_2new, m5_1new, m4_3new, m4_2new, m4_1new, m3_2new, m3_1new, m2_1new  )) /( 2* (possible_ties - nr_dk_mvars - nr_missing_mvars) ).
EXECUTE .


DO IF ((possible_ties - nr_dk_mvars - nr_missing_mvars) = 0) .
RECODE
  densi_valued  (ELSE=sysmis)  .
END IF .
EXECUTE .


*dichotomous density within the network of alteri.

IF ((possible_ties - nr_dk_mvars - nr_missing_mvars) > 0) density_dich = (nr_between_alteri_ties)/(possible_ties- nr_dk_mvars - nr_missing_mvars) .
EXECUTE .

DO IF ((possible_ties - nr_dk_mvars - nr_missing_mvars)= 0) .
RECODE
  density_dich  (ELSE=sysmis)  .
END IF .
EXECUTE .

*drop out variables / missing variables.

*first missings.

IF (net_size ~= 1 & nr_not_filled_in_mvars = 171) miss_matrix = 1 .
EXECUTE .

IF (net_size ~= 1 & nr_not_filled_in_mvars <  171) miss_matrix = 0 .
EXECUTE .

* including if net_size=1 then miss_matrix=missing.

IF nmiss(v69_19,v69_18,v69_17,v69_16,v69_15,v69_14,v69_13,v69_12,v69_11,v69_10,v69_9,v69_8,v69_7,v69_6,v69_5,v69_4,v69_3
 ,v69_2,v69_1)=19 miss_strength = 1 .
EXECUTE .

IF  nmiss(v69_19,v69_18,v69_17,v69_16,v69_15,v69_14,v69_13,v69_12,v69_11,v69_10,v69_9,v69_8,v69_7,v69_6,v69_5,v69_4,v69_3
 ,v69_2,v69_1)<19  miss_strength = 0. 

EXECUTE .


RECODE
  net_size
  (0=1)  (1 thru Highest=0)  (ELSE=SYSMIS)  INTO  miss_total_net .
VARIABLE LABELS miss_total_net 'no name generator at all filled in'.

EXECUTE .



RECODE
  friend_net_size
  (0=1)  (1 thru Highest=0)  (ELSE=SYSMIS)  INTO  miss_friend_net .
VARIABLE LABELS miss_friend_net 'no name generator for friend filled in'.
EXECUTE .


RECODE
  bus_net_size
  (0=1)  (1 thru Highest=0)  (ELSE=SYSMIS)  INTO  miss_bus_net .
VARIABLE LABELS miss_bus_net 'no name generator business network filled in'.
EXECUTE .

RECODE
  out_fac_net_size
  (0=1)  (1 thru Highest=0)  (ELSE=SYSMIS)  INTO  miss_outfac_net .
VARIABLE LABELS miss_outfac_net 'no name generator outside faculty filled in'.
EXECUTE .


RECODE
  in_fac_net_size
  (0=1)  (1 thru Highest=0)  (ELSE=SYSMIS)  INTO  miss_infac_net .
VARIABLE LABELS miss_infac_net 'no name generator for inside faculty network filled in'.
EXECUTE .


*no_collab is already constructed.

RECODE
  extra_net_size
  (0=1)  (1 thru Highest=0)  (ELSE=SYSMIS)  INTO  missing_extra_net .
VARIABLE LABELS missing_extra_net 'name generator extra contacts not filled in'.
EXECUTE .


*construction drop-out variables.


IF (net_size = 0 & miss_strength = 1 & nr_not_filled_in_mvars = 171 & MISSING(v64) = 1 & v65b = 0 & v65c = 0 & v66b=0 & v66c = 0 & v67b =
  0 & v67c = 0 & v68b = 0 & v68c = 0) drop_out_63 = 1 .
EXECUTE .

IF ~((net_size = 0 & miss_strength = 1 & nr_not_filled_in_mvars = 171 & MISSING(v64) = 1 & v65b = 0 & v65c = 0 & v66b=0 & v66c = 0 & v67b =
  0 & v67c = 0 & v68b = 0 & v68c = 0) ) drop_out_63 = 0 .
EXECUTE .
VARIABLE LABELS drop_out_63 'question 63ff not filled in'.
execute.


IF (in_fac_net_size = 0 & out_fac_net_size = 0 & bus_net_size = 0 & friend_net_size = 0 & extra_net_size = 0 & miss_strength
  = 1 & nr_not_filled_in_mvars = 171 & v65b = 0 & v65c = 0 & v66b=0 & v66c = 0 & v67b = 0 & v67c = 0 & v68b = 0 & v68c = 0)
  drop_out_65 = 1 .
EXECUTE .

IF (~(in_fac_net_size = 0 & out_fac_net_size = 0 & bus_net_size = 0 & friend_net_size = 0 & extra_net_size = 0 & miss_strength
  = 1 & nr_not_filled_in_mvars = 171 & v65b = 0 & v65c = 0 & v66b=0 & v66c = 0 & v67b = 0 & v67c = 0 & v68b = 0 & v68c = 0))
  drop_out_65 = 0 .
EXECUTE .
VARIABLE LABELS drop_out_65 'question 65ff not filled in'.
execute.


IF (out_fac_net_size = 0 & bus_net_size = 0 & friend_net_size = 0 & extra_net_size = 0 & miss_strength = 1 &
  nr_not_filled_in_mvars = 171 & v66b=0 & v66c = 0 & v67b = 0 & v67c = 0 & v68b = 0 & v68c = 0) drop_out_66 = 1 .
EXECUTE .

IF (~(out_fac_net_size = 0 & bus_net_size = 0 & friend_net_size = 0 & extra_net_size = 0 & miss_strength = 1 &
  nr_not_filled_in_mvars = 171 & v66b=0 & v66c = 0 & v67b = 0 & v67c = 0 & v68b = 0 & v68c = 0)) drop_out_66 = 0 .
EXECUTE .



VARIABLE LABELS drop_out_66 'question 66ff not filled in'.
execute.

IF ( bus_net_size = 0 & friend_net_size = 0 & extra_net_size = 0 & miss_strength = 1 & nr_not_filled_in_mvars = 171 & v67b =
  0 & v67c = 0 & v68b = 0 & v68c = 0) drop_out_67 = 1 .
EXECUTE .


IF (~( bus_net_size = 0 & friend_net_size = 0 & extra_net_size = 0 & miss_strength = 1 & nr_not_filled_in_mvars = 171 & v67b =
  0 & v67c = 0 & v68b = 0 & v68c = 0)) drop_out_67 = 0 .
EXECUTE .

VARIABLE LABELS drop_out_67 'question 67ff not filled in'.
execute.


IF (friend_net_size = 0 & extra_net_size = 0 & miss_strength = 1 & nr_not_filled_in_mvars = 171 & v68b = 0 & v68c = 0)
  drop_out_68 = 1 .
EXECUTE .

IF (~(friend_net_size = 0 & extra_net_size = 0 & miss_strength = 1 & nr_not_filled_in_mvars = 171 & v68b = 0 & v68c = 0))
  drop_out_68 = 0 .
EXECUTE .

VARIABLE LABELS drop_out_68 'question 68ff not filled in'.
execute.

IF (miss_strength = 1 & nr_not_filled_in_mvars = 171 ) drop_out_69 = 1 .
EXECUTE .

IF (~(miss_strength = 1 & nr_not_filled_in_mvars = 171 )) drop_out_69 = 0 .
EXECUTE .
VARIABLE LABELS drop_out_69 'question 69ff not filled in'.
execute.


RECODE
  v5
  (6=1)  (0=SYSMIS)  (ELSE=0)  INTO  phd_student .
EXECUTE .

*merge with received server data that was not included in the origianl Form Artist export. 

MATCH FILES /FILE=*
 /FILE='C:\E\network-collection-online-offline\randomized-collection\server-date.sav'
 /RENAME (login = d0)
 /BY login_numeric
 /DROP= d0.
EXECUTE.


RECODE
  v5
  (1=1)  (2 thru 7=0)  (ELSE=SYSMIS)  INTO  full_prof .
EXECUTE .


RECODE
  v5
  (2=1)  (1=0) (3 thru 7=0)  (ELSE=SYSMIS)  INTO  assoc_prof .
EXECUTE .

RECODE
  v5
  (3=1)  (1 thru 2=0) (4 thru 7=0)  (ELSE=SYSMIS)  INTO  assist_prof .
EXECUTE .

RECODE
  v5
  (4=1)  (1 thru 3=0) (5 thru 7=0)  (ELSE=SYSMIS)  INTO  post_doc .
EXECUTE .

RECODE
  v5
  (5=1) (7=1) (1 thru 4=0) (6=0)  (ELSE=SYSMIS)  INTO  other_position.
EXECUTE .


RECODE
  net_size
  (0=1)  (1 thru Highest=0)  (ELSE=SYSMIS)  INTO  zero_net_size .
VARIABLE LABELS zero_net_size 'no name generator filled in'.
EXECUTE .


RECODE
  density_dich
  (1=1)  (0 thru 0.99=0)  (ELSE=SYSMIS)  INTO  density_1 .
VARIABLE LABELS density_1 'dichotomous density of One'.
EXECUTE .