require("ggplot2")

GG_THEME=theme_bw()+theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())

ReadDatabase<-function(FILE){

    INPUT<-gsub(';','',readLines(FILE))

    S<-gsub('tauA = ','',gsub("\\s+"," ",(grep("tauA",INPUT,value=TRUE))))
    TAU_A = as.numeric(gsub("/.*","",S))
    S<-gsub('tauB = ','',gsub("\\s+"," ",(grep("tauB",INPUT,value=TRUE))))
    TAU_B = as.numeric(gsub("/.*","",S))
    S<-gsub('rhoA = ','',gsub("\\s+"," ",(grep("rhoA",INPUT,value=TRUE))))
    RHO_A = as.numeric(gsub("/.*","",S))
    S<-gsub('rhoB = ','',gsub("\\s+"," ",(grep("rhoB",INPUT,value=TRUE))))
    RHO_B = as.numeric(gsub("/.*","",S))

    S<-gsub('alpha = ','',gsub("\\s+"," ",(grep("alpha",INPUT,value=TRUE))))
    ALPHA = as.numeric(gsub("/.*","",S))

    # Read the affinity
    S<-gsub('ComponentAffinity = ','',gsub("\\s+"," ",(grep("ComponentAffinity",INPUT,value=TRUE))))
    S<-gsub("/.*","",S)
    AFFINITY<-as.numeric(unlist(strsplit(S,", ")))

    PARAMETERS<-c(TAU_A,TAU_B,RHO_A,RHO_B,ALPHA,AFFINITY)
    
    return(PARAMETERS)
}

ReadSubphase<-function(PATH){
  FILE=paste0(PATH,"/subphase.csv")
  S<-read.csv(FILE,head=TRUE,sep=" ")
  S$Vw<-S$Vwc+S$Vwd
  S$Vn<-S$Vnc+S$Vnd
  S$Aw<-S$Awc+S$Awd
  S$An<-S$Anc+S$And
  S$Hw<-S$Hwc+S$Hwd
  S$Hn<-S$Hnc+S$Hnd
  S$Xw<-S$Xwc+S$Xwd
  S$Xn<-S$Xnc+S$Xnd

  S$Sw<-S$Vw/(S$Vn+S$Vw)
  S$pw<-(S$pwc*S$Vwc+S$pwd*S$Vwd) / (S$Vwc+S$Vwd)
  S$pn<-(S$pnc*S$Vnc+S$pnd*S$Vnd) / (S$Vnc+S$Vnd)

  S$Qwx<-S$Vw*(S$Pwc_x+S$Pwd_x)/(S$Mwc+S$Mwd)
  S$Qnx<-S$Vn*(S$Pnc_x+S$Pnd_x)/(S$Mnc+S$Mnd)
  S$Qwy<-S$Vw*(S$Pwc_y+S$Pwd_y)/(S$Mwc+S$Mwd)
  S$Qny<-S$Vn*(S$Pnc_y+S$Pnd_y)/(S$Mnc+S$Mnd)
  S$Qwz<-S$Vw*(S$Pwc_z+S$Pwd_z)/(S$Mwc+S$Mwd)
  S$Qnz<-S$Vn*(S$Pnc_z+S$Pnd_z)/(S$Mnc+S$Mnd)

  S$Krn<-S$nun*S$Qnz/S$Fz
  S$Krw<-S$nuw*S$Qwz/S$Fz
  S$Case<-PATH
  return(S)
}

ReadTimelog<-function(PATH){
	FILE=paste0(PATH,"/timelog.csv")
	D<-read.csv(file=FILE,head=TRUE,sep=" ")
	D$time<-seq(1,nrow(D))
	return(D)
}

ReadRelperm<-function(PATH){
	FILE=paste0(PATH,"/relperm.csv")
	D<-read.csv(file=FILE,head=TRUE,sep=" ")
	D$Case<-PATH

	p<-ggplot(D)+
	  geom_line(aes(sat.water,eff.perm.oil,color="oil"))+
	  geom_line(aes(sat.water,eff.perm.water,color="water"))+
	  xlab("Water saturation")+ylab("Effective permeability")+
	  theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+
	  theme_bw()

	FILE=paste0(PATH,"-relperm.png")
 	ggsave(FILE,p,height=4.0,width=6.0)

	return(D)
}

ReadCase<-function(PATTERN){
    list<-list.files(pattern=PATTERN)
    Data=NULL
    for (k in 1:length(list)){
        print(list[k])
        tmp=ReadRelperm(list[k])
	tmp$Case<-list[k]
        Data<-rbind(Data,tmp)
    }
    return(Data)
}


ReadMorphDrain<-function(PATH){
	FILE=paste0(PATH,"/morphdrain.csv")
	B<-read.csv(FILE,head=TRUE,sep=" ")
	B$Media<-PATH

	p<-ggplot()+
	  geom_line(data=B,aes(Sw,2/R,colour=Media))+
	  theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank())+
	  theme_bw()

	FILE=paste0(PATH,"-morphdrain.png")
 	ggsave(FILE,p,height=4.0,width=6.0)
	return(B)
}