// Program example: Journaling problem // Variables used to create Graph m_ave = [0.83925, 0.598, 0.58525, 0.565, 0.53725, 0.53275, 0.50575, 0.4925, 0.4485, 0.414, 0.407, 0.3985, 0.3955, 0.39525, 0.3685, 0.365, 0.364, 0.355, 0.3545, 0.354, 0.3395, 0.33325, 0.319, 0.317, 0.316, 0.315 , 0.313, 0.3085, 0.308, 0.304, 0.2915, 0.2835, 0.2825, 0.2745, 0.2715, 0.244, 0.242, 0.242, 0.2375, 0.2355, 0.2295, 0.2235, 0.22, 0.2165]; M_3RSD = [78.9801751563896, 76.606474916388, 76.4265800939769, 76.1241769911504, 75.6727482550023, 75.5951121539184, 75.1002827483935, 74.8376040609137, 73.853966555184, 72.936463768116, 72.7313218673219, 72.4725319949812 , 72.3785385587864, 72.3706413662239, 71.4637286295794, 71.3352328767123, 71.2980659340659, 70.9541408450704, 70.9345218617771, 70.9148474576271, 70.3190810014728, 70.0462955738935, 69.3843761755486, 69.2867129337539 , 69.237417721519, 69.1878095238095, 69.087642172524, 68.8575170178282, 68.8315324675325, 68.6205789473684, 67.9240343053173, 67.4460105820106, 67.3843539823009, 66.8749289617486, 66.6761546961326, 64.6262950819672 , 64.4590413223141, 64.4590413223141, 64.0724210526316, 63.895847133758, 63.3476601307189, 62.7700402684564, 62.4185454545455, 62.0556859122402]; M_3RSD2 = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]; CState = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]; M_One_RSD = [3.24380233252097, 14.8989054229942, 8.51790313091014, 16.269713549425, 70.3487342101833, 9.88821308275885, 20.7623048949486, 19.3826224284637, 3.62618862146948, 1.36638991533633, 28.4927548193105, 5.85558940505799 , 25.2091165985596, 7.24549642961547, 43.5585452725499, 13.5609519679612, 65.6599153958937, 7.9674003513977, 18.1514011531667, 10.3868792716668, 2.29106762681943, 9.23005100723625, 8.42321557526296, 1.33837245650451 , 40.7257703088455, 15.7134840263677, 0.903650838577058, 5.27178475438918, 14.6931279207594, 30.7033207620475, 6.5495310778857, 19.2053693655605, 11.2636478419096, 7.47034486499447, 48.7031189988525, 20.865446002226 , 21.6222734742994, 22.2066592438751, 1.48864585512958, 2.70231890899318, 5.85404306864679, 4.1129253491835, 25.712973861329, 31.6809966628615]; // Test Graph in window NW_CMP = New Window( "Method Precision", Gr1 = Graph Box( FrameSize( 550, 450 ), m_ave = [0.83925, 0.598, 0.58525, 0.565, 0.53725, 0.53275, 0.50575, 0.4925, 0.4485, 0.414, 0.407, 0.3985, 0.3955, 0.39525, 0.3685, 0.365, 0.364, 0.355, 0.3545, 0.354, 0.3395, 0.33325, 0.319, 0.317, 0.316, 0.315 , 0.313, 0.3085, 0.308, 0.304, 0.2915, 0.2835, 0.2825, 0.2745, 0.2715, 0.244, 0.242, 0.242, 0.2375, 0.2355, 0.2295, 0.2235, 0.22, 0.2165]; M_3RSD = [78.9801751563896, 76.606474916388, 76.4265800939769, 76.1241769911504, 75.6727482550023, 75.5951121539184, 75.1002827483935, 74.8376040609137, 73.853966555184, 72.936463768116, 72.7313218673219, 72.4725319949812 , 72.3785385587864, 72.3706413662239, 71.4637286295794, 71.3352328767123, 71.2980659340659, 70.9541408450704, 70.9345218617771, 70.9148474576271, 70.3190810014728, 70.0462955738935, 69.3843761755486, 69.2867129337539 , 69.237417721519, 69.1878095238095, 69.087642172524, 68.8575170178282, 68.8315324675325, 68.6205789473684, 67.9240343053173, 67.4460105820106, 67.3843539823009, 66.8749289617486, 66.6761546961326, 64.6262950819672 , 64.4590413223141, 64.4590413223141, 64.0724210526316, 63.895847133758, 63.3476601307189, 62.7700402684564, 62.4185454545455, 62.0556859122402]; M_3RSD2 = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]; CState = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]; M_One_RSD = [3.24380233252097, 14.8989054229942, 8.51790313091014, 16.269713549425, 70.3487342101833, 9.88821308275885, 20.7623048949486, 19.3826224284637, 3.62618862146948, 1.36638991533633, 28.4927548193105, 5.85558940505799 , 25.2091165985596, 7.24549642961547, 43.5585452725499, 13.5609519679612, 65.6599153958937, 7.9674003513977, 18.1514011531667, 10.3868792716668, 2.29106762681943, 9.23005100723625, 8.42321557526296, 1.33837245650451 , 40.7257703088455, 15.7134840263677, 0.903650838577058, 5.27178475438918, 14.6931279207594, 30.7033207620475, 6.5495310778857, 19.2053693655605, 11.2636478419096, 7.47034486499447, 48.7031189988525, 20.865446002226 , 21.6222734742994, 22.2066592438751, 1.48864585512958, 2.70231890899318, 5.85404306864679, 4.1129253491835, 25.712973861329, 31.6809966628615]; X Scale( 0, Max( m_ave ) * 1.1 ), //Y Scale( 0, Max( m_ave)), Double Buffer, XAxis( Show Major Grid ), YAxis( Show Major Grid ), X Name( Head Name( "Average" ) ), y Name( "One_RSD & 3RSD" ), Pen Color( "blue" ), Line( m_ave, M_3RSD ), Pen Color( "Green" ), Line( m_ave, M_3RSD2 ), For( i = 1, i <= N Row( m_ave ), i++, Marker( 1, Color State( CState[i] ), { m_ave[i], M_One_RSD[i]} ) )) ); // tried a number of ways to Journal and Freeze // Gr1<