##v_phase
plotVPhase <- function(){
  csvLoc <- paste0(getwd(),"/v_phase_.csv")
  v_phase <- read.csv(csvLoc,header = FALSE, sep = ",")
  View(v_phase)
  plot(v_phase$V1,v_phase$V2,type="l")

}

plotMagn <- function(){
  csvLoc <- paste0(getwd(),"/v_magn_.csv")
  v_magn <- read.csv(csvLoc,header = FALSE, sep = ",")
  View(v_magn)
  plot(v_magn$V1,v_magn$V2)
  lines(v_magn$V1,v_magn$V2,type="l")

}

plotPReal <- function(){
  csvLoc <- paste0(getwd(),"/p_real_.csv")
  p_real <- read.csv(csvLoc,header = FALSE, sep = ",")
  View(p_real)
  plot(p_real$V1,p_real$V2,type="l")

}

plotPImag <- function(){
  csvLoc <- paste0(getwd(),"/p_imag_.csv")
  p_imag <- read.csv(csvLoc,header = FALSE, sep = ",")
  View(p_imag)
  plot(p_imag$V1,p_imag$V2,type="l")

}

plotDCenterLine <- function(){
  csvLoc <- paste0(getwd(),"/d_centerline_.csv")
  d_centerline <- read.csv(csvLoc,header = FALSE, sep = ",")
  View(d_centerline)
  plot(d_centerline$V1,d_centerline$V2,type="l")

}

main <- function(){
  plotVPhase()
  plotMagn()
  plotPReal()
  plotPImag()
  plotDCenterLine()
}


main()