Add a useful package (from Source forge) for octave

[CreaPhase.git] / octave_packages / secs2d-0.0.8 / ThDDGOX / ThDDGOXTWN0STD.m

diff --git a/octave_packages/secs2d-0.0.8/ThDDGOX/ThDDGOXTWN0STD.m b/octave_packages/secs2d-0.0.8/ThDDGOX/ThDDGOXTWN0STD.m
new file mode 100644 (file)
index 0000000..c98bfc6
--- /dev/null
+++ b/octave_packages/secs2d-0.0.8/ThDDGOX/ThDDGOXTWN0STD.m
@@ -0,0 +1,6 @@
+function x = ThDDGOXTWN0STD (imesh,Simesh,Sinodes,Sielements,idata)
+  Nnodes    = columns(Simesh.p);
+  Nelements = columns(Simesh.t);
+  x = 1.5 * idata.un * ones(Nelements,1) ./ idata.vsatn^2;
+endfunction
+