Initial commit of ResInsight version 0.4.8

OctavePlugin/OctaveScripts/LGRSOIL.m

@@ -0,0 +1,13 @@
+addpath("/home/builder/Projects/ResInsightBuildDir/OctavePlugin");
+CInfo = riGetActiveCellInfo();
+SOIL = riGetActiveCellProperty("SOIL");
+
+Mask = (CInfo(:,1) != 1);
+
+LGRSOIL = SOIL;
+i = 0;
+for i = (1:columns(LGRSOIL))
+    LGRSOIL(Mask,i) = nan;
+endfor
+
+riSetActiveCellProperty(LGRSOIL, "LGRSOIL");

OctavePlugin/OctaveScripts/SatNum.m

@@ -0,0 +1,10 @@
+addpath("/home/builder/Projects/ResInsightBuildDir/OctavePlugin");
+SATNUM = riGetActiveCellProperty("MSW_CASE", "SATNUM");
+SOIL = riGetActiveCellProperty("MSW_CASE", "SOIL");
+
+# Set all SOIL data to 0.0 for all cells with SATNUM different 
+# from 7 for timestep 1
+
+GENERATED = (SATNUM == 7) .* SOIL(:, 1);
+
+riSetActiveCellProperty(GENERATED, "MSW_CASE", "SOIL_IN_SATNUM_Eq_7");

OctavePlugin/OctaveScripts/SoilTimeDiff.m

@@ -0,0 +1,17 @@
+addpath("/home/builder/Projects/ResInsightBuildDir/OctavePlugin");
+SOIL = riGetActiveCellProperty("SOIL");
+
+SOILDIFF = SOIL;
+
+# Calculate change of oil saturation from timestep to timestep
+i = 0;
+for timestep = SOIL
+	if (i > 0) 
+		SOILDIFF(:,i) = timestep - SOIL(:,i);
+	endif
+	i++;
+endfor
+SOILDIFF(:,i) = 0;
+
+riSetActiveCellProperty(SOILDIFF, "SOILDIFF");
+

OctavePlugin/OctaveScripts/kaverage.m

@@ -0,0 +1,24 @@
+addpath("/home/builder/Projects/ResInsightBuildDir/OctavePlugin");
+CInfo = riGetActiveCellInfo();
+SOIL = riGetActiveCellProperty("SOIL");
+
+SOIL_KAverage = SOIL;
+SOIL_KAverage(:) = nan;
+
+mini = min(CInfo(:,2))
+maxi = max(CInfo(:,2))
+
+minj = min(CInfo(:,3))
+maxj = max(CInfo(:,3))
+
+for i = mini:maxi
+  for j = minj:maxj 
+    Mask = (CInfo(:,1) == 0) & (CInfo(:,2) == i) & (CInfo(:,3) == j) ;
+
+    for ts = (1:columns(SOIL)) 
+      SOIL_KAverage(Mask, ts) = mean(SOIL(Mask, ts));
+    endfor
+  endfor
+endfor
+
+riSetActiveCellProperty(SOIL_KAverage, "SOIL_KAverage");

OctavePlugin/OctaveScripts/kslice.m

@@ -0,0 +1,12 @@
+addpath("/home/builder/Projects/ResInsightBuildDir/OctavePlugin");
+CInfo = riGetActiveCellInfo();
+SOIL = riGetActiveCellProperty("SOIL");
+
+Mask = (CInfo(:,4) < 17) | (CInfo(:,4) > 20)
+LGRSOIL = SOIL;
+i = 0;
+for i = (1:columns(LGRSOIL))
+    LGRSOIL(Mask,i) = nan;
+endfor
+
+riSetActiveCellProperty(LGRSOIL, "KSlice");