forked from XiaomadaJoshua/TransportOpenCL1_2
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
16 lines (16 loc) · 1.3 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
library(matlab)
remove(list = ls())
PF200MGH <- readBin(con = "RunB8_200MeV/PrimaryFluence.bin", what = "int", n = 51*51*300, size = 4, endian = "big")
SF200MGH <- readBin(con = "RunB8_200MeV/SecondaryFluence.bin", what = "int", n = 51*51*300, size = 4, endian = "big")
PD200MGH <- readBin(con = "RunB8_200MeV/LETDosePrimary.bin", what = "integer", n = 51*51*300, size = 4, endian = "big")
SD200MGH <- readBin(con = "RunB8_200MeV/LETDoseSecondary.bin", what = "int", n = 51*51*300, size = 4, endian = "big")
TD200MGH <- read.csv(file = "topasTotalDose/Scoring_200M.csv", sep = ",", fill = T, header = F)
TD200MGH <- TD200MGH$V4
TD200MGH <- reshape(as.matrix(TD200MGH), c(300, 51, 51))
PF200MGH <- reshape(as.matrix(PF200MGH), c(51, 51, 300))
SF200MGH <- reshape(as.matrix(SF200MGH), c(51, 51, 300))
PD200MGH <- reshape(as.matrix(PD200MGH), c(51, 51, 300))
SD200MGH <- reshape(as.matrix(SD200MGH), c(51, 51, 300))
PF200 <- readBin(con = "GitHub/TransportOpenCL1_2/CLTransport/Output/primaryFluence.bin", what = "numeric", n = 51*51*300, size = 4, endian = "little")
PF200MGH <- readBin(con = "RunB8_200MeV/PrimaryFluence.bin", what = "int", n = 51*51*300, size = 4, endian = "big")
PF200 <- readBin(con = "GitHub/TransportOpenCL1_2/CLTransport/Output/primaryFluence.bin", what = "numeric", n = 51*51*300, size = 4, endian = "little")