X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=old_C_code%2Fstage2_UNFINISHED%2Fsrc%2F05_cluster2stepWER.r;h=aa35d0c6697f73b991dc0aeb3b8caf10ba6e0ff7;hp=69939b2c2580d2fd5d2a99289c1aba807faceba6;hb=dc1aa85a96bbf815b0d896c22a9b4a539a9e8a9c;hpb=a810626c29b34a0aec00119e8245b01de1a292fc

diff --git a/old_C_code/stage2_UNFINISHED/src/05_cluster2stepWER.r b/old_C_code/stage2_UNFINISHED/src/05_cluster2stepWER.r
index 69939b2..aa35d0c 100644
--- a/old_C_code/stage2_UNFINISHED/src/05_cluster2stepWER.r
+++ b/old_C_code/stage2_UNFINISHED/src/05_cluster2stepWER.r
@@ -45,13 +45,19 @@ rm(synchros09, nas)
 nvoice   <- 4
 # # noctave4 = 2^13 = 8192 half hours ~ 180 days
 noctave4 <- adjust.noctave(N = delta, dt = 1, s0 = 2,
-#                           tw = 0, noctave = 13)
+                           tw = 0, noctave = 13)
 # # 4 here represent 2^5 = 32 half-hours ~ 1 day
 scalevector4  <- 2^(4:(noctave4 * nvoice) / nvoice) * 2
 lscvect4      <- length(scalevector4)
 lscvect <- lscvect4  # i should clean my code: werFam demands a lscvect
 
 
+#(Benjamin)
+#à partir de là, "conso" == courbes synchrones
+n     <- nrow(conso)
+delta <- ncol(conso)
+
+
 #17000 colonnes coeff 1, puis 17000 coeff 2... [non : dans chaque tranche du cube]
 
 #TODO: une fonction qui fait lignes 59 à 91