Wolfram 언어™

핵 자기 공명

NMR 데이터는 화학 변화가 일때 기준 주파수는 0으로 정의되고, 단위는 백만분의 1인 주어진 화합물의 흡수에 대한 화학 변화의 플롯입니다. 대부분의 스펙트럼이 주파수에 반비례하는 파장에 대해 플롯되므로, NMR 데이터는 종종 x 축을 반전시켜 플롯됩니다. 이것은 스케일링 함수를 사용하여 만들수 있습니다.

In[1]:=

signalFrequency = Import["http://www.jcamp-dx.org/lisms/cc/bruker1.dx", "Data"][[1]]; spectrometerFrequency = 200.13; len = Length[signalFrequency]; datax = Table[signalFrequency[[n]][[1]], {n, len}]/ spectrometerFrequency; datay = Table[signalFrequency[[n]][[2]], {n, len}]; integratedy = Accumulate[datay]; data = Table[{datax[[n]], datay[[n]]}, {n, len}]; integrated = Table[{datax[[n]], integratedy[[n]]}, {n, len}];

In[2]:=

ListLinePlot[data, PlotRange -> All, ScalingFunctions -> {"Reverse", "Linear"}, PlotTheme -> {"Detailed", "Wide"}, FrameLabel -> {"ppm", "absorption"}, ImageSize -> 400]

Out[2]=