Skip to content

Commit

Permalink
fix quantity
Browse files Browse the repository at this point in the history
  • Loading branch information
JerryI committed Nov 1, 2024
1 parent c6526e8 commit 8e877b5
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions Kernel/Wizard.wl
Original file line number Diff line number Diff line change
Expand Up @@ -54,13 +54,13 @@ TDSWizard[TransmissionUnwrap, opts__][t_TransmissionObject] := With[{

TDSWizard[TransmissionUnwrap, opts__][p_Promise] := With[{
parent = EvaluationCell[],
fdci = QuantityMagnitude[#, 1/"Centimeters"] &/@ t["FDCI"],
aopts = KeyDrop[Association[opts], {Method, "InheritParameters"}] // Normal,
cpts = Association[opts],
phaseTh = If[NumericQ[#], #, 5.7] &@ ("PhaseThreshold" /. List[opts]),
promise = Promise[]
},


Then[p, Function[input,
If[input["Length"] == 1,

Expand All @@ -69,6 +69,8 @@ TDSWizard[TransmissionUnwrap, opts__][p_Promise] := With[{
fdci = QuantityMagnitude[#, 1/"Centimeters"] &/@ (input["Object"]["FDCI"]),
parent = input["Cell"]
},


If[!KeyExistsQ[cpts, Method],
automaicUnwrap[parent, Null, fdci, aopts, t, Function[object,
CellPrint[ToString[object, StandardForm], "After" -> parent, "Type" -> "Output"];
Expand Down Expand Up @@ -165,7 +167,6 @@ AppendTo[dump, Hold[{index, checkStack, results, PhaseThreshold}]];

TDSWizard[TransmissionUnwrap, opts__][{t__TransmissionObject}] := Module[{results, index=1, checkStack, PhaseThreshold}, With[{
parent = EvaluationCell[],
fdci = QuantityMagnitude[#, 1/"Centimeters"] &/@ t["FDCI"],
aopts = KeyDrop[Association[opts], Method] // Normal,
cpts = Association[opts],
stack = List[t],
Expand Down

0 comments on commit 8e877b5

Please sign in to comment.