LemmaSoftware
/
Akvo
Watch 1
Star 0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Surface NMR processing and inversion GUI
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1 Commit
3 Branches
Tree: 859e00702c
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '859e00702c'
${ noResults }
Akvo/akvo/gui/quad.r

quad.r 287B
History Raw

12345678910111213 
  1. 

  2. # Define 

  3. Xc <- function(E0, df, tt, phi, T2) {

  4. 	E0 * -sin(2*pi*df*tt + phi) * exp(-tt/T2)

  5. }

  6. 

  7. Yc <- function(E0, df, tt, phi, T2) {

  8. 	E0 * cos(2*pi*df*tt + phi) * exp(-tt/T2)

  9. }

  10. 

  11. #QI <- function(E0, df, tt, phi, T2, X, Y) {

  12. #	(X-Xc(E0, df, tt, phi, T2))  + (Y-Yc(E0, df, tt, phi, T2))

  13. #}