Add a useful package (from Source forge) for octave

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

diff --git a/octave_packages/secs2d-0.0.8/ThDDGOX/ThDDGOXTWN1STD.m b/octave_packages/secs2d-0.0.8/ThDDGOX/ThDDGOXTWN1STD.m
new file mode 100644 (file)
index 0000000..3314bbd
--- /dev/null
+++ b/octave_packages/secs2d-0.0.8/ThDDGOX/ThDDGOXTWN1STD.m
@@ -0,0 +1,6 @@
+function x = ThDDGOXTWN1STD (imesh,Simesh,Sinodes,Sielements,idata)
+  Nnodes    = columns(Simesh.p);
+  Nelements = columns(Simesh.t);
+  x = idata.Tl./(1+idata.Tl./idata.Tn);
+endfunction
+