rescov2 <- mxPath(from=names(df)[2],to=names(df)[-c(1,2)],arrows=2,free=TRUE,values=0,
  labels=c("cov23","cov24","cov25","cov26","cov27"))

rescov3 <- mxPath(from=names(df)[3],to=names(df)[-(1:3)],arrows=2,free=TRUE,values=0,
  labels=c("cov34","cov35","cov36","cov37"))

rescov4 <- mxPath(from=names(df)[4],to=names(df)[-(1:4)],arrows=2,free=TRUE,values=0,
  labels=c("cov45","cov46","cov47"))

rescov5 <- mxPath(from=names(df)[5],to=names(df)[-(1:5)],arrows=2,free=TRUE,values=0,
  labels=c("cov56","cov57"))

rescov6 <- mxPath(from=names(df)[6],to=names(df)[-(1:6)],arrows=2,free=TRUE,values=0,
  labels=c("cov67"))

algc.23 <- mxAlgebra(cov23/sqrt(rv_z_fink*rv_z_font),"rho23")
algc.24 <- mxAlgebra(cov24/sqrt(rv_z_fink*rv_z_pfor),"rho24")
algc.25 <- mxAlgebra(cov25/sqrt(rv_z_fink*rv_z_salv),"rho25")
algc.26 <- mxAlgebra(cov26/sqrt(rv_z_fink*rv_z_wikl),"rho26")
algc.27 <- mxAlgebra(cov27/sqrt(rv_z_fink*rv_z_wuyt),"rho27")

algc.34 <- mxAlgebra(cov34/sqrt(rv_z_font*rv_z_pfor),"rho34")
algc.35 <- mxAlgebra(cov35/sqrt(rv_z_font*rv_z_salv),"rho35")
algc.36 <- mxAlgebra(cov36/sqrt(rv_z_font*rv_z_wikl),"rho36")
algc.37 <- mxAlgebra(cov37/sqrt(rv_z_font*rv_z_wuyt),"rho37")

algc.45 <- mxAlgebra(cov45/sqrt(rv_z_pfor*rv_z_salv),"rho45")
algc.46 <- mxAlgebra(cov46/sqrt(rv_z_pfor*rv_z_wikl),"rho46")
algc.47 <- mxAlgebra(cov47/sqrt(rv_z_pfor*rv_z_wuyt),"rho47")

algc.56 <- mxAlgebra(cov56/sqrt(rv_z_salv*rv_z_wikl),"rho56")
algc.57 <- mxAlgebra(cov57/sqrt(rv_z_salv*rv_z_wuyt),"rho57")

algc.67 <- mxAlgebra(cov67/sqrt(rv_z_wikl*rv_z_wuyt),"rho67")


cons24 <- mxConstraint(rho24==rho23,"cons24")
cons25 <- mxConstraint(rho25==rho23,"cons25")
cons26 <- mxConstraint(rho26==rho23,"cons26")
cons27 <- mxConstraint(rho27==rho23,"cons27")

cons34 <- mxConstraint(rho34==rho23,"cons34")
cons35 <- mxConstraint(rho35==rho23,"cons35")
cons36 <- mxConstraint(rho36==rho23,"cons36")
cons37 <- mxConstraint(rho37==rho23,"cons37")

cons45 <- mxConstraint(rho45==rho23,"cons45")
cons46 <- mxConstraint(rho46==rho23,"cons46")
cons47 <- mxConstraint(rho47==rho23,"cons47")

cons56 <- mxConstraint(rho56==rho23,"cons56")
cons57 <- mxConstraint(rho57==rho23,"cons57")

cons67 <- mxConstraint(rho67==rho23,"cons67")