Surface NMR processing and inversion GUI
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

12345678910111213
  1. # Define
  2. Xc <- function(E0, df, tt, phi, T2) {
  3. E0 * -sin(2*pi*df*tt + phi) * exp(-tt/T2)
  4. }
  5. Yc <- function(E0, df, tt, phi, T2) {
  6. E0 * cos(2*pi*df*tt + phi) * exp(-tt/T2)
  7. }
  8. #QI <- function(E0, df, tt, phi, T2, X, Y) {
  9. # (X-Xc(E0, df, tt, phi, T2)) + (Y-Yc(E0, df, tt, phi, T2))
  10. #}