Initial commit of ResInsight version 0.4.8

This commit is contained in:
Alf B. Rustad
2012-05-18 09:45:23 +02:00
parent a680bf941e
commit dfe97efb1b
657 changed files with 176690 additions and 0 deletions

View File

@@ -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");