(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 119249, 2925] NotebookOptionsPosition[ 113339, 2780] NotebookOutlinePosition[ 115111, 2832] CellTagsIndexPosition[ 115068, 2829] WindowTitle->PulmonaryDiffusingCapacity | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["\<\ Get the value of the pulmonary diffusing capacity of carbon monoxide for a \ specific male:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.809851175263839*^9, 3.8098511946520567`*^9}, { 3.8098513066041174`*^9, 3.809851307772458*^9}, {3.81341725271365*^9, 3.8134173311469183`*^9}, {3.813417575350683*^9, 3.813417595692482*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/PulmonaryDiffusingCapacity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "PulmonaryDiffusingCapacity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PulmonaryDiffusingCapacity"], BoxID -> "PulmonaryDiffusingCapacity", Selectable->False], "[", RowBox[{ TemplateBox[{"\"male\"", RowBox[{"Entity", "[", RowBox[{"\"Gender\"", ",", "\"Male\""}], "]"}], "\"Entity[\\\"Gender\\\", \\\"Male\\\"]\"", "\"gender\""}, "Entity"], ",", TemplateBox[{"45", "\"yr\"", "years", "\"Years\""}, "Quantity"], ",", TemplateBox[{"165", "\"cm\"", "centimeters", "\"Centimeters\""}, "Quantity"]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.8097912022184887`*^9, {3.8097913339709616`*^9, 3.809791355390256*^9}, 3.8129848514350305`*^9, {3.8134175717460213`*^9, 3.813417573023834*^9}, 3.814097252944726*^9}, CellLabel->"In[58]:=", CellID->443871870], Cell[BoxData[ TemplateBox[{"27.88799999999999`", RowBox[{ "\"mL\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"min\"", "\[ThinSpace]", "\"mmHg\"", "\[InvisibleSpace]", "\")\""}], "milliliters per minute millimeter of mercury", FractionBox["\"Milliliters\"", RowBox[{"\"MillimetersOfMercury\"", " ", "\"Minutes\""}]]}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8098500025554285`*^9, {3.8102036848913956`*^9, 3.8102036985881653`*^9}, 3.810206044572866*^9, 3.8102070729347115`*^9, 3.8129848537774825`*^9, 3.8129852477156568`*^9, 3.812985415515229*^9, 3.81341744498631*^9, 3.8140958135507345`*^9, 3.8140963616384773`*^9, 3.814097256448311*^9, 3.8140977820706425`*^9, 3.81409884904489*^9}, CellLabel->"Out[58]=", CellID->299048836] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(5)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell[TextData[{ "If values without ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Quantity", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Quantity", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " are used, the age is interpreted as \"Years\" and the height as \ \"Centimeters\":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.809851204540783*^9, 3.809851238980338*^9}, { 3.809851273934039*^9, 3.809851290619195*^9}}, CellID->45664744], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/PulmonaryDiffusingCapacity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "PulmonaryDiffusingCapacity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PulmonaryDiffusingCapacity"], BoxID -> "PulmonaryDiffusingCapacity", Selectable->False], "[", RowBox[{"\"\\"", ",", "35", ",", "175"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.8097912022184887`*^9, {3.80979137919748*^9, 3.80979142760298*^9}, { 3.8102038347863617`*^9, 3.810203838774558*^9}, 3.8129852672445374`*^9}, CellLabel->"In[59]:=", CellID->294285762], Cell[BoxData[ TemplateBox[{"33.178`", RowBox[{ "\"mL\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"min\"", "\[ThinSpace]", "\"mmHg\"", "\[InvisibleSpace]", "\")\""}], "milliliters per minute millimeter of mercury", FractionBox["\"Milliliters\"", RowBox[{"\"MillimetersOfMercury\"", " ", "\"Minutes\""}]]}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.809791429466191*^9, 3.809850005013897*^9, 3.810203687441724*^9, 3.8102038431127024`*^9, 3.810206045897112*^9, 3.810207074732301*^9, 3.812985268502077*^9, 3.8129854168288417`*^9, 3.8134174477016068`*^9, 3.814095817140917*^9, 3.8140963634839044`*^9, 3.8140977845435443`*^9, 3.8140988505111103`*^9}, CellLabel->"Out[59]=", CellID->719205462] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/PulmonaryDiffusingCapacity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "PulmonaryDiffusingCapacity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PulmonaryDiffusingCapacity"], BoxID -> "PulmonaryDiffusingCapacity", Selectable->False], "[", RowBox[{"\"\\"", ",", TemplateBox[{"35", "\"yr\"", "years", "\"Years\""}, "Quantity"], ",", TemplateBox[{"175", "\"cm\"", "centimeters", "\"Centimeters\""}, "Quantity"]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.814186106105481*^9, 3.8141861141574163`*^9}}, CellLabel->"In[12]:=", CellID->1207283054], Cell[BoxData[ TemplateBox[{"33.178`", RowBox[{ "\"mL\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"min\"", "\[ThinSpace]", "\"mmHg\"", "\[InvisibleSpace]", "\")\""}], "milliliters per minute millimeter of mercury", FractionBox["\"Milliliters\"", RowBox[{"\"MillimetersOfMercury\"", " ", "\"Minutes\""}]]}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.814186119553389*^9}, CellLabel->"Out[12]=", CellID->1646848531] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->233265954], Cell["Other time and length units are accepted as well:", "Text", TaggingRules->{}, CellChangeTimes->{{3.809851331244972*^9, 3.8098513643210044`*^9}, { 3.814186127232011*^9, 3.814186139159891*^9}}, CellID->439538184], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/PulmonaryDiffusingCapacity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "PulmonaryDiffusingCapacity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PulmonaryDiffusingCapacity"], BoxID -> "PulmonaryDiffusingCapacity", Selectable->False], "[", RowBox[{ TemplateBox[{"\"female\"", RowBox[{"Entity", "[", RowBox[{"\"Gender\"", ",", "\"Female\""}], "]"}], "\"Entity[\\\"Gender\\\", \\\"Female\\\"]\"", "\"gender\""}, "Entity"], ",", TemplateBox[{"380", "\"mo\"", "months", "\"Months\""}, "Quantity"], ",", TemplateBox[{"65", "\"in\"", "inches", "\"Inches\""}, "Quantity"]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.8097912022184887`*^9, {3.8097914413070936`*^9, 3.809791448871891*^9}, { 3.8097915254066963`*^9, 3.8097915395991793`*^9}, {3.809791582895802*^9, 3.8097915837032843`*^9}, 3.809850054028529*^9, 3.8129852746256547`*^9, 3.8140972784208097`*^9}, CellLabel->"In[60]:=", CellID->433192230], Cell[BoxData[ TemplateBox[{"27.468076666666665`", RowBox[{ "\"mL\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"min\"", "\[ThinSpace]", "\"mmHg\"", "\[InvisibleSpace]", "\")\""}], "milliliters per minute millimeter of mercury", FractionBox["\"Milliliters\"", RowBox[{"\"MillimetersOfMercury\"", " ", "\"Minutes\""}]]}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8097915443223815`*^9, 3.8097916441022453`*^9, 3.809850006826969*^9, 3.8098500562877855`*^9, 3.8102036915196486`*^9, 3.810206046777011*^9, 3.810207075490876*^9, {3.8129852626149673`*^9, 3.8129852759108987`*^9}, 3.812985418153204*^9, 3.8134174494403806`*^9, 3.814095819865455*^9, 3.8140963679369965`*^9, 3.8140972808820887`*^9, 3.8140977856722713`*^9, 3.81409885247056*^9}, CellLabel->"Out[60]=", CellID->557378367] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->2170245], Cell[TextData[{ "Create a plot using the ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " output. The ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "-axis is age (given in years) and the ", Cell[BoxData[ StyleBox["y", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "-axis is \"DiffusingCapacity\" (DLCO) (in milliliters of CO per minute per \ millimeter of Hg) for a given ", Cell[BoxData[ StyleBox["gender", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and ", Cell[BoxData[ StyleBox["height", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.809851570511344*^9, 3.809851673081809*^9}, 3.80985211196848*^9, {3.813417343559615*^9, 3.8134173564392853`*^9}, 3.8140971412314796`*^9, {3.8141861781489677`*^9, 3.814186191780292*^9}, { 3.814203761694265*^9, 3.8142037877718697`*^9}, {3.855833057907978*^9, 3.855833061522307*^9}}, CellID->388767411], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/PulmonaryDiffusingCapacity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "PulmonaryDiffusingCapacity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PulmonaryDiffusingCapacity"], BoxID -> "PulmonaryDiffusingCapacity", Selectable->False], "[", RowBox[{ TemplateBox[{"\"male\"", RowBox[{"Entity", "[", RowBox[{"\"Gender\"", ",", "\"Male\""}], "]"}], "\"Entity[\\\"Gender\\\", \\\"Male\\\"]\"", "\"gender\""}, "Entity"], ",", TemplateBox[{"45", "\"yr\"", "years", "\"Years\""}, "Quantity"], ",", TemplateBox[{"185", "\"cm\"", "centimeters", "\"Centimeters\""}, "Quantity"], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.8097912022184887`*^9, {3.8097917251846*^9, 3.8097917319838014`*^9}, 3.812985349098243*^9, 3.814095991339616*^9, 3.8140972933286853`*^9}, CellLabel->"In[62]:=", CellID->221346218], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], LineBox[CompressedData[" 1:eJwVxX040wkAB/C5FDru8ZKii9RVcpOx39iG5rv9JuooybDx6+kcu6fk5Urh iiR3Vi4k6pJekEVOavKSEHXVpFSUvEyXaiktdhK5krv74/N8FoXF+Ed8QaPR fP/z/+syNItpNCbOrs+K3KshkXBu1rov9JmYirHfVPuGxOlWm126xkwEZLYG vB0iodUTderbMEFrm8ETvyaRnda4zwRMSIQJxk4vSXQkZb5YnMKEEfv76qd/ kQiIdZR70gjELSCmPTpJiEVxdhk0FjDYlfP5Mom7S6ZGmfYuKBf3G7nvI3Ff HcXWJzgovfdH2nw/EqKx9q8uMFzx4SX/6qQVCaG+U1lckDss+/J8jw0KcM1o V5NUwsPdDsXjnksCiAx/aHMVAv5nM6t7kwQ4UEfbSw/kw87KMUjlJUA6ZTqm EAmQcyR/LNlcAO4vZ5TKLSTaNdfVA0/4UJSck+yIEqJgVU2HupwPjWa5y5eR nmjgR+8bSuSjr8Z2OyN5FSos1emVJB85iflRQ8lecHq/RGZuwsdU08FWIs8b 6RXfqNx6gW/pk9FS+Wo46L16F3YGsM7ufsAoWYPN4Tv06NuAW/GcI+mXv0Pc yZboKjeAHWxosfOKD8xUXQ9U+kDolU0fRzt8MfOtyORgsQcEniuWi9VrsT98 /6wwtge0t6JMA9XrwHy+9l1CBw9l0nmVsUl+SP46J904gocm9cUqnWk/aCU/ mg19XgkiQZ/SS14Pvf5by27kr8QMn4Xsh3r+aLaQD9g4rITLAm3MVpk/TobM zW1SuuPPFXt72sw2YGGw7rBK4g6Ff/vgqYINEB5Nuvdp2A26cY8CPBYEILtf VrrxgBsudBWMlsgDkNRvYse3ckOzs/XIY1sRDr2wL4yodYVTaUh2slwEb4fO 0xkbXPEpRBymYQSiyGnCiznIBd3Q5PDSC4FY7F7xcn4qF5emZGNL3YIgpA3Y p83hovBN/aW/G4LwW5t8C+M8ByOaUkumezASeiYYqtUcHGUEVXJvBmNW4c0C g342iqOvFht6iVEfY6uTGM+GwcigUt4hhsmHmUabDdi4n3onpzpEAsPrMacl J1zw0TTySlafBPZ5kfRMjgtSXrTOcZKGQGujpgRtztiseHbnxGAIuqu06ZwI ZygO19rtkYZCuj+d66jjjMAan1pbbSjyLApySnNZ2PjoePHxWApD5wXPwxgs JCUOsXq2UXDJGqg8uYKFAivuzbk7KKTGpOzupbPQF9H16lAiBUvHJnP/5SwE jxs7yFIpeF/kevMXseA/79e6uFwK8irHioVmLHiKY+/61lEIq7OOV40TCJ9q 2phRT+H8742kxXsCaYVGWmUDhcmEUOOAdwSuvT5nKmyhcIibX9Y2QoD3szrI 9TaF5npzVf0rApzjkmfLVBSsGw35x3oJBHmUbQ9/QmHLiXKjR90Edj6f0C16 SqEmaU2v8WMC1fQ8Wys1BV+ebLuskwCz4d5Ws2EKu6/OkMffIbB+k/VnPy0F 5amibVW3CcTqRmVljlKYk8L3GFESqPSZrTCYoFCOPd3SGwTatcGk1ySFcRvr kqLrBIZzzz5M+0hBoNP405MWAkbc8YhrUxQyB0J485sJ2PcLJ6anKfS0/DM7 sInAvyyzJck= "]]}, Annotation[#, "Charting`Private`Tag$10373#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {18., 19.743500410289787`}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {18., 19.743500410289787`}, DisplayFunction :> Identity, Epilog -> { PointSize[0.025], RGBColor[1, 0, 0], PointBox[{45, 34.52599999999999}]}, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox[ TemplateBox[{ SubscriptBox["\"DL\"", "\"CO\""], "\"(mL of CO/min/mmHg)\""}, "RowDefault"], TraditionalForm], None}, { FormBox["\"age (years)\"", TraditionalForm], None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Medium, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> FormBox["\"Pulmonary Diffusing Capacity - Male - height: 185 centimeters \ \"", TraditionalForm], PlotRange -> {{18, 120}, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"total population\"", "\"non-smokers\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8097917330664415`*^9, 3.809850106932326*^9, 3.8098520086649485`*^9, 3.8098523887937336`*^9, {3.8098524775717554`*^9, 3.809852492605501*^9}, 3.810203865125102*^9, 3.8102060509780297`*^9, 3.8102070793089895`*^9, { 3.8102072763160963`*^9, 3.810207293438936*^9}, {3.81298534508008*^9, 3.812985349690412*^9}, 3.8129854408774557`*^9, 3.813417450899064*^9, 3.814095993043934*^9, 3.814096370961053*^9, 3.8140972948876896`*^9, 3.8140977887222342`*^9, 3.814098855685264*^9}, CellLabel->"Out[62]=", CellID->1458846] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->279630522], Cell["Specify \"PropertyAssociation\" as the output:", "Text", TaggingRules->{}, CellChangeTimes->{{3.81298570225778*^9, 3.812985736597051*^9}, 3.812985771376892*^9, {3.814097162214895*^9, 3.814097167574249*^9}, { 3.814097962320824*^9, 3.814098000276887*^9}, {3.814098044757827*^9, 3.814098053148306*^9}, {3.814186203461409*^9, 3.814186219120672*^9}}, CellID->262539739], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/PulmonaryDiffusingCapacity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "PulmonaryDiffusingCapacity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PulmonaryDiffusingCapacity"], BoxID -> "PulmonaryDiffusingCapacity", Selectable->False], "[", RowBox[{ TemplateBox[{"\"female\"", RowBox[{"Entity", "[", RowBox[{"\"Gender\"", ",", "\"Female\""}], "]"}], "\"Entity[\\\"Gender\\\", \\\"Female\\\"]\"", "\"gender\""}, "Entity"], ",", TemplateBox[{"4", "\"decades\"", "decades", "\"Decades\""}, "Quantity"], ",", TemplateBox[{"1780", "\"mm\"", "millimeters", "\"Millimeters\""}, "Quantity"], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.8097912022184887`*^9, {3.8097917390677176`*^9, 3.8097917584114804`*^9}, 3.8129853577341485`*^9, 3.814096086694271*^9, 3.8140973134949436`*^9, 3.8140978359003267`*^9, 3.814097895474924*^9, {3.814097955239369*^9, 3.8140979584527416`*^9}}, CellLabel->"In[63]:=", CellID->214514854], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"DiffusingCapacity\"\>", "\[Rule]", TemplateBox[{"29.393912027397267`", RowBox[{ "\"mL\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"min\"", "\[ThinSpace]", "\"mmHg\"", "\[InvisibleSpace]", "\")\""}], "milliliters per minute millimeter of mercury", FractionBox["\"Milliliters\"", RowBox[{"\"MillimetersOfMercury\"", " ", "\"Minutes\""}]]}, "Quantity"]}], ",", RowBox[{"\<\"Plot\"\>", "\[Rule]", TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], LineBox[CompressedData[" 1:eJwVk/k71AkAh2drrLGLolrLIypZCU3f79xM45PMqnYcuWYcX1uKTXJsaB0R SjyRIzpNrQ5TqE2zCGlWlkGHboq2DU02zVOzsqxHatsf3ud93j/gXRwe5xsx i0ajeX7if3vna5fQaCRCK7YxX3oBydWfe89ikKhnmPJ8PnVF96I0+lwSRj82 iZo9AZ1+wAPGIhKq1QyvQglQvPfaHhOQsB6u3M5dD9xPL3yxJJPEoO1g1T4x 4B+/UiGmsRBZI11qJwSCAhLt82lsxDW4m2+1B24vnRkjHblIc/S60EYD7mpi eAwWHw3trkdP1LsiYLzHuJbpjEGLzXRWtCvcGURVolQIGqFpS7FwRZtRmioy WIRO9eRxmzsiBBhuvunsDmRaRnVkpIuwv5GW5RC4GorQYEupkwi5lOm4MsAN CZZPCw4OrYIg52xX17Y1YMtbvHeXrIKysjo4KcYd8nInxzviVdBql3G/jBYj PseKI58WYqDBLoGZ8S14zNhiixohDqYcjxnN8IBC5qX3/nshZlQHulmH1oLh duBWobEQyx2mYiMV69C7QNJ6UuUCq+LH95iV6yGJKr9tkuiCzp/4h3ObvkPd rnVOXBsX8GSGX++8KkHHnDzFtT5nhF7dOD123xPd4bY7JnKc4SZ2Whak8YKg wm3bBY4zdJ0xpoEab/hQurSOUQGqIs0uxaf7IKT//Z9FxwRQaS7/+tlHHxj3 HaOueQrASmZQ+hkb4Khq0N86W4DZEmveQ31fiCJIeruSD66lLm57ni8m80UW e37go90p68nNeX44u6Mq+90CPpS+PSM/y/3QsqbMbLCDB3riI39XS3/sKpuj JtJ4qO2Vj1Uq/LGy8pWatZyHVo7V2z67ABRw/AePPuOCOB9SnKEIgG+taFla GRfvQ4LCtcxAGL7OvW7szoWDoUmpbW0gYis3JepNcVA3kzdu6yJFu/XxlIvn ODj1urnu7xYpWs03H20M4eCt9rw5KZTB/kPNMEw4OMKUXhKoZcg57ZeV2srG mdjfzhh6BCFPnc83S2LD4O1Il+J+EDKrl7hF2LBxN/vWwfqQYAwlC5JXPmBh 2jT6atFAMLTq551heSxkvuieT0SGYPThyygRj4Uo5dCtEyMhKApPt816TUJZ esV+d2QoKvpLjVafIhHYILlipwvFWVODtUofEmGPys+Ux1PwuWEs36dHIj1l lP1kBwV6H/sfLp2EfKFA/VUShabhYK+RWSQGInr/KkmhsHhGQVv76UvZxNwV edkU3jFdIwymCfia7WtMLKNw+FDcigIdAXFQ/G3PRgpPN95tLRkgsGVGFZbf TKEkZsLcrZ/A3lNGuq4WCuJUy4SxxwTaXlWbul+n8EvpVlu/XgKiVI3U+QaF TDVt//x7BPjlwUPfPKVg40j4HVETkLpWJWx5RqGPL73g0UFg5/Ak/fRzCgXi dL1/fydQ73DIbqGGwnhY9xXZdQJky53t895QUJdssrRoIbBho9UHHx2F1JO5 STeaCcTTY4oKxygway72pDYRuCT5QmkwSeFI+1TmQAOBHp1sjccUBck96/78 egJvys493DtNgfZMzBLWETASTES0zVCoG40u0CoJOP7hPvnxI4WoyRKN/DKB /wD3Vhl6 "]]}, Annotation[#, "Charting`Private`Tag$10461#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {18., 17.693800304542865`}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {18., 17.693800304542865`}, DisplayFunction :> Identity, Epilog -> { PointSize[0.025], RGBColor[1, 0, 0], PointBox[ NCache[{ Rational[146097, 3650], 29.393912027397267`}, { 40.026575342465755`, 29.393912027397267`}]]}, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox[ TemplateBox[{ SubscriptBox["\"DL\"", "\"CO\""], "\"(mL of CO/min/mmHg)\""}, "RowDefault"], TraditionalForm], None}, { FormBox["\"age (years)\"", TraditionalForm], None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Medium, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> FormBox["\"Pulmonary Diffusing Capacity - Female - height: 1780 \ millimeters \"", TraditionalForm], PlotRange -> {{18, 120}, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"total population\"", "\"non-smokers\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.809791759197133*^9, 3.809850111205461*^9, 3.809852029705518*^9, 3.809852497851196*^9, 3.8102038721742086`*^9, 3.8102060538842583`*^9, 3.810207081868701*^9, 3.810207297308892*^9, 3.8129853592904973`*^9, 3.8129854437044535`*^9, 3.8134174534535527`*^9, 3.814096088153805*^9, 3.814096376714963*^9, 3.814097315064489*^9, 3.814097790725401*^9, 3.8140978380330076`*^9, 3.8140979590239897`*^9, 3.8140988576586323`*^9}, CellLabel->"Out[63]=", CellID->11297841] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->9371849], Cell["The default output is \"DiffusingCapacity\":", "Text", TaggingRules->{}, CellChangeTimes->{{3.809851570511344*^9, 3.809851673081809*^9}, 3.80985211196848*^9, {3.813417343559615*^9, 3.8134173564392853`*^9}, { 3.813417963336464*^9, 3.813418020078231*^9}, {3.813418126343931*^9, 3.8134181302271214`*^9}, {3.8140959032188616`*^9, 3.8140959512563725`*^9}, {3.814097531136533*^9, 3.8140975331292152`*^9}, { 3.814186225669147*^9, 3.8141862341062403`*^9}}, CellID->29295182], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/PulmonaryDiffusingCapacity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "PulmonaryDiffusingCapacity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PulmonaryDiffusingCapacity"], BoxID -> "PulmonaryDiffusingCapacity", Selectable->False], "[", RowBox[{"\"\\"", ",", TemplateBox[{"45", "\"yr\"", "years", "\"Years\""}, "Quantity"], ",", TemplateBox[{"185", "\"cm\"", "centimeters", "\"Centimeters\""}, "Quantity"], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.8097912022184887`*^9, {3.8097917251846*^9, 3.8097917319838014`*^9}, 3.812985349098243*^9, {3.8134180285186243`*^9, 3.8134180322446218`*^9}, { 3.814095836064969*^9, 3.814095849612838*^9}}, CellLabel->"In[61]:=", CellID->91287958], Cell[BoxData[ TemplateBox[{"34.52599999999999`", RowBox[{ "\"mL\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"min\"", "\[ThinSpace]", "\"mmHg\"", "\[InvisibleSpace]", "\")\""}], "milliliters per minute millimeter of mercury", FractionBox["\"Milliliters\"", RowBox[{"\"MillimetersOfMercury\"", " ", "\"Minutes\""}]]}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.813418032938624*^9, 3.813418135731036*^9, 3.8140958514276857`*^9, 3.814096369546217*^9, 3.8140977873471146`*^9, 3.8140988541926494`*^9}, CellLabel->"Out[61]=", CellID->26092976] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/PulmonaryDiffusingCapacity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "PulmonaryDiffusingCapacity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PulmonaryDiffusingCapacity"], BoxID -> "PulmonaryDiffusingCapacity", Selectable->False], "[", RowBox[{"\"\\"", ",", TemplateBox[{"45", "\"yr\"", "years", "\"Years\""}, "Quantity"], ",", TemplateBox[{"185", "\"cm\"", "centimeters", "\"Centimeters\""}, "Quantity"]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.814186239011903*^9, 3.814186239172579*^9}}, CellLabel->"In[13]:=", CellID->337463699], Cell[BoxData[ TemplateBox[{"34.52599999999999`", RowBox[{ "\"mL\"", "\[InvisibleSpace]", "\"/(\"", "\[InvisibleSpace]", "\"min\"", "\[ThinSpace]", "\"mmHg\"", "\[InvisibleSpace]", "\")\""}], "milliliters per minute millimeter of mercury", FractionBox["\"Milliliters\"", RowBox[{"\"MillimetersOfMercury\"", " ", "\"Minutes\""}]]}, "Quantity"]], "Output", TaggingRules->{}, CellChangeTimes->{3.814186239725889*^9}, CellLabel->"Out[13]=", CellID->441900306] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Possible Issues", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->92483860], Cell[TextData[{ "The ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "-axis of the plot is given in years, regardless of the inputs:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.809851570511344*^9, 3.809851673081809*^9}, { 3.80985211196848*^9, 3.80985214141224*^9}, {3.8098522048207593`*^9, 3.8098522692673087`*^9}, {3.8098525255410614`*^9, 3.809852527468055*^9}, { 3.814186254986576*^9, 3.814186271479707*^9}, {3.814203800393282*^9, 3.81420380338218*^9}, 3.814626673933187*^9, {3.8558330798892097`*^9, 3.8558330803292093`*^9}}, CellID->53485200], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["PulmonaryDiffusingCapacity", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/PulmonaryDiffusingCapacity"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "PulmonaryDiffusingCapacity"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["PulmonaryDiffusingCapacity"], BoxID -> "PulmonaryDiffusingCapacity", Selectable->False], "[", RowBox[{"\"\\"", ",", TemplateBox[{"350", "\"mo\"", "months", "\"Months\""}, "Quantity"], ",", TemplateBox[{"6", "\"ft\"", "feet", "\"Feet\""}, "Quantity"], ",", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.8097912022184887`*^9, {3.8097917251846*^9, 3.8097917319838014`*^9}, { 3.8098521596278076`*^9, 3.8098521817340617`*^9}, {3.8102073473044434`*^9, 3.8102073556924353`*^9}, 3.81298544842146*^9, 3.8140960932055907`*^9}, CellLabel->"In[64]:=", CellID->506061119], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], LineBox[CompressedData[" 1:eJwVkH0803kAx3flIg+Vh6hekpyH3GjZd8NGfLYRiWuWbTZ+zquiKw95RWU5 Uql0CkkPd3qWXdQrLCGT63RX5KFS6UHXq1NL3K4t5zjHct0f79f7n/df78Vr N4sSptFotIhP/O/VBVonGo2JYDM7fVqJAJlVM1ZPM2GizL3ujfKwAGfbHbOM 5jAxHBL57EWxAHpj8UMTRyZO5xW0hhYJUJx3Y48lmPjHMFXqeFCAnuzCN065 TFzSv+Pc3ytAVNoyZTCNwKq3aQ9DIYBMnOFeQGPh5dk4u/dfC9DlbBhmenhj pXVCCd1dgPuaFB8T4osVB1gzTUf5EI90z6phcHHsbLtg8BYfQSZelRlSfzSU LuzJP8RHq0VWS6I8AEkHubHt8k+9+boObhCgj7fl3v2Cj+8aabvoEh7u9Db0 dfzJw37KakQl5mOZ0EmRquaBs/dCW9smAZKVqzY9yONBVVEl35oSBC4tQPo4 kgetdom3WVIw5BN/Gz9fxENfvVs6I2cFVj1MNj8zCJQofkgZygnBvSuXzT9v AAwth9rJ0VC4bLgUT88FvqSPpyYqV6Lz5uZMURjgUPz0AaMiDMYOhoIF84A7 232P7b++Cs41JW+DbwXCJ9p83jZ1ONbSb1w+QQUiVh0/MdwTAV58woJkXQD4 wZ5LZJqv8OuTE7N5ewKgv5NiJdGsRqokblLqEIDKRLvqtGwhmgrPFetqlqNF U3v1sykhPLq32beHLQfJNKGMcyIhED5hXHjrj+nhi3weGYswWXBtaErhD297 /ebkfBGed7ucOmXjj188dz3rsF6DmA7rMbXSDypR98CZk2uQa3roaR/XD0YZ j6MC7aPQKTxRu7yXi5rek8MVyihcFy5mOm7k4ibbQffETYwuqX9V0HQuvC7G FOcoxcg711+56QwHkzGytVqGBC8vzIi0JBzQzS2PuNRIEFfdrBvv8kWdIX/E xU+K3HQ9e128L8790VT3oVmKtoD69Fn/+kCnvTif6R+NunBjjvqoD44zpNWc 29Hg2/RWvFvig/LUn8rNQ2QY7fc2jb7ljZm6gTZljwwRSXNtQ8XeuL+7s+Ra jByh3jsrOYNsTFglqYv65PjGJIuVksdG7pt2G6/EGHiUjiQutmNjo6q/89RA DGzcaIftallQHWlw35kYi/OTx/izI1iQ1Ic3uOlj8aDgUtn+VwRxj8vKy9Io uDqJtLwsgmzFEOvZFgpbpn1ozFYQnFzIuW27lUJLf9He69sJ+hJ63x1WUBCX dzl4ZRBEj85Zmr+bQp7zykjHFAKR3b7GjFIK/a6o/xhHECxL64popHCavjRX zSdYb2iJK2iiMGTWFT4G8umzhb6tmQJbmzSfBBK0DlZZBf1MoetyparKjyBg h0bKvUth0tNF8z2LwLdM3u/6goJ8mX1YpiuBNLAyff1LCso5ats6Z4Jtr8eM zr+iMKyXvdY5EVyjH3VbqKFwoPb4txsWETCb7yVbv6fQyLSulswjiIx3+CjU UzCyVmWV2BKkGaUUFQ5TEP4lDO22IagON1XNHKMwcLXw92BLgm59tCBknAKz 1PPKrtkE70t/fJQ3QSEno3PHDQsCC85oQquBwt2opJBxMwKP34LGpqYozGWb 2rBNCf4DhiYX9Q== "]]}, Annotation[#, "Charting`Private`Tag$10544#1"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {18., 19.039872410289792`}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {18., 19.039872410289792`}, DisplayFunction :> Identity, Epilog -> { PointSize[0.025], RGBColor[1, 0, 0], PointBox[ NCache[{ Rational[175, 6], 36.943121999999995`}, {29.166666666666668`, 36.943121999999995`}]]}, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox[ TemplateBox[{ SubscriptBox["\"DL\"", "\"CO\""], "\"(mL of CO/min/mmHg)\""}, "RowDefault"], TraditionalForm], None}, { FormBox["\"age (years)\"", TraditionalForm], None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Medium, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> FormBox["\"Pulmonary Diffusing Capacity - Male - height: 6 feet \"", TraditionalForm], PlotRange -> {{18, 120}, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"total population\"", "\"non-smokers\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.8097917330664415`*^9, 3.809850106932326*^9, 3.8098520086649485`*^9, 3.8098521841923575`*^9, 3.809852500490086*^9, 3.81020387604412*^9, 3.810206057130166*^9, 3.8102070841894035`*^9, 3.8102073002709327`*^9, { 3.8102073499201827`*^9, 3.810207356531124*^9}, 3.8129854505834885`*^9, 3.8134174583195343`*^9, 3.814096094834334*^9, 3.814096379757104*^9, 3.814097794879773*^9, 3.8140988600434303`*^9}, CellLabel->"Out[64]=", CellID->51731988] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"PulmonaryDiffusingCapacity | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[639, 23, 168, 7, 70, "Subsection",ExpressionUUID->"3732c731-c63b-4fa9-af43-f797ed258126", CellID->462042388], Cell[810, 32, 368, 8, 70, "Text",ExpressionUUID->"0d29bb27-b27e-4a83-9b9f-a92008c7c5a6", CellID->13078159], Cell[CellGroupData[{ Cell[1203, 44, 7807, 197, 70, "Input",ExpressionUUID->"d5de83f1-f445-4232-a502-d28229964ef1", CellID->443871870], Cell[9013, 243, 811, 17, 70, "Output",ExpressionUUID->"0e71d5de-2d08-4c31-91ac-cd800bd0c781", CellID->299048836] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9873, 266, 159, 7, 70, "Subsection",ExpressionUUID->"4519abdd-3143-4da3-ba73-b3d7ab15de2d", CellID->964056545], Cell[10035, 275, 766, 23, 70, "Text",ExpressionUUID->"cde595d1-be5a-4351-8698-4846e17f83ec", CellID->45664744], Cell[CellGroupData[{ Cell[10826, 302, 7453, 187, 70, "Input",ExpressionUUID->"140d9770-d210-4ced-836f-e6028fc120a7", CellID->294285762], Cell[18282, 491, 765, 16, 70, "Output",ExpressionUUID->"f68206ac-6195-4d5b-8fb7-7dc3ec2bba90", CellID->719205462] }, Open ]], Cell[CellGroupData[{ Cell[19084, 512, 7501, 189, 70, "Input",ExpressionUUID->"e2696f2e-6140-4954-a8d2-d9eac2648135", CellID->1207283054], Cell[26588, 703, 478, 12, 70, "Output",ExpressionUUID->"6a84746c-7159-4a24-a19a-509d1b419e46", CellID->1646848531] }, Open ]], Cell[CellGroupData[{ Cell[27103, 720, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"de2a5cc3-9245-47a0-ba9a-73f1ea0829fe", CellID->233265954], Cell[27250, 726, 221, 4, 70, "Text",ExpressionUUID->"7bc66db9-1d5c-4dbd-bb27-6fbdde6eac04", CellID->439538184], Cell[CellGroupData[{ Cell[27496, 734, 7883, 198, 70, "Input",ExpressionUUID->"b979d134-71a6-46de-90dc-1e72a1e80638", CellID->433192230], Cell[35382, 934, 863, 18, 70, "Output",ExpressionUUID->"944451e4-c20d-4e85-ad4a-b1457e9d1f03", CellID->557378367] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36294, 958, 142, 4, 70, "ExampleDelimiter",ExpressionUUID->"0d0c7c45-b2f7-491e-88d4-245ca057d308", CellID->2170245], Cell[36439, 964, 1052, 29, 70, "Text",ExpressionUUID->"9da331f4-3af6-43e0-b00f-5713840eb44a", CellID->388767411], Cell[CellGroupData[{ Cell[37516, 997, 7796, 196, 70, "Input",ExpressionUUID->"c92bfb4e-8198-4ca3-b65d-97a4d0d46adb", CellID->221346218], Cell[45315, 1195, 10926, 223, 70, "Output",ExpressionUUID->"19769c48-6c12-4078-b191-b4722d64b80f", CellID->1458846] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[56290, 1424, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"95ca7188-e04d-458a-b9a4-06665eba45d1", CellID->279630522], Cell[56437, 1430, 384, 6, 70, "Text",ExpressionUUID->"bae65487-0a54-4ca1-bdc4-6907f6d4c957", CellID->262539739], Cell[CellGroupData[{ Cell[56846, 1440, 7934, 198, 70, "Input",ExpressionUUID->"0de06e06-5fcd-499b-b6c1-bb9ae3fe65e0", CellID->214514854], Cell[64783, 1640, 11977, 243, 70, "Output",ExpressionUUID->"60a8a70a-1bfb-49a7-8671-822871409479", CellID->11297841] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[76809, 1889, 142, 4, 70, "ExampleDelimiter",ExpressionUUID->"fe4d508f-c065-41e4-814d-87cd9fe2ba73", CellID->9371849], Cell[76954, 1895, 493, 8, 70, "Text",ExpressionUUID->"3382da28-6425-4969-9f66-bf26f59130ac", CellID->29295182], Cell[CellGroupData[{ Cell[77472, 1907, 7684, 192, 70, "Input",ExpressionUUID->"68363494-8bf8-4873-8fa2-8ba45fe8b33c", CellID->91287958], Cell[85159, 2101, 609, 14, 70, "Output",ExpressionUUID->"9b3d766a-ceda-4072-b122-63eea01680b4", CellID->26092976] }, Open ]], Cell[CellGroupData[{ Cell[85805, 2120, 7498, 189, 70, "Input",ExpressionUUID->"5a5a5b20-6179-44e5-9f94-baedbde3395e", CellID->337463699], Cell[93306, 2311, 488, 12, 70, "Output",ExpressionUUID->"90cf008a-f3ec-46da-846b-2eb843ab67fa", CellID->441900306] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[93855, 2330, 168, 7, 70, "Subsection",ExpressionUUID->"6a809755-9908-4853-b799-64492eee92c2", CellID->92483860], Cell[94026, 2339, 621, 14, 70, "Text",ExpressionUUID->"7225ff67-ed58-4223-9e65-46d10d9b38b6", CellID->53485200], Cell[CellGroupData[{ Cell[94672, 2357, 7686, 192, 70, "Input",ExpressionUUID->"e8c88c84-65b3-4ecd-8ef9-b006a4480b91", CellID->506061119], Cell[102361, 2551, 10950, 225, 70, "Output",ExpressionUUID->"737879ab-1a77-4081-8db9-12c238135865", CellID->51731988] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)