EDW 11/18

cal/fm3.conductance.r

@@ -11,7 +11,7 @@ fm3.conductance <- function(doc){
     msg    <- paste("calculated by", fname)
 
     c.B    <- 0.2 ## Grenze Korrelation SZ
-    d.B    <- 0.6 ## Grenze Korrelation Drift
+    d.B    <- 0.85 ## Grenze Korrelation Drift
 
     t2mm   <- getConstVal(a$cs, "turn_2_mm")
     ms2s   <- getConstVal(a$cc, "ms_2_s")

devel/srg_vg.r

@@ -19,9 +19,10 @@ pUnit  <- "mbar"
 ## cdb$id <- "cal-2017-ce3-kk-75043_0002"
 ## cdb$id <- "cal-2017-ce3-kk-75106_0002" ## 
 ##cdb$id <- "cal-2018-ce3-kk-75007_0002" ##
-cdb$id <- "cal-2018-ce3-kk-75021_0002" ## 
+## cdb$id <- "cal-2018-ce3-kk-75021_0002" ##
+cdb$id <- "cal-2018-ce3-kk-75026_0002" ## 
 
-sigma.F13 <- 1.08
+sigma.F13 <- 1.093
 
 doc    <- cdbGetDoc(cdb)$res
 doc    <- refreshAnalysis(doc)

scripts/ce3.calibration_pressure.r

@@ -52,36 +52,36 @@ for(i in 1:length(ids)){
         doc <- fm3.uncert.pressure.res(doc)
         doc <- fm3.uncertqpV(doc)
         ##  ... ce3 related
-        doc <- ce3.uncert.conductance(doc)
-        doc <- ce3.uncert.flow.split(doc)
-        doc <- ce3.uncert.temperature.fm(doc)
-        doc <- ce3.uncert.temperature.ch(doc)
-        doc <- ce3.uncert.F(doc)
-        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 <- ce3.uncert.conductance(doc)
+#        doc <- ce3.uncert.flow.split(doc)
+#        doc <- ce3.uncert.temperature.fm(doc)
+#        doc <- ce3.uncert.temperature.ch(doc)
+#        doc <- ce3.uncert.F(doc)
+#        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)
+#
 
         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"){
                 doc <- calSens(doc)
-                doc <- ce3.uncert.total.sens(doc)
-                doc <- resSens(doc)
+#                doc <- ce3.uncert.total.sens(doc)
+#                doc <- resSens(doc)
 
             }
         }