Skip to content
Snippets Groups Projects
Commit fce3325f authored by wactbprot's avatar wactbprot
Browse files

- rm se1.calT.R

- mv se1.yamp.calT.R se1.calT.R
- + se1.uncertdT.R
       geändert:   cal/se1.calT.R
	geändert:   devel/calYampSE1.R
	neue Datei:   uncert/se1.uncertdT.R
parent d66e303f
No related branches found
No related tags found
No related merge requests found
se1.calT <- function(ccc) { se1.calT <- function(ccc) {
msg <- "calculated by calT" msg <- "calculated by se1.calT()"
a <- abbrevList( ccc ) a <- abbrevList( ccc )
...@@ -13,19 +13,20 @@ se1.calT <- function(ccc) { ...@@ -13,19 +13,20 @@ se1.calT <- function(ccc) {
## abwickeln ## abwickeln
## a$cmscex steht für SequenceControll/Expansion ## a$cmscex steht für SequenceControll/Expansion
N <- length(a$cmscex) exNames <- getSubList(a$cmv, "name")$Value
baseCorrName <- "keithley_corr_ch" ## die neuen Namen N <- length(exNames)
baseCorrName <- "keithley_corr_ch"
baseTNameAfter <- "keithley_T_after_ch" baseTNameAfter <- "keithley_T_after_ch"
baseTNameRoom <- "keithley_T_room_ch"
baseTNameRoom <- baseTNameAfter
baseTNameBefore <- "keithley_T_before_ch" baseTNameBefore <- "keithley_T_before_ch"
expansionBaseName <- "Expansion_" ## expansionBaseName <- "Expansion_" ##
## T_after ---------------------------------v ## T_room ---------------------------------v
channelsRoom <- c("110") channelsRoom <- c("110")
roomRes <- getTemperatureVec(a,N,channelsRoom,baseTNameRoom,baseCorrName) + C2K roomRes <- getTemperatureVec(a,N,channelsRoom,baseTNameRoom,baseCorrName) + C2K
## T_after ---------------------------------^ ## T_room ---------------------------------^
## T_after ---------------------------------v ## T_after ---------------------------------v
...@@ -34,11 +35,12 @@ se1.calT <- function(ccc) { ...@@ -34,11 +35,12 @@ se1.calT <- function(ccc) {
## T_after ---------------------------------^ ## T_after ---------------------------------^
## T_before ---------------------------------v ## T_before ---------------------------------v
iA <- which(a$cmscex == paste(expansionBaseName, "A", sep=""))
iB <- which(a$cmscex == paste(expansionBaseName, "B", sep="")) iA <- which(exNames == paste(expansionBaseName, "A", sep=""))
iC <- which(a$cmscex == paste(expansionBaseName, "C", sep="")) iB <- which(exNames == paste(expansionBaseName, "B", sep=""))
iD <- which(a$cmscex == paste(expansionBaseName, "D", sep="")) iC <- which(exNames == paste(expansionBaseName, "C", sep=""))
iE <- which(a$cmscex == paste(expansionBaseName, "E", sep="")) iD <- which(exNames == paste(expansionBaseName, "D", sep=""))
iE <- which(exNames == paste(expansionBaseName, "E", sep=""))
resBefore <- rep(NA,N) resBefore <- rep(NA,N)
......
...@@ -30,6 +30,7 @@ doc <- se1.calPcal(doc) ...@@ -30,6 +30,7 @@ doc <- se1.calPcal(doc)
doc <- se1.uncertPfill(doc) doc <- se1.uncertPfill(doc)
doc <- se1.uncertf(doc) doc <- se1.uncertf(doc)
doc <- se1.uncertdT(doc)
doc <- dispatchResCal( doc ) doc <- dispatchResCal( doc )
......
se1.uncertdT <- function(ccc){
msg <- "calculated by se1.uncertdT()"
a <- abbrevList(ccc)
PFILL <- getSubList(a$cav, "fill")
pfill <- getConstVal(NA, NA, PFILL)
if(PFILL$Unit == "mbar"){
Tafter <- getConstVal(a$cav, "after")
## Beiträge der Sensor-Kalib.:
us1 <- getConstVal(a$cmco, "keithley_u1") ## abs.
us2 <- getConstVal(a$cmco, "keithley_u2") ## abs.
us3 <- getConstVal(a$cmco, "keithley_u3") ## abs.
us4 <- getConstVal(a$cmco, "keithley_u4") ## abs.
us5 <- getConstVal(a$cmco, "keithley_u5") ## abs.
us6 <- getConstVal(a$cmco, "keithley_u6") ## abs.
usc <- sqrt(us1^2 + us2^2 + us3^2 + us4^2 + us5^2 + us6^2)
## Beiträge des Normals
un1 <- getConstVal(a$cms, "dT_u1") ## abs.
un2 <- getConstVal(a$cms, "dT_u2") ## abs.
udT <- sqrt(un1^2 + usc^2 + (pfill*un2)^2)/Tafter ## rel.
ccc$Calibration$Analysis$Values$Uncertainty <-
setCcl(ccc$Calibration$Analysis$Values$Uncertainty,
"uncertdT",
"1",
udT,
msg)
}
return(ccc)
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment