ResInsight/OctavePlugin/OctaveScripts/SoilTimeDiff.m

18 lines
291 B
Mathematica
Raw Normal View History

2016-11-25 03:24:17 -06:00
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");