"codemirror",
- "Hash" -> "b8abb60c-53b1-4b5e-afd7-c1b72afa21c5", "Invisible" -> False,
+ "Hash" -> "3ac73722-1867-4825-982f-a2c7275a46a9", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "## Basics of THz spectroscopy\nEM waves propagate through our \
sample and a reference (empty hole).\n\n\n
"markdown",
- "Hash" -> "d5cc4f28-e5eb-423c-b258-53ea7d02f3d0", "Invisible" -> False,
+ "Hash" -> "ba4b27ac-8b50-41dd-a6be-6ce7abe566ed", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\n## Installation\nUsing \
[LPM](https://github.com/JerryI/wl-localpackages)",
"Display" -> "codemirror", "Hash" ->
- "cd769b99-2e99-4708-8b62-fd49c4ab2994", "Invisible" -> False,
+ "fcef4fb6-0d6c-4dca-948f-438c2510bd3a", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
"## Installation\nUsing \
[LPM](https://github.com/JerryI/wl-localpackages)", "Display" -> "markdown",
- "Hash" -> "14e93117-3099-457f-b3e9-bca265a5c9bd", "Invisible" -> False,
+ "Hash" -> "5364d42f-a054-482c-960d-765b8b9d9968", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "PacletRepositories[{\n Github -> \
-\"https://github.com/JerryI/wl-tds-tools\" -> \
-\"master\"\n}]\n\nGet[\"JerryI`TDSTools`Trace`\"];\nGet[\"JerryI`TDSTools`Tra\
-nsmission`\"];\nGet[\"JerryI`TDSTools`Material`\"];",
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "NotebookDirectory[]//ParentDirectory//PacletDirectoryLoad;",
+ "Display" -> "codemirror", "Hash" ->
+ "c934bfff-e3b1-47c9-af76-4c804a5f5cbe", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <|"InitGroup" -> True|>,
+ "State" -> "Idle", "Type" -> "Input", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "Get[\"JerryI`TDSTools`Trace`\"];\nGet[\"JerryI`TDSTools`Trans\
+mission`\"];\nGet[\"JerryI`TDSTools`Material`\"];",
"Display" -> "codemirror", "Hash" ->
- "d66213ca-c6fa-4d91-8221-3e1b9e4a3f37", "Invisible" -> False,
+ "70dfa7ea-8867-423f-b261-7537a91e8199", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <|"InitGroup" -> True|>,
+ "State" -> "Idle", "Type" -> "Input", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*BB[*)(\"TDTools`nGPU >> \
+Done\")(*,*)(*\"1:eJxTTMoPSmNiYGAo5gcSAUX5ZZkpqSn+BSWZ+XnFEAk+IBFcUpmT6pKanF+\
+UWJJfVMwGFPIsSczJTIYoYQESQaU5qcVcQIZTYnJ2elF+aV5KGjNIkgMk6e7knJ+TX1SkGdN/6KvG\
+G/tMRqAonIdqSjAb2MaizLx0sFhIUWkqAL9iLV4=\"*)(*]BB*)", "Display" -> "print",
+ "Hash" -> "0ca61fde-9f2f-4299-ab31-7a9960ccc11f", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
- "Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "Type" -> "Output", "UID" -> Null, "Notebook" ->
+ "55703269-7721-4870-89fe-2041149293ef"|>, <|"Data" -> "\" \"",
+ "Display" -> "print", "Hash" -> "03a3a450-39a0-403e-9d41-583f8f82ecf8",
+ "Invisible" -> False, "MetaOnly" -> False, "Props" -> <||>,
+ "State" -> "Idle", "Type" -> "Output", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*BB[*)(\"TDTools`nGPU >> Compiling to \
+OpenCL\")(*,*)(*\"1:eJxTTMoPSmNiYGAo5gcSAUX5ZZkpqSn+BSWZ+XnFaYwgCT4gEVxSmZPqk\
+pqcX5RYkl9UzAYU8ixJzMlMhuhlARJBpTmpwWxgtUWZeelgsZCi0lQA5zsZIQ==\"*)(*]BB*)",
+ "Display" -> "print", "Hash" -> "c5ea61e1-3899-4315-aa0e-c9f3ba0b76d2",
+ "Invisible" -> False, "MetaOnly" -> False, "Props" -> <||>,
+ "State" -> "Idle", "Type" -> "Output", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*BB[*)(\"TDTools`nCPU >> \
+Done\")(*,*)(*\"1:eJxTTMoPSmNiYGAo5gcSAUX5ZZkpqSn+BSWZ+XnFEAk+IBFcUpmT6pKanF+\
+UWJJfVMwGFPIsSczJTIYoYQESQaU5qcVcQIZTYnJ2elF+aV5KGjNIkgMk6e7knJ+TX1SkGdN/6KvG\
+G/tMRqAonIdqSjAb2MaizLx0sFhIUWkqAL9iLV4=\"*)(*]BB*)", "Display" -> "print",
+ "Hash" -> "a1642245-aa45-4313-881d-7970b2af7ad0", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
+ "Type" -> "Output", "UID" -> Null, "Notebook" ->
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*BB[*)(\"TDTools`nCPU >> Compiling to \
+C\")(*,*)(*\"1:eJxTTMoPSmNiYGAo5gcSAUX5ZZkpqSn+BSWZ+XnFaYwgCT4gEVxSmZPqkpqcX5\
+RYkl9UzAYU8ixJzMlMhuhlARJBpTmpwWxgtUWZeelgsZCi0lQA5zsZIQ==\"*)(*]BB*)",
+ "Display" -> "print", "Hash" -> "c1630ad1-ffab-40e9-9aa5-1efa65da4b4f",
+ "Invisible" -> False, "MetaOnly" -> False, "Props" -> <||>,
+ "State" -> "Idle", "Type" -> "Output", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
".md\n## Let's get started\nFirstly import our sample and reference \
data", "Display" -> "codemirror", "Hash" ->
- "c55d94c3-63c4-4e78-8460-b3a0e81c142b", "Invisible" -> False,
+ "9fdb2b6e-7cec-4035-824d-7a1eda5e8c56", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
"## Let's get started\nFirstly import our sample and reference data",
"Display" -> "markdown", "Hash" ->
- "e1be2c3a-2056-4410-9ce9-f231a54e2936", "Invisible" -> False,
+ "8102435c-cfd4-48e9-93b2-7f367cb3813f", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "(*BB[*)(*asumming you imported it \
somehow*)(*,*)(*\"1:eJxTTMoPSmNhYGAo5gcSAUX5ZZkpqSn+BSWZ+XnFaYwgCS4g4Zyfm5uaV\
+KUXxEMUqxsbm6exgSSBPGCSnNSg9mAjOCSosy8dLBYSFFpKpoKkDkeqYkpEFXBILO1sCgJSczMQV\
YCAOFrJEU=\"*)(*]BB*)\nref = NotebookStore[\"ref\"];\nsam = \
NotebookStore[\"sam\"];\n\nListLinePlot[{sam, ref}, PlotRange->Full, \
AxesLabel->{\"t, ps\", \"I, nA\"}]", "Display" -> "codemirror",
- "Hash" -> "520a374c-9833-4d23-8c47-2aadc6ebf757", "Invisible" -> False,
- "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
- "Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*VB[*)(FrontEndRef[\"90c1b42b-8146-4918-9fd9-f65bde7c9a06\"]\
-)(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKWxokG\
-yaZGCXpWhiamOmaWBpa6FqmpVjqppmZJqWkmidbJhqYAQB72hWF\"*)(*]VB*)",
+ "Hash" -> "0b1bcb88-43e9-442d-bc04-a80778944e5b", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <|"InitGroup" -> True|>,
+ "State" -> "Idle", "Type" -> "Input", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*VB[*)(FrontEndRef[\"27ffbaf4-12b8-4cf0-b5da-f8a79ad9c924\"]\
+)(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKG5mnp\
+SUlppnoGholWeiaJKcZ6CaZpiTqplkkmlsmplgmWxqZAACVihZq\"*)(*]VB*)",
"Display" -> "codemirror", "Hash" ->
- "ff81e88b-093e-4167-9a4c-753618a7f7c8", "Invisible" -> False,
+ "98afc8d0-ff44-4288-889f-79815402eaf3", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
".md\nCreate a time-trace object. We always enter used units explicitly"\
, "Display" -> "codemirror", "Hash" ->
- "45b79a70-d188-454d-bf7a-48e40f98f25c", "Invisible" -> False,
+ "bb88377b-4680-4a2f-bbfd-e213163d0aef", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
"Create a time-trace object. We always enter used units explicitly",
"Display" -> "markdown", "Hash" ->
- "1b425241-007d-4620-87c3-d15f7513c026", "Invisible" -> False,
+ "bb1f9479-f5e4-4b94-bdc0-343196f92ea0", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "sam = TDTrace[QuantityArray[sam, {\"Picoseconds\", 1}]];\nref \
= TDTrace[QuantityArray[ref, {\"Picoseconds\", 1}]]",
"Display" -> "codemirror", "Hash" ->
- "70ce5cf4-86d1-452f-9475-6c57e5cba527", "Invisible" -> False,
- "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
- "Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*VB[*)temporalStorage$168540(*,*)(*\"1:eJwlksuSmkAAALdSOaTyF\
-dk97WqqQBHF3IaHiAgygAOytQeRGeSNvOHrs5tcurr63M9+YZJvT09P9c9PSEHUFBWKcG89f0ZbtK\
-vrDb+/zhD/Pnv79Tr7PXt7nb0s/uDDuDifG6NPABxSrA21ZWtETgagn8UJciavGXfzUpylsgD9Lr4\
-8dkfGhaTeLwBFUOssuMGVYlrrOp2IxjR5eJs1R56I2B7dKDcM6IlXSff3zB3SD26OWM01eFjMa9kj\
-992l7iOxEnQgn46m33MMldz8mFeJ4l4gF3O9pJT1bStG49E/zTUwReEA0OoieawVCAvn0boRsQpry\
-zh3ltkaB5SOS5IZYFpLyKRCBcJqNYktr9mDO1I2m2l4x3frVEBcp6ZnVQlL2cEiAPtYBT6oo1NQCG\
-GZjT1YrgpSqpvBy3KZZvu+EunDPOjHfNDbudUkAyTQLdvM7Gp5U+VxmcA8zlQaVuQmWzu98hy1as0\
-Vm007JdKvS70YN6KJRjNlEtyX4n06OlVO8YkbVIrfAA/Spkc6RgvqzmhYhzdGaqnQVKTafnXxqNLV\
-g/x2RvVxndWZfMr5m4dUkmi+Lgrz6GQekI0fOqbLTXNlEG9A4b5nFzkDQmezTpOeDXlV6EI3aBJdr\
-F++HvhA/Ozt4/853z9htim2fnwJvganPB3/Vbtq8V/rDcRO\"*)(*]VB*)",
- "Display" -> "codemirror", "Hash" ->
- "75543664-15fb-4453-8faf-903d2439901c", "Invisible" -> False,
+ "8a73e8c2-8043-46c7-af6a-288ae35d7ac4", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <|"InitGroup" -> True|>,
+ "State" -> "Idle", "Type" -> "Input", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*VB[*)BoxForm`temporalStorage$159744(*,*)(*\"1:eJxdkjmPm1AAh\
+K1NIkX5FclWuyYSN2sipQDbYDA25j5WW8DjYcBgLnN2+eexU6YZzYymmOL7EZZ6/GmxWLTf7rKN0l\
+vZ2CkcjD9Pi4W5MZsAwPeXpc2/L1+/vyx/Ll9fls/4LyjPgtV2ajFzlmmjtUZbdWSrVY179YQlnJb\
+6flFtdvw6NVeHVLM1ghA1xbOmdY+EWocUBO7pBk66rlVXMh6r6LgKyZ2NUl6r2zSp5lidAdBcasIc\
+BXEuiOiQ17qMKOeTBqNdAFtFYbi21LABZJGgWa1JD0VGmYXiRdXknNnSSabxJHZJLqqkhYD+wrm6l\
+FuVfqsO8EpIA44nqHzGJEzO1IMur4+CfbuJ5px7ge2QMmB9CnmLzCnsChx1Oi4x4t06Xk9OYbjkXO\
+oOSmU8HwB8DyLG2U773UUeeZyXejU+N9OKGzX2bJNxPTWKJuhKGKw0uNpyonif0rUjsqCMUfyIzFG\
+WCQOLsxRdXDapZfNKfWHcycX57TXrSIdWDzMxGLXUW5ybDOxM+G7Yb+k1AbnQ38sqy16LpijY2oUk\
+EZ0DMs8qGDMnAA3HtaeECZxsi7NbPQxCf5MjrnxL5pJy5X4GR/9EV/2YXJhd1Gw4nKQnTipdZAw0W\
+Ppe3dcKt8Kkt5JEUrrYbxB1TDAUQ0gE3A+RspCcbkR7dViKJ8w4FdG22wEGsRs7Vy6HgZACHsTn0G\
+KIoBni+U5AEbfYhmNDrTS8bg/eTkeS4lS0ldrh9+/nB2MfNr98/YifHmR+vove5dD4+jAwiNRrPv1\
+rzaaD/20eGBswh+AWhDlsv9yjEOQt/AtpAumX\"*)(*]VB*)", "Display" -> "codemirror",
+ "Hash" -> "1eca7d79-3aff-400d-9f56-45f8f35cfc49", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nList all properties", "Display" -> "codemirror",
- "Hash" -> "4db4ef17-fca6-4794-a67a-daf6cf1f6723", "Invisible" -> False,
+ "Hash" -> "21f334cb-6515-461a-a452-35f966b72692", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "List all properties", "Display" -> "markdown",
- "Hash" -> "35ec8421-dddf-48ea-9d9e-b60c9a85e5b0", "Invisible" -> False,
+ "Hash" -> "3bbda1eb-07ce-4115-832b-72f31ff0964b", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "sam[\"Properties\"] // TableForm ",
"Display" -> "codemirror", "Hash" ->
- "9e7ab751-1992-429f-9c7f-81adfd277c63", "Invisible" -> False,
+ "c36021f1-eb95-485e-b19e-95e72a023243", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "(*GB[*){{\"Properties\"}(*||*),(*||*){\"Spectrum\"}(*||*),(*|\
|*){\"PowerSpectrum\"}(*||*),(*||*){\"Trace\"}(*||*),(*||*){\"FrequencyDomain\
ConfidenceInterval\"}(*||*),(*||*){\"FDCI\"}}(*]GB*)",
"Display" -> "codemirror", "Hash" ->
- "e5a21122-ab87-4187-a630-e34d53851d48", "Invisible" -> False,
+ "e10805fe-e79d-4ee5-b3c0-a424417524ea", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nCheck the power spectrum and the range with a high \
signal-to-noise ratio", "Display" -> "codemirror",
- "Hash" -> "3901e528-8ad6-4b35-8d94-2752efd7346d", "Invisible" -> False,
+ "Hash" -> "95065db9-f2d6-4760-95cc-52eb40a367ca", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
"Check the power spectrum and the range with a high signal-to-noise \
ratio", "Display" -> "markdown", "Hash" ->
- "b5775b5f-ae17-4d5e-a3c4-52028d127faf", "Invisible" -> False,
+ "a81a62d6-5ef9-46d3-bb8a-ffa4b42cc1ed", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
"ListLinePlot[sam[\"PowerSpectrum\"], PlotRange->Full]\nsam[\"FDCI\"]",
"Display" -> "codemirror", "Hash" ->
- "186318a6-5b01-473e-9a86-5da53def8863", "Invisible" -> False,
+ "988394dc-4104-4ed7-a210-e504c7023639", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "(*VB[*)(FrontEndRef[\"dfa151df-b5b5-4184-92eb-2a763a3c2120\"]\
)(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKp6QlG\
poapqTpJpkmmeqaGFqY6FoapSbpGiWamxknGicbGRoZAACMvxWP\"*)(*]VB*)",
"Display" -> "codemirror", "Hash" ->
- "eb690fca-f191-4be4-806f-cbff53fb7742", "Invisible" -> False,
+ "803b411a-2cfb-4f9a-8fd0-e0761cc98fa4", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "{(*VB[*)(q)(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB43kAgsTcw\
rySypdMqvKHpdxzttVYORA0SWFUgE5JenFgWD1DmnApXlppakFhVn/gcCAHB8GWU=\"*)(*]VB*),\
(*VB[*)(q)(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB43kAgsTcwrySypdMqvKMrgDZv/\
7oKfA0SWFUgE5JenFgWD1DmnApXlppakFhVn/gcCAG9gGXM=\"*)(*]VB*)}",
"Display" -> "codemirror", "Hash" ->
- "6ce20569-2dc6-4cff-a166-c379f550dc1d", "Invisible" -> False,
+ "7c426fe6-c510-41d3-a7d5-530cf322b246", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\n## Reconstructing transmission function\nOn the next \
step we can derive an initial information about the transmission based on the \
sample and reference time-traces", "Display" -> "codemirror",
- "Hash" -> "a2daabc7-7dd8-466c-9758-1ba70f3c75a6", "Invisible" -> False,
+ "Hash" -> "c86162d5-571a-4bad-b59b-cc799c926d41", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "## Reconstructing transmission function\nOn the next step we \
can derive an initial information about the transmission based on the sample \
and reference time-traces", "Display" -> "markdown",
- "Hash" -> "f4b8683a-2fa2-46c7-b74d-6afa7459890f", "Invisible" -> False,
+ "Hash" -> "68d134eb-89e7-45cc-9c60-f7efd34e0be8", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "tr = TransmissionObject[sam, ref, \
\"Thickness\"->Quantity[0.584994, \"Millimeters\"]]",
"Display" -> "codemirror", "Hash" ->
- "4c43142e-e167-42be-916d-196e485e40b9", "Invisible" -> False,
- "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
- "Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*VB[*)temporalStorage$170531(*,*)(*\"1:eJwlk8mOo1YARUtJFlG+I\
-t2rKhMJPzOZ7JjnwUwGWr0wBpvpAWaGb83HdHVnc3R1t0fnS9I6j9/e3t6Gvz4hpMXY9kGRLe5/v7\
-+9ef2tGWAxDEXbWEmZ3cdv74eA/Xb4+Pv98M/h4/3wFfybqRsIxMmujoyPzf5Nxyt77Up85COE0mM\
-pukxXOO38RaIZnXL4DVfW6/01csa66DffRptbnqbXyH5t6sODoRXa0AKoVWOQWnmbwoZGdR9aYYqa\
-AUiig7GxpJ6oUfYY4D7orvre4V6BM6E0KOf7FjmRkNWbv6JJl4TGvBblqDR2vkIIEXTmnrRiDNIZ9\
-ueeMT3O7V1OcBJeQMtpc1LWXBrinJ3QVp2aua9PJ4jsQF7sM2vFngYKPHjiD6qV+AHFgo4MOwhJDQ\
-cYyAiYgfUx1GgvZqGzhg39QJqXiUqLKoEqiy6VFB3RkSEXIvTyKKPcFuGsrIvb7M7q8WYZnPgSiGK\
-MRMgGNKe8cA6syMYzXWo6S2cqNPaQpT6BIfmkxEStOkbc8j53i2ASz2HCgwIFkRjTMVHPi+sE0VTX\
-RiWiQzn5+ICSQar7V8lB4qH0RkcuGfXTmSzVSaWF+4l9jg6Dn9aVcz/lpS4EFx8SlUEFe2y0gYs1t\
-ZSTWzVdljMaoFFBnFiVUskr5skz726z0Oqpcc5eihgzl+Cxt1y1eS9ptHplt6baxMIwdKOE89nzYJ\
-t+zD0CD2Xd6jxMsj7SPIvQrrOKtiOPSCE/71kD4iTG4rgXKtxNkSqMj68hJ8UaPMkZu2FXrxwk1jb\
-762idDUVrF18Vb2ArmxcF+TL1ZL/vTwBHQrb2/BsjHNOjZR493HDunhLfc29pcnOVbCsyjEUKpXtS\
-bTQpW9adO5ovcqsXXQ8gPi9yT1PPbsgcVWkFyXXSCyMbNMHn4kTsRSkH3HP3Hes0aRclUwt7onp/k\
-SJbFU551BitHOYb2yavqyZT+zgiQG/qsn4K7myI0QncnDbv1wdHAopIEqFjFkxrFi1upYULWZDMsY\
-8IoYjnLqqPNsyxKwng0dWjZ1HQGXTbCYFEcFz2Zkd7erY3kis7tBWK4GboNh0uCxJqNJC//mz2e8A\
-ePr7/H/0fn3CmOnP//DmyW2o19fbr9fop+wE6hVYm\"*)(*]VB*)",
- "Display" -> "codemirror", "Hash" ->
- "2f26bb1b-89c3-4965-8528-fc021a149f40", "Invisible" -> False,
+ "cd6d461d-28ef-4135-9733-b007ca96c8ff", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <|"InitGroup" -> True|>,
+ "State" -> "Idle", "Type" -> "Input", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*VB[*)BoxForm`temporalStorage$161298(*,*)(*\"1:eJxd1LeO3AYUB\
+dCFA2D4K2RV0o4B5uSOOQxzJgUVwzjMwxy+3rsu3Tzcd3Hr81cy2MWvb29v858fh8+qZZj8Kt+d12\
+9vb+706Oeumudq6I2kztPlx7d3n/nx/v3Lt/e/379/e/8K/ZMrl+8vqzGAkdWnEJRifGVHQ4UFTX1\
+Et2tvL5HU64h5LrVIrJjI3VrOgroyQLWbfAfUjLSw2HRgda2R2Ktc51jsl2BlfgZ5ITKmYo1mnhGC\
+QYZkSOFz5BEpLtjIFtHbMWR5TVAs+wpod9NpwEQFpMxqh5o3ZJcw+azdSdWurqS34QfYvBTc0dQna\
+xWE2IEnJ1E1GtXFU5ZL0kwjimKpUXYr05YFNMZDGRKttVY7zCfAzN8aFk60133cFPtGscRYILt5ZJ\
+t+1KGG7F6BYmF4AboHUf7SPTvBAQkl2+x4wslbfb9rw0Y/blEax12ppSDDcSbWh2juGRx0QjLezoR\
+J31nsXHcy3Eww2niCSHiLht0pol52osV4t9HEaDwRBnTugWLjce27Z4PK0IsiZjaTHezMxLEsFL7a\
+ZhcqmGsMOVcVtm7g8f7kejFALBZF3WVou85CTEijMccLNtjQKJgFgWso8W2c00OkLU9Mc0MTy63fS\
+Lp17R1B74C3COeqnxcDiGcf0N7V9EF4V+A1LYB2zQLOTaiCULVT3qCkliw/BVPq0AFZmyFXOrJaWS\
+68QbVlIg62NLCjbR5SYJQKqHnHDDBps86bB7OtwY7rC5lNDNcJOegHPACJmKegZ2GLIWvwZe0qFeO\
+KSKTzkJwF8rhsVn9L4SkpQUViky6DkpilkLAvi9kjVWxyb/Qy1lyqtAJlkCVM8Q1dbJ6BGkgE9NPh\
+vpKRIZTGmpjBd4JkMvq9F/JqmLmnbUOmH2zO2AZ3eq/SNrHzF+kZzZbITx1/cM5ayQUZUTB4SNPQd\
+/fbIqWz7C+q416mYETGwUNOyxSg7TswxZGNdpQDw5/xHriCb1IiSI9BiUvyDdCy2gphoEeBfCVn3l\
+ThDNBHgwYgKGzqfQiqyuXnkj52bUQ9fF7UB9fF1KJyIpkOUDbFoZSEkKzhmsQYepafy0sB1XjUME2\
+MSed+xUGQ6LiJ7p34ehglN4D0Co1WJbrxtSqUicra1pNEVwjdw8GcSZbQA0MZn+5QRByKckaOiUUe\
++NVjZb8JD6+vlN30pW7VUU4FX2YhidN5kMJZTaRXJEjCKbQejy7roMr1JLYbs7VuYKJfPx356TPv3\
+38Wv3xC9AHPm722ufPHZ8gfmdG353+tO635/zafajl5+0HTI2nz+fePV3i0c/4vO4CNsA==\"*)(*\
+]VB*)", "Display" -> "codemirror", "Hash" ->
+ "7205a5a8-4e01-4b0b-bb43-069994bd0530", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nIn the `TransmissionObject` decoration's preview, you \
can observe the actual transmission. A key challenge in digital signal \
processing is managing the phase of the signal. To address this, phase \
unwrapping is employed, which transforms a discontinuous phase signal into a \
continuous one.\n\nThere is a special function for it, but one have to play \
with a treshold", "Display" -> "codemirror",
- "Hash" -> "5fcce88d-29c4-4727-b865-2ec216488c3f", "Invisible" -> False,
+ "Hash" -> "ab4631fd-3f32-4fc8-9d22-2071e5a22e0e", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "In the `TransmissionObject` decoration's preview, you can \
observe the actual transmission. A key challenge in digital signal processing \
is managing the phase of the signal. To address this, phase unwrapping is \
employed, which transforms a discontinuous phase signal into a continuous \
one.\n\nThere is a special function for it, but one have to play with a \
treshold", "Display" -> "markdown",
- "Hash" -> "7327fd9b-c753-4d6d-937d-a8c37a4d6e97", "Invisible" -> False,
+ "Hash" -> "ddc89631-d529-4801-915b-0968905bf3d6", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
"utr = TransmissionUnwrap[tr, \"Basic\", \"PhaseThreshold\"->6]",
"Display" -> "codemirror", "Hash" ->
- "c11f3b98-adf1-422a-94f0-870c580ea6f9", "Invisible" -> False,
- "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
- "Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*VB[*)temporalStorage$182287(*,*)(*\"1:eJwlk8mOo1YARUtJFlG+I\
-t2rKhMJPzOZ7JjnwUwGWr0wBpvpAWaGb83HdHVnc3R1t0fnS9I6j9/e3t6Gvz4hpMXY9kGRLe5/v7\
-+9ef2tGWAxDEXbWEmZ3cdv74eA/Xb4+Pv98M/h4/3wFfybqRsIxMmujoyPzf5Nxyt77Up85COE0mM\
-pukxXOO38RaIZnXL4DVfW6/01csa66DffRptbnqbXyH5t6sODoRXa0AKoVWOQWnmbwoZGdR9aYYqa\
-AUiig7GxpJ6oUfYY4D7orvre4V6BM6E0KOf7FjmRkNWbv6JJl4TGvBblqDR2vkIIEXTmnrRiDNIZ9\
-ueeMT3O7V1OcBJeQMtpc1LWXBrinJ3QVp2aua9PJ4jsQF7sM2vFngYKPHjiD6qV+AHFgo4MOwhJDQ\
-cYyAiYgfUx1GgvZqGzhg39QJqXiUqLKoEqiy6VFB3RkSEXIvTyKKPcFuGsrIvb7M7q8WYZnPgSiGK\
-MRMgGNKe8cA6syMYzXWo6S2cqNPaQpT6BIfmkxEStOkbc8j53i2ASz2HCgwIFkRjTMVHPi+sE0VTX\
-RiWiQzn5+ICSQar7V8lB4qH0RkcuGfXTmSzVSaWF+4l9jg6Dn9aVcz/lpS4EFx8SlUEFe2y0gYs1t\
-ZSTWzVdljMaoFFBnFiVUskr5skz726z0Oqpcc5eihgzl+Cxt1y1eS9ptHplt6baxMIwdKOE89nzYJ\
-t+zD0CD2Xd6jxMsj7SPIvQrrOKtiOPSCE/71kD4iTG4rgXKtxNkSqMj68hJ8UaPMkZu2FXrxwk1jb\
-762idDUVrF18Vb2ArmxcF+TL1ZL/vTwBHQrb2/BsjHNOjZR493HDunhLfc29pcnOVbCsyjEUKpXtS\
-bTQpW9adO5ovcqsXXQ8gPi9yT1PPbsgcVWkFyXXSCyMbNMHn4kTsRSkH3HP3Hes0aRclUwt7onp/k\
-SJbFU551BitHOYb2yavqyZT+zgiQG/qsn4K7myI0QncnDbv1wdHAopIEqFjFkxrFi1upYULWZDMsY\
-8IoYjnLqqPNsyxKwng0dWjZ1HQGXTbCYFEcFz2Zkd7erY3kis7tBWK4GboNh0uCxJqNJC//mz2e8A\
-ePr7/H/0fn3CmOnP//DmyW2o19fbr9fop+wE6hVYm\"*)(*]VB*)",
- "Display" -> "codemirror", "Hash" ->
- "3d452e65-6c8d-4bd7-92c3-ceae491a0916", "Invisible" -> False,
+ "7ee59996-8101-4589-91cf-b0d58a281562", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <|"InitGroup" -> True|>,
+ "State" -> "Idle", "Type" -> "Input", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*VB[*)BoxForm`temporalStorage$212007(*,*)(*\"1:eJxd1LeO3AYUB\
+dCFA2D4K2RV0o4B5uSOOQxzJgUVwzjMwxy+3rsu3Tzcd3Hr81cy2MWvb29v858fh8+qZZj8Kt+d12\
+9vb+706Oeumudq6I2kztPlx7d3n/nx/v3Lt/e/379/e/8K/ZMrl+8vqzGAkdWnEJRifGVHQ4UFTX1\
+Et2tvL5HU64h5LrVIrJjI3VrOgroyQLWbfAfUjLSw2HRgda2R2Ktc51jsl2BlfgZ5ITKmYo1mnhGC\
+QYZkSOFz5BEpLtjIFtHbMWR5TVAs+wpod9NpwEQFpMxqh5o3ZJcw+azdSdWurqS34QfYvBTc0dQna\
+xWE2IEnJ1E1GtXFU5ZL0kwjimKpUXYr05YFNMZDGRKttVY7zCfAzN8aFk60133cFPtGscRYILt5ZJ\
+t+1KGG7F6BYmF4AboHUf7SPTvBAQkl2+x4wslbfb9rw0Y/blEax12ppSDDcSbWh2juGRx0QjLezoR\
+J31nsXHcy3Eww2niCSHiLht0pol52osV4t9HEaDwRBnTugWLjce27Z4PK0IsiZjaTHezMxLEsFL7a\
+ZhcqmGsMOVcVtm7g8f7kejFALBZF3WVou85CTEijMccLNtjQKJgFgWso8W2c00OkLU9Mc0MTy63fS\
+Lp17R1B74C3COeqnxcDiGcf0N7V9EF4V+A1LYB2zQLOTaiCULVT3qCkliw/BVPq0AFZmyFXOrJaWS\
+68QbVlIg62NLCjbR5SYJQKqHnHDDBps86bB7OtwY7rC5lNDNcJOegHPACJmKegZ2GLIWvwZe0qFeO\
+KSKTzkJwF8rhsVn9L4SkpQUViky6DkpilkLAvi9kjVWxyb/Qy1lyqtAJlkCVM8Q1dbJ6BGkgE9NPh\
+vpKRIZTGmpjBd4JkMvq9F/JqmLmnbUOmH2zO2AZ3eq/SNrHzF+kZzZbITx1/cM5ayQUZUTB4SNPQd\
+/fbIqWz7C+q416mYETGwUNOyxSg7TswxZGNdpQDw5/xHriCb1IiSI9BiUvyDdCy2gphoEeBfCVn3l\
+ThDNBHgwYgKGzqfQiqyuXnkj52bUQ9fF7UB9fF1KJyIpkOUDbFoZSEkKzhmsQYepafy0sB1XjUME2\
+MSed+xUGQ6LiJ7p34ehglN4D0Co1WJbrxtSqUicra1pNEVwjdw8GcSZbQA0MZn+5QRByKckaOiUUe\
++NVjZb8JD6+vlN30pW7VUU4FX2YhidN5kMJZTaRXJEjCKbQejy7roMr1JLYbs7VuYKJfPx356TPv3\
+38Wv3xC9AHPm722ufPHZ8gfmdG353+tO635/zafajl5+0HTI2nz+fePV3i0c/4vO4CNsA==\"*)(*\
+]VB*)", "Display" -> "codemirror", "Hash" ->
+ "55a92aa6-f701-4e60-af28-89a544d50f25", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nLet us compare those two", "Display" -> "codemirror",
- "Hash" -> "c5a8ea7b-ce21-4233-950e-00b4613680fb", "Invisible" -> False,
+ "Hash" -> "8a4dff23-de69-4207-875e-3dbed4afed96", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "Let us compare those two", "Display" -> "markdown",
- "Hash" -> "8c21ee4e-62c3-48a8-9169-88f1558d8658", "Invisible" -> False,
+ "Hash" -> "2840c674-ea46-4a2e-b3ba-44503345f088", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "ListLinePlot[{tr[\"Phase Features\"], utr[\"Phase \
Features\"]}, PlotLegends->{\"Wrapped\", \"Unwrapped\"}]",
"Display" -> "codemirror", "Hash" ->
- "0e85b116-060c-4287-b09c-0235baad7d83", "Invisible" -> False,
+ "2a21aec7-16a1-4d99-91f8-727fd89de752", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"649378aa-45f4-4117-8b3e-52f5a1\
-138f1d\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
-VgEKm5lYGptbJCbqmpimmeiaGBqa61okGafqmhqlmSYaGhpbpBmmAAB11BUX\"*)(*]VB*)(*|*),\
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"eb31312e-08a1-41e3-a33a-9b6616\
+f0359c\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
+VgEKpyYZGxobGqXqGlgkGuqaGKYa6yYaGyfqWiaZmRmapRkYm1omAwB9WhUw\"*)(*]VB*)(*|*),\
(*|*)(*GB[*){{(*VB[*)(RGBColor[0.368417, 0.506779, \
-0.709798])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3I\
-SSxJTWMGyXMgyRcVTJv0VGXKdfsiw2kvp3eYP7AvOt4yw3vVtmf2AKMBH1E=\"*)(*]VB*)(*|*),\
-(*|*)(*VB[*)(\"Wrapped\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5Kdh4AkDCM68ktSgvM\
-SchKLE8JLWiJJgdKBhelFhQkJoCAPuNEJI=\"*)(*]VB*)}(*||*),(*||*){(*VB[*)(RGBColor\
-[0.880722, 0.611041, \
-0.142051])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3I\
-SSxJTWMGyXMgyRf5HIl+fl/vjX3Rv+oPt5b2PrYv2jxrnfouvUP2ALwBIFo=\"*)(*]VB*)(*|*),\
-(*|*)(*VB[*)(\"Unwrapped\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5Kdh4AkDCM68ktSg\
-vMSchKLE8JLWiJJgTKBiaV16UWFCQmgIAHoERdw==\"*)(*]VB*)}}(*]GB*)}}(*]GB*)",
- "Display" -> "codemirror", "Hash" ->
- "f3bc21bf-bb65-44a2-aa97-b50b6d5aa30d", "Invisible" -> False,
+0.709798])(*,*)(*\"1:eJxTTMoPSmNiYGAo5gUSYZmp5S6pyflFiSX5RcEsQBHn4PCQNGaQPAeQ\
+CHJ3cs7PyS8qKpg26anKlOv2RYbTXk7vMH9gX3S8ZYb3qm3P7AF5kRs6\"*)(*]VB*)(*|*),(*|*\
+)(*VB[*)(\"Wrapped\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB4vkAjLTC13SU3OL\
+0osyS8KZgeKBCWWh6RWlIDZ4UWJBQWpKQDb+xAm\"*)(*]VB*)}(*||*),(*||*){(*VB[*)(RGBC\
+olor[0.880722, 0.611041, \
+0.142051])(*,*)(*\"1:eJxTTMoPSmNiYGAo5gUSYZmp5S6pyflFiSX5RcEsQBHn4PCQNGaQPAeQ\
+CHJ3cs7PyS8q8jkS/fy+3hv7on/VH24t7X1sX7R51jr1XXqH7AGSkRxD\"*)(*]VB*)(*|*),(*|*\
+)(*VB[*)(\"Unwrapped\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB4vkAjLTC13SU3\
+OL0osyS8KZgeKBCWWh6RWlARzAtmheeVFiQUFqSkA/ggRCw==\"*)(*]VB*)}}(*]GB*)}}(*]GB*\
+)", "Display" -> "codemirror", "Hash" ->
+ "1507cb09-fe9a-4fa5-84aa-dc80a955824a", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nHowever, you might need to tweak the settings, when we \
start to extract material parameters.", "Display" -> "codemirror",
- "Hash" -> "05210727-99a7-4b96-86f3-6638d3cd9671", "Invisible" -> False,
+ "Hash" -> "71809b32-5d6a-48fa-9d69-ef6b5b7c1db3", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "However, you might need to tweak the settings, when we start \
to extract material parameters.", "Display" -> "markdown",
- "Hash" -> "e0dde5b1-321c-4893-bcb1-f6687c905394", "Invisible" -> False,
+ "Hash" -> "6321682e-4386-4303-9ef2-3c80e9c8f265", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\n## Material Parameters\nThis the main goal of all \
optical spectroscopy: use EM waves to probe the responce function of the \
material to extract all useful properties. It is sufficient to define $n$ and \
$\\\\kappa$ or their derivatives.\n\nIn the transmission spectroscopy we \
assume our crystal to be a slab taking into account all internal reflections. \
For the simplicity we can ignore them firstly", "Display" -> "codemirror",
- "Hash" -> "9f86aec3-221d-4dae-b883-da0131bd0b42", "Invisible" -> False,
+ "Hash" -> "45b7b8e2-55c5-45af-a6eb-bdc8fa7df8d2", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "## Material Parameters\nThis the main goal of all optical \
spectroscopy: use EM waves to probe the responce function of the material to \
extract all useful properties. It is sufficient to define $n$ and $\\\\kappa$ \
or their derivatives.\n\nIn the transmission spectroscopy we assume our \
crystal to be a slab taking into account all internal reflections. For the \
simplicity we can ignore them firstly", "Display" -> "markdown",
- "Hash" -> "6aad19eb-3079-4909-a599-a9151226715e", "Invisible" -> False,
+ "Hash" -> "68b7f64d-6914-4080-9d34-8eb896bc4c0c", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" ->
- "m1 = MaterialParameters[utr, \"FabryPerotCancellation\"->False]",
- "Display" -> "codemirror", "Hash" ->
- "7c768d22-c4df-443a-b7cb-521302572bd4", "Invisible" -> False,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "m1 = MaterialParameters[Append[utr, \"PhaseShift\"->0], \
+\"NKCycles\"->0, \"SolveNKEquations\"->False, \
+\"FabryPerotCancellation\"->False, \"MovingAverageFilter\"->2, \
+\"SolveNKEquations\"->False, \"Target\"->\"CPU\"]\nm2 = \
+MaterialParameters[Append[utr, \"PhaseShift\"->0], \"NKCycles\"->0, \
+\"SolveNKEquations\"->False, \"FabryPerotCancellation\"->False, \
+\"MovingAverageFilter\"->2, \"SolveNKEquations\"->False, \
+\"Target\"->\"GPU\"]", "Display" -> "codemirror",
+ "Hash" -> "ccbee61a-db5a-4dc2-b955-852efa5caec8", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*VB[*)temporalStorage$182627(*,*)(*\"1:eJwlksmSk1AAAKcsD5Zfo\
-Z5mglUsYRtvhACBgQCBPAiWhwc8lrCGPMLyTX6ko166uvrcX+PulH14enq6f36Hkpa4G0CJJu/3e7\
-QgRkMJawcOsEHvfv/5vAG7n5uXL8+b75uX5803+gcyFrq2RodaJbcQsc+W6uxWZXKxgmLvFhiPlFf\
-tc5YRTkeKSmFBu9jF/Z1dToEy4Llq41TaikJ672S3OMslEDSLYyOSgH4UE2I3OHl6o4OFE/XLavOT\
-LywGcZfPnH5IGb8cfYl/IM6ra1aer5OnF0QAUTebA9wHa3YMz5FxOe2zGU7dI/CyUcZWu0QEWbssU\
-gIjf9Vpzq6AD/iewS3HhPVE8tFYOk4Z0QkAkfVKMIEkiEaTAz3sFkbEc2qHxGwepv5KmGU+WD2hBm\
-qaZKHj3Wx0RMObJig3g+gOR7Ng2p1GX/ybra60VPPKjuBGNk4Yv4LNtrkqesIgOjqtC/bJt2OxWkg\
-S5TVfpBVqjervkkFBZooTkyU1wd8eisKjcU9Ru9GWTXjgeL0NiNEcPEYXaxREdT5Ke97bO9xse6I2\
-xBcv5AFTcKbLvlqD/ioEHhUTsaR1PnO94bIMgRbad/l4T9wbvrgCsW5dWSbNBplrr50MePZZAKyzw\
-WYGJkVj+zZYq0zH4SPcO7fmcAEzpKuRJaOqgV3UypmvRNeqiTWYXafl7k15QbU1GWcoLDgVXPmu7T\
-Kye5uQlzUnUpdKk0qmqVLnQBURyvqQ78+r2TsVJobDNNZs4SeF2uiK4YvwkSvdA4DDt78P/gK7zcu\
-v/xN/fMdprJH36a8gmNptvfyr/jCiP53C8dc=\"*)(*]VB*)", "Display" -> "codemirror",
- "Hash" -> "b31feeb2-9afa-4c4e-9a04-d84c4b117b80", "Invisible" -> False,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*VB[*)BoxForm`temporalStorage$162026(*,*)(*\"1:eJxdk0mPm1gAh\
+FuzSNGc5idMcuq2RwKbBptIObAas29mi3JgeayPxWwGfn3cOeZSqvpUx6rPUWumf768vAz/PIVLir\
+HtnQI8rH+fUAlH0Bch1MM+rMHTD99fdw79fff23+vu/93b6+7L4SsQN8dJpqlCqZueEHPhV7NY4t2\
+1PR9wJ5KvuM1IoXdUOqvWy5rP4nc6KO7eONsRQoXIGsAVvee62yhnxeJ7EhLb0Ruh4Uagn7JhasYl\
+di5nn2VFwgwFiV5mq1pELsHKC3EOLoI5o/Z26rUYF1lOMgIHKtI5EBIsV61z4LIVDII9h9iodM+l6\
+ZbZQHFaxWRqhZdceO/k8Fbei4N6JSQChde7kdnGBltp5FmstvePJfZEU10P6tHR0zu9CN7jEcO1WZ\
+VkomllW04obuyDhNLjG9zmcUDB2cwE7tblLs/qF+7RnKqaqYvrgwUu44heJdgpx1ts70uV4sqprIB\
+zcpT0zDKkoSXiGQCVoMxKwDXYJ6oem2Qc5ephYpgyC/mBQzCJ9O4Fq0Xr8YLZbRYlrdljeRtum2qp\
+DWF3sqrLAWU3E5apJNJSw9q4i4jZm5ppWWUtRNZBIki7B+y4rDb86Z2f6NwgNJQ77i1V1Alo2SkZp\
+heFJzHaHQxkqan4mteadahSd11ntNtO23y+lAiRypu8+XwJ6sgpp/YKvKBPIqpfURhle1E/GX469U\
+sc0nOjGjIGlmhS9qymR7FYRQRxWCqavvEaiJDUczfxfYrY3D4s5DUHS5eobBSvR8PEHMrM3w3BTAw\
+XJ9umuTmIoPbA4HDsIO63opzz2+kk9vaClxGXrlCfGYhvSDkOV5+n6iGGAMi4as6MtWrd1ikMYsqk\
+p7i1zHD+JnLaTegIH5tjFhwr49u3Lx87/+HQu7cf6R8fR/nrKeYEgfXpw4Aw0Rq4/qJ2P4HfOh+vs\
+gAE8RhGEAx/PyMfwgH8BF3+H0Y=\"*)(*]VB*)", "Display" -> "codemirror",
+ "Hash" -> "3be1db82-0bb0-4afa-9c54-538ab390bee7", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
+ "Type" -> "Output", "UID" -> Null, "Notebook" ->
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*VB[*)BoxForm`temporalStorage$162270(*,*)(*\"1:eJxdU8uOo1YUb\
+E0y0ijKRySz6jaReBiwPTuDAYMxYN4wmsUFLuYNBi4Yvj7uLLMpVZWOalOn/o5aM/3t7e1t+OMFQp\
+KPbe/mcLb+fJlXMMI+B5UBelDDFx9+vm9c7ufm46/3zT+bj/fNd/IHVFbXTRAqiaNjJOyUB+WkFEw\
+nt3vS58dDJsq0I7WTo/Qso9xClpuRs6uJLsFrDc+0tbNss9laNdIV3q126+ERGdagXieNMr3I3AZI\
+zXFZzJyKG7N7rmuMU+tmlch716+M25LQpZmG4WV+3J5zxiYh4NqHSCRySk4X8y7m1sQVZbwTxcCle\
+FdG+6RzvIzbViZdDMTCkWFZc2c/Ft1unir1fij9zj2JJ7K8YYwdn8VwtDTjweqsu2Iy0nZxXx29QL\
+XXc29FIYUD8hE7XMb5nXRyk/Fe8OjaWvf6qKaSMDdrLeX3Ujg3KSu3tuvsnGNH2gnXMoMDldREOou\
+zimGBfBZKEE8AMxbZVnEUqDylpXJ73iKHcgLwirP7fRGZfbXgKlFAn3vsDL6M7CfxiH2s1ffjlbqZ\
+Sj3QS+90UqCyKknxExUWKCh3sR43RG8S9TA2zkVAuM2ltYwUwU/wsM4Ei9ZnevF442KwpVVIPMClU\
+YzXk+cQ+FPSPfl4OsOkjb0Ia4kQZ1eDlhp8SdXKWF+1B5ISItQEqTqTbm8v+1F/RVo2R1zOJOmpxf\
+16ZC4K3HmqMR+vJ1qrnvVz6vozHzCXYVrXlGEBFRriEwQXOBgwoAbg2zfsXE6VEGq1fNjbWy4uyAJ\
+0OoxcTMBHJiAZPYmWgQ4xe+sz3oGXniM6pou/b62onOB1e2N6h1emAhiPVJGuWE5xTCo6HFUrKaow\
+O7ueXImPT6RktrhNPJsUs3vQfv/88V8ut/n4lX75HMnvLzBRBa1vnwSCRG+q5T/X7hH8383noixYw\
+XgEUQWHry8pgmqA/wJzchpi\"*)(*]VB*)", "Display" -> "codemirror",
+ "Hash" -> "b258f7f2-f1c8-4986-871c-58423bbb6b62", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nOne can see already on the preview, that our refractive \
index is off. This rabid increate towards the low frequencies is a sign of a \
wrong phase offset. We can inspect on a regular plot",
"Display" -> "codemirror", "Hash" ->
- "c5db6ddc-c199-4ba9-b524-429fd41b1755", "Invisible" -> False,
+ "8d73aa51-f088-4fd7-b356-0cdd5105e60f", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "One can see already on the preview, that our refractive index \
is off. This rabid increate towards the low frequencies is a sign of a wrong \
phase offset. We can inspect on a regular plot", "Display" -> "markdown",
- "Hash" -> "26a79dd0-a2a9-4979-8da8-73af15b021e7", "Invisible" -> False,
+ "Hash" -> "98974b78-1f9d-4035-9616-f64f21b43bd0", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "ListLinePlot[{\n MaterialParameters[\n Append[utr, \
\"PhaseShift\"->1]\n , \"FabryPerotCancellation\"->False][\"n\"]\n,\n \
MaterialParameters[\n Append[utr, \"PhaseShift\"->0]\n , \
-\"FabryPerotCancellation\"->False][\"n\"]\n}, PlotRange->{{20,100}, \
-{3.5,5.5}}, PlotLegends->{\"PhaseShift = 1\", \"PhaseShift = 0\"}]",
+\"FabryPerotCancellation\"->True][\"n\"]\n}, PlotRange->Full, \
+PlotLegends->{\"PhaseShift = 1\", \"PhaseShift = 0\"}]",
"Display" -> "codemirror", "Hash" ->
- "49b638aa-0464-477d-b7e8-3e4a452ecb98", "Invisible" -> False,
+ "5b3cc411-0c42-4871-82cd-a5f7105cde84", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"d043ea11-a217-4817-ba1f-0310ba\
-70076b\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
-VgEKpxiYGKcmGhrqJhoZmuuaWACJpETDNF0DY0ODpERzAwNzsyQAe94VHA==\"*)(*]VB*)(*|*),\
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"e68c0407-19c9-46a4-b445-3cc69f\
+65c13d\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
+VgEKp5pZJBuYGJjrGlomW+qamCWa6CaZmJjqGicnm1mmmZkmGxqnAAB6zxVM\"*)(*]VB*)(*|*),\
(*|*)(*GB[*){{(*VB[*)(RGBColor[0.368417, 0.506779, \
-0.709798])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3I\
-SSxJTWMGyXMgyRcVTJv0VGXKdfsiw2kvp3eYP7AvOt4yw3vVtmf2AKMBH1E=\"*)(*]VB*)(*|*),\
-(*|*)(*VB[*)(\"PhaseShift = \
-1\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5Kdh4AkDCM68ktSgvMSchKLE8JLWiJJgPKBiQkV\
-icGpyRmVaiYKtgCAB3lBJj\"*)(*]VB*)}(*||*),(*||*){(*VB[*)(RGBColor[0.880722, \
-0.611041, \
-0.142051])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3I\
-SSxJTWMGyXMgyRf5HIl+fl/vjX3Rv+oPt5b2PrYv2jxrnfouvUP2ALwBIFo=\"*)(*]VB*)(*|*),\
-(*|*)(*VB[*)(\"PhaseShift = \
-0\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5Kdh4AkDCM68ktSgvMSchKLE8JLWiJJgPKBiQkV\
-icGpyRmVaiYKtgAAB3kxJi\"*)(*]VB*)}}(*]GB*)}}(*]GB*)",
+0.709798])(*,*)(*\"1:eJxTTMoPSmNiYGAo5gUSYZmp5S6pyflFiSX5RcEsQBHn4PCQNGaQPAeQ\
+CHJ3cs7PyS8qKpg26anKlOv2RYbTXk7vMH9gX3S8ZYb3qm3P7AF5kRs6\"*)(*]VB*)(*|*),(*|*\
+)(*VB[*)(\"PhaseShift = \
+1\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB4vkAjLTC13SU3OL0osyS8KZgeKBCWWh6\
+RWlATzAdkBGYnFqcEZmWklCrYKhgBVDhH3\"*)(*]VB*)}(*||*),(*||*){(*VB[*)(RGBColor[\
+0.880722, 0.611041, \
+0.142051])(*,*)(*\"1:eJxTTMoPSmNiYGAo5gUSYZmp5S6pyflFiSX5RcEsQBHn4PCQNGaQPAeQ\
+CHJ3cs7PyS8q8jkS/fy+3hv7on/VH24t7X1sX7R51jr1XXqH7AGSkRxD\"*)(*]VB*)(*|*),(*|*\
+)(*VB[*)(\"PhaseShift = \
+0\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB4vkAjLTC13SU3OL0osyS8KZgeKBCWWh6\
+RWlATzAdkBGYnFqcEZmWklCrYKBgBVDRH2\"*)(*]VB*)}}(*]GB*)}}(*]GB*)",
"Display" -> "codemirror", "Hash" ->
- "b160576a-743a-4a3e-bca7-89c0f0c1ca9a", "Invisible" -> False,
+ "4441e46e-0164-4244-a9d9-2fd8e1fb699b", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "Get[\"/Users/kirill/Library/CloudStorage/OneDrive-Personal/\
+\:0414\:043e\:043a\:0443\:043c\:0435\:043d\:0442\:044b/WLJS \
+Notebooks/TK/wl_packages/JerryI_TDSTools/Kernel/Material.wl\"]",
+ "Display" -> "codemirror", "Hash" ->
+ "ac8a8eb7-3a68-4efb-af88-ecd0b85f7fbb", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
+ "Type" -> "Input", "UID" -> Null, "Notebook" ->
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*BB[*)(\"TDTools`nGPU >> \
+Done\")(*,*)(*\"1:eJxTTMoPSmNiYGAo5gcSAUX5ZZkpqSn+BSWZ+XnFEAk+IBFcUpmT6pKanF+\
+UWJJfVMwGFPIsSczJTIYoYQESQaU5qcVcQIZTYnJ2elF+aV5KGjNIkgMk6e7knJ+TX1SkGdN/6KvG\
+G/tMRqAonIdqSjAb2MaizLx0sFhIUWkqAL9iLV4=\"*)(*]BB*)", "Display" -> "print",
+ "Hash" -> "3e37c5db-fd75-4237-8216-c5d21989897d", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
+ "Type" -> "Output", "UID" -> Null, "Notebook" ->
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "Get[\"/Users/kirill/Library/CloudStorage/OneDrive-Personal/\
+\:0414\:043e\:043a\:0443\:043c\:0435\:043d\:0442\:044b/WLJS \
+Notebooks/TK/wl_packages/JerryI_TDSTools/Scripts/Build.wls\"]",
+ "Display" -> "codemirror", "Hash" ->
+ "442f6319-6fc6-4b13-a27a-cd0cb19945e8", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
+ "Type" -> "Input", "UID" -> Null, "Notebook" ->
+ "55703269-7721-4870-89fe-2041149293ef"|>, <|"Data" -> "\"\"",
+ "Display" -> "print", "Hash" -> "34f2429b-4fb8-4b4e-ad2e-d98a4c27efb7",
+ "Invisible" -> False, "MetaOnly" -> False, "Props" -> <||>,
+ "State" -> "Idle", "Type" -> "Output", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nFrom here we one can guess that `0` is a correct value. \
The next step will be to get rid of those wiggles we have from the \
reflections inside the medium", "Display" -> "codemirror",
- "Hash" -> "eeebe944-6a7c-492e-b0ea-252b850352b1", "Invisible" -> False,
+ "Hash" -> "a368663b-c777-4006-88bc-b6c633557d72", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "From here we one can guess that `0` is a correct value. The \
next step will be to get rid of those wiggles we have from the reflections \
inside the medium", "Display" -> "markdown",
- "Hash" -> "2e1e299f-5e1b-4b53-9a49-7df11877069e", "Invisible" -> False,
+ "Hash" -> "f3456585-f3e8-4108-a71e-1c8cbf197fc8", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "ListLinePlot[m1[\"k\"], PlotRange->{{10,100}, {-0.03,0.2}}]",
"Display" -> "codemirror", "Hash" ->
- "0ee64c2e-d4af-4a12-ad74-bcccbca7ae2d", "Invisible" -> False,
+ "3d9ce99d-a867-4723-b851-5aa6cd2a447c", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*VB[*)(FrontEndRef[\"9b12ce42-a988-4c08-b0b1-64ab7f180b10\"]\
-)(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKWyYZG\
-iWnmhjpJlpaWOiaJBtY6CYZJBnqmpkkJpmnGVoA2QYAgckVYw==\"*)(*]VB*)",
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*VB[*)(FrontEndRef[\"5059e10f-b119-4075-a287-6681f69b450f\"]\
+)(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKmxqYW\
+qYaGqTpJhkaWuqaGJib6iYaWZjrmplZGKaZWSaZmBqkAQBxoRS8\"*)(*]VB*)",
"Display" -> "codemirror", "Hash" ->
- "ddc6b6a8-7233-4bd7-b045-f044cd70c579", "Invisible" -> False,
+ "7d11563a-1f0e-48ad-9578-fbce559c9334", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\n### Fabry-Perot Cancellation\nIn general this is not a \
correct name (but quite recognizable). We have to deconvolve the material \
parameters from the signature of our sample shape. This can be done \
automatically using built-in iterative methods", "Display" -> "codemirror",
- "Hash" -> "ae069e07-1893-42d7-a022-f30e17701223", "Invisible" -> False,
+ "Hash" -> "af24fdc0-658b-48bb-b7d9-cbb11001ab96", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "### Fabry-Perot Cancellation\nIn general this is not a \
correct name (but quite recognizable). We have to deconvolve the material \
parameters from the signature of our sample shape. This can be done \
automatically using built-in iterative methods", "Display" -> "markdown",
- "Hash" -> "77bac72f-4fb4-4c02-b490-5d9f41385b77", "Invisible" -> False,
+ "Hash" -> "90b80b4f-b4c0-497c-aa7d-bf5fc849c889", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "{fp, nofp} = {\n MaterialParameters[\n Append[utr, \
-\"PhaseShift\"->0]\n , \"FabryPerotCancellation\"->False]\n,\n \
-MaterialParameters[\n Append[utr, \"PhaseShift\"->0]\n , \
-\"FabryPerotCancellation\"->True]\n};\n\nListLinePlot[{fp[\"k\"], \
-nofp[\"k\"]}, PlotRange->{{10,100}, {-0.03,0.2}}, PlotLegends->{\"FP\", \"no \
-FP\"}]", "Display" -> "codemirror",
- "Hash" -> "479e8ac0-6553-45ed-b571-40c6505005f6", "Invisible" -> False,
+\"PhaseShift\"->0]\n , \"FabryPerotCancellation\"->False, \
+\"MovingAverageFilter\"->0, \"Target\"->\"CPU\"]\n,\n MaterialParameters[\n \
+ Append[utr, \"PhaseShift\"->0]\n , \"FabryPerotCancellation\"->True, \
+\"MovingAverageFilter\"->0, \
+\"Target\"->\"CPU\"]\n};\n\nListLinePlot[{fp[\"k\"], nofp[\"k\"]}, \
+PlotRange->{{10,100}, {-0.03,0.2}}, PlotLegends->{\"FP\", \"no FP\"}]",
+ "Display" -> "codemirror", "Hash" ->
+ "6f70ede4-632d-4ad1-9044-c662ba972eae", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"5b9810dc-668b-4503-8dbe-599c57\
-26f514\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
-VgEKmyZZWhgapCTrmplZJOmamBoY61qkJKXqmlpaJpuaG5mlmRqaAAB9bxUm\"*)(*]VB*)(*|*),\
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"294e2d05-c636-4aa2-829e-83da7f\
+6947d0\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
+VgEKG1mapBqlGJjqJpsZm+maJCYa6VoYWabqWhinJJqnmVmamKcYAAB8PxVP\"*)(*]VB*)(*|*),\
(*|*)(*GB[*){{(*VB[*)(RGBColor[0.368417, 0.506779, \
-0.709798])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3I\
-SSxJTWMGyXMgyRcVTJv0VGXKdfsiw2kvp3eYP7AvOt4yw3vVtmf2AKMBH1E=\"*)(*]VB*)(*|*),\
-(*|*)(*VB[*)(\"FP\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5Kdh4AkDCM68ktSgvMSchKL\
-E8JLWiJJgJKOgWAACsYA5Q\"*)(*]VB*)}(*||*),(*||*){(*VB[*)(RGBColor[0.880722, \
-0.611041, \
-0.142051])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3I\
-SSxJTWMGyXMgyRf5HIl+fl/vjX3Rv+oPt5b2PrYv2jxrnfouvUP2ALwBIFo=\"*)(*]VB*)(*|*),\
-(*|*)(*VB[*)(\"no \
-FP\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5Kdh4AkDCM68ktSgvMSchKLE8JLWiJJgVKJiXr\
-+AWAADZ6w9Q\"*)(*]VB*)}}(*]GB*)}}(*]GB*)", "Display" -> "codemirror",
- "Hash" -> "f0e6bf5f-b095-4e3d-a816-7b883a4a2968", "Invisible" -> False,
+0.709798])(*,*)(*\"1:eJxTTMoPSmNiYGAo5gUSYZmp5S6pyflFiSX5RcEsQBHn4PCQNGaQPAeQ\
+CHJ3cs7PyS8qKpg26anKlOv2RYbTXk7vMH9gX3S8ZYb3qm3P7AF5kRs6\"*)(*]VB*)(*|*),(*|*\
+)(*VB[*)(\"FP\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB4vkAjLTC13SU3OL0osyS\
+8KZgeKBCWWh6RWlASDlLgFAACO6g3k\"*)(*]VB*)}(*||*),(*||*){(*VB[*)(RGBColor[0.88\
+0722, 0.611041, \
+0.142051])(*,*)(*\"1:eJxTTMoPSmNiYGAo5gUSYZmp5S6pyflFiSX5RcEsQBHn4PCQNGaQPAeQ\
+CHJ3cs7PyS8q8jkS/fy+3hv7on/VH24t7X1sX7R51jr1XXqH7AGSkRxD\"*)(*]VB*)(*|*),(*|*\
+)(*VB[*)(\"no \
+FP\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB4vkAjLTC13SU3OL0osyS8KZgeKBCWWh\
+6RWlASzAtl5+QpuAQC7MQ7k\"*)(*]VB*)}}(*]GB*)}}(*]GB*)",
+ "Display" -> "codemirror", "Hash" ->
+ "0cf6544f-9329-441b-89e2-f47a1a5cf84d", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nThe success of this procedure strongly depends on phase, \
thickness accuracy and the correct ratio between sample and reference surface \
area.\n\nSometimes one have to vary the thickness, gain parameters to archive \
best results. Therefore it comes handy to have a criteria to judge the \
quality of the chosen combo", "Display" -> "codemirror",
- "Hash" -> "972d8245-4e53-44a3-95f3-f68df0d05af4", "Invisible" -> False,
+ "Hash" -> "8bbf1c59-31af-4e84-b7ae-5f3dc39f6ce5", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "The success of this procedure strongly depends on phase, \
thickness accuracy and the correct ratio between sample and reference surface \
area.\n\nSometimes one have to vary the thickness, gain parameters to archive \
best results. Therefore it comes handy to have a criteria to judge the \
quality of the chosen combo", "Display" -> "markdown",
- "Hash" -> "cc4759bc-4b0b-4257-9f7e-8a9a93035679", "Invisible" -> False,
+ "Hash" -> "9257c7fd-88d2-45c1-8109-1e4fdb60bd61", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "#[\"FPReduction\"] &/@ {fp, nofp}",
"Display" -> "codemirror", "Hash" ->
- "7d499e48-351a-4b87-bc61-dfb6a301a5cf", "Invisible" -> False,
+ "a998299d-b42a-4bc1-ae0d-063b98ed8ff6", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "{1.`,1.5383965917969438`}", "Display" -> "codemirror",
- "Hash" -> "b895b7e2-1ddf-45f8-9a01-05e37fe7c321", "Invisible" -> False,
+ "Hash" -> "12f41048-f8f8-4eb2-8b6e-1751879bb527", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nThis is done by making fourier transformation of the \
region of `\"k\"` with the highest signal-to-noise ratio, and then \
intergation over it. The wiggles usually give a sharp peak, which helps to \
estimate the magnitude of reduction effect.", "Display" -> "codemirror",
- "Hash" -> "792c8e1e-fcb5-4de7-8763-a11024c8d6f6", "Invisible" -> False,
+ "Hash" -> "e69fd891-0a31-4dae-a5c1-a1e76f2c4e54", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "This is done by making fourier transformation of the region \
of `\"k\"` with the highest signal-to-noise ratio, and then intergation over \
it. The wiggles usually give a sharp peak, which helps to estimate the \
magnitude of reduction effect.", "Display" -> "markdown",
- "Hash" -> "17926c53-1c7b-4ccf-badb-60271dc2ed6f", "Invisible" -> False,
+ "Hash" -> "17780a18-0448-405d-b76c-c837f1979a81", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\n## Thickness and Gain correction\nWe can correct those \
parameters using `FPReduction` values as a criteria. The error mostly comes \
form the inaccuracy of thickness measurements, misaligment of \
reference/sample ", "Display" -> "codemirror",
- "Hash" -> "585af15d-b517-4d6f-a387-116588b6434b", "Invisible" -> False,
+ "Hash" -> "39bf1125-7b92-415c-8bd2-e1a10bf71cc5", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "## Thickness and Gain correction\nWe can correct those \
parameters using `FPReduction` values as a criteria. The error mostly comes \
form the inaccuracy of thickness measurements, misaligment of \
reference/sample ", "Display" -> "markdown",
- "Hash" -> "4ee16afc-7d79-4236-be3f-7d4dc97018d2", "Invisible" -> False,
+ "Hash" -> "d2b808f7-930f-46c4-b161-644b552df6bb", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "map = Table[With[{\n t = Append[utr, {\"PhaseShift\"->0, \
\"Gain\"->gain, \"Thickness\"->Quantity[thickness,\"Millimeters\"]}]\n},\n \
{thickness, gain, t}\n], {thickness, 0.585-0.1, 0.585+0.1, 0.02}, {gain, 0.8, \
1.2, 0.1}];\n\nmap = Flatten[map, 1];\nmap[[All,3]] = #[\"FPReduction\"] &/@ \
-MaterialParameters[map[[All,3]], \"Target\"->\"CPU\"];",
- "Display" -> "codemirror", "Hash" ->
- "6651c046-9067-4c0c-ae94-d700adb20c74", "Invisible" -> False,
- "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
- "Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "ListContourPlot[map, PlotLegends->Automatic]",
- "Display" -> "codemirror", "Hash" ->
- "b83e1a6e-1e41-4380-8e10-c2590de9bb38", "Invisible" -> False,
+MaterialParameters[map[[All,3]], \"Target\"->\"CPU\", \
+\"MovingAverageFilter\"->0];\n\nListContourPlot[map, PlotLegends->Automatic]"\
+, "Display" -> "codemirror", "Hash" ->
+ "aa7ad157-684d-4b72-b751-f4ea4c153c7f", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"8683c5a2-26a4-45ad-876b-d19f1b\
-19e64e\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
-VgEKW5hZGCebJhrpGpklmuiamCam6FqYmyXpphhaphkmGVqmmpmkAgB8dRV+\"*)(*]VB*)(*|*),\
-(*|*)(*VB[*)(FrontEndRef[\"b7479765-1398-4cd3-80da-098450ec2ebe\"])(*,*)(*\"1\
-:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKJ5mbmFuam5nqGhpb\
-WuiaJKcY61oYpCTqGlhamJgapCYbpSalAgB0bhVS\"*)(*]VB*)}}(*]GB*)",
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"4f48a683-6c96-4492-b3ce-878209\
+9a42ac\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
+VgEKm6SZWCSaWRjrmiVbmumamFga6SYZJ6fqWphbGBlYWiaaGCUmAwB5HxUp\"*)(*]VB*)(*|*),\
+(*|*)(*VB[*)(FrontEndRef[\"b83030e2-3c7a-468e-ab76-a5ce04166e10\"])(*,*)(*\"1\
+:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKJ1kYGxgbpBrpGieb\
+J+qamFmk6iYmmZvpJpompxqYGJqZpRoaAACAIhVk\"*)(*]VB*)}}(*]GB*)",
"Display" -> "codemirror", "Hash" ->
- "4986341e-36e4-48d3-bbea-86c7ad403e6f", "Invisible" -> False,
+ "b4448534-9334-4444-9832-c18ac219a387", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
".md\nOr if __GPU is available__, change the `Target` to `\"GPU\"`",
"Display" -> "codemirror", "Hash" ->
- "d21e35d8-1388-4e71-af25-ec2c0565eca3", "Invisible" -> False,
+ "ecc747d5-a117-4a18-a5bc-23a098a8f93a", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" ->
"Or if __GPU is available__, change the `Target` to `\"GPU\"`",
"Display" -> "markdown", "Hash" ->
- "07a2f67a-7407-4204-a2a6-dc81007dbedd", "Invisible" -> False,
+ "516357bf-21cb-44be-97e3-e5bedf4e7c4b", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "map = Table[With[{\n t = Append[utr, {\"PhaseShift\"->0, \
\"Gain\"->gain, \"Thickness\"->Quantity[thickness,\"Millimeters\"]}]\n},\n \
-{thickness, gain, t}\n], {thickness, 0.585-0.15, 0.585+0.15, 0.01}, {gain, \
-0.7, 1.2, 0.02}];\n\nmap = Flatten[map, 1];\nmap[[All,3]] = \
-#[\"FPReduction\"] &/@ MaterialParameters[map[[All,3]], \
-\"Target\"->\"GPU\"];\n\nListContourPlot[map, PlotLegends->Automatic]",
- "Display" -> "codemirror", "Hash" ->
- "4d881660-d25f-41d0-8aaf-bce340be33ce", "Invisible" -> False,
+{thickness, gain, t}\n], {thickness, 0.585-0.1, 0.585+0.1, 0.02}, {gain, 0.8, \
+1.2, 0.1}];\n\nmap = Flatten[map, 1];\nmap[[All,3]] = #[\"FPReduction\"] &/@ \
+MaterialParameters[map[[All,3]], \"Target\"->\"GPU\", \
+\"MovingAverageFilter\"->0];\n\nListContourPlot[map, PlotLegends->Automatic]"\
+, "Display" -> "codemirror", "Hash" ->
+ "cfed6fcc-dfa7-40a6-a610-cafd36ea412e", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"41cff9a0-3b7a-4f1d-9f59-241c8d\
+3a1193\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
+VgEKmxgmp6VZJhroGieZJ+qapBmm6FqmmVrqGgElLFKMEw0NLY0BizwVog==\"*)(*]VB*)(*|*),\
+(*|*)(*VB[*)(FrontEndRef[\"675733aa-a509-488f-98b7-04c74c56f004\"])(*,*)(*\"1\
+:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKm5mbmhsbJybqJpoa\
+WOqaWFik6VpaJJnrGpgkm5skm5qlGRiYAAB3KBTx\"*)(*]VB*)}}(*]GB*)",
+ "Display" -> "codemirror", "Hash" ->
+ "dedc0b8b-8651-4cc3-96d8-d3f949d4297d", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
+ "Type" -> "Output", "UID" -> Null, "Notebook" ->
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nAn optimized pair can be found",
"Display" -> "codemirror", "Hash" ->
- "35c342ae-b16f-48ba-87de-395a0d394609", "Invisible" -> False,
+ "7dd31b77-000d-4c54-9be5-4912ca90b789", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "An optimized pair can be found", "Display" -> "markdown",
- "Hash" -> "9eb338f9-96e3-45cb-9d18-7ffcc91c58be", "Invisible" -> False,
+ "Hash" -> "254aa035-6e10-44e2-ac6e-b263881af081", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "optimized = MaximalBy[map, Last] // First",
"Display" -> "codemirror", "Hash" ->
- "31d5ede0-a160-4db5-aec0-a1eee1fe759b", "Invisible" -> False,
+ "441e288f-ae69-4ecd-8f66-a1acbc1a15b4", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "{0.585`,1.`,1.5387111609308977`}", "Display" -> "codemirror",
- "Hash" -> "6d38a6cd-efbc-4701-8392-1a7a0dbfa05b", "Invisible" -> False,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "{0.585`,0.9`,1.2772639970087083`}",
+ "Display" -> "codemirror", "Hash" ->
+ "13b76cbe-088a-46d5-9ac6-5acc4181668e", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\nNow let us plot the spectrum with corrected parameters",
"Display" -> "codemirror", "Hash" ->
- "777ded6c-5c29-4d0e-b153-b404c8fc0a19", "Invisible" -> False,
+ "eee5ead3-9f8d-42a9-abfe-a71851adb277", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "Now let us plot the spectrum with corrected parameters",
"Display" -> "markdown", "Hash" ->
- "ab828b65-73b2-415e-a3e1-46cbfcf7b0bd", "Invisible" -> False,
+ "ce6af233-3734-4ec0-bccf-6b11c76d53ce", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "With[{m = MaterialParameters[Append[utr, {\n \
\"Gain\"->optimized[[2]], \n \"PhaseShift\"->0,\n \"Thickness\" -> \
Quantity[optimized[[1]],\"Millimeters\"]\n}]]},\n ListLinePlot[{m[\"Raw \
\\[Alpha]\"], m[\"\\[Alpha]\"]}, PlotRange->{{10,100}, {-5,100}}, \
PlotLegends->{\"Raw\", \"Processed\"}]\n]", "Display" -> "codemirror",
- "Hash" -> "0dcd6c31-4e5d-4b6a-ae8e-3787d594908f", "Invisible" -> False,
+ "Hash" -> "6dd5a89c-6793-428c-b337-69d31e206ea1", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"5029b0c9-4345-4818-a45f-d8df10\
-638219\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
-VgEKmxoYWSYZJFvqmhibmOqaWBha6CaamKbpplikpBkamBlbGBlaAgBysBS6\"*)(*]VB*)(*|*),\
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "(*GB[*){{(*VB[*)(FrontEndRef[\"ea8c27d4-a07c-47ec-bf8d-d202d7\
+ab123b\"])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkN\
+VgEKpyZaJBuZp5joJhqYJ+uamKcm6yalWaTophgZGKWYJyYZGhknAQCT4hZV\"*)(*]VB*)(*|*),\
(*|*)(*GB[*){{(*VB[*)(RGBColor[0.368417, 0.506779, \
-0.709798])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3I\
-SSxJTWMGyXMgyRcVTJv0VGXKdfsiw2kvp3eYP7AvOt4yw3vVtmf2AKMBH1E=\"*)(*]VB*)(*|*),\
-(*|*)(*VB[*)(\"Raw\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5Kdh4AkDCM68ktSgvMSchK\
-LE8JLWiJJgZKAhkAwC7dA7l\"*)(*]VB*)}(*||*),(*||*){(*VB[*)(RGBColor[0.880722, \
-0.611041, \
-0.142051])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeGJAIcndyzs/JLwouTyxJzghJzS3I\
-SSxJTWMGyXMgyRf5HIl+fl/vjX3Rv+oPt5b2PrYv2jxrnfouvUP2ALwBIFo=\"*)(*]VB*)(*|*),\
-(*|*)(*VB[*)(\"Processed\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5Kdh4AkDCM68ktSg\
-vMSchKLE8JLWiJJgTKBhQlJ+cWlycmgIAHgsRaQ==\"*)(*]VB*)}}(*]GB*)}}(*]GB*)",
- "Display" -> "codemirror", "Hash" ->
- "c3c101e0-8da6-4ec1-af51-c42ec360fe0a", "Invisible" -> False,
+0.709798])(*,*)(*\"1:eJxTTMoPSmNiYGAo5gUSYZmp5S6pyflFiSX5RcEsQBHn4PCQNGaQPAeQ\
+CHJ3cs7PyS8qKpg26anKlOv2RYbTXk7vMH9gX3S8ZYb3qm3P7AF5kRs6\"*)(*]VB*)(*|*),(*|*\
+)(*VB[*)(\"Raw\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB4vkAjLTC13SU3OL0osy\
+S8KZgeKBCWWh6RWlAQzQ9gAnZIOeQ==\"*)(*]VB*)}(*||*),(*||*){(*VB[*)(RGBColor[0.8\
+80722, 0.611041, \
+0.142051])(*,*)(*\"1:eJxTTMoPSmNiYGAo5gUSYZmp5S6pyflFiSX5RcEsQBHn4PCQNGaQPAeQ\
+CHJ3cs7PyS8q8jkS/fy+3hv7on/VH24t7X1sX7R51jr1XXqH7AGSkRxD\"*)(*]VB*)(*|*),(*|*\
+)(*VB[*)(\"Processed\")(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWlMIB4vkAjLTC13SU3\
+OL0osyS8KZgeKBCWWh6RWlARzAtkBRfnJqcXFqSkA/ZIQ/Q==\"*)(*]VB*)}}(*]GB*)}}(*]GB*\
+)", "Display" -> "codemirror", "Hash" ->
+ "f0be2a96-2a86-422c-9482-58ac98f70621", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> " ", "Display" -> "codemirror",
- "Hash" -> "f0eddf33-dcab-4412-bd72-f71c6a6269ac", "Invisible" -> False,
+ "Hash" -> "a8f07f5e-e0b5-4c08-a298-3ebd78c06274", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> ".md\n## Live calculations\nInteractive widget",
"Display" -> "codemirror", "Hash" ->
- "88343bd4-9727-4523-9f98-1d64872954e6", "Invisible" -> False,
+ "2d8a1fe4-4330-4031-9c92-684cdb58aa5d", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "## Live calculations\nInteractive widget",
"Display" -> "markdown", "Hash" ->
- "27f3ca06-8b8e-44dd-ba59-6bc23840d0a5", "Invisible" -> False,
+ "f0d79595-f1a9-4d69-ab84-c5164ba8c34f", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "Module[{\n material,\n plotA, plotB\n},\n\n \
{EventHandler[InputGroup[<|\n \"Phase\" -> InputRange[-2,2,1, \
\"Label\"->\"Phase shift\"],\n \"Thickness\" -> InputRange[0.5, 0.6, \
0.005, \"Label\"->\"Thickness\"]\n |>], Function[result,\n material = \
MaterialParameters[\n Append[utr, {\"PhaseShift\"->result[\"Phase\"], \
\"Thickness\"->Quantity[result[\"Thickness\"], \"Millimeters\"]}]\n , \
-\"FabryPerotCancellation\"->True, \"Target\"->\"GPU\"];\n\n {plotA, plotB} \
+\"FabryPerotCancellation\"->True, \"Target\"->\"CPU\"];\n\n {plotA, plotB} \
= QuantityMagnitude /@ {material[\"Best Raw \\[Alpha]\"], material[\"Best \
\\[Alpha]\"]};\n ]] // EventFire,\n\n Graphics[{ColorData[97][1], \
Line[plotA//Offload], ColorData[97][2], Line[plotB//Offload]}, Frame->True, \
Axes->True]\n } // Row \n\n]\n", "Display" -> "codemirror",
- "Hash" -> "29d55c42-25ee-4935-9708-9ad6ba668a6a", "Invisible" -> False,
- "MetaOnly" -> False, "Props" -> <|"Hidden" -> True|>, "State" -> "Idle",
+ "Hash" -> "58d46d19-8796-41fa-b606-121e20dd2635", "Invisible" -> False,
+ "MetaOnly" -> False, "Props" -> <|"Hidden" -> False|>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
<|"Data" -> "(*GB[*){{(*VB[*)(EventObject[<|\"Id\" -> \
-\"b18b032c-d537-4746-95dc-4f42129be2ec\", \"Initial\" -> <|\"Phase\" -> 0, \
+\"2b3c9b9a-e620-44d2-8b52-ced5d4da64c5\", \"Initial\" -> <|\"Phase\" -> 0, \
\"Thickness\" -> 0.55|>, \"View\" -> \
-\"6f67ae8a-d0f1-4dbf-812a-43eba689bd59\"|>])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHv\
-k5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKm6WZmSemWiTqphikGeqapCSl6VoYGiXqmhinJiW\
-aWVgmpZhaAgCRkBY8\"*)(*]VB*)(*|*),(*|*)(*VB[*)(Graphics[{RGBColor[0.368417, \
-0.506779, 0.709798], Line[Offload[plotA$144435]], RGBColor[0.880722, \
-0.611041, 0.142051], Line[Offload[plotB$144435]]}, Frame -> True, Axes -> \
+\"09587d2b-3cd2-4b8f-a79b-ad190b41d2f8\"|>])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHv\
+k5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKG1iaWpinGCXpGienGOmaJFmk6SaaWybpJqYYWho\
+kmRimGKVZAACEnhXV\"*)(*]VB*)(*|*),(*|*)(*VB[*)(Graphics[{RGBColor[0.368417, \
+0.506779, 0.709798], Line[Offload[plotA$170163]], RGBColor[0.880722, \
+0.611041, 0.142051], Line[Offload[plotB$170163]]}, Frame -> True, Axes -> \
True])(*,*)(*\"1:eJxTTMoPSmNkYGAoZgESHvk5KWnMIB4HkHAvSizIyEwuTmOByftkFpcg5IPc\
nZzzc/KLigqmTXqqMuW6fZHhtJfTO8wf2Bcdb5nhvWrbM3uE0T6ZeakQHjuQ8E9Ly8lPTCnmAbILc\
-vJLHFUMTUxMjE2xGO5zJPr5fb039kX/qj/cWtr72L5o86x16rv0DhFtuBPMcCaY+qDSnNRiViDDrS\
-gxNxUsFFJUmoqmAMRwrEgthssDAK8TUO8=\"*)(*]VB*)}}(*]GB*)",
+vJLHFUMzQ0MzYyxGO5zJPr5fb039kX/qj/cWtr72L5o86x16rv0DhFtuBPMcCaY+qDSnNRiViDDrS\
+gxNxUsFFJUmoqmAMRwrEgthssDAKxqUOk=\"*)(*]VB*)}}(*]GB*)",
"Display" -> "codemirror", "Hash" ->
- "3d22711a-0eb1-4435-a8eb-c98a59b9a418", "Invisible" -> False,
+ "a9de8b57-4c28-4354-9181-2b8b2618b87e", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Output", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>,
- <|"Data" -> "", "Display" -> "codemirror",
- "Hash" -> "8cb36f11-b162-4934-8f1a-1f913a5f4f2f", "Invisible" -> False,
+ "55703269-7721-4870-89fe-2041149293ef"|>,
+ <|"Data" -> "Get[\"/Users/kirill/Library/CloudStorage/OneDrive-Personal/\
+\:0414\:043e\:043a\:0443\:043c\:0435\:043d\:0442\:044b/WLJS \
+Notebooks/TK/wl_packages/JerryI_TDSTools/Scripts/Build.wls\"]",
+ "Display" -> "codemirror", "Hash" ->
+ "e030366c-f5b5-4333-991d-94923c958080", "Invisible" -> False,
"MetaOnly" -> False, "Props" -> <||>, "State" -> "Idle",
"Type" -> "Input", "UID" -> Null, "Notebook" ->
- "a9b90abf-dec6-417d-95f6-0786bdedb0b2"|>}, "serializer" -> "jsfn4"|>
+ "55703269-7721-4870-89fe-2041149293ef"|>, <|"Data" -> "\"\"",
+ "Display" -> "print", "Hash" -> "52f428e5-c6e2-4b73-95ff-53f63900056f",
+ "Invisible" -> False, "MetaOnly" -> False, "Props" -> <||>,
+ "State" -> "Idle", "Type" -> "Output", "UID" -> Null,
+ "Notebook" -> "55703269-7721-4870-89fe-2041149293ef"|>},
+ "serializer" -> "jsfn4"|>
diff --git a/Kernel/Material.wl b/Kernel/Material.wl
index e803326..6b5dfbd 100644
--- a/Kernel/Material.wl
+++ b/Kernel/Material.wl
@@ -1,8 +1,7 @@
BeginPackage["JerryI`TDSTools`Material`", {
"JerryI`TDSTools`Utils`",
"JerryI`TDSTools`Trace`",
- "JerryI`TDSTools`Transmission`",
- "OpenCLLink`"
+ "JerryI`TDSTools`Transmission`"
}]
MaterialParameters::usage = "TransmissionObject[sam_TDTrace, ref_TDTrace, opts___] creates a transmission from sample and reference traces. See _TransmissionObject[\"Properties\"]"
@@ -11,19 +10,10 @@ Begin["`Private`"]
root = DirectoryName[$InputFileName];
-{
- initialize,
- solveNK,
- solveFP,
- movingAverage,
- saveForDebug,
- clusterPhase
-} = Get[ FileNameJoin[{root, "nCPU.wl"}] ];
-{
- clRun,
- clclusterPhase
-} = Get[ FileNameJoin[{root, "nGPU.wl"}] ];
+Needs["JerryI`TDSTools`nGPU`" -> "cl`", FileNameJoin[{root, "nGPU.wl"}] ];
+Needs["JerryI`TDSTools`nCPULL`" -> "ll`", FileNameJoin[{root, "nCPULL.wl"}] ];
+
Options[MaterialParameters] = {"Target"->"CPU", "Tags"-><||>, "Model"->"Slab", "SolveNKEquations"->True, "MovingAverageFilter"->True, "FabryPerotCancellation"->True, "FabryPerotCycles"->8, "NKCycles"->30};
Options[materialParameters] = Join[Options[MaterialParameters], {"sharedSrcQ" -> False, "sharedSrc"->Null}];
@@ -255,14 +245,13 @@ validateOptions[OptionsPattern[] ] := With[{},
]
]
-materialParameters[t_List, type_, "CPU", opts: OptionsPattern[]] := materialParameters[#, type, "CPU", opts] &/@ t
MaterialParameters::badgpu = "GPU acceleration is not available. Reason: ``";
materialParameters[l: List[__TransmissionObject], "Slab", "GPU", opts: OptionsPattern[] ] := Module[{dump = {}},
- If[!OpenCLQ[],
+ If[!cl`readyQ[],
Message[MaterialParameters::badgpu, "OpenCLQ[] returned False. Fallback to CPU"];
- materialParameters[#, "Slab", "CPU", opts] &/@ l
+ materialParameters[l, "Slab", "CPU", opts]
,
(* Group them by Phase (to avoid copying) *)
@@ -274,15 +263,15 @@ materialParameters[l: List[__TransmissionObject], "Slab", "GPU", opts: OptionsPa
freqs = Normal[group[[1,1, "Frequencies"]] ]
},
With[{ (* take the first one only, cuz it will be the same for the rest *)
- src = OpenCLMemoryLoad[Transpose[{freqs, Normal[group[[1, 1, "T"]] ], Normal[group[[1, 1,"Phase"]] ]}] // Flatten, "Float"],
- dest = OpenCLMemoryLoad[Table[0., {Length[freqs] 5 Length[group] }], "Float"],
+ src = cl`load[Transpose[{freqs, Normal[group[[1, 1, "T"]] ], Normal[group[[1, 1,"Phase"]] ]}] // Flatten, "Float"],
+ dest = cl`load[Table[0., {Length[freqs] 5 Length[group] }], "Float"],
meta = With[{rawMeta = generateMeta /@ group},
- OpenCLMemoryLoad[rawMeta // Flatten, "Float"]
+ cl`load[rawMeta // Flatten, "Float"]
]
},
AppendTo[dump, src];
AppendTo[dump, dest];
- AppendTo[dump, meta // Last];
+ AppendTo[dump, meta];
materialParameters[group, dest, src, meta, {Length[freqs], Length[group]}, "Slab", "GPU", opts]
]
@@ -290,7 +279,7 @@ materialParameters[l: List[__TransmissionObject], "Slab", "GPU", opts: OptionsPa
], groups]},
With[{computed = ReleaseHold /@ results},
- OpenCLMemoryUnload /@ dump;
+ cl`unload /@ dump;
ClearAll[dump];
Flatten[computed, 1]
@@ -302,53 +291,44 @@ materialParameters[l: List[__TransmissionObject], "Slab", "GPU", opts: OptionsPa
]
]
-materialParameters[TransmissionObject[a_], "Slab", "CPU", opts: OptionsPattern[]] := Module[{packed, src, dest}, With[{
- thickness = QuantityMagnitude[a["Thickness"], "Centimeters"] // N,
- \[Delta]t = QuantityMagnitude[a["\[Delta]t"], "Picoseconds"] // N,
- freqs = Normal[a["Frequencies"]],
- fpIterations = If[OptionValue["FabryPerotCancellation"] === True,
- OptionValue["FabryPerotCycles"],
- 0
- ]
-},
+materialParameters[l: List[__TransmissionObject], "Slab", "CPU", opts: OptionsPattern[] ] := Module[{dump = {}},
+ (* Group them by Phase (to avoid copying) *)
+ With[{groups = SplitBy[l, Function[item,
+ item[[1]]["Phase"]
+ ] ]},
+ With[{ results = Map[Function[group,
+ With[{
+ freqs = Normal[group[[1,1, "Frequencies"]] ]
+ },
+ With[{ (* take the first one only, cuz it will be the same for the rest *)
+ src = ll`load[Transpose[{freqs, Normal[group[[1, 1, "T"]] ], Normal[group[[1, 1,"Phase"]] ]}] // Flatten, "Float"],
+ dest = ll`load[Table[0., {Length[freqs] 5 Length[group] }], "Float"],
+ meta = With[{rawMeta = generateMeta /@ group},
+ ll`load[rawMeta // Flatten, "Float"]
+ ]
+ },
+ AppendTo[dump, src];
+ AppendTo[dump, meta];
+
+ materialParameters[group, dest, src, meta, {Length[freqs], Length[group]}, "Slab", "CPU", opts]
+ ]
+ ]
+ ], groups]},
+
+ With[{computed = ReleaseHold /@ results},
+ ll`unload /@ dump;
+
+ ClearAll[dump];
+
+ Flatten[computed, 1]
+ ]
+
+
+ ]
+ ]
+]
- With[{
- src = Transpose[{freqs, Normal[a["T"]], Normal[a["Phase"]]}] // Flatten
- },
- (* dest = Transpose[{Array[0.0&, Length[freqs]], Array[0.0&, Length[freqs]]}] // Flatten; *)
-
- meta = {\[Delta]t, thickness, 1.0 a["Gain"], 2Pi Round[a["PhaseShift"]] // N, Length[freqs]};
- dest = initialize[src, meta];
- dest = solveNK[src, dest, meta, If[!OptionValue["SolveNKEquations"], 0, OptionValue["NKCycles"]]];
- If[OptionValue["MovingAverageFilter"], dest = movingAverage[src, dest, meta] ];
- dest = saveForDebug[dest, meta];
-
- Do[
- dest = solveFP[src, dest, meta, 0];
- dest = solveNK[src, dest, meta, If[!OptionValue["SolveNKEquations"], 0, OptionValue["NKCycles"]]];
- If[OptionValue["MovingAverageFilter"], dest = movingAverage[src, dest, meta] ];
- , {fpIterations}];
-
- dest = Partition[dest,5] // Transpose;
-
- MaterialParameters[<|
- "n0" -> 1.0 + (0.029979 meta[[1]] / meta[[2]]),
- "n" -> NumericArray[dest[[1]]],
- "k" -> NumericArray[dest[[2]]],
- "T" -> NumericArray[dest[[3]]],
- "k debug" -> NumericArray[dest[[5]]],
- "Phase" -> NumericArray[dest[[4]]],
- "Frequencies" -> NumericArray[a["Frequencies"]],
- "Thickness" -> a["Thickness"],
- "Gain" -> a["Gain"],
- "FDCI" -> a["FDCI"],
- "PhaseShift" -> a["PhaseShift"],
- "Date" -> Now,
- "Tags" -> Join[a["Tags"], OptionValue["Tags"]]
- |>]
- ]
-]]
generateMeta[t: TransmissionObject[a_] ] := With[{
@@ -376,7 +356,7 @@ materialParameters[list: List[__TransmissionObject], destCl_, srcCl_, metaCl_, {
]
},
- clRun[destCl, srcCl, metaCl, itemSize, groupSize, NKCycles, MovingAverageFilter, FabryPerotCycles, groupSize 256];
+ cl`run[destCl, srcCl, metaCl, itemSize, groupSize, NKCycles, MovingAverageFilter, FabryPerotCycles, groupSize 256];
@@ -386,7 +366,7 @@ materialParameters[list: List[__TransmissionObject], destCl_, srcCl_, metaCl_, {
partition = itemSize
}, Hold[
With[{
- memory = (Transpose[ Partition[#, 5] ] &/@ Partition[OpenCLMemoryGet[destCl], 5 partition])
+ memory = (Transpose[ Partition[#, 5] ] &/@ Partition[cl`get[destCl], 5 partition])
},
MapIndexed[Function[{item, itemSection}, With[{
itemNumber = itemSection[[1]],
@@ -414,6 +394,63 @@ materialParameters[list: List[__TransmissionObject], destCl_, srcCl_, metaCl_, {
]
] ]
+
+materialParameters[list: List[__TransmissionObject], destCl_, srcCl_, metaCl_, {itemSize_, groupSize_}, "Slab", "CPU", opts: OptionsPattern[] ] := Module[{
+ array = list
+}, With[{
+
+ NKCycles = If[OptionValue["SolveNKEquations"], OptionValue["NKCycles"], 0],
+ FabryPerotCycles = If[OptionValue["FabryPerotCancellation"] === True,
+ OptionValue["FabryPerotCycles"],
+ 0
+ ],
+
+ MovingAverageFilter = If[MatchQ[OptionValue["MovingAverageFilter"], _Integer],
+ OptionValue["MovingAverageFilter"],
+ If[OptionValue["MovingAverageFilter"], 1, 0]
+ ]
+},
+
+
+ ll`run[destCl, srcCl, metaCl, itemSize, groupSize, NKCycles, MovingAverageFilter, FabryPerotCycles, groupSize 256];
+
+
+
+ With[{
+ dest = destCl,
+ extraTags = OptionValue["Tags"],
+ partition = itemSize
+ }, Hold[
+ With[{
+ memory = (Transpose[ Partition[#, 5] ] &/@ Partition[ll`get[destCl], 5 partition])
+ },
+
+ MapIndexed[Function[{item, itemSection}, With[{
+ itemNumber = itemSection[[1]],
+ dt = QuantityMagnitude[item[[1, "\[Delta]t"]], "Picoseconds"] // N,
+ thickness = QuantityMagnitude[item[[1, "Thickness"]], "Centimeters"] // N
+ },
+ MaterialParameters[<|
+ "n0" -> 1.0 + (0.029979 dt / thickness),
+ "n" -> NumericArray[memory[[itemNumber, 1]]],
+ "k" -> NumericArray[memory[[itemNumber, 2]]],
+ "T" -> NumericArray[memory[[itemNumber, 3]]],
+ "k debug" -> NumericArray[memory[[itemNumber, 5]]],
+ "Phase" -> NumericArray[memory[[itemNumber, 4]]],
+ "Frequencies" -> item[[1, "Frequencies"]],
+ "Thickness" -> item[[1, "Thickness"]],
+ "Gain" -> item[[1, "Gain"]],
+ "FDCI" -> item[[1, "FDCI"]],
+ "PhaseShift" -> item[[1, "PhaseShift"]],
+ "Date" -> Now,
+ "Tags" -> Join[item["Tags"], extraTags]
+ |>]
+ ]
+ ], array ] ]
+ ]
+ ]
+] ]
+
findFDCIRanges[mFp_MaterialParameters] :=
With[{
m = QuantityMagnitude[mFp["Frequencies"], 1/"Centimeters"] ,
diff --git a/Kernel/Transmission.wl b/Kernel/Transmission.wl
index 82b4fd9..8499a12 100644
--- a/Kernel/Transmission.wl
+++ b/Kernel/Transmission.wl
@@ -10,14 +10,51 @@ Begin["`Private`"]
root = DirectoryName[$InputFileName];
-{
- initalize,
- solveNK,
- solveFP,
- movingAverage,
- saveForDebug,
- clusterPhase
-} = Get[ FileNameJoin[{root, "nCPU.wl"}] ];
+clusterPhase =
+ Compile[
+ {
+ {input, _Real, 1},
+ {low, _Integer, 0},
+ {high, _Integer, 0},
+ {PhaseTrashhold, _Real, 0}
+ },
+ Module[{phase = input, delta = 0.0},
+
+ (* Adjust phase values based on PhaseTrashhold *)
+ Do[
+ If[phase[[i + 1]] - phase[[i]] > PhaseTrashhold,
+ Do[phase[[j]] = phase[[j]] - 2 \[Pi];, {j, i + 1, Length[phase]}],
+
+ If[phase[[i + 1]] - phase[[i]] < -PhaseTrashhold,
+ Do[phase[[j]] = phase[[j]] + 2 \[Pi];, {j, i + 1, Length[phase]}]
+ ]
+ ],
+ {i, low, high}
+ ];
+
+ (* Adjust phase before the 'low' index *)
+ If[low > 1,
+ delta = Differences[phase[[low ;; Floor[(3 high + low)/4] ]] ] // Mean;
+
+ Do[
+ phase[[-i - 1]] = phase[[-i]] - delta/2,
+ {i, -low, -2}
+ ];
+ ];
+
+ (* Adjust phase after the 'high' index *)
+ delta = Differences[phase[[Floor[(high + 3 low)/4] ;; high]]] // Mean;
+
+ Do[
+ phase[[i + 1]] = phase[[i]] + delta,
+ {i, high, Length[phase] - 1}
+ ];
+
+ phase
+ ],
+ "CompilationTarget" -> "C",
+ "RuntimeOptions" -> "Speed"
+ ];
TransmissionObject::thickerr = "Thickness `1` is not valid";
diff --git a/Kernel/nCPU.c b/Kernel/nCPU.c
new file mode 100644
index 0000000..5dc0307
--- /dev/null
+++ b/Kernel/nCPU.c
@@ -0,0 +1,349 @@
+#include
+#include
+
+#include "WolframLibrary.h"
+#include "WolframNumericArrayLibrary.h"
+
+
+#include
+
+#define GROUPSIZE 256
+
+void solveFP( //cancel reflections
+ double *dest,
+ double *src,
+ double *meta,
+ mint size,
+ int group_id,
+ int cycles
+
+) {
+ for (int k=0; k= size || work_item_id < 2) continue;
+
+ const double CONSTF = 6.28331 * meta[1]; //thikcness * 6.28331
+
+ const double freq = src[3 * work_item_id ]; //freqs
+ const double t = src[3 * work_item_id + 1]; //abs of transmission
+ const double ph = src[3 * work_item_id + 2]; //phase
+
+ const double n = dest[5 * work_item_id ]; //n (working)
+ const double k = dest[5 * work_item_id + 1]; //k (working)
+
+ // Perform the optimized mathematical operations
+ double var40 = k * k;
+ double var41 = 1.0f + n;
+ double var54 = var41 * var41;
+ double var57 = var40 + var54;
+ double var85 = n * n;
+ double var90 = 2.0f * CONSTF * freq * n;
+ double var81 = -2.0f * CONSTF * freq * k;
+ double var82 = exp(var81); // Exp[var81] -> exp(var81)
+ double var58 = 1.0f / (var57 * var57);
+ double var93 = -1.0f + var40 + var85;
+ double var91 = cos(var90); // Cos[var90] -> cos(var90)
+ double var83 = -2.0f + k;
+ double var84 = var83 * k;
+ double var86 = -1.0f + var84 + var85;
+ double var87 = 2.0f + k;
+ double var88 = k * var87;
+ double var89 = -1.0f + var88 + var85;
+ double var94 = sin(var90); // Sin[var90] -> sin(var90)
+ double var80 = var57 * var57;
+ double var99 = var40 + (-1.0f + n) * (-1.0f + n);
+ double var98 = exp(2.0f * CONSTF * freq * k); // Exp[...] -> exp(...)
+ double var92 = 4.0f * k * var93 * var94;
+
+ // Compute abs value (magnitude)
+ double abs_val = sqrt(
+ var58 * ((var99 / var98) * (var99 / var98) + var80 + var82 * (-2.0f * var86 * var89 * var91 + 2.0f * var92))
+ );
+
+ // Compute arg value (phase)
+ double term1 = var82 * var58 * (4.0f * k * var93 * var91 + var86 * var89 * var94);
+ double term2 = var82 * var58 * (var98 * var80 - var86 * var89 * var91 + var92);
+ double arg_val = atan2(term1, term2); // Use atan2 for phase calculation
+
+ // Handle non-finite values (OpenCL doesn't have a direct equivalent to NumericQ or FiniteQ)
+ if (!isfinite(abs_val) || !isfinite(arg_val)) {
+ abs_val = 1.0f;
+ arg_val = 0.0f;
+ }
+
+ if (t * abs_val > 1.2) {
+ dest[work_item_id*5 + 2] = 1.0f;
+ dest[work_item_id*5 + 3] = 0.0f;
+ } else {
+ dest[work_item_id*5 + 2] = t * abs_val; //modified amplitude of transmission
+ dest[work_item_id*5 + 3] = ph - arg_val; //modified phase
+ }
+ }
+}
+
+void savekValues(
+ double *dest,
+ mint size,
+ int group_id,
+ int cycles
+) {
+
+ for (int k=0; k= size) continue;
+
+ dest[5*work_item_id + 4] = dest[5*work_item_id + 1];
+ }
+}
+
+void movingAverage(
+ double *dest,
+ mint kernelsize,
+ mint size,
+ int group_id,
+ int cycles
+) { //Average n and k-values
+
+ for (int k=0; k= size - kernelsize || work_item_id < 4) continue;
+
+ double accumulatorN = 0.0;
+ double accumulatorK = 0.0;
+
+ for (int u=0; u= size) continue;
+
+ const double ft = 1.0f / meta[1]; // 1/thickness (in cm-1)
+
+ const double logT = log(dest[5*work_item_id + 2] * meta[2]); //amplitude
+ const double ph = dest[5*work_item_id + 3] + meta[3]; //phase
+ const double freq = src[3*work_item_id]; //freqs
+
+ const double fT = ft / freq;
+
+ const double n0 = 1.0f + (0.029979f*meta[0]*ft); //DC limit for n
+
+ double np = dest[5*work_item_id]; //current n value
+ double kp = dest[5*work_item_id + 1]; //current k value
+ double n=np;
+ double k=kp;
+ double modulus, arg, denominator, n2, re, im;
+
+ for(int j = 0; j < iterations; j++) {
+ n2 = 1.0f + np;
+ n2 = n2 * n2;
+
+ denominator = 1.0f / (kp * kp + n2);
+ denominator = denominator * denominator;
+
+ re = denominator * (np * n2 + kp * kp * (2.0f + np));
+ im = denominator * (kp * (kp * kp + np * np - 1.0f));
+
+ modulus = sqrt(re * re + im * im);
+ arg = atan2(im, re); // Equivalent to Arg[I im + re]
+
+ n = 1.0f + 0.159152f * fT * (ph - arg);
+ k = -0.159152f * fT * (logT - log(4.0f * modulus));
+ //n = 1.0f + 0.159152f * fT * (ph - arg);
+ //k = -0.159152f * fT * (logT - log(4.0f * modulus));
+
+ np = n;
+ kp = k;
+ }
+
+ // Validity check for n and k
+ if (isnan(k) || isnan(n) || n < 1.0f) {
+ k = 0.0f;
+ n = n0;
+ }
+
+ dest[5*work_item_id] = n; //update n
+ dest[5*work_item_id + 1] = k; //update k
+
+ }
+}
+
+void initialize( //rough approximation of n,k using transmission data
+ double *dest,
+ double *src,
+ double *meta,
+ mint size,
+ int group_id,
+ int cycles
+) {
+
+ const double ft = 1.0f / meta[1]; // 1/thickness in (cm-1)
+
+ for (int j=0; j= size) continue;
+
+ if (work_item_id < 2) { // low-freq cutoff
+ const double n0 = 1.0f + (0.029979f*meta[0] / meta[1]);
+
+ dest[5*work_item_id] = n0;
+ dest[5*work_item_id + 1] = 0.0f;
+ dest[5*work_item_id + 2] = src[3*work_item_id+1];
+ dest[5*work_item_id + 3] = src[3*work_item_id+2];
+ dest[5*work_item_id + 4] = 0.0f;
+
+ return;
+ }
+
+ const double t = src[3*work_item_id + 1]; //amplitude
+ const double p = src[3*work_item_id + 2]; //phase
+ const double f = src[3*work_item_id]; //freqs
+
+ dest[5*work_item_id] = 1.0f + 0.159152f * (p + meta[3]) * ft / f; //n
+ dest[5*work_item_id + 1] = - 0.159152f * log(t * meta[2]) * ft / f; //kappa (k)
+ dest[5*work_item_id + 2] = t; //amplitude of transmission
+ dest[5*work_item_id + 3] = p; //phase
+ dest[5*work_item_id + 4] = 0.0f; //save for later
+ }
+}
+
+
+void clRun(
+ double *dest,
+ double *src,
+ double *meta,
+ int itemSize,
+ int groupSize,
+ int iterationsNK,
+ int movAvg,
+ int iterationsFP,
+ int sid,
+ int group_id
+) {
+ //int sid = get_group_id(0);
+
+ //int group_id = get_local_id(0);
+ int cycles = (int)ceil(((float)itemSize)/((float)GROUPSIZE));
+
+
+ double *localDest = &dest[sid * (itemSize * 5)];
+ double *localMeta = &meta[sid * 5];
+
+ for (int lid=0; lid < GROUPSIZE; ++lid) initialize(localDest, src, localMeta, itemSize, lid, cycles);
+ for (int lid=0; lid < GROUPSIZE; ++lid) solveNK(localDest, src, localMeta, itemSize, iterationsNK, lid, cycles);
+ for (int lid=0; lid < GROUPSIZE; ++lid) movingAverage(localDest, movAvg+1, itemSize, lid, cycles);
+ for (int lid=0; lid < GROUPSIZE; ++lid) savekValues(localDest, itemSize, lid, cycles);
+
+ for (int h=0; hMTensor_getRealData(*((MTensor*)address_dest));
+
+ mint address_src = MArgument_getInteger(Args[1]);
+ double *src = libData->MTensor_getRealData(*((MTensor*)address_src));
+
+ mint address_meta = MArgument_getInteger(Args[2]);
+ double *meta = libData->MTensor_getRealData(*((MTensor*)address_meta));
+
+ mint itemSize = MArgument_getInteger(Args[3]);
+ mint groupSize = MArgument_getInteger(Args[4]);
+ mint iterationsNK = MArgument_getInteger(Args[5]);
+ mint movAvg = MArgument_getInteger(Args[6]);
+ mint iterationsFP = MArgument_getInteger(Args[7]);
+
+ mint totalRunners = MArgument_getInteger(Args[8]);
+
+ for (int sid=0; sid < groupSize; ++sid) {
+ // {
+
+ clRun(dest, src, meta, itemSize, groupSize, iterationsNK, movAvg, iterationsFP, sid, 0);
+ //}
+ }
+
+ MArgument_setInteger(Res, 0);
+
+ return err;
+}
+
+
+DLLEXPORT int load(WolframLibraryData libData, mint Argc, MArgument *Args, MArgument Res) {
+
+ int err = LIBRARY_NO_ERROR;
+
+ MTensor *ptr = (MTensor*)malloc(sizeof(MTensor));
+ *ptr = MArgument_getMTensor(Args[0]);
+
+ mint address = (mint)ptr;
+
+ MArgument_setInteger(Res, address);
+ return err;
+}
+
+DLLEXPORT int get(WolframLibraryData libData, mint Argc, MArgument *Args, MArgument Res) {
+
+ int err = LIBRARY_NO_ERROR;
+
+ mint address = MArgument_getInteger(Args[0]);
+ MTensor *ptr = (MTensor*)address;
+ MArgument_setMTensor(Res, *ptr);
+
+ return err;
+}
+
+DLLEXPORT int unload(WolframLibraryData libData, mint Argc, MArgument *Args, MArgument Res) {
+
+ int err = LIBRARY_NO_ERROR;
+
+ mint address = MArgument_getInteger(Args[0]);
+ MTensor *ptr = (MTensor*)address;
+ //libData->MTensor_disownAll(*ptr);
+ libData->MTensor_free(*ptr);
+ free(ptr);
+
+ MArgument_setInteger(Res, 0);
+
+ return err;
+}
\ No newline at end of file
diff --git a/Kernel/nCPULL.wl b/Kernel/nCPULL.wl
new file mode 100644
index 0000000..68b784a
--- /dev/null
+++ b/Kernel/nCPULL.wl
@@ -0,0 +1,92 @@
+BeginPackage["JerryI`TDSTools`nCPULL`"]
+
+load;
+unload;
+get;
+run;
+
+Begin["`Private`"]
+
+
+getLibraryLinkVersion[] :=
+Which[
+ $VersionNumber >= 14.1,
+ With[{n = LibraryVersionInformation[FindLibrary["demo"] ]["WolframLibraryVersion"]},
+ If[!NumberQ[n], 7, n]
+ ],
+ $VersionNumber >= 13.1,
+ 7,
+ $VersionNumber >= 12.1,
+ 6,
+ $VersionNumber >= 12.0,
+ 5,
+ $VersionNumber >= 11.2,
+ 4,
+ $VersionNumber >= 10.0,
+ 3,
+ $VersionNumber >= 9.0,
+ 2,
+ True,
+ 1
+];
+
+
+$directory = DirectoryName[If[$InputFileName == "",
+ NotebookFileName[],
+ $InputFileName
+ ], 2]
+
+lib = FileNameJoin[{
+ $directory,
+ "LibraryResources",
+ $SystemID <> "-v" <> ToString[getLibraryLinkVersion[] ],
+ "nCPU" <> "." <> Internal`DynamicLibraryExtension[]
+}];
+
+
+cload = LibraryFunctionLoad[
+ lib, "load",
+ {
+ {Real, _, "Manual"}
+ }, Integer];
+
+cunload = LibraryFunctionLoad[
+ lib, "unload",
+ {
+ Integer
+ }, Integer]
+
+cget = LibraryFunctionLoad[
+ lib, "get",
+ {
+ Integer
+ }, {Real, _, Automatic}]
+
+ crun = LibraryFunctionLoad[
+ lib, "run",
+ {
+ Integer,
+ Integer,
+ Integer,
+
+ Integer,
+ Integer,
+ Integer,
+ Integer,
+ Integer,
+
+ Integer
+ }, Integer]
+
+load[dat_, _] := cload[ dat ] // llObject;
+
+unload[llObject[uid_] ] := cunload[uid];
+
+get[llObject[uid_] ] := cget[uid]
+
+run[llObject[d_], llObject[s_], llObject[m_], rest__] := crun[d,s,m,rest]
+
+
+End[]
+EndPackage[]
+
diff --git a/Kernel/nGPU.wl b/Kernel/nGPU.wl
index a05f710..5b0e648 100644
--- a/Kernel/nGPU.wl
+++ b/Kernel/nGPU.wl
@@ -1,13 +1,25 @@
BeginPackage["JerryI`TDSTools`nGPU`", {"OpenCLLink`"}]
+
+run;
+readyQ;
+load;
+unload;
+get;
+
Begin["`Private`"]
root = DirectoryName[$InputFileName];
clFile = FileNameJoin[{root, "nGPU.cl"}];
-If[!(compiledQ // TrueQ) && OpenCLQ[], Module[{},
+readyQ = OpenCLQ;
+load = OpenCLMemoryLoad;
+unload = OpenCLMemoryUnload;
+get = OpenCLMemoryGet;
+
+If[OpenCLQ[], Module[{},
Print[Style["TDTools`nGPU >> Compiling to OpenCL", Italic] ];
- clRun = OpenCLFunctionLoad[File[clFile], "clRun", {
+ run = OpenCLFunctionLoad[File[clFile], "clRun", {
{"Float", _, "InputOutput"},
{"Float", _, "Input"},
{"Float", _, "Input"},
@@ -27,8 +39,3 @@ If[!(compiledQ // TrueQ) && OpenCLQ[], Module[{},
End[]
EndPackage[]
-
-{
- JerryI`TDSTools`nGPU`Private`clRun,
- JerryI`TDSTools`nGPU`Private`clusterPhase
-}
\ No newline at end of file
diff --git a/Kernel/nCPU.wl b/Kernel/remove_nCPU.wl
similarity index 96%
rename from Kernel/nCPU.wl
rename to Kernel/remove_nCPU.wl
index d21c2bf..639288c 100644
--- a/Kernel/nCPU.wl
+++ b/Kernel/remove_nCPU.wl
@@ -276,11 +276,3 @@ If[!(compiledQ // TrueQ),
End[]
EndPackage[]
-{
- JerryI`TDSTools`nCPU`Private`initialize,
- JerryI`TDSTools`nCPU`Private`solveNK,
- JerryI`TDSTools`nCPU`Private`solveFP,
- JerryI`TDSTools`nCPU`Private`movingAverage,
- JerryI`TDSTools`nCPU`Private`saveForDebug,
- JerryI`TDSTools`nCPU`Private`clusterPhase
-}
\ No newline at end of file
diff --git a/LibraryResources/MacOSX-ARM64-v7/nCPU.dylib b/LibraryResources/MacOSX-ARM64-v7/nCPU.dylib
new file mode 100755
index 0000000..612a065
Binary files /dev/null and b/LibraryResources/MacOSX-ARM64-v7/nCPU.dylib differ
diff --git a/PacletInfo.wl b/PacletInfo.wl
index bf02e21..83c3fd0 100644
--- a/PacletInfo.wl
+++ b/PacletInfo.wl
@@ -7,7 +7,7 @@ PacletObject[
"Creator" -> "Kirill Vasin",
"License" -> "MIT",
"PublisherID" -> "JerryI",
- "Version" -> "0.1.0",
+ "Version" -> "0.1.1",
"WolframVersion" -> "13+",
"PrimaryContext" -> "JerryI`TDSTools`",
"Extensions" -> {
diff --git a/Scripts/Build.wls b/Scripts/Build.wls
new file mode 100644
index 0000000..0f44db7
--- /dev/null
+++ b/Scripts/Build.wls
@@ -0,0 +1,52 @@
+Get["CCompilerDriver`"];
+Get["LibraryLink`"];
+
+getLibraryLinkVersion[] :=
+Which[
+ $VersionNumber >= 14.1,
+ With[{n = LibraryVersionInformation[FindLibrary["demo"] ]["WolframLibraryVersion"]},
+ If[!NumberQ[n], 7, n]
+ ],
+ $VersionNumber >= 13.1,
+ 7,
+ $VersionNumber >= 12.1,
+ 6,
+ $VersionNumber >= 12.0,
+ 5,
+ $VersionNumber >= 11.2,
+ 4,
+ $VersionNumber >= 10.0,
+ 3,
+ $VersionNumber >= 9.0,
+ 2,
+ True,
+ 1
+];
+
+build[lib_String, opts: OptionsPattern[CreateLibrary]] :=
+Block[{$directory, $libSrc, $libDir, $linkerOptions},
+ $directory = DirectoryName[$InputFileName, 2];
+
+ $libSrc = File[FileNameJoin[{
+ $directory,
+ "Kernel",
+ lib <> ".c"
+ }]];
+
+ $libDir = FileNameJoin[{
+ $directory,
+ "LibraryResources",
+ $SystemID <> "-v" <> ToString[getLibraryLinkVersion[] ]
+ }];
+
+
+ If[!FileExistsQ[$libDir], CreateDirectory[]];
+
+ CreateLibrary[$libSrc, lib,
+ "TargetDirectory" -> $libDir,
+ "Debug" -> True,
+ opts
+ ]
+];
+
+build["nCPU"];
\ No newline at end of file