Files
ResInsight/OctavePlugin/OctaveScripts/kslice.m
2014-07-02 14:11:56 +02:00

12 lines
248 B
Matlab

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