drift

cal/fm3.conductance.r

@@ -17,7 +17,7 @@ fm3.conductance <- function(doc){
     ms2s   <- getConstVal(a$cc, "ms_2_s")
     mm32l  <- getConstVal(a$cc, "mm^3_2_l")
 
-    sz.border <- 5e-2 ## unterhalb wird kein sz entfernt
+    sz.border <- 3e-2 ## unterhalb wird kein sz entfernt
     
     s.d    <- getConstVal(a$cmv$Drift, "drift_slope_x")
     R.d    <- getConstVal(a$cmv$Drift, "drift_R")
@@ -105,9 +105,9 @@ fm3.conductance <- function(doc){
 ### Drift Korrektur dV/dt * (1 - m.D/m.SZ)
             ## wenn besser als d.B korreliert
             dcorr[j] <-  (1 - s.d[j]/s.m[j])
-#            if(R.d[j] > d.B){
-#               dVdt <-  dVdt * dcorr[j]
-#	    }
+            if(R.d[j] > d.B){
+               dVdt <-  dVdt * dcorr[j]
+	    }
 
 
             L[j]       <- dVdt

devel/ce3.r

@@ -34,7 +34,7 @@ cdb        <- cdbIni()
 
 ## cdb$id     <- "cal-2019-ce3-kk-75095_0001"
 ## cdb$id     <- "cal-2019-ce3-kk-75095_0001"
-cdb$id     <- "cal-2020-ce3-pn-4816_0003"
+cdb$id     <- "cal-2020-ce3-pn-4816_0008"
 
 cdb$DBName <- "vl_db"