Displaying 1 result from an estimated 1 matches for "bew2".
Did you mean:
be2
2009 Nov 26
1
Arrhenius Plot 2 with lattice
...[c(2)]-test$V3[c(1)]+test
$V3[c(4)]-test$V3[c(3)]))
n2<-c(n2,-1/(RH2[c(46)]*1.60217e-19))
PA2<-c(1.1331/100e-6*.32e-4*(test$V1[c(2)]+test$V1[c(4)]-test
$V1[c(1)]-test$V1[c(3)]))
PB2<-c(1.1331/100e-6*.32e-4*(test$V1[c(6)]+test$V1[c(8)]-test
$V1[c(5)]-test$V1[c(7)]))
P2<-c(P2,(PA2+PB2)/2)
bew2<-c(bew2,-RH2[c(46)]/P2[c(46)])
QA2<-c(QA2,(test$V1[c(2)]-test$V1[c(1)])/(test$V1[c(4)]-test$V1[c(3)]))
QB2<-c(QB2,(test$V1[c(6)]-test$V1[c(5)])/(test$V1[c(8)]-test$V1[c(7)]))
#.......
Temp<-c(79,80,85,90,95,100,106,110,115,120,125,132,135,140,145,151,156,160,165,170,175,180,185,190,19...