..

cal/fm3.conductance.r

@@ -10,8 +10,8 @@ fm3.conductance <- function(doc){
     fname  <- deparse(match.call()[[1]])
     msg    <- paste("calculated by", fname)
 
-    c.B    <- 0.2 ## Grenze Korrelation SZ
-    d.B    <- 0.85 ## Grenze Korrelation Drift
+    c.B    <- 0.99 ## Grenze Korrelation SZ
+    d.B    <- 0.9 ## Grenze Korrelation Drift
 
     t2mm   <- getConstVal(a$cs, "turn_2_mm")
     ms2s   <- getConstVal(a$cc, "ms_2_s")
@@ -92,9 +92,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){
+            #if(R.d[j] > d.B){
                dVdt <-  dVdt * dcorr[j]
-            }
+            #}
 
 
             L[j]       <- dVdt

devel/srg_vg.r

@@ -23,8 +23,9 @@ pUnit  <- "mbar"
 ## cdb$id <- "cal-2019-ce3-kk-75036_0002" ##
 ## cdb$id <- "cal-2019-ce3-kk-75037_0002" ## 
 ## cdb$id <- "cal-2019-ce3-kk-75012_0002" ##
-cdb$id <- "cal-2019-ce3-kk-75041_0002" ##
-sigma.F13 <- 1.11
+## cdb$id <- "cal-2019-ce3-kk-75041_0002" ##
+cdb$id <- "cal-2019-ce3-kk-75095_0002" ##
+sigma.F13 <- 1.099
 
 doc    <- cdbGetDoc(cdb)$res
 doc    <- refreshAnalysis(doc)

scripts/ce3.calibration_pressure.r

@@ -60,22 +60,22 @@ for(i in 1:length(ids)){
         doc <- ce3.uncert.pressure.cal(doc)
         #
         #     ## ... customer calibration object (cuco) related
-        doc <- cuco.uncert.digit(doc)
-        doc <- cuco.uncert.pressure.offset(doc)
-        doc <- cuco.uncert.drift.offset(doc)
-        doc <- cuco.uncert.sync(doc)
-        doc <- cuco.uncert.stdev(doc)
-        doc <- cuco.uncert.purity(doc)
-        doc <- cuco.uncert.emis(doc)
-        doc <- cuco.uncert.pressure.ind(doc)
+        ## doc <- cuco.uncert.digit(doc)
+        ## doc <- cuco.uncert.pressure.offset(doc)
+        ## doc <- cuco.uncert.drift.offset(doc)
+        ## doc <- cuco.uncert.sync(doc)
+        ## doc <- cuco.uncert.stdev(doc)
+        ## doc <- cuco.uncert.purity(doc)
+        ## doc <- cuco.uncert.emis(doc)
+        ## doc <- cuco.uncert.pressure.ind(doc)
 
 
        if(length(a$ct) > 0){
            resType <- a$ct$Type
            if(resType == "error"){
                doc <- calError(doc)
-               doc <- ce3.uncert.total.error(doc)
-               doc <- results(doc)
+              # doc <- ce3.uncert.total.error(doc)
+              # doc <- results(doc)
            }
 
            if(resType == "sens"){