/* JMP 14.2.0 01 */ ListBox(vertical,near,sub( ListBox(vertical,near,sub( ListBox(vertical,near,sub( ListBox(vertical,near,sub( PictureBox(sub( BorderBox(top(25),left(25),bottom(25),right(25),sides(0),options(0),xmin(0),ymin(0),))), PictureBox(sub( PictureBox(sub( PictureBox(sub( PictureBox(sub( PictureBox(sub( PictureBox(sub( PictureBox(sub( PictBox(picture(size(97,64), png(2545,"eJwB8QkO9olQTkcNChoKAAAADUlIRFIAAABhAAAAQAgGAAAACvYZMAAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnEAABJxAfPceo4AAAmTSURBVHhe7ZsJkFxFGcfHKCjgQZbsvJlEIoqW8ZZDUctSFBTvqxBvUTSUCGgpGlTAqICKkto5NpdBgQQjAY9SiCieFUQptSDBAAIKHkAwCjszu0lINuzz/5vM2+p89s6bmdp9m5T9r/pVMm", "+63/R73f19/X3dmwsKCgoKCgoKCgoKCgr6/9TjxFniJ+J74q0iKGOVRezwsHiVGNdBgyNRVNpyZOtj0CTr8WKzcDsBviHGlR8Y+nBUqv84d3b8iNaloEnUE0RN2E64WIxLnbA6X6rfkFsYP7J1KWgSNUNUhdsBD4nXiab6zttcUAc8EJXr60InTJ32FeeL9eKX4ngxLs2CSnFFHEel2neDOZp60Rm7qX/R0Mej6sjOwrKdcb7c+FzrclAW", "OmBRbWa+Mny+OiCOBrdpFtS391eGj5lbvmPfueWxJq2iQd1q3uc37pMvDx19cHVL8X9My5p4RlQZOiSqDJ+uDthYWP5w3OyEch1TNJov129WZ9ykz+v1eYNmxlVRpX5usdJ4aesOQZ2IkSwnuzhfGsLRrs+Xa1fnS7ULdO1yvdjrxVBh6WgMUbmxqwNaFJZsjzFLxYviuHhJHM9eqX8vjVV2h0xVbd2sxfUXt34mKFVxLGf74BsjvThe9u", "zVeqGrdr3Y4jf1UpePxVFl9w7Y1Qk7mp2jDrtbny8rVhsL9PLnF0q1UwrV2jmFSiNE2r2oUN1yhEb/mfnq8Jr8gGbFQO1Hmhlrda0x3hH6F9NUqIzcFVVGTipW632t6kFTpf4La8fmK41t8g3qgOGmCZI/WNM/sOlJrSJBkySSdscIckTHileKF4mcHO7FmB58AvZeznfVYcviR/GdIyLtN4lPiwUtzhRniHY5Jn73OPEpkdQD7pPm4B8j", "DjLsLxIRePLbp4rzxHfE5eJS8RnxNlEQe4zeIkjUuZHytTMXbJgj87OJVVHLOV8z74p4H32X6IniXHG7cOu6bBc/F0eIRP2CF3GH8NWBneJX4mjh0yrxgMODIonsTxHXCX7bd++ETWKR4DmmXV8QtoHVworR49QJOwuDW1nxbO6rNJ6u64neLe4Utt5EDIn3i9eIdp1maYg3C1fMoL8KtxzplQ+Ktc61TmEwNGf+dOoyYRt2YmHl2PsKix", "9qzoJZ5fpCXUt0trDlO2GrGDXXOoGOeIlI9AwxItwydAKzwb3WDfeJ54tp0aPFH4XboB3iqGjp6EIcsYKy+/oI6HYJM+KWzYprBHYevV34yvggNf9b8QdBZ/rKJPxaTEv0f7D4j3AbQ8NnFqpbVxCMaZmKM0M4UTrILZtwv7hafF9gEurCV87CCPyhoN5PxUT1+N3EyTMrfWUStoklgvbmBdlefNmhAkfdzhfhsDMXqyGcoNuQ34lcvjJy", "FjFB/5JtH9JH0hobhFsOMDFfEXSmK6b2zcKWT8AssWqZK1xR73rhq8MLRAwK3/dwq3iFaKcnixuEr/6VIvPsMMtD2xB8BMvT+c34YPXYC/XRZwJ4ke8SE4nViu1g4NrJYiIdJnymgyUvmqhzMTlzRCfCr1gLAKyYDhCZapmwDcHu5/pLCtTK9c3R1zcdoo8/a33nstuOm0es5W8Rth72vZ3wU38Rth6dQDzg6yBeKJ3XjS4S9j44/GeJzE", "TQxVrcbQSj9LUiV6ze0xcNbl2735En0Kh/CbccsyBt2j9W2JdJPJJmdxmJvnrvFPymb3Z9UnQr7mfjI3wPgWtmIu9jpySBDyO/qTkrxg6dsf+BdIpdWlJupmgnRqYNmHC8TxHt9DRBXOHWYwn6VPEJ51rCbYJDCt2KABIn7t6L9r5cZKajhH1Jfxb7CVcfE24ZwHna9IXVB4St9ydh729FCsSO0H8I6mEC3etwjuhFhwvbCcwE0jaZ6b3C", "PiwHvqw48uKWgeUiTRcKW48cTpp8wSDLX3JDNzrXgNVZt74gEUte2wlbRKZB29eE2wD4knBF8EKwY8udLtqJZR6n+Gw9TveliWWirfdlMUtgBt3rNwk3n9WNSL3YQUi804tp61msUtwG0KB3CFdkGq3fwD+8TLQTmdW/C7ce9ydZ2E6M9o3CrQe0i5Frg8XmcrpHXSDcewELlcyO8hwo7hJuA3B+dmqTxbROmdGSlgbG3mIq3HpM9TSnzP", "fDwq2HyZgniC3c61ASvQh/RlBq78cx0Mz0bMFLcRvwT8EIdnWacMsATjnNBJwobD2i2bTcjM8p/02w3B10riV8RPQi7D6Dzt7PZmynVOwB24cld5MkyRL5grlOnLLP3/TqlDGbdPo651pCJz7GJ58pIjZJW3ZPqljW2UawweEK2+jLsbBkbSecsi+vzwtOE7tfth65KXyFL82wUnQr4pB/C3uvr4pMtUbYRpwkXJG+to3FMaYFM5i0u4Vb", "D9KcMukKn1MmsvU5ZaA86ZFuRNbW3oeD0CT2MhOjiqDMbQTO124l8tk+OEvESLQT9tYGgThbRmA74ZTtqXCcMjt6vsAPMKl0UqditPvu80WRqdhTtSsQ34qH1LFbBjBPaZEy25i2HiPW3Yj3Cads80L3Cpw5Jsm97oLjZjXWTmyJYm599YmD0qL4SderhX3Y3wjrlHHAbhkg85gmn9O7QqQJJ2vr4ZTxTb7Az4VBxCkNZhudjWnjX47mMC", "h+L3z1mNnPFZmLlLBtzFLhitWIb3MlzSkjn1N296gnEqsnW48O5WUy2u13Pkj8scphz4EdNJ8DTuA78mfTom8J2yCbCsY02fQ1s2eiIyiJmPa+SDktfY058O3cvUcQqNkcDyslu9nfDcQsJ7RIToE8R5AJmPKdNUwOO1Bug3i543+N0xIrILcMMHXTdq5ID1tnzgvsxCnbCJvOYy+DlIV7HS4Rrxc25d0JzDjMFLN9seAME2aPDahrxZSn", "LXhY23By/PYA1EcFESUvMOE6kRbxkhSz9firH2x0O/FC3TqQpNV9Pgb7j14giC1s9G/hOAyHCexG1BvEfPFtQblfiCntBGaB/RNZIGllp+BsgcNiigL/t5v5PnG6ztazm/k+EVskdRJYt9Mum2gEa96eJ8jsDghmyQ8Ez0rkzv74RDkrnoklML6BDuH45aSbI9bQOMqrBCPZtzVIfmhPFTkj62NYXj9T7DXy5eZdMBWZ5s+7FL7EmhqOUW", "Z+IqJXEc6z6eE+gAsHr5IDVXuq+OtRm2gk7bDXiBNn9gESME2cJ9rT5XPKFbHXCGeELyBFDSy/iHhxVL1uCWatzwranTwDkXPzSE5QUFBQUFBQUFBQUFBQUEu53H8BwH2ktNcKBQgAAAAASUVORK5CYIKgb94l" )),))))))))))))))), OutlineBox( open(1),title("Experiments for Rapid Active Learning"),sub( OutlineBox( open(0),title("Screening Example - Goos & Jones Chapter 2"),sub( ButtonBox(title("Screening Factors"),scriptText("New Table( \!"BieFactors\!",\!r\!n\!tAdd Rows( 2 ),\!r\!n\!tNew Table Variable( \!"Table Type\!", \!"DOE Factor Table\!" ),\!r\!n\!tNew Column( \!"Methanol\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Continuous ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values( [0, 10] )\!r\!n\!t),\!r\!n\!tNew Column( \!"Ethanol\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Continuous ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values( [0, 10] )\!r\!n\!t),\!r\!n\!tNew Column( \!"Propanol\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Continuous ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values( [0, 10] )\!r\!n\!t),\!r\!n\!tNew Column( \!"Butanol\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Continuous ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values( [0, 10] )\!r\!n\!t),\!r\!n\!tNew Column( \!"pH\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Continuous ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values( [6, 9] )\!r\!n\!t),\!r\!n\!tNew Column( \!"Time\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Continuous ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values( [1, 2] )\!r\!n\!t)\!r\!n)"),underlineStyle(true),style("underline"),), ButtonBox(title("Screening Design Data"),scriptText("New Table( \!"BieData\!",\!r\!n\!tAdd Rows( 12 ),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Main Effects\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tY( :Name( \!"Yield (mg)\!" ) ),\!r\!n\!t\!t\!tEffects( :Methanol, :Ethanol, :Propanol, :Butanol, :pH, :Time ),\!r\!n\!t\!t\!tPersonality( Standard Least Squares ),\!r\!n\!t\!t\!tEmphasis( Minimal Report ),\!r\!n\!t\!t\!tRun(\!r\!n\!t\!t\!t\!tProfiler(\!r\!n\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!tConfidence Intervals( 1 ),\!r\!n\!t\!t\!t\!t\!tDesirability Functions( 1 ),\!r\!n\!t\!t\!t\!t\!tName( \!"Yield (mg)\!" ) <<\!r\!n\!t\!t\!t\!t\!tResponse Limits(\!r\!n\!t\!t\!t\!t\!t\!t{Lower( 45, 0.066 ), Middle( 47.5, 0.5 ),\!r\!n\!t\!t\!t\!t\!t\!tUpper( 50, 0.9819 ), Goal( Maximize ), Importance( 1 )}\!r\!n\!t\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t\!tTerm Value(\!r\!n\!t\!t\!t\!t\!t\!tMethanol( 5 ),\!r\!n\!t\!t\!t\!t\!t\!tEthanol( 5 ),\!r\!n\!t\!t\!t\!t\!t\!tPropanol( 5 ),\!r\!n\!t\!t\!t\!t\!t\!tButanol( 5 ),\!r\!n\!t\!t\!t\!t\!t\!tpH( 7.5 ),\!r\!n\!t\!t\!t\!t\!t\!tTime( 1.5 )\!r\!n\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t:Name( \!"Yield (mg)\!" ) << {Lack of Fit( 0 ),\!r\!n\!t\!t\!t\!tPlot Actual by Predicted( 0 ), Plot Regression( 0 ),\!r\!n\!t\!t\!t\!tPlot Residual by Predicted( 0 ), Plot Effect Leverage( 0 )}\!r\!n\!t\!t\!t)\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Researcher's Model\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tY( :Name( \!"Yield (mg)\!" ) ),\!r\!n\!t\!t\!tEffects( :Methanol, :Ethanol, :pH, :Time ),\!r\!n\!t\!t\!tPersonality( Standard Least Squares ),\!r\!n\!t\!t\!tEmphasis( Effect Screening ),\!r\!n\!t\!t\!tRun(\!r\!n\!t\!t\!t\!tProfiler(\!r\!n\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!tConfidence Intervals( 1 ),\!r\!n\!t\!t\!t\!t\!tDesirability Functions( 1 ),\!r\!n\!t\!t\!t\!t\!tName( \!"Yield (mg)\!" ) <<\!r\!n\!t\!t\!t\!t\!tResponse Limits(\!r\!n\!t\!t\!t\!t\!t\!t{Lower( 45, 0.066 ), Middle( 47.5, 0.5 ),\!r\!n\!t\!t\!t\!t\!t\!tUpper( 50, 0.9819 ), Goal( Maximize ), Importance( 1 )}\!r\!n\!t\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t\!tTerm Value(\!r\!n\!t\!t\!t\!t\!t\!tMethanol( 5 ),\!r\!n\!t\!t\!t\!t\!t\!tEthanol( 5 ),\!r\!n\!t\!t\!t\!t\!t\!tpH( 7.5 ),\!r\!n\!t\!t\!t\!t\!t\!tTime( 1.5 )\!r\!n\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t:Name( \!"Yield (mg)\!" ) << {Sorted Estimates( 1 ),\!r\!n\!t\!t\!t\!tPlot Actual by Predicted( 1 ), Plot Regression( 0 ),\!r\!n\!t\!t\!t\!tPlot Residual by Predicted( 0 ), Plot Effect Leverage( 0 )}\!r\!n\!t\!t\!t)\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Subsets Regression\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tY( :Name( \!"Yield (mg)\!" ) ),\!r\!n\!t\!t\!tEffects(\!r\!n\!t\!t\!t\!t:Methanol,\!r\!n\!t\!t\!t\!t:Ethanol,\!r\!n\!t\!t\!t\!t:Propanol,\!r\!n\!t\!t\!t\!t:Butanol,\!r\!n\!t\!t\!t\!t:pH,\!r\!n\!t\!t\!t\!t:Time,\!r\!n\!t\!t\!t\!t:Methanol * :Ethanol,\!r\!n\!t\!t\!t\!t:Methanol * :Propanol,\!r\!n\!t\!t\!t\!t:Methanol * :Butanol,\!r\!n\!t\!t\!t\!t:Methanol * :pH,\!r\!n\!t\!t\!t\!t:Methanol * :Time,\!r\!n\!t\!t\!t\!t:Ethanol * :Propanol,\!r\!n\!t\!t\!t\!t:Ethanol * :Butanol,\!r\!n\!t\!t\!t\!t:Ethanol * :pH,\!r\!n\!t\!t\!t\!t:Ethanol * :Time,\!r\!n\!t\!t\!t\!t:Propanol * :Butanol,\!r\!n\!t\!t\!t\!t:Propanol * :pH,\!r\!n\!t\!t\!t\!t:Propanol * :Time,\!r\!n\!t\!t\!t\!t:Butanol * :pH,\!r\!n\!t\!t\!t\!t:Butanol * :Time,\!r\!n\!t\!t\!t\!t:pH * :Time\!r\!n\!t\!t\!t),\!r\!n\!t\!t\!tPersonality( \!"Stepwise\!" ),\!r\!n\!t\!t\!tRun( All Possible Models( 7, 5, Heredity Restriction( 1 ) ) ),\!r\!n\!t\!t\!tSendToReport(\!r\!n\!t\!t\!t\!tDispatch(\!r\!n\!t\!t\!t\!t\!t{},\!r\!n\!t\!t\!t\!t\!t\!"Stepwise Regression Control\!",\!r\!n\!t\!t\!t\!t\!tOutlineBox,\!r\!n\!t\!t\!t\!t\!t{Close( 1 )}\!r\!n\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!tDispatch( {}, \!"Current Estimates\!", OutlineBox, {Close( 1 )} )\!r\!n\!t\!t\!t)\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Best 6 term model\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tY( :Name( \!"Yield (mg)\!" ) ),\!r\!n\!t\!t\!tEffects(\!r\!n\!t\!t\!t\!t:Methanol,\!r\!n\!t\!t\!t\!t:Ethanol,\!r\!n\!t\!t\!t\!t:Propanol,\!r\!n\!t\!t\!t\!t:Time,\!r\!n\!t\!t\!t\!t:Time * :Methanol,\!r\!n\!t\!t\!t\!t:Time * :Propanol\!r\!n\!t\!t\!t),\!r\!n\!t\!t\!tPersonality( Standard Least Squares ),\!r\!n\!t\!t\!tEmphasis( Effect Screening ),\!r\!n\!t\!t\!tRun(\!r\!n\!t\!t\!t\!tProfiler(\!r\!n\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!tConfidence Intervals( 1 ),\!r\!n\!t\!t\!t\!t\!tDesirability Functions( 1 ),\!r\!n\!t\!t\!t\!t\!tName( \!"Yield (mg)\!" ) <<\!r\!n\!t\!t\!t\!t\!tResponse Limits(\!r\!n\!t\!t\!t\!t\!t\!t{Lower( 45, 0.066 ), Middle( 47.5, 0.5 ),\!r\!n\!t\!t\!t\!t\!t\!tUpper( 50, 0.9819 ), Goal( Maximize ), Importance( 1 )}\!r\!n\!t\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t\!tTerm Value(\!r\!n\!t\!t\!t\!t\!t\!tMethanol( 10 ),\!r\!n\!t\!t\!t\!t\!t\!tEthanol( 10 ),\!r\!n\!t\!t\!t\!t\!t\!tPropanol( 0 ),\!r\!n\!t\!t\!t\!t\!t\!tTime( 2 )\!r\!n\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t:Name( \!"Yield (mg)\!" ) << {Sorted Estimates( 1 ),\!r\!n\!t\!t\!t\!tPlot Actual by Predicted( 1 ), Plot Regression( 0 ),\!r\!n\!t\!t\!t\!tPlot Residual by Predicted( 0 ), Plot Effect Leverage( 0 )}\!r\!n\!t\!t\!t)\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Best 7 term model\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tY( :Name( \!"Yield (mg)\!" ) ),\!r\!n\!t\!t\!tEffects(\!r\!n\!t\!t\!t\!t:Methanol,\!r\!n\!t\!t\!t\!t:Ethanol,\!r\!n\!t\!t\!t\!t:Propanol,\!r\!n\!t\!t\!t\!t:Butanol,\!r\!n\!t\!t\!t\!t:pH,\!r\!n\!t\!t\!t\!t:Time,\!r\!n\!t\!t\!t\!t:Ethanol * :Propanol\!r\!n\!t\!t\!t),\!r\!n\!t\!t\!tPersonality( Standard Least Squares ),\!r\!n\!t\!t\!tEmphasis( Minimal Report ),\!r\!n\!t\!t\!tRun(\!r\!n\!t\!t\!t\!tProfiler(\!r\!n\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!tConfidence Intervals( 1 ),\!r\!n\!t\!t\!t\!t\!tDesirability Functions( 1 ),\!r\!n\!t\!t\!t\!t\!tName( \!"Yield (mg)\!" ) <<\!r\!n\!t\!t\!t\!t\!tResponse Limits(\!r\!n\!t\!t\!t\!t\!t\!t{Lower( 34.1025641025641, 0.0231111111111111 ),\!r\!n\!t\!t\!t\!t\!t\!tMiddle( 42.8205128205128, 0.5 ), Upper( 50, 0.9819 ),\!r\!n\!t\!t\!t\!t\!t\!tGoal( Maximize ), Importance( 1 )}\!r\!n\!t\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t\!tTerm Value(\!r\!n\!t\!t\!t\!t\!t\!tMethanol( 10 ),\!r\!n\!t\!t\!t\!t\!t\!tEthanol( 10 ),\!r\!n\!t\!t\!t\!t\!t\!tPropanol( 0 ),\!r\!n\!t\!t\!t\!t\!t\!tButanol( 10 ),\!r\!n\!t\!t\!t\!t\!t\!tpH( 6 ),\!r\!n\!t\!t\!t\!t\!t\!tTime( 2 )\!r\!n\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t:Name( \!"Yield (mg)\!" ) << {Lack of Fit( 0 ),\!r\!n\!t\!t\!t\!tPlot Actual by Predicted( 0 ), Plot Regression( 0 ),\!r\!n\!t\!t\!t\!tPlot Residual by Predicted( 0 ), Plot Effect Leverage( 0 )}\!r\!n\!t\!t\!t),\!r\!n\!t\!t\!tSendToReport(\!r\!n\!t\!t\!t\!tDispatch(\!r\!n\!t\!t\!t\!t\!t{\!"Response Yield (mg)\!", \!"Prediction Profiler\!"},\!r\!n\!t\!t\!t\!t\!t\!"10000\!",\!r\!n\!t\!t\!t\!t\!tScaleBox,\!r\!n\!t\!t\!t\!t\!t{Min( 21.7948717948718 ), Max( 61.7948717948718 ), Inc( 5 ),\!r\!n\!t\!t\!t\!t\!tMinor Ticks( 0 )}\!r\!n\!t\!t\!t\!t)\!r\!n\!t\!t\!t)\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Methanol\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 2 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {0, 10} ),\!r\!n\!t\!tSet Values( [0, 0, 0, 10, 0, 0, 10, 10, 10, 0, 10, 10] )\!r\!n\!t),\!r\!n\!tNew Column( \!"Ethanol\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 4 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {0, 10} ),\!r\!n\!t\!tSet Values( [0, 10, 10, 10, 0, 10, 10, 0, 0, 0, 10, 0] )\!r\!n\!t),\!r\!n\!tNew Column( \!"Propanol\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 4 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {0, 10} ),\!r\!n\!t\!tSet Values( [0, 0, 0, 10, 10, 10, 0, 0, 10, 10, 10, 0] )\!r\!n\!t),\!r\!n\!tNew Column( \!"Butanol\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 4 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {0, 10} ),\!r\!n\!t\!tSet Values( [10, 0, 10, 0, 0, 10, 0, 0, 10, 0, 10, 10] )\!r\!n\!t),\!r\!n\!tNew Column( \!"pH\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 4 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {6, 9} ),\!r\!n\!t\!tSet Values( [6, 9, 9, 6, 6, 6, 6, 9, 9, 9, 9, 6] )\!r\!n\!t),\!r\!n\!tNew Column( \!"Time\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 4 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {1, 2} ),\!r\!n\!t\!tSet Values( [1, 1, 2, 1, 2, 1, 2, 1, 1, 2, 2, 2] )\!r\!n\!t),\!r\!n\!tNew Column( \!"Yield (mg)\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property(\!r\!n\!t\!t\!t\!"Response Limits\!",\!r\!n\!t\!t\!t{Goal( Maximize ), Lower( 45 ), Importance( 1 ), Show Limits( 0 )}\!r\!n\!t\!t),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[10.94, 15.79, 25.96, 35.92, 22.92, 23.54, 47.44, 19.8, 29.48, 17.13,\!r\!n\!t\!t\!t43.75, 40.86]\!r\!n\!t\!t)\!r\!n\!t)\!r\!n)"),underlineStyle(true),style("underline"),), ButtonBox(title("Clean Up"),scriptText("current data table()<=\!r\!n\!t\!t-1.5}\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Optimized Settings\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tY( :Pull Strength ),\!r\!n\!t\!t\!tEffects(\!r\!n\!t\!t\!t\!t:Adhesive & RS,\!r\!n\!t\!t\!t\!t:Temperature & RS,\!r\!n\!t\!t\!t\!t:Adhesive * :Adhesive,\!r\!n\!t\!t\!t\!t:Adhesive * :Temperature,\!r\!n\!t\!t\!t\!t:Temperature * :Temperature\!r\!n\!t\!t\!t),\!r\!n\!t\!t\!tPersonality( \!"Standard Least Squares\!" ),\!r\!n\!t\!t\!tEmphasis( \!"Minimal Report\!" ),\!r\!n\!t\!t\!tRun(\!r\!n\!t\!t\!t\!tProfiler(\!r\!n\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!tConfidence Intervals( 1 ),\!r\!n\!t\!t\!t\!t\!tDesirability Functions( 0 ),\!r\!n\!t\!t\!t\!t\!tProfile at Boundary( \!"Stop at Boundaries\!" ),\!r\!n\!t\!t\!t\!t\!tPull Strength << Response Limits(\!r\!n\!t\!t\!t\!t\!t\!t{Lower( 170, 0.066 ), Middle( 187.5, 0.5 ),\!r\!n\!t\!t\!t\!t\!t\!tUpper( 205, 0.9819 ), Goal( \!"Maximize\!" ), Importance( 1 )}\!r\!n\!t\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t\!tTerm Value(\!r\!n\!t\!t\!t\!t\!t\!tAdhesive( -0.080031223036323, Lock( 0 ), Show( 1 ) ),\!r\!n\!t\!t\!t\!t\!t\!tTemperature( 0.576478181507986, Lock( 0 ), Show( 1 ) )\!r\!n\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!tContour Profiler(\!r\!n\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!tTerm Value(\!r\!n\!t\!t\!t\!t\!t\!tAdhesive( -0.080031223036323, Lock( 0 ), Show( 1 ) ),\!r\!n\!t\!t\!t\!t\!t\!tTemperature( 0.576478181507986, Lock( 0 ), Show( 1 ) )\!r\!n\!t\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t\!tContour Value( Pull Strength( 187.5, Min( 170 ), Max( 205 ) ) ),\!r\!n\!t\!t\!t\!t\!tGrid Density( \!"40 x 40\!" ),\!r\!n\!t\!t\!t\!t\!tContour Grid( 175, 200, 5, Pull Strength ),\!r\!n\!t\!t\!t\!t\!tHorizontal Factor( :Adhesive ),\!r\!n\!t\!t\!t\!t\!tVertical Factor( :Temperature )\!r\!n\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t:Pull Strength << {Summary of Fit( 1 ), Analysis of Variance( 1 ),\!r\!n\!t\!t\!t\!tParameter Estimates( 1 ), Scaled Estimates( 0 ),\!r\!n\!t\!t\!t\!tPlot Actual by Predicted( 1 ), Plot Regression( 0 ),\!r\!n\!t\!t\!t\!tPlot Residual by Predicted( 0 ), Plot Studentized Residuals( 0 ),\!r\!n\!t\!t\!t\!tPlot Effect Leverage( 1 ), Plot Residual by Normal Quantiles( 0 ),\!r\!n\!t\!t\!t\!tBox Cox Y Transformation( 0 ), Show All Confidence Intervals( 1 )}\!r\!n\!t\!t\!t),\!r\!n\!t\!t\!tSendToReport(\!r\!n\!t\!t\!t\!tDispatch(\!r\!n\!t\!t\!t\!t\!t{\!"Response Pull Strength\!", \!"Contour Profiler\!"},\!r\!n\!t\!t\!t\!t\!t\!"Contour Profiler Frame\!",\!r\!n\!t\!t\!t\!t\!tFrameBox,\!r\!n\!t\!t\!t\!t\!t{Add Graphics Script(\!r\!n\!t\!t\!t\!t\!t\!t2,\!r\!n\!t\!t\!t\!t\!t\!tDescription( \!"Script\!" ),\!r\!n\!t\!t\!t\!t\!t\!tLine( {0, 1}, {1, 0} );\!r\!n\!t\!t\!t\!t\!t\!tLine( {-1, -.5}, {-.5, -1} );\!r\!n\!t\!t\!t\!t\!t), Grid Line Order( 1 ), Reference Line Order( 3 )}\!r\!n\!t\!t\!t\!t)\!r\!n\!t\!t\!t)\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Adhesive\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {-1, 1} ),\!r\!n\!t\!tSet Values( [-0.5, 1, -0.08, -1, 1, 0, -1, 0.25, -1, 1, 0, -0.08] ),\!r\!n\!t\!tSet Display Width( 72 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Temperature\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {-1, 1} ),\!r\!n\!t\!tSet Values( [-1, 0, -0.08, 1, -1, 1, 0.25, -1, -0.5, 0, 1, -0.08] ),\!r\!n\!t\!tSet Display Width( 97 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Pull Strength\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Property(\!r\!n\!t\!t\!t\!"Response Limits\!",\!r\!n\!t\!t\!t{Goal( Maximize ), Importance( 1 ), Show Limits( 0 )}\!r\!n\!t\!t),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[173.9, 195.9, 201.2, 199.3, 190.3, 198.5, 190.5, 179.5, 176.7, 198.1,\!r\!n\!t\!t\!t200.5, 197.1]\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 81 )\!r\!n\!t)\!r\!n)"),underlineStyle(true),style("underline"),))), OutlineBox( open(0),title("Blocking Example - Chapter 8"),closeOrient(1),sub( ButtonBox(title("Factors Table"),scriptText("New Table( \!"FixedBlockFactorsTable\!",\!r\!n\!tAdd Rows( 8 ),\!r\!n\!tNew Table Variable( \!"Table Type\!", \!"DOE Factor Table\!" ),\!r\!n\!tNew Column( \!"Block\!",\!r\!n\!t\!tCharacter( 1 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Blocking ) ),\!r\!n\!t\!tSet Property( \!"RunsPerBlock\!", 4 ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Property(\!r\!n\!t\!t\!t\!"Value Order\!",\!r\!n\!t\!t\!t{Custom Order( {\!"1\!", \!"2\!", \!"3\!", \!"4\!", \!"5\!", \!"6\!", \!"7\!", \!"8\!"} )}\!r\!n\!t\!t),\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"1\!", \!"2\!", \!"3\!", \!"4\!", \!"5\!", \!"6\!", \!"7\!", \!"8\!"} ),\!r\!n\!t\!tSet Values( {\!"1\!", \!"2\!", \!"3\!", \!"4\!", \!"5\!", \!"6\!", \!"7\!", \!"8\!"} ),\!r\!n\!t\!tSet Display Width( 52 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Boundedness\!",\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Property( \!"Value Order\!", {Custom Order( {\!"Complex\!", \!"Free\!"} )} ),\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"Complex\!", \!"Free\!"} ),\!r\!n\!t\!tSet Values( {\!"Complex\!", \!"Free\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!"} ),\!r\!n\!t\!tSet Display Width( 104 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Oil Red O\!",\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Property( \!"Value Order\!", {Custom Order( {\!"In\!", \!"Out\!"} )} ),\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"In\!", \!"Out\!"} ),\!r\!n\!t\!tSet Values( {\!"In\!", \!"Out\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!"} ),\!r\!n\!t\!tSet Display Width( 80 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Oxybenzone\!",\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Property( \!"Value Order\!", {Custom Order( {\!"In\!", \!"Out\!"} )} ),\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"In\!", \!"Out\!"} ),\!r\!n\!t\!tSet Values( {\!"In\!", \!"Out\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!"} ),\!r\!n\!t\!tSet Display Width( 102 )\!r\!n\!t),\!r\!n\!tNew Column( \!"beta Carotene\!",\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Property( \!"Value Order\!", {Custom Order( {\!"In\!", \!"Out\!"} )} ),\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"In\!", \!"Out\!"} ),\!r\!n\!t\!tSet Values( {\!"In\!", \!"Out\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!"} ),\!r\!n\!t\!tSet Display Width( 90 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Sulisobenzone\!",\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Property( \!"Value Order\!", {Custom Order( {\!"In\!", \!"Out\!"} )} ),\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"In\!", \!"Out\!"} ),\!r\!n\!t\!tSet Values( {\!"In\!", \!"Out\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!"} ),\!r\!n\!t\!tSet Display Width( 110 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Deoxybenzone\!",\!r\!n\!t\!tCharacter,\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Property( \!"Value Order\!", {Custom Order( {\!"In\!", \!"Out\!"} )} ),\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"In\!", \!"Out\!"} ),\!r\!n\!t\!tSet Values( {\!"In\!", \!"Out\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!", \!"\!"} ),\!r\!n\!t\!tSet Display Width( 122 )\!r\!n\!t)\!r\!n)"),underlineStyle(true),style("underline"),), ButtonBox(title("Stability Data"),scriptText("New Table( \!"StabilityData\!",\!r\!n\!tAdd Rows( 32 ),\!r\!n\!tNew Table Variable( \!"Design\!", \!"Custom Design\!" ),\!r\!n\!tNew Table Variable( \!"Criterion\!", \!"D Optimal\!" ),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Model\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tEffects(\!r\!n\!t\!t\!t\!t:Boundedness,\!r\!n\!t\!t\!t\!t:Oil Red O,\!r\!n\!t\!t\!t\!t:Oxybenzone,\!r\!n\!t\!t\!t\!t:beta Carotene,\!r\!n\!t\!t\!t\!t:Sulisobenzone,\!r\!n\!t\!t\!t\!t:Deoxybenzone,\!r\!n\!t\!t\!t\!t:Block,\!r\!n\!t\!t\!t\!t:Boundedness * :Oil Red O,\!r\!n\!t\!t\!t\!t:Boundedness * :Oxybenzone,\!r\!n\!t\!t\!t\!t:Boundedness * :beta Carotene,\!r\!n\!t\!t\!t\!t:Boundedness * :Sulisobenzone,\!r\!n\!t\!t\!t\!t:Boundedness * :Deoxybenzone,\!r\!n\!t\!t\!t\!t:Oil Red O * :Oxybenzone,\!r\!n\!t\!t\!t\!t:Oil Red O * :beta Carotene,\!r\!n\!t\!t\!t\!t:Oil Red O * :Sulisobenzone,\!r\!n\!t\!t\!t\!t:Oil Red O * :Deoxybenzone,\!r\!n\!t\!t\!t\!t:Oxybenzone * :beta Carotene,\!r\!n\!t\!t\!t\!t:Oxybenzone * :Sulisobenzone,\!r\!n\!t\!t\!t\!t:Oxybenzone * :Deoxybenzone,\!r\!n\!t\!t\!t\!t:beta Carotene * :Sulisobenzone,\!r\!n\!t\!t\!t\!t:beta Carotene * :Deoxybenzone,\!r\!n\!t\!t\!t\!t:Sulisobenzone * :Deoxybenzone\!r\!n\!t\!t\!t),\!r\!n\!t\!t\!tY( :Stability Ratio )\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Design Matrix\!",\!r\!n\!t\!t::X = [1 1 1 1 1 -1 1 2 -1.15470053837925 -0.816496580927726\!r\!n\!t\!t-0.632455532033676 -0.516397779494322 -0.436435780471985 -0.377964473009227\!r\!n\!t\!t1 1 1 -1 1 1 1 -1 1 1 -1 1 -1 1 -1,\!r\!n\!t\!t1 -1 -1 1 1 1 1 2 -1.15470053837925 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t-0.516397779494322 -0.436435780471985 -0.377964473009227 1 -1 -1 -1 -1 -1 -1\!r\!n\!t\!t -1 -1 1 1 1 1 1 1,\!r\!n\!t\!t1 -1 -1 1 -1 -1 1 2 -1.15470053837925 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t -0.516397779494322 -0.436435780471985 -0.377964473009227 1 -1 1 1 -1 -1 1 1\!r\!n\!t\!t -1 -1 -1 1 1 -1 -1,\!r\!n\!t\!t1 -1 1 -1 1 -1 -1 2 -1.15470053837925 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t -0.516397779494322 -0.436435780471985 -0.377964473009227 -1 1 -1 1 1 -1 1\!r\!n\!t\!t -1 -1 -1 1 1 -1 -1 1,\!r\!n\!t\!t1 1 1 -1 -1 1 -1 0 2.3094010767585 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t-0.516397779494322 -0.436435780471985 -0.377964473009227 1 -1 -1 1 -1 -1 -1\!r\!n\!t\!t1 -1 1 -1 1 -1 1 -1,\!r\!n\!t\!t1 -1 -1 -1 -1 -1 -1 0 2.3094010767585 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t -0.516397779494322 -0.436435780471985 -0.377964473009227 1 1 1 1 1 1 1 1 1\!r\!n\!t\!t1 1 1 1 1 1,\!r\!n\!t\!t1 1 1 -1 -1 -1 1 0 2.3094010767585 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t-0.516397779494322 -0.436435780471985 -0.377964473009227 1 -1 -1 -1 1 -1 -1\!r\!n\!t\!t -1 1 1 1 -1 1 -1 -1,\!r\!n\!t\!t1 -1 1 -1 1 1 1 0 2.3094010767585 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t-0.516397779494322 -0.436435780471985 -0.377964473009227 -1 1 -1 -1 -1 -1 1\!r\!n\!t\!t1 1 -1 -1 -1 1 1 1,\!r\!n\!t\!t1 -1 1 1 1 1 -1 0 0 2.44948974278318 -0.632455532033676 -0.516397779494322\!r\!n\!t\!t -0.436435780471985 -0.377964473009227 -1 -1 -1 -1 1 1 1 1 -1 1 1 -1 1 -1 -1,\!r\!n\!t\!t1 -1 -1 -1 1 -1 1 0 0 2.44948974278318 -0.632455532033676 -0.516397779494322\!r\!n\!t\!t -0.436435780471985 -0.377964473009227 1 1 -1 1 -1 1 -1 1 -1 -1 1 -1 -1 1 -1,\!r\!n\!t\!t1 1 1 -1 1 1 1 0 0 2.44948974278318 -0.632455532033676 -0.516397779494322\!r\!n\!t\!t-0.436435780471985 -0.377964473009227 1 -1 1 1 1 -1 1 1 1 -1 -1 -1 1 1 1,\!r\!n\!t\!t1 1 -1 1 1 -1 -1 0 0 2.44948974278318 -0.632455532033676 -0.516397779494322\!r\!n\!t\!t -0.436435780471985 -0.377964473009227 -1 1 1 -1 -1 -1 -1 1 1 1 -1 -1 -1 -1\!r\!n\!t\!t1,\!r\!n\!t\!t1 -1 -1 1 -1 1 -1 0 0 0 2.5298221281347 -0.516397779494322\!r\!n\!t\!t-0.436435780471985 -0.377964473009227 1 -1 1 -1 1 -1 1 -1 1 -1 1 -1 -1 1 -1,\!r\!n\!t\!t1 1 -1 -1 1 1 -1 0 0 0 2.5298221281347 -0.516397779494322 -0.436435780471985\!r\!n\!t\!t -0.377964473009227 -1 -1 1 1 -1 1 -1 -1 1 -1 -1 1 1 -1 -1,\!r\!n\!t\!t1 1 1 1 -1 -1 -1 0 0 0 2.5298221281347 -0.516397779494322 -0.436435780471985\!r\!n\!t\!t -0.377964473009227 1 1 -1 -1 -1 1 -1 -1 -1 -1 -1 -1 1 1 1,\!r\!n\!t\!t1 1 -1 1 1 1 1 0 0 0 2.5298221281347 -0.516397779494322 -0.436435780471985\!r\!n\!t\!t -0.377964473009227 -1 1 1 1 1 -1 -1 -1 -1 1 1 1 1 1 1,\!r\!n\!t\!t1 -1 1 -1 -1 -1 1 0 0 0 0 2.58198889747161 -0.436435780471985\!r\!n\!t\!t-0.377964473009227 -1 1 1 1 -1 -1 -1 -1 1 1 1 -1 1 -1 -1,\!r\!n\!t\!t1 -1 -1 -1 1 1 -1 0 0 0 0 2.58198889747161 -0.436435780471985\!r\!n\!t\!t-0.377964473009227 1 1 -1 -1 1 1 -1 -1 1 -1 -1 1 1 -1 -1,\!r\!n\!t\!t1 1 -1 -1 -1 1 1 0 0 0 0 2.58198889747161 -0.436435780471985\!r\!n\!t\!t-0.377964473009227 -1 -1 -1 1 1 1 1 -1 -1 1 -1 -1 -1 -1 1,\!r\!n\!t\!t1 1 1 -1 1 -1 -1 0 0 0 0 2.58198889747161 -0.436435780471985\!r\!n\!t\!t-0.377964473009227 1 -1 1 -1 -1 -1 1 -1 -1 -1 1 1 -1 -1 1,\!r\!n\!t\!t1 1 -1 1 -1 1 -1 0 0 0 0 0 2.61861468283191 -0.377964473009227 -1 1 -1 1 -1\!r\!n\!t\!t -1 1 -1 1 -1 1 -1 -1 1 -1,\!r\!n\!t\!t1 -1 1 1 -1 1 1 0 0 0 0 0 2.61861468283191 -0.377964473009227 -1 -1 1 -1 -1\!r\!n\!t\!t1 -1 1 1 -1 1 1 -1 -1 1,\!r\!n\!t\!t1 -1 1 -1 -1 1 -1 0 0 0 0 0 2.61861468283191 -0.377964473009227 -1 1 1 -1 1\!r\!n\!t\!t -1 -1 1 -1 1 -1 1 -1 1 -1,\!r\!n\!t\!t1 -1 -1 1 1 -1 -1 0 0 0 0 0 2.61861468283191 -0.377964473009227 1 -1 -1 1 1\!r\!n\!t\!t -1 -1 1 1 1 -1 -1 -1 -1 1,\!r\!n\!t\!t1 1 1 1 -1 1 1 0 0 0 0 0 0 2.64575131106459 1 1 -1 1 1 1 -1 1 1 -1 1 1 -1 -1\!r\!n\!t\!t1,\!r\!n\!t\!t1 1 -1 -1 1 -1 1 0 0 0 0 0 0 2.64575131106459 -1 -1 1 -1 1 1 -1 1 -1 -1 1 -1\!r\!n\!t\!t -1 1 -1,\!r\!n\!t\!t1 -1 1 1 1 -1 1 0 0 0 0 0 0 2.64575131106459 -1 -1 -1 1 -1 1 1 -1 1 1 -1 1\!r\!n\!t\!t -1 1 -1,\!r\!n\!t\!t1 -1 -1 -1 -1 1 1 0 0 0 0 0 0 2.64575131106459 1 1 1 -1 -1 1 1 -1 -1 1 -1 -1\!r\!n\!t\!t -1 -1 1,\!r\!n\!t\!t1 -1 1 1 -1 -1 -1 -2 -1.15470053837925 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t -0.516397779494322 -0.436435780471985 -0.377964473009227 -1 -1 1 1 1 1 -1\!r\!n\!t\!t -1 -1 -1 -1 -1 1 1 1,\!r\!n\!t\!t1 1 -1 1 -1 -1 1 -2 -1.15470053837925 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t -0.516397779494322 -0.436435780471985 -0.377964473009227 -1 1 -1 -1 1 -1 1\!r\!n\!t\!t1 -1 -1 -1 1 1 -1 -1,\!r\!n\!t\!t1 1 -1 -1 -1 -1 -1 -2 -1.15470053837925 -0.816496580927726\!r\!n\!t\!t-0.632455532033676 -0.516397779494322 -0.436435780471985 -0.377964473009227\!r\!n\!t\!t -1 -1 -1 -1 -1 1 1 1 1 1 1 1 1 1 1,\!r\!n\!t\!t1 1 1 1 1 1 -1 -2 -1.15470053837925 -0.816496580927726 -0.632455532033676\!r\!n\!t\!t-0.516397779494322 -0.436435780471985 -0.377964473009227 1 1 1 1 -1 1 1 1 -1\!r\!n\!t\!t1 1 -1 1 -1 -1];\!r\!n\!t\!tShow( N Row( ::X ) );\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Fixed Blocks Model\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tY( :Stability Ratio ),\!r\!n\!t\!t\!tEffects(\!r\!n\!t\!t\!t\!t:Boundedness,\!r\!n\!t\!t\!t\!t:Oil Red O,\!r\!n\!t\!t\!t\!t:Sulisobenzone,\!r\!n\!t\!t\!t\!t:Deoxybenzone,\!r\!n\!t\!t\!t\!t:Block,\!r\!n\!t\!t\!t\!t:Boundedness * :Oil Red O\!r\!n\!t\!t\!t),\!r\!n\!t\!t\!tPersonality( Standard Least Squares ),\!r\!n\!t\!t\!tEmphasis( Effect Leverage ),\!r\!n\!t\!t\!tRun Model(\!r\!n\!t\!t\!t\!t:Y << {Lack of Fit( 0 ), Plot Actual by Predicted( 0 ),\!r\!n\!t\!t\!t\!tPlot Regression( 0 ), Plot Residual by Predicted( 0 ),\!r\!n\!t\!t\!t\!tPlot Effect Leverage( 0 )}\!r\!n\!t\!t\!t)\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Block\!",\!r\!n\!t\!tCharacter( 1 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"RunsPerBlock\!", 4 ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Blocking ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Property(\!r\!n\!t\!t\!t\!"Value Order\!",\!r\!n\!t\!t\!t{Custom Order( {\!"1\!", \!"2\!", \!"3\!", \!"4\!", \!"5\!", \!"6\!", \!"7\!", \!"8\!"} )}\!r\!n\!t\!t),\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"1\!", \!"2\!", \!"3\!", \!"4\!", \!"5\!", \!"6\!", \!"7\!", \!"8\!"} ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"1\!", \!"1\!", \!"1\!", \!"1\!", \!"2\!", \!"2\!", \!"2\!", \!"2\!", \!"3\!", \!"3\!", \!"3\!", \!"3\!", \!"4\!", \!"4\!",\!r\!n\!t\!t\!t\!"4\!", \!"4\!", \!"5\!", \!"5\!", \!"5\!", \!"5\!", \!"6\!", \!"6\!", \!"6\!", \!"6\!", \!"7\!", \!"7\!", \!"7\!", \!"7\!",\!r\!n\!t\!t\!t\!"8\!", \!"8\!", \!"8\!", \!"8\!"}\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 52 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Boundedness\!",\!r\!n\!t\!tCharacter( 7 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Coding\!", {-1, 1} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"Complex\!", \!"Free\!", \!"Free\!", \!"Free\!", \!"Complex\!", \!"Free\!", \!"Complex\!", \!"Free\!",\!r\!n\!t\!t\!t\!"Free\!", \!"Free\!", \!"Complex\!", \!"Complex\!", \!"Free\!", \!"Complex\!", \!"Complex\!",\!r\!n\!t\!t\!t\!"Complex\!", \!"Free\!", \!"Free\!", \!"Complex\!", \!"Complex\!", \!"Complex\!", \!"Free\!",\!r\!n\!t\!t\!t\!"Free\!", \!"Free\!", \!"Complex\!", \!"Complex\!", \!"Free\!", \!"Free\!", \!"Free\!", \!"Complex\!",\!r\!n\!t\!t\!t\!"Complex\!", \!"Complex\!"}\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 109 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Oil Red O\!",\!r\!n\!t\!tCharacter( 3 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Coding\!", {-1, 1} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"In\!", \!"Out\!", \!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!",\!r\!n\!t\!t\!t\!"Out\!", \!"Out\!", \!"Out\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!", \!"In\!", \!"Out\!", \!"In\!",\!r\!n\!t\!t\!t\!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!", \!"In\!"}\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 94 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Oxybenzone\!",\!r\!n\!t\!tCharacter( 3 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Coding\!", {-1, 1} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"In\!", \!"In\!", \!"In\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!",\!r\!n\!t\!t\!t\!"In\!", \!"In\!", \!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"In\!", \!"In\!",\!r\!n\!t\!t\!t\!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!"}\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 99 )\!r\!n\!t),\!r\!n\!tNew Column( \!"beta Carotene\!",\!r\!n\!t\!tCharacter( 3 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Coding\!", {-1, 1} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"In\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"In\!", \!"In\!", \!"In\!", \!"In\!",\!r\!n\!t\!t\!t\!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!",\!r\!n\!t\!t\!t\!"Out\!", \!"In\!", \!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"In\!"}\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 111 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Sulisobenzone\!",\!r\!n\!t\!tCharacter( 3 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Coding\!", {-1, 1} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"Out\!", \!"In\!", \!"Out\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!",\!r\!n\!t\!t\!t\!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!", \!"In\!",\!r\!n\!t\!t\!t\!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"In\!"}\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 116 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Deoxybenzone\!",\!r\!n\!t\!tCharacter( 3 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Coding\!", {-1, 1} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", Design Role( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"In\!", \!"In\!", \!"In\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!", \!"In\!",\!r\!n\!t\!t\!t\!"Out\!", \!"Out\!", \!"Out\!", \!"Out\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!", \!"In\!",\!r\!n\!t\!t\!t\!"Out\!", \!"Out\!", \!"In\!", \!"In\!", \!"In\!", \!"In\!", \!"Out\!", \!"In\!", \!"Out\!", \!"Out\!"}\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 116 )\!r\!n\!t),\!r\!n\!tNew Column( \!"Stability Ratio\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Property(\!r\!n\!t\!t\!t\!"Response Limits\!",\!r\!n\!t\!t\!t{Goal( Maximize ), Lower( . ), Upper( . ), Importance( . )}\!r\!n\!t\!t),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[237, 42, 29, 72, 229, 11, 235, 89, 76, 18, 246, 23, 29, 44, 228, 46, 83,\!r\!n\!t\!t\!t30, 60, 228, 39, 92, 76, 7, 240, 38, 74, 24, 65, 34, 24, 237]\!r\!n\!t\!t),\!r\!n\!t\!tSet Display Width( 87 )\!r\!n\!t)\!r\!n)"),underlineStyle(true),style("underline"),))), OutlineBox( open(0),title("Covariate Factors Known in Advance - Chapter 9"),sub( ButtonBox(title("Covariate Information from Polypropylene Supplier"),scriptText("New Table( \!"PolypropyleneCovariates\!",\!r\!n\!tAdd Rows( 40 ),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Graph Builder\!",\!r\!n\!t\!tGraph Builder(\!r\!n\!t\!t\!tShow Control Panel( 0 ),\!r\!n\!t\!t\!tVariables( X( :EPDM ), Y( :PP ), Wrap( :Color ) ),\!r\!n\!t\!t\!tElements( Points( X, Y, Legend( 1 ), Jitter( 1 ) ) ),\!r\!n\!t\!t\!tSendToReport(\!r\!n\!t\!t\!t\!tDispatch( {}, \!"graph title\!", TextEditBox, {Set Text( \!"\!" )} )\!r\!n\!t\!t\!t)\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"EPDM\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[0.01, 0.01, 0.02, 0.03, 0.03, 0.04, 0.04, 0.04, 0.07, 0.07, 0.08, 0.09,\!r\!n\!t\!t\!t0.09, 0.09, 0.1, 0.1, 0.1, 0.01, 0.01, 0.01, 0.02, 0.03, 0.04, 0.04,\!r\!n\!t\!t\!t0.04, 0.04, 0.04, 0.04, 0.04, 0.05, 0.06, 0.07, 0.07, 0.07, 0.08, 0.08,\!r\!n\!t\!t\!t0.09, 0.09, 0.09, 0.1]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"PP\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 12 ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[0.14, 0.11, 0.07, 0.07, 0.08, 0, 0.07, 0.08, 0.03, 0.04, 0.09, 0.15,\!r\!n\!t\!t\!t0.02, 0.09, 0.09, 0.12, 0.04, 0.06, 0.09, 0.02, 0.07, 0.11, 0, 0.06,\!r\!n\!t\!t\!t0.09, 0.08, 0.06, 0.02, 0.03, 0.14, 0.09, 0.02, 0.05, 0.07, 0.1, 0.12,\!r\!n\!t\!t\!t0.12, 0.02, 0.1, 0.13]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Color\!",\!r\!n\!t\!tCharacter( 4 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!",\!r\!n\!t\!t\!t\!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"none\!", \!"none\!", \!"none\!",\!r\!n\!t\!t\!t\!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!",\!r\!n\!t\!t\!t\!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"none\!",\!r\!n\!t\!t\!t\!"none\!", \!"none\!"}\!r\!n\!t\!t)\!r\!n\!t)\!r\!n)"),underlineStyle(true),style("underline"),), ButtonBox(title("Design Script"),scriptText("DOE(\!r\!n\!tCustom Design,\!r\!n\!t{Add Response( Maximize, \!"Y\!", ., ., . ), Add Factor( Covariate, EPDM, 0 ),\!r\!n\!tAdd Factor( Covariate, PP, 0 ), Add Factor( Covariate, Color, 0 ),\!r\!n\!tAdd Factor( Continuous, 1000, 2000, \!"Flow Rate\!", 0 ),\!r\!n\!tAdd Factor( Continuous, 500, 2000, \!"Power\!", 0 ),\!r\!n\!tAdd Factor( Continuous, 2, 15, \!"Time\!", 0 ),\!r\!n\!tAdd Factor( Categorical, {\!"actgas1\!", \!"actgas2\!", \!"etsgas\!"}, \!"Gas Type\!", 0 ),\!r\!n\!tSet Random Seed( 1473476225 ), Add Term( {1, 0} ), Add Term( {1, 1} ),\!r\!n\!tAdd Term( {2, 1} ), Add Term( {3, 1} ), Add Term( {4, 1} ), Add Term( {5, 1} ),\!r\!n\!tAdd Term( {6, 1} ), Add Term( {7, 1} ), Add Alias Term( {1, 1}, {2, 1} ),\!r\!n\!tAdd Alias Term( {1, 1}, {3, 1} ), Add Alias Term( {1, 1}, {4, 1} ),\!r\!n\!tAdd Alias Term( {1, 1}, {5, 1} ), Add Alias Term( {1, 1}, {6, 1} ),\!r\!n\!tAdd Alias Term( {1, 1}, {7, 1} ), Add Alias Term( {2, 1}, {3, 1} ),\!r\!n\!tAdd Alias Term( {2, 1}, {4, 1} ), Add Alias Term( {2, 1}, {5, 1} ),\!r\!n\!tAdd Alias Term( {2, 1}, {6, 1} ), Add Alias Term( {2, 1}, {7, 1} ),\!r\!n\!tAdd Alias Term( {3, 1}, {4, 1} ), Add Alias Term( {3, 1}, {5, 1} ),\!r\!n\!tAdd Alias Term( {3, 1}, {6, 1} ), Add Alias Term( {3, 1}, {7, 1} ),\!r\!n\!tAdd Alias Term( {4, 1}, {5, 1} ), Add Alias Term( {4, 1}, {6, 1} ),\!r\!n\!tAdd Alias Term( {4, 1}, {7, 1} ), Add Alias Term( {5, 1}, {6, 1} ),\!r\!n\!tAdd Alias Term( {5, 1}, {7, 1} ), Add Alias Term( {6, 1}, {7, 1} ),\!r\!n\!tSet Sample Size( 40 )}\!r\!n);\!r\!n"),underlineStyle(true),style("underline"),), ButtonBox(title("Design Using Covariate Information"),scriptText("New Table( \!"CovariateDesign\!",\!r\!n\!tAdd Rows( 18 ),\!r\!n\!tNew Table Variable( \!"Design\!", \!"Custom Design\!" ),\!r\!n\!tNew Table Variable( \!"Criterion\!", \!"D Optimal\!" ),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Screening\!",\!r\!n\!t\!tScreening(\!r\!n\!t\!t\!tY( :Y ),\!r\!n\!t\!t\!tX( :EPDM, :PP, :Color, :Flow Rate, :Power, :Time, :Gas Type )\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Model\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tEffects( :EPDM, :PP, :Color, :Flow Rate, :Power, :Time, :Gas Type ),\!r\!n\!t\!t\!tY( :Surface Tension )\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Moments Matrix\!",\!r\!n\!t\!tMoments = [1 0 0 0 0 0 0 0 0,\!r\!n\!t\!t0 0.333333333333333 0 0 0 0 0 0 0,\!r\!n\!t\!t0 0 0.333333333333333 0 0 0 0 0 0,\!r\!n\!t\!t0 0 0 1 0 0 0 0 0,\!r\!n\!t\!t0 0 0 0 0.333333333333333 0 0 0 0,\!r\!n\!t\!t0 0 0 0 0 0.333333333333333 0 0 0,\!r\!n\!t\!t0 0 0 0 0 0 0.333333333333333 0 0,\!r\!n\!t\!t0 0 0 0 0 0 0 1 0,\!r\!n\!t\!t0 0 0 0 0 0 0 0 1];\!r\!n\!t\!tShow( N Row( Moments ) );\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Design Matrix\!",\!r\!n\!t\!tX = [1 -1 0.866666666666667 1 1 1 -1 0 1.4142135623731,\!r\!n\!t\!t1 1 0.733333333333334 -1 -1 1 -1 1.22474487139159 -0.707106781186548,\!r\!n\!t\!t1 -1 -0.733333333333333 -1 -1 1 -1 0 1.4142135623731,\!r\!n\!t\!t1 0.777777777777778 -0.733333333333333 -1 -1 1 -1 1.22474487139159\!r\!n\!t\!t-0.707106781186548,\!r\!n\!t\!t1 -0.333333333333333 -1 1 1 -1 -1 1.22474487139159 -0.707106781186548,\!r\!n\!t\!t1 0.777777777777778 1 1 -1 -1 -1 -1.22474487139159 -0.707106781186548,\!r\!n\!t\!t1 -1 0.466666666666667 1 -1 -1 1 1.22474487139159 -0.707106781186548,\!r\!n\!t\!t1 0.777777777777778 -0.733333333333333 1 -1 1 1 0 1.4142135623731,\!r\!n\!t\!t1 1 -0.466666666666667 1 1 -1 1 -1.22474487139159 -0.707106781186548,\!r\!n\!t\!t1 -0.333333333333333 -1 -1 -1 -1 -1 -1.22474487139159 -0.707106781186548,\!r\!n\!t\!t1 -0.111111111111111 0.866666666666667 -1 -1 -1 1 0 1.4142135623731,\!r\!n\!t\!t1 0.777777777777778 0.6 -1 1 1 1 -1.22474487139159 -0.707106781186548,\!r\!n\!t\!t1 -1 0.2 -1 1 -1 1 1.22474487139159 -0.707106781186548,\!r\!n\!t\!t1 1 0.6 1 1 -1 -1 0 1.4142135623731,\!r\!n\!t\!t1 -0.777777777777778 -0.0666666666666666 1 -1 1 1 -1.22474487139159\!r\!n\!t\!t-0.707106781186548,\!r\!n\!t\!t1 1 0.2 1 1 1 1 1.22474487139159 -0.707106781186548,\!r\!n\!t\!t1 0.333333333333333 -0.733333333333333 -1 1 -1 1 0 1.4142135623731,\!r\!n\!t\!t1 -1 -0.2 -1 1 1 -1 -1.22474487139159 -0.707106781186548];\!r\!n\!t\!tShow( N Row( X ) );\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"DOE Dialog\!",\!r\!n\!t\!tDOE(\!r\!n\!t\!t\!tCustom Design,\!r\!n\!t\!t\!t{Add Response( Maximize, \!"Yp\!", ., ., . ), Add Factor, Add Factor,\!r\!n\!t\!t\!tAdd Factor, Add Factor( Continuous, 1000, 2000, \!"Flow Rate\!", 0 ),\!r\!n\!t\!t\!tAdd Factor( Continuous, 500, 2000, \!"Power\!", 0 ),\!r\!n\!t\!t\!tAdd Factor( Continuous, 2, 15, \!"Time\!", 0 ),\!r\!n\!t\!t\!tAdd Factor(\!r\!n\!t\!t\!t\!tCategorical,\!r\!n\!t\!t\!t\!t{\!"etsgas\!", \!"actgas1\!", \!"actgas2\!"},\!r\!n\!t\!t\!t\!t\!"Gas Type\!",\!r\!n\!t\!t\!t\!t0\!r\!n\!t\!t\!t), Set Random Seed( 1473476225 ), Number of Starts( 1000 ),\!r\!n\!t\!t\!tAdd Term( {1, 0} ), Add Term( {1, 1} ), Add Term( {2, 1} ),\!r\!n\!t\!t\!tAdd Term( {3, 1} ), Add Term( {4, 1} ), Add Term( {5, 1} ),\!r\!n\!t\!t\!tAdd Term( {6, 1} ), Add Term( {7, 1} ), Set Sample Size( 18 ),\!r\!n\!t\!t\!tMake Design, Make Table}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Script(\!r\!n\!t\!t\!"Fit Model\!",\!r\!n\!t\!tFit Model(\!r\!n\!t\!t\!tY( :Surface Tension ),\!r\!n\!t\!t\!tEffects( :EPDM, :PP, :Color, :Flow Rate, :Power, :Time, :Gas Type ),\!r\!n\!t\!t\!tPersonality( Standard Least Squares ),\!r\!n\!t\!t\!tEmphasis( Effect Screening ),\!r\!n\!t\!t\!tRun(\!r\!n\!t\!t\!t\!tProfiler(\!r\!n\!t\!t\!t\!t\!t1,\!r\!n\!t\!t\!t\!t\!tConfidence Intervals( 1 ),\!r\!n\!t\!t\!t\!t\!tTerm Value(\!r\!n\!t\!t\!t\!t\!t\!tEPDM( 0.1, Min( 0.01 ) ),\!r\!n\!t\!t\!t\!t\!t\!tPP( 0 ),\!r\!n\!t\!t\!t\!t\!t\!tColor( \!"EVA\!" ),\!r\!n\!t\!t\!t\!t\!t\!tFlow Rate( 1000 ),\!r\!n\!t\!t\!t\!t\!t\!tPower( 2000 ),\!r\!n\!t\!t\!t\!t\!t\!tTime( 15 ),\!r\!n\!t\!t\!t\!t\!t\!tGas Type( \!"etsgas\!" )\!r\!n\!t\!t\!t\!t\!t)\!r\!n\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!t:Surface Tension << {Lack of Fit( 0 ), Sorted Estimates( 0 ),\!r\!n\!t\!t\!t\!tScaled Estimates( 1 ), Plot Actual by Predicted( 1 ),\!r\!n\!t\!t\!t\!tPlot Regression( 0 ), Plot Residual by Predicted( 0 ),\!r\!n\!t\!t\!t\!tPlot Effect Leverage( 0 )}\!r\!n\!t\!t\!t),\!r\!n\!t\!t\!tSendToReport(\!r\!n\!t\!t\!t\!tDispatch(\!r\!n\!t\!t\!t\!t\!t{\!"Response Surface Tension\!", \!"Actual by Predicted Plot\!"},\!r\!n\!t\!t\!t\!t\!t\!"2\!",\!r\!n\!t\!t\!t\!t\!tScaleBox,\!r\!n\!t\!t\!t\!t\!t{Min( -10 ), Max( 51.3461538461539 ), Inc( 10 ),\!r\!n\!t\!t\!t\!t\!tMinor Ticks( 1 )}\!r\!n\!t\!t\!t\!t),\!r\!n\!t\!t\!t\!tDispatch(\!r\!n\!t\!t\!t\!t\!t{\!"Response Surface Tension\!", \!"Prediction Profiler\!"},\!r\!n\!t\!t\!t\!t\!t\!"10000\!",\!r\!n\!t\!t\!t\!t\!tScaleBox,\!r\!n\!t\!t\!t\!t\!t{Min( -10 ), Max( 51.3461538461539 ), Inc( 10 ),\!r\!n\!t\!t\!t\!t\!tMinor Ticks( 1 )}\!r\!n\!t\!t\!t\!t)\!r\!n\!t\!t\!t)\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"EPDM\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {0.01, 0.1} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Covariate ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[0.01, 0.1, 0.01, 0.09, 0.04, 0.09, 0.01, 0.09, 0.1, 0.04, 0.05, 0.09,\!r\!n\!t\!t\!t0.01, 0.1, 0.02, 0.1, 0.07, 0.01]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"PP\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {0, 0.15} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Covariate ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[0.14, 0.13, 0.02, 0.02, 0, 0.15, 0.11, 0.02, 0.04, 0, 0.14, 0.12, 0.09,\!r\!n\!t\!t\!t0.12, 0.07, 0.09, 0.02, 0.06]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Color\!",\!r\!n\!t\!tCharacter( 4 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Covariate ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"EVA\!", \!"none\!", \!"none\!", \!"none\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"EVA\!",\!r\!n\!t\!t\!t\!"none\!", \!"none\!", \!"none\!", \!"none\!", \!"EVA\!", \!"EVA\!", \!"EVA\!", \!"none\!", \!"none\!"}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Flow Rate\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {1000, 2000} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Continuous ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[2000, 1000, 1000, 1000, 2000, 1000, 1000, 1000, 2000, 1000, 1000, 2000,\!r\!n\!t\!t\!t2000, 2000, 1000, 2000, 2000, 2000]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Power\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {500, 2000} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Continuous ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[2000, 2000, 2000, 2000, 500, 500, 500, 2000, 500, 500, 500, 2000, 500,\!r\!n\!t\!t\!t500, 2000, 2000, 500, 2000]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Time\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Property( \!"Coding\!", {2, 15} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Continuous ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[2, 2, 2, 2, 2, 2, 15, 15, 15, 2, 15, 15, 15, 2, 15, 15, 15, 2]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Gas Type\!",\!r\!n\!t\!tCharacter( 7 ),\!r\!n\!t\!t\!"Nominal\!",\!r\!n\!t\!tSet Property( \!"Value Ordering\!", {\!"etsgas\!", \!"act gas1\!", \!"act gas 2\!"} ),\!r\!n\!t\!tSet Property( \!"Design Role\!", DesignRole( Categorical ) ),\!r\!n\!t\!tSet Property( \!"Factor Changes\!", Easy ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t{\!"actgas1\!", \!"etsgas\!", \!"actgas1\!", \!"etsgas\!", \!"etsgas\!", \!"actgas2\!", \!"etsgas\!",\!r\!n\!t\!t\!t\!"actgas1\!", \!"actgas2\!", \!"actgas2\!", \!"actgas1\!", \!"actgas2\!", \!"etsgas\!",\!r\!n\!t\!t\!t\!"actgas1\!", \!"actgas2\!", \!"etsgas\!", \!"actgas1\!", \!"actgas2\!"}\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Surface Tension\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Values(\!r\!n\!t\!t\!t[8.09, 31, 14.82, 30.83, 11.54, -3.26, 16.61, 24.25, 1.51, -5.96, -1.88,\!r\!n\!t\!t\!t20.4, 10.62, -8.05, 18.69, 40.76, 0.58, 9.6]\!r\!n\!t\!t)\!r\!n\!t),\!r\!n\!tNew Column( \!"Y\!",\!r\!n\!t\!tNumeric,\!r\!n\!t\!t\!"Continuous\!",\!r\!n\!t\!tFormat( \!"Best\!", 10 ),\!r\!n\!t\!tSet Property(\!r\!n\!t\!t\!t\!"Response Limits\!",\!r\!n\!t\!t\!t{Goal( Maximize ), Lower( . ), Upper( . ), Importance( . )}\!r\!n\!t\!t),\!r\!n\!t\!tFormula(\!r\!n\!t\!t\!tRound(\!r\!n\!t\!t\!t\!t12.2940790467115 + 3.5 * ((:EPDM - 0.05) / 0.05) + -2.3 * ((:PP\!r\!n\!t\!t\!t\!t-0.075) / 0.075) + Match( :Color, \!"EVA\!", 1.5, \!"none\!", -1.5, . )\!r\!n\!t\!t\!t\!t+ -1 * ((:Flow Rate - 1500) / 500) + 10 * ((:Power - 1250) / 750)\!r\!n\!t\!t\!t\!t+3.5 * ((:Time - 8.5) / 6.5) + Match( :Gas Type,\!r\!n\!t\!t\!t\!t\!t\!"actgas1\!", -5,\!r\!n\!t\!t\!t\!t\!t\!"actgas2\!", -5.5,\!r\!n\!t\!t\!t\!t\!t\!"etsgas\!", 10.5,\!r\!n\!t\!t\!t\!t\!t.\!r\!n\!t\!t\!t\!t) + 2 * Random Normal(),\!r\!n\!t\!t\!t\!t2\!r\!n\!t\!t\!t)\!r\!n\!t\!t),\!r\!n\!t\!tHide\!r\!n\!t)\!r\!n)"),underlineStyle(true),style("underline"),), ButtonBox(title("Clean Up"),scriptText("current data table()<>vs>!!&+I!!)vNhz_)n!0h%N>O<9s26?!VlLYJQiL-)?7hz7bMv?D2-=J9Xhdu|_Ibw!zwZPV+H|EhZ$o7k6DS-q3c9Tt{IXPFg10DyB?bib>Gc}&G8|gXnsrCXkQx0#[]DOaT}(IBK8%Vy7t(g:)UDh!{3gpYh}Xwd:IR:QGtEluS:W2VPx^[dKK%+y$gZK9n^#Dvp{pNx7nF>uNg8ckcK1rAhYnRujEr:UtdT^)YuU[NP]j!we{3+D^+b9iGpX@n_qG1-a:Y6m3K?zr5ia8@7thmoyHL}l__j3wW@t5>H8i)&FErEzMf%Dm]fN]|{C6vH4EMA&DCd[U}a?t[kBaVO{&7t0kZK8fK@9Dmx2T.LXQtQ)qKxq_0BrLuWXA=A|v0h>Q#D$oZ&|zKDNlScZ&|r_N:.+lpxyHAyf%kEoNfLPi@8{_5E7-bGL|[EpHo4vnJl6nh9NIh4z)+e?9]+]}x1vN4KGJ&]BVRzeNobEWU!p_5ND.3CkW0Y{zLB0jWkr>OzsLlWjDf#op|(Lk_vfiOCew&(KYVimu_+Ob8X7b[+VZzv9yH(Pvc|UqsUQY8_vuUD1u[l_ph(Fb32wE5iPGYY3&]nIjRcVUx.Y1jkX(s{G?=gl!_+ET8RvHk{(y1DrERecW(nM2nh#.zz?VuZ_lFH.Dy9X@Gc}dg2fSuTTh+={urXNf@E1^l.QP5EJH#DtP2^o_(F1I3Ng5K:U3kYh]heIX?Lr5mmtJpBmHl!vX=KyH:4RL@9=6w-l7f8hmAieN[juz}!(+o{^.&$GLRr3w2JEPbKqC:|UhuXC>WCZ>E>gmSU>Ll0nwy>b_p0UcK!Y>R>.lr#(]TQc-?XugD{su9339g{u#7&XbWvAcfT+.K>S5k>!UiVW@{3q3X>QGcI+]&g(Y0h{3.Q[t3c?p_{J2T=bM%tO|r9i@4VNLeF0)@2u=r8DIX>ePMT17[5bA5&vP)LxMZfN-MH6l^J&|l|g)|GRs9iAaE#re|ynyDHd[b.I3{to.p:-7}XNDh{n|Q+[DTB@aVM_93eJ0ye3A.P_j=pa8IdxYftA8bPOwY!u8]#0eR(m%ZMsDSSZw%mAy4 bwwVdz]yH(]1Wjsm[$7qOk&_3lXe4jqe-|^-JRCcvE:MtoCV7uGdOVbE>=pszO4XxwPx#Mgr{5GCs=gn@f-+#PmId-6mT0FZkKd6ep8!j[}<5>ZYSCARAXUEe&bhjHdS$$Ic$ZRc4K8jl]fVt13Ul0pQnAEDVhjJjt2uddFv@Iuz}EEu7)Ubuv1^dZ9kxEt12|awTe..e:Nfu@-i}?$UjP]$1JKK?9{!P]BTA7#uMQe{6m$pZK4}n#ElNpeMgd20jQ<7[S:+Pp_b_y VHpTZ?+z#R.p5.nBep?N4A5p#OU$_4Yu?@+@T(2e2q3w_(O&>igAt%kAP{oV8_#FnC(c>+.OaHXEQIQB_e+PnfLFe&@?wzA99{tnSIxQw^xUt8buUiwO)+v8jZ!SO-_M qAYfqrYsHqmzEvMu[-CHpl-glglm14y=PTPn$J[Ao&?9A8a%n$ELwj^dhv#(rp7GJ-pP|Z7dKK<^i}?1l{.(#!mqX2eB@Nj@$MU5wvZ%je9o:@xefo%7aDk]N?KC:nHd6517e$z1}-)=cz)ve++7PLgck4mMZ_1G9t6jPU3qd0$tlEu_kKGJ@f9?m:vEJ6%tgoVC0p#gP+>{YD)qp#m7T|[Od7>ig]gEpnx<|bN=#_{rT&dO:I0phHiL1-j62Z{!%w>+%{[rCH.2tdpS_@&-6d(-7BV^7P5zW0.d>9%b4%L9+R=IpQvdDifwT_1.SHd3+b5sV-E7J$41=LC^zog59{+<58dizCBEcR^xF)E9a=[d]#h3{04C#>ng>1erLniR[3$tuu^YqdX+S(1g>S1)+Y}k?LJIMIfKyYlR@krxw2!yfEqvA6$c4jU8f#UK.g40+[EtK?$tv@nZ%t$x E$nL@u4(jibbtGYl7d+vRviV$p4w2_&9qTK8oQahaopLhzM0lTb^_H}n)bGO826Xs9Ozp=#cHABl?9Zt[y?MqW1489fbn)0FwwOys.ywODj^_a7uk!qtRePn&<4NRp+wRDsO}t4<%]kNZ:.z$c#O+j^fu8^O_UHUA$BQzrRk(7PX]?>>zK!Op9wzEG-ENg?al@4n6{<7e+uVfq3}=(UphZ>>3MDr^a34XDsHiiM:oi^?W+vn{Lr(G%{8LW(2:2ej=SjhIWGR)gzpoj>1OII@Ok&^ms)BV(efOq}i.11m0b|:zBT77o%n0-a[RXzl$0gLozzK^}uovOX0{-Am>1yoo]?-Jd7KPLdVnTK%g]_wqle#ySdwlbIHQcH6fZY4@aE[h!aTybr?GGCBm0KZ%@ZKt{[cXKRCgB#sQ(7f07%^sl?%H$wtRjL9a3Jwzwas9F[4W{?COiq1:i)cSjum%2Wk4VQ6GdkzFGWf(+R95qT(B<8tl$vpZ.}pqubTcFsrPjAK}l(EkOs|pso2|5#NG>uBh-y!:(B1EGNPyWaoIiPiOCN]_V^8wN!Zl@_sTQ]bOhQVDzP$p(jz(b1Uw1D>-p=cU7bTG+JDD%yOKoq1Zd=75iUyC]Y0Y[=!tDDUO]iaeMcOw{m_c0d}Z@_mtQt6K+f #Lm(:t+%&7ez^K$93_fCZkU%fjTPQuG3(WubG%5Ya?SG2D9$oF>6Z5k09O@(pA<[Fu9+^}<8@-NGAE?0dxO^hj+GV}E.ofoU]aC|aLz[g(:{QTbMM0M@:9=P_(Y$_OS_EfnPHu6.T^>}JmP59ino]fxZUAldHH!d2oHB..bx]uV5o?|D_%P.}c.KqHK=c:WxZhLt@=6>]mvvyaa0im.:!n)AqA^qWk[ZtCppAft(BcB071s|?O^SXP|LM08d.m1dN=GlKW5%JtZjcs(Al S2}&)qT}gl+6.AWS[xQ2H6uopV=UP7mxeY&tPXEW%qj=Re2}I+n7[r-BK)4!?@||F9lbPf(VHM<)GCika@Oo.a$tKHtb[qr:ua-.G]1>2_X6BS5sJBVhaKMbjE[{2_1Ot^vFY7eBBTfGQQ.!0Yjcv[$a8[RWu_r87hU.GI.ZhYeezN>vNj|-K@%0N.WLqV}Z5npn^p1ZE#Y0VKm1CYzpq1gOwGi6>nu#GlNECGw pGg$&4-Z1U4mv5]B4FrID8:@oz#2|LHFv=z_s-gaL0.dSi-mw0C5)i}vx1R<@]J%ihxxYexzO#kmiWf]fam?59BCxMzD>rIDg^Y1zcfng1XivqV]{)aJv3_+V]GfP)wQHCA@y055d+6r#sad(JoLxthV]^laEdnTkGkzxIBpWVZ+Am]ojz)J9![E>05{!u+V]:q?3-g 9@vk8rfb{@0^ULLxVBED(L$7g-%Y}NF>6p=:=!^#.F5)e?1KSBv5^Wpm.F{G8@7kXnM1((&(o:}p|FniXCQ1j)!rV9r0J9Lt)}ZfddpC{X1Lz%g&:A}4N!Rpg%IHFi]]A@JxTD4%U:< 3%]^QM(?GGC>L[MdrBph==BaO]5bao[U<)gju#0XxxV9]?7<>6sAlval6.nur%EyXU[EjXopfW70s#yZ:RZJ6Gb.q7.AT6Lq$3%aCLE62!B)Je)MGD)uHWx=7yvJQ+!ehrMhtkf(_mbTSI%tkk>ZbE:r@=C9H&YCqHCx^M17?SS}oGqwqv 0$t)Xd#>rruH|-n.:9HTW8tC_)2<(}Bs3l8vj+_qUD8>du7:o=D9nBX4u^1Jqn[.n|HVSDgqfUi-v}{AMrSs9)KKrX2G=zG1xirjPClju}Q^]U^reI)@H!t5^=-XM]C17J1=R986CeF[Sf08$NGJ?]s3h&4LxqaA%zBct5d[sLPt.jt+[$f%OF#qiuv->e!Mc)FUjA4AS9QhIc6(qyM-e$Z^-FSy-W3B[U6-YIm|x8?rrimazb{Ky@peg%Q]>aaQ3dF5_d6rtZcQ&[izzSKykt88ID|0Zv-bO]]mUHQ@a]c6tRKdTfst(9W_01D>-p =cU7bTG+JD-OTcb6z)GEHv2ieln@SJ]Dzun?K?a]WqXC=5KSSREr&&$ff--&P3V&+!%Nz4!)xvD!3snc!Bi^F!_S>g#A%VN$[+.w(949p0MCNb:uaxDPmCrc#C%YE$a+5f(B4FL0^Cgs<>bOhQVDzP$p(jz(b1Uw1D>-p=cU7bTG+JD-OTcb6z)GEHv2ieln@SJ]Dzun?K?a]WqXC=5KSSREr&&$ff--&P3V&+!%Nz4!)xvD!3snc!Bi^F!_S>g#A%VN$[+.w(949p0MCNb:uaxDPmCrc#C%YE$a+5f(B4FL0^Cgs<>bOhQVDzP$p(jz (b1Uw1D>-p=cU7bTG+JD-OTcb6z)GEHv2ieln@SJ]Dzun?K?a]WqXC=5KSSREr&&$ff--&P3V&+!%Nz4!)xvD!3snc!Bi^F!_S>g#A%VN$[+.w(949p0MCNb:uaxDPmCrc#C%YE$a+5f(B4FL0^Cgs<>bOhQVDzP$p(jz(b1Uw1D>-p=cU7bTG+JD-OTcb6z)GEHv2ieln@SJ]Dzun?K?a]WqXC=5KSSREr&&$ff--&P3V&+!%Nz4!)xvD!3snc!Bi^F!_S>g#A%VN$[+.w(949p0MCNb:uaxDPmCrc#C%YE$a+5f(B4FL0^Cgs<>bOh QVDzP$p(jz(b1Uw1D>-p=cU7bTG+JD-OTcb6z)GEHv2ieln@SJ]Dzun?K?a]WqXC=5KSSREr&&$ff--&P3V&+!%Nz4!)xvD!3snc!Bi^F!_S>g#A%VN$[+.w(949p0MCNb:uaxDPmCrc#C%YE$a+5f(B4FL0^Cgs<>bOhQVDzP$p(jz(b1Uw1D>-p=cU7bTG+JD-OTcb6z)GEHv2ieln@SJ]Dzun?K?a]WqXC=5KSSREr&&$ff--&P3V&+!%Nz4!)xvD!3snc!Bi^F!_S>g#A%VN$[+.w(949p0MCNb:uaxDPmCrc#C%YE$a+5f(B4FL 0^Cgs<>bOhQVDzP$p(jz(b1Uw1D>-p=cU7bTG+JD-OTcb6z)GEHv2ieln@SJ]Dzun?K?a]WqXC=5KSSREr&&$ff--&P3V&+!%Nz4!)xvD!3snc!Bi^F{=3QXuK&>lUrHgc!!!!!