LemmaSoftware
/
Akvo
Beobachten 1
Favorisieren 0
Fork 0
Code Issues 0 Pull-Requests 0 Releases 0 Wiki Aktivität
Surface NMR processing and inversion GUI
Du kannst nicht mehr als 25 Themen auswählen Themen müssen mit entweder einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
67 Commits
3 Branches
Branch: add-license-1
Branches Tags
${ item.name }
Erstelle Branch ${ searchTerm }
von „add-license-1“
${ noResults }
Akvo/akvo/gui/quad.r

quad.r 287B
Permalink Verlauf Originalformat

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. #}