Fixed a critical typo in driving_function_mono_wfs_ps()

hagenw · hagenw · commit 3730bc0ed3ed · 2014-03-28T17:04:15.000+01:00
diff --git a/SFS_monochromatic/driving_functions_mono/driving_function_mono_wfs_ps.m b/SFS_monochromatic/driving_functions_mono/driving_function_mono_wfs_ps.m
@@ -142,7 +142,7 @@
         % r = |x0-xs|
         r = vector_norm(x0-xs,2);
         % driving signal
-        D = -1/(2c) .* 1i*omega/c * vector_product(x0-xs,nx0,2) ./ r .* besselh(1,2,omega/c*r);
+        D = -1/(2*c) .* 1i*omega/c * vector_product(x0-xs,nx0,2) ./ r .* besselh(1,2,omega/c*r);
         %
         %
     elseif strcmp('delft1988',driving_functions)

Original file line number	Diff line number	Diff line change
`@@ -142,7 +142,7 @@`
`142`	`142`	`% r = \|x0-xs\|`
`143`	`143`	`r = vector_norm(x0-xs,2);`
`144`	`144`	`% driving signal`
`145`		`- D = -1/(2c) .* 1iomega/c vector_product(x0-xs,nx0,2) ./ r .* besselh(1,2,omega/c*r);`
	`145`	`+ D = -1/(2c) . 1iomega/c vector_product(x0-xs,nx0,2) ./ r .* besselh(1,2,omega/c*r);`
`146`	`146`	`%`
`147`	`147`	`%`
`148`	`148`	`elseif strcmp('delft1988',driving_functions)`