From 6fee49fb423f1fc2e95da7ddf8862c735a2a6191 Mon Sep 17 00:00:00 2001
From: Rodolfo Dirack <rodolfo_profissional@hotmail.com>
Date: Sun, 23 Aug 2020 15:19:09 -0300
Subject: [PATCH] Half velocity medium for diffractions #17

To simulate a stacked section with diffraction hyperbolas someone
should use half of the medium velocity in the hyperbola equation
following the model of a exploding reflector.
---
 Mdiffsim.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Mdiffsim.c b/Mdiffsim.c
index 626f368..0e653f5 100644
--- a/Mdiffsim.c
+++ b/Mdiffsim.c
@@ -86,6 +86,9 @@ int main(int argc, char* argv[])
 
 	if(!sf_getfloat("v",&v)) sf_error("No v= hyperbolas velocity!");
 	/* Hyperbolas velocity (Km/s)*/
+	
+	/* half medium velocity for diffraction */
+	v=v/2;
 
 	if(verb){
 		sf_warning("Active mode on!!!");