2023 April 20 Test Sequences

Initializations

Setting (and verifying I'm in) the appropriate directory, checking files in that directory, etc…
In[]:=
SetDirectory["2023 April 20 Test"]
Out[]=
/wolframcloud/userfiles/f94/f944d333-2b04-487e-bacd-70d4a07b51f8/2023 April 20 Test
In[]:=
Directory[]
Out[]=
/wolframcloud/userfiles/f94/f944d333-2b04-487e-bacd-70d4a07b51f8/2023 April 20 Test
In[]:=
FileNames[]
Out[]=
{2023 April 20 Test Sequences.nb,5_pd_t2,WOOD_S03_202304.MR.Schlichting_Sag.4.1.2023.04.20.16.24.42.152.75147549.dcm,WOOD_S03_202304.MR.Schlichting_Sag.4.1.2023.04.20.16.29.54.997.74013354.dcm}

Abstract

This notebook displays the results of the tests conducted on 2023 April 20. These graphics can be used to help determine which methods are suitable for the CLT characterization study.

3_t1_mprage_tra_p2_iso


4_t1_petra_tra

File 1

In[]:=
FileSize["WOOD_S03_202304.MR.Schlichting_Sag.4.1.2023.04.20.16.24.42.152.75147549.dcm"]
Out[]=
66.1515
MB
In[]:=
s3ScanData3=Import["WOOD_S03_202304.MR.Schlichting_Sag.4.1.2023.04.20.16.24.42.152.75147549.dcm"];
In[]:=
Information[s3ScanData3[[1]]]
Out[]=
Image
Color Space
Grayscale
Image Dimensions
{320,320}
Image Resolution
Automatic
Channels
1
Transparency
False
Data Type
Bit16
(*Dataset[Import["WOOD_S03_202304.MR.Schlichting_Sag.3.1.2023.04.20.16.24.42.152.75147538.dcm"]]*)
In[]:=
Image3D[s3ScanData3,ImageSizeLarge,AxesTrue]

File 2

In[]:=
s3ScanData4=Import["WOOD_S03_202304.MR.Schlichting_Sag.4.1.2023.04.20.16.29.54.997.74013354.dcm"];
In[]:=
Image3D[s3ScanData4,ImageSizeLarge,AxesTrue]
This is a PETRA/SPRITE method while should work for this study.

5_pd_t2
