diff --git a/samples/Stata/tanh.mata b/samples/Stata/tanh.mata
new file mode 100644
index 00000000..63504603
--- /dev/null
+++ b/samples/Stata/tanh.mata
@@ -0,0 +1,8 @@
+numeric matrix tanh(numeric matrix u)
+{
+		numeric matrix  eu, emu
+
+		eu = exp(u)
+		emu = exp(-u)
+		return( (eu-emu):/(eu+emu) )
+}