1 #====================================================================== |
1 #====================================================================== |
2 # L I B F U N S . P L |
2 # L I B F U N S . P L |
3 # doc: Wed Mar 24 11:49:13 1999 |
3 # doc: Wed Mar 24 11:49:13 1999 |
4 # dlm: Thu Jun 4 17:56:37 2015 |
4 # dlm: Fri May 11 11:40:05 2018 |
5 # (c) 1999 A.M. Thurnherr |
5 # (c) 1999 A.M. Thurnherr |
6 # uE-Info: 306 13 NIL 0 0 72 2 2 4 NIL ofnI |
6 # uE-Info: 31 77 NIL 0 0 70 2 2 4 NIL ofnI |
7 #====================================================================== |
7 #====================================================================== |
8 |
8 |
9 # HISTORY: |
9 # HISTORY: |
10 # Mar 24, 1999: - copied from the c-version of NR |
10 # Mar 24, 1999: - copied from the c-version of NR |
11 # Mar 26, 1999: - added stuff for better [./fit] |
11 # Mar 26, 1999: - added stuff for better [./fit] |
14 # Jan 25, 2001: - added f(), sgn() |
14 # Jan 25, 2001: - added f(), sgn() |
15 # Apr 16, 2010: - added sinc() |
15 # Apr 16, 2010: - added sinc() |
16 # Sep 7, 2012: - added acosh() |
16 # Sep 7, 2012: - added acosh() |
17 # Jun 4, 2015: - added gaussRand() |
17 # Jun 4, 2015: - added gaussRand() |
18 # - made normal() more efficient |
18 # - made normal() more efficient |
|
19 # May 11, 2018: - added Nsq() |
19 |
20 |
20 require "$ANTS/libvec.pl"; # rad() |
21 require "$ANTS/libvec.pl"; # rad() |
|
22 |
|
23 #---------------------------------------------------------------------- |
|
24 # Buoyancy-Freuquency Squared |
|
25 # - based on signed buoyancy frequency => propagate sign |
|
26 #---------------------------------------------------------------------- |
|
27 |
|
28 { my(@fc); |
|
29 sub Nsq(@) |
|
30 { |
|
31 my($N) = &antsFunUsage(1,'.','[(signed) buoyancy frequency]',\@fc,'N',@_); |
|
32 return ($N < 0) ? -($N**2) : $N**2; |
|
33 } |
|
34 } |
21 |
35 |
22 #---------------------------------------------------------------------- |
36 #---------------------------------------------------------------------- |
23 # gaussians/normal distribution |
37 # gaussians/normal distribution |
24 #---------------------------------------------------------------------- |
38 #---------------------------------------------------------------------- |
25 |
39 |