* #### # # # # ##### # #### ##### # # # # ###### * # # ## # # # # # # # # # # # # # # * # # # # # # # # # # # # ## # # * # ### # # # # # ##### # # # # ## # # * # # # ## # # # # # # # # # # # * #### # # #### # ###### #### # # # # ###### * Display info *$if not a%1==a $log ------------------- *$if not a%1==a $log *$if not a%1==a $log Now Plotting Parameter %1 *$if setglobal gp_style $log %gp_style% *$if not a%1==a $log *$if not a%1==a $log ------------------- * Redirect to old interface section when obsolete syntax or explicit option $if setglobal gp_use_version_base $goto gpxyzlabel_version_base $if a%1==aloop $goto gpxyzlabel_version_base $if a%1==a $goto gpxyzlabel_version_new1 $if not dimension 3 %1 $goto gpxyzlabel_version_new1 $if not "%gp_style%"=="histogram" $goto gpxyzlabel_version_new1 $if not a%2==a $goto gpxyzlabel_version_base $label gpxyzlabel_version_new1 $onlisting $onuni * Exit compilation if there is a pre-existing program error: $if not exist "%gams.sysdir%inclib\callgplt.bat" $abort "missing callgplt.bat in gams inclib directory" $if not exist "%gams.sysdir%inclib\rt1.exe" $abort "missing rt1.exe in gams inclib directory" $if not exist "%gams.sysdir%wgnuplot.exe" $abort "missing wgnuplot.exe in gams system directory" $if not errorfree $exit $if declared u__1 $goto gpxyzlabel_declared1 * One time declaration of sets parameters and files for graphs in a loop alias(u__1,u__2,u__3,u__4,*); set uu___1(u__1); set uu___2(u__2); set uu___3(u__3); set uu___4(u__4); alias(first_index_gpxyzset,second_index_gpxyzset,third_index_gpxyzset,*); set gpxyzset_one(first_index_gpxyzset),gpxyzset_two(second_index_gpxyzset),gpxyzset_three(third_index_gpxyzset); set ppt_repeat_loop_all /1*9/; set ppt_repeat_loop(ppt_repeat_loop_all) This set allows to combine graphs from different restart files in one power point file; gpxyzset_one("no")=no; gpxyzset_two("no")=no; gpxyzset_three("no")=no; * blank invocation of gnuplot if loop set allu2(u__1,u__2); set allu3(u__1,u__2,u__3); set allu4(u__1,u__2,u__3,u__4); * This is not needed because declaration switches off this section??? $if setglobal dont_delete_list $goto gpxyzlabel_list_file_ready execute 'if exist "%gams.sysdir%inclib\gams_ppt_list.txt" del "%gams.sysdir%inclib\gams_ppt_list.txt" >nul'; FILE gams_ppt_list /"%gams.sysdir%inclib\gams_ppt_list.txt"/; $setglobal dont_delete_list yes $label gpxyzlabel_list_file_ready FILES gp_input /gnuplot.inp/ gp_data /gnuplot.dat/ gp_winini /wgnuplot.ini/ ; SCALARS gp_count gp_count_2 gp_continue_loop gp_plot_count /0/ gp_na /na/ gp_supzer permit user to supress zero values gp_ymin_value gp_ymax gp_xmax gp_xmin_value gp_y2low gp_y2up gp_x2low gp_x2up gpxyz_stoppvalue /0/ ; PARAMETERS gp_scencount(*) scenario counter gp_00(*) number of zeros at the end gp_xy(*) total observations gp__0(*) total observations minus end zeros ; SETS gp_line_color_name /aliceblue '240 248 255',antiquewhite '250 235 215',aqua '0 255 255',aquamarine '127 255 212',azure '240 255 255',beige '245 245 220', bisque '255 228 196',black '0 0 0',blanchedalmond '255 235 205',blue '0 0 255',blueviolet '138 43 226',brown '165 42 42', BrightCyan '0 255 255',BrightGreen '0 255 0',BrightMagneta '255 0 255',burlywood '222 184 135',cadetblue '95 158 160',chartreuse '127 255 0', chocolate '210 105 30',coral '255 127 80',cornflowerblue '100 149 237',cornsilk '255 248 220',crimson '220 20 60',cyan '0 255 255', darkblue '0 0 139',darkcyan '0 139 139',darkgoldenrod '184 134 11',darkgray '169 169 169',darkgreen '0 100 0',DarkGrey '128 128 128', darkkhaki '189 183 107',darkmagenta '139 0 139',darkolivegreen '85 107 47',darkorange '255 140 0',darkorchid '153 50 204',darkred '139 0 0', darksalmon '233 150 122',darkseagreen '143 188 143',darkslateblue '72 61 139',darkslategray '47 79 79',darkturquoise '0 206 209',darkviolet '148 0 211', deeppink '255 20 147',deepskyblue '0 191 255',dimgray '105 105 105',dodgerblue '30 144 255',firebrick '178 34 34',floralwhite '255 250 240', forestgreen '34 139 34',fuchsia '255 0 255',gainsboro '220 220 220',ghostwhite '248 248 255',gold '255 215 0',goldenrod '218 165 32', gray '127 127 127',green '0 128 0',greenyellow '173 255 47',honeydew '240 255 240',hotpink '255 105 180',indianred '205 92 92', indigo '75 0 130',ivory '255 255 240',khaki '240 230 140',lavender '230 230 250',lavenderblush '255 240 245',lawngreen '124 252 0', lemonchiffon '255 250 205',lightblue '173 216 230',lightcoral '240 128 128',lightcyan '224 255 255',lightgoldenrodyellow '250 250 210',lightgreen '144 238 144', lightgrey '211 211 211',lightpink '255 182 193',lightsalmon '255 160 122',lightseagreen '32 178 170',lightskyblue '135 206 250',lightslategray '119 136 153', lightsteelblue '176 196 222',lightyellow '255 255 224',lime '0 255 0',limegreen '50 205 50',linen '250 240 230',magenta '255 0 255', Magneta '128 0 128',maroon '128 0 0',mediumaquamarine '102 205 170',mediumblue '0 0 205',mediumorchid '186 85 211',mediumpurple '147 112 219', mediumseagreen '60 179 113',mediumslateblue '123 104 238',mediumspringgreen '0 250 154',mediumturquoise '72 209 204',mediumvioletred '199 21 133',midnightblue '25 25 112', mintcream '245 255 250',mistyrose '255 228 225',moccasin '255 228 181',navajowhite '255 222 173',navy '0 0 128',navyblue '159 175 223', oldlace '253 245 230',olive '128 128 0',olivedrab '107 142 35',orange '255 165 0',orangered '255 69 0',orchid '218 112 214', palegoldenrod '238 232 170',palegreen '152 251 152',paleturquoise '175 238 238',palevioletred '219 112 147',papayawhip '255 239 213',peachpuff '255 218 185', peru '205 133 63',pink '255 192 203',plum '221 160 221',powderblue '176 224 230',purple '128 0 128',red '255 0 0', rosybrown '188 143 143',royalblue '65 105 225',saddlebrown '139 69 19',salmon '250 128 114',sandybrown '244 164 96',seagreen '46 139 87', seashell '255 245 238',sienna '160 82 45',silver '192 192 192',skyblue '135 206 235',slateblue '106 90 205',slategray '112 128 144', snow '255 250 250',springgreen '0 255 127',steelblue '70 130 180',tan '210 180 140',teal '0 128 128',thistle '216 191 216', tomato '255 99 71',turquoise '64 224 208',violet '238 130 238',wheat '245 222 179',white '255 255 255',whitesmoke '245 245 245', yellow '255 255 0',yellowgreen '139 205 50' / gp_hex_color_name / aliceblue 'F0F8FF',antiquewhite 'FAEBD7',aqua '00FFFF',aquamarine '7FFFD4',azure 'F0FFFF',beige 'F5F5DC', bisque 'FFE4C4',black '000000',blanchedalmond 'FFEBCD',blue '0000FF',blueviolet '8A2BE2',brown 'A52A2A', burlywood 'DEB887',cadetblue '5F9EA0',chartreuse '7FFF00',chocolate 'D2691E',coral 'FF7F50',cornflowerblue '6495ED', cornsilk 'FFF8DC',crimson 'DC143C',cyan '00FFFF',darkblue '00008B',darkcyan '008B8B',darkgoldenrod 'B8860B', darkgray 'A9A9A9',darkgreen '006400',darkkhaki 'BDB76B',darkmagenta '8B008B',darkolivegreen '556B2F',darkorange 'FF8C00', darkorchid '9932CC',darkred '8B0000',darksalmon 'E9967A',darkseagreen '8FBC8F',darkslateblue '483D8B',darkslategray '2F4F4F', darkturquoise '00CED1',darkviolet '9400D3',deeppink 'FF1493',deepskyblue '00BFFF',dimgray '696969',dodgerblue '1E90FF', firebrick 'B22222',floralwhite 'FFFAF0',forestgreen '228B22',fuchsia 'FF00FF',gainsboro 'DCDCDC',ghostwhite 'F8F8FF', gold 'FFD700',goldenrod 'DAA520',gray '7F7F7F',green '008000',greenyellow 'ADFF2F',honeydew 'F0FFF0', hotpink 'FF69B4',indianred 'CD5C5C',indigo '4B0082',ivory 'FFFFF0',khaki 'F0E68C',lavender 'E6E6FA', lavenderblush 'FFF0F5',lawngreen '7CFC00',lemonchiffon 'FFFACD',lightblue 'ADD8E6',lightcoral 'F08080',lightcyan 'E0FFFF', lightgoldenrodyellow 'FAFAD2',lightgreen '90EE90',lightgrey 'D3D3D3',lightpink 'FFB6C1',lightsalmon 'FFA07A',lightseagreen '20B2AA', lightskyblue '87CEFA',lightslategray '778899',lightsteelblue 'B0C4DE',lightyellow 'FFFFE0',lime '00FF00',limegreen '32CD32', linen 'FAF0E6',magenta 'FF00FF',maroon '800000',mediumaquamarine '66CDAA',mediumblue '0000CD',mediumorchid 'BA55D3', mediumpurple '9370DB',mediumseagreen '3CB371',mediumslateblue '7B68EE',mediumspringgreen '00FA9A',mediumturquoise '48D1CC',mediumvioletred 'C71585', midnightblue '191970',mintcream 'F5FFFA',mistyrose 'FFE4E1',moccasin 'FFE4B5',navajowhite 'FFDEAD',navy '000080', navyblue '9FAFDF',oldlace 'FDF5E6',olive '808000',olivedrab '6B8E23',orange 'FFA500',orangered 'FF4500', orchid 'DA70D6',palegoldenrod 'EEE8AA',palegreen '98FB98',paleturquoise 'AFEEEE',palevioletred 'DB7093',papayawhip 'FFEFD5', peachpuff 'FFDAB9',peru 'CD853F',pink 'FFC0CB',plum 'DDA0DD',powderblue 'B0E0E6',purple '800080', red 'FF0000',rosybrown 'BC8F8F',royalblue '4169E1',saddlebrown '8B4513',salmon '‡ FA8072',sandybrown 'F4A460', seagreen '2E8B57',seashell 'FFF5EE',sienna 'A0522D',silver 'C0C0C0',skyblue '87CEEB',slateblue '6A5ACD', slategray '708090',snow 'FFFAFA',springgreen '00FF7F',steelblue '4682B4',tan 'D2B48C',teal '008080', thistle 'D8BFD8',tomato 'FF6347',turquoise '40E0D0',violet 'EE82EE',wheat 'F5DEB3',white 'FFFFFF', whitesmoke 'F5F5F5',yellow 'FFFF00',yellowgreen '9ACD32' / gp_xyz_ind_col(*) gp_xyz_fixed_col(*,*) gp_fixlinecolormap(gp_hex_color_name,*) ; * Initialize gp_scencount("gp_nothing") = 0; gp_xyz_fixed_col(gp_line_color_name,"gp_nothing") = no; * exit if blank invocation $if "%1" == "" $goto gpxyzlabel_endofgnupltxyz $if "%1" == "loop" $goto gpxyzlabel_endofgnupltxyz * exit if not declared $label gpxyzlabel_declared1 $if a%1==a $exit $if declared %1 $goto gpxyzlabel_declared2 $error GNUPLOT: Identifier %1 is not declared. $exit * exit if not defined $label gpxyzlabel_declared2 $if defined %1 $goto gpxyzlabel_defined0 $error GNUPLOT: Identifier %1 is not defined. $exit * exit if not three or four dimensional * 2 - Dimensional parameter without 2nd argument -> histogram style * 3 - Dimensional parameter without 2nd argument -> newhistogram style $label gpxyzlabel_defined0 $if dimension 1 %1 $goto gpxyzlabel_assign1Dsets $if dimension 2 %1 $setglobal gp_style histogram $if dimension 2 %1 $goto gpxyzlabel_assign2Dsets $if dimension 3 %1 $goto gpxyzlabel_assign3Dsets $if dimension 4 %1 $goto gpxyzlabel_assign4Dsets $error GNUPLOT: Identifier %1 must have 2, 3, or 4 dimensions (indexes). $exit * 1D Setup $label gpxyzlabel_assign1Dsets uu___1(u__1) $ %1(u__1)=yes; $goto gpxyzlabel_assign_more_variables * 2D Set up $label gpxyzlabel_assign3Dsets $if "%gp_style%" == "histogram" $goto gpxyzlabel_assign_newhistogram_sets $if a%2==a $goto gpxyzlabel_assign_newhistogram_sets $if not a%3==a $goto gpxyzlabel_define__2D_2 $error GNUPLOT2: Vertical axis to be graphed 3rd argument is not present. $exit $label gpxyzlabel_define__2D_2 allu3(u__1,u__2,"%2") $ %1(u__1,u__2,"%2")=yes; allu3(u__1,u__2,"%3") $ %1(u__1,u__2,"%3")=yes; uu___3("%3")=yes; uu___3("%2")=yes; uu___2(u__2)$sum(allu3(u__1,u__2,uu___3),1) =yes; uu___1(u__1)$sum(allu3(u__1,uu___2,uu___3),1)=yes; allu3(u__1,u__2,u__3)$(%1(u__1,u__2,"%2") or %1(u__1,u__2,"%3"))=no; $goto gpxyzlabel_assign_more_variables * 3D Set up $label gpxyzlabel_assign4Dsets $if not a%2==a $goto gpxyzlabel_assign4Dsets_1 $error GNUPLOT2: Horizontal axis to be graphed 2nd argument is not present. $exit $label gpxyzlabel_assign4Dsets_1 $if not a%3==a $goto gpxyzlabel_assign4Dsets_2 $error GNUPLOT2: Z axis to be graphed 3rd argument is not present. $exit $label gpxyzlabel_assign4Dsets_2 $if not a%3==a $goto gpxyzlabel_assign4Dsets_3 $error GNUPLOT2: Vertical axis to be graphed 4th argument is not present. $exit $label gpxyzlabel_assign4Dsets_3 allu4(u__1,u__2,u__3,u__4) $(%1(u__1,u__2,u__3,"%2") or %1(u__1,u__2,u__3,"%3") or %1(u__1,u__2,u__3,"%4") ) = yes; uu___4("%4") = yes; uu___4("%3") = yes; uu___4("%2") = yes; uu___3(u__3) $sum(allu4(u__1,u__2,u__3,uu___4),1) =yes; uu___2(u__2) $sum(allu4(u__1,u__2,u__3,uu___4),1) =yes; uu___1(u__1) $sum(allu4(u__1,uu___2,uu___3,uu___4),1)=yes; allu4(u__1,u__2,u__3,u__4) $(%1(u__1,u__2,u__3,"%2") or %1(u__1,u__2,u__3,"%3") or %1(u__1,u__2,u__3,"%4") ) = no; $goto gpxyzlabel_assign_more_variables * Histogram Set up 2 dimensions $label gpxyzlabel_assign2Dsets allu2(u__1,u__2)$(%1(u__1,u__2)) =yes; uu___2(u__2) $sum(allu2(u__1,u__2),1) =yes; uu___1(u__1) $sum(allu2(u__1,uu___2),1)=yes; allu2(u__1,u__2)$(%1(u__1,u__2))=no; $goto gpxyzlabel_assign_more_variables * Histogram Set up 3 dimensions $label gpxyzlabel_assign_newhistogram_sets allu3(u__1,u__2,u__3) $(%1(u__1,u__2,u__3)) = yes; uu___3(u__3) $sum(allu3(u__1,u__2,u__3),1) = yes; uu___2(u__2) $sum(allu3(u__1,u__2,uu___3),1) = yes; uu___1(u__1) $sum(allu3(u__1,uu___2,uu___3),1)= yes; allu3(u__1,u__2,u__3)$(%1(u__1,u__2,u__3)) = no; $goto gpxyzlabel_assign_more_variables $label gpxyzlabel_assign_more_variables $if not setglobal gp_name $setglobal gp_name '%1' * Simple Histograms $if dimension 2 %1 $setglobal gp_scen 'uu___1' $if dimension 2 %1 $setglobal gp_obsv_1 'uu___2' $if dimension 2 %1 $goto gpxyzlabel_abort_histogram * 1D names $if dimension 1 %1 $setglobal gp_scen 'uu___1' $if dimension 1 %1 $setglobal gp_xxxvalue "" $if dimension 1 %1 $setglobal gp_yyyvalue "%1" $if dimension 1 %1 $goto gpxyzlabel_abort_1D_plot * 2D names $if dimension 3 %1 $setglobal gp_scen 'uu___1' $if dimension 3 %1 $setglobal gp_obsv_1 'uu___2' $if a%2==a $setglobal gp__col3 'uu___3' $if a%2==a $goto gpxyzlabel_abort_newhistogram $if dimension 3 %1 $setglobal gp_xxxvalue "%2" $if dimension 3 %1 $setglobal gp_yyyvalue "%3" $if dimension 3 %1 $setglobal gp__col3 "%4" $if dimension 3 %1 $setglobal gp__col4 "%5" $if dimension 3 %1 $setglobal gp__col5 "%6" $if dimension 3 %1 $setglobal gp__col6 "%7" * 3D names $if dimension 4 %1 $setglobal gp_planes 'uu___1' $if dimension 4 %1 $setglobal gp_obsv_1 'uu___2' $if dimension 4 %1 $setglobal gp_obsv_2 'uu___3' $if dimension 4 %1 $setglobal gp_scen 'uu___4' $if dimension 4 %1 $setglobal gp_xxxvalue "%2" $if dimension 4 %1 $setglobal gp_yyyvalue "%3" $if dimension 4 %1 $setglobal gp_zzzvalue "%4" $if dimension 4 %1 $goto gpxyzlabel_abort_3D_plot abort$(sum((%gp_scen%,%gp_obsv_1%) $%1(%gp_scen%,%gp_obsv_1%,'%gp_xxxvalue%'),1) eq 0) '***','* data for %gp_xxxvalue% column are all zero', %1; abort$(sum((%gp_scen%,%gp_obsv_1%) $%1(%gp_scen%,%gp_obsv_1%,'%gp_yyyvalue%'),1) eq 0) '***','* data for %gp_yyyvalue% column are all zero', %1; $goto gpxyzlabel_compile_input_commands $label gpxyzlabel_abort_1D_plot abort$(sum(%gp_scen% $%1(%gp_scen%),1) eq 0) '***','* data for ', %1 ,' are all zero'; $goto gpxyzlabel_compile_input_commands $label gpxyzlabel_abort_3D_plot abort$(sum((%gp_planes%,%gp_obsv_1%,%gp_obsv_2%) $%1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,'%gp_xxxvalue%'),1) eq 0) '***','* data for %gp_xxxvalue% column are all zero', %1; abort$(sum((%gp_planes%,%gp_obsv_1%,%gp_obsv_2%) $%1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,'%gp_zzzvalue%'),1) eq 0) '***','* data for %gp_zzzvalue% column are all zero', %1; abort$(sum((%gp_planes%,%gp_obsv_1%,%gp_obsv_2%) $%1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,'%gp_yyyvalue%'),1) eq 0) '***','* data for %gp_yyyvalue% column are all zero', %1; $goto gpxyzlabel_compile_input_commands $label gpxyzlabel_abort_histogram abort$(sum((%gp_scen%,%gp_obsv_1%) $%1(%gp_scen%,%gp_obsv_1%),1) eq 0) '***','* data for ',%1, 'are all zero'; $goto gpxyzlabel_compile_input_commands $label gpxyzlabel_abort_newhistogram abort$(sum((%gp_scen%,%gp_obsv_1%,%gp__col3%) $%1(%gp_scen%,%gp_obsv_1%,%gp__col3%),1) eq 0) '***','* data for ',%1, 'are all zero'; $goto gpxyzlabel_compile_input_commands * * * Gnuplot.inp - Contains Gnuplot Commands * *______________________________________________ * $label gpxyzlabel_compile_input_commands put gp_input; file.lw = 0; file.nr = 0; file.nd = 0; file.nw = 0; file.pw =900; * Insert Auto Code 1 produced by make_1_label_code.gms - Begin $if not setglobal gp_label_1 $goto gpxyzlabel_afterlabel_1 $if '%gp_label_1%' == 'no' put 'unset label 1' /; $if '%gp_label_1%' == 'no' $goto gpxyzlabel_afterlabel_1 $if setglobal gp_label_1 put 'set label 1 %gp_label_1%' /; $goto gpxyzlabel_afterlabel_1 $label gpxyzlabel_afterlabel_1 $if not setglobal gp_label_2 $goto gpxyzlabel_afterlabel_2 $if '%gp_label_2%' == 'no' put 'unset label 2' /; $if '%gp_label_2%' == 'no' $goto gpxyzlabel_afterlabel_2 $if setglobal gp_label_2 put 'set label 2 %gp_label_2%' /; $goto gpxyzlabel_afterlabel_2 $label gpxyzlabel_afterlabel_2 $if not setglobal gp_label_3 $goto gpxyzlabel_afterlabel_3 $if '%gp_label_3%' == 'no' put 'unset label 3' /; $if '%gp_label_3%' == 'no' $goto gpxyzlabel_afterlabel_3 $if setglobal gp_label_3 put 'set label 3 %gp_label_3%' /; $goto gpxyzlabel_afterlabel_3 $label gpxyzlabel_afterlabel_3 $if not setglobal gp_label_4 $goto gpxyzlabel_afterlabel_4 $if '%gp_label_4%' == 'no' put 'unset label 4' /; $if '%gp_label_4%' == 'no' $goto gpxyzlabel_afterlabel_4 $if setglobal gp_label_4 put 'set label 4 %gp_label_4%' /; $goto gpxyzlabel_afterlabel_4 $label gpxyzlabel_afterlabel_4 $if not setglobal gp_label_5 $goto gpxyzlabel_afterlabel_5 $if '%gp_label_5%' == 'no' put 'unset label 5' /; $if '%gp_label_5%' == 'no' $goto gpxyzlabel_afterlabel_5 $if setglobal gp_label_5 put 'set label 5 %gp_label_5%' /; $goto gpxyzlabel_afterlabel_5 $label gpxyzlabel_afterlabel_5 $if not setglobal gp_label_6 $goto gpxyzlabel_afterlabel_6 $if '%gp_label_6%' == 'no' put 'unset label 6' /; $if '%gp_label_6%' == 'no' $goto gpxyzlabel_afterlabel_6 $if setglobal gp_label_6 put 'set label 6 %gp_label_6%' /; $goto gpxyzlabel_afterlabel_6 $label gpxyzlabel_afterlabel_6 $if not setglobal gp_label_7 $goto gpxyzlabel_afterlabel_7 $if '%gp_label_7%' == 'no' put 'unset label 7' /; $if '%gp_label_7%' == 'no' $goto gpxyzlabel_afterlabel_7 $if setglobal gp_label_7 put 'set label 7 %gp_label_7%' /; $goto gpxyzlabel_afterlabel_7 $label gpxyzlabel_afterlabel_7 $if not setglobal gp_label_8 $goto gpxyzlabel_afterlabel_8 $if '%gp_label_8%' == 'no' put 'unset label 8' /; $if '%gp_label_8%' == 'no' $goto gpxyzlabel_afterlabel_8 $if setglobal gp_label_8 put 'set label 8 %gp_label_8%' /; $goto gpxyzlabel_afterlabel_8 $label gpxyzlabel_afterlabel_8 $if not setglobal gp_label_9 $goto gpxyzlabel_afterlabel_9 $if '%gp_label_9%' == 'no' put 'unset label 9' /; $if '%gp_label_9%' == 'no' $goto gpxyzlabel_afterlabel_9 $if setglobal gp_label_9 put 'set label 9 %gp_label_9%' /; $goto gpxyzlabel_afterlabel_9 $label gpxyzlabel_afterlabel_9 * Insert Auto Code 1 produced by make_label_code.gms - End * Color $if not setglobal gp_color $setglobal gp_color 'color' $if "%gp_color%" =="yes" $setglobal gp_color 'color' $if "%gp_color%" =="monochrome" $setglobal gp_color 'monochrome' $if "%gp_color%" =="no" $setglobal gp_color 'monochrome' * Font $if not setglobal gp_font $setglobal gp_font 'Times New Roman' $if "%gp_font%" == "no" $setglobal gp_font 'Times New Roman' * Font Size $if not setglobal gp_fontsize $setglobal gp_fontsize '12' $if "%gp_fontsize%" == "no" $setglobal gp_fontsize '12' * Line Width $if not setglobal gp_lwidth $setglobal gp_lwidth '1' * More Styles $if not setglobal gp_morestyle1 $goto gpxyzlabel_after_morestyle1_assign $if "%gp_morestyle1%" == "no" $goto gpxyzlabel_after_morestyle1_assign PUT "set style %gp_morestyle1%" /; $label gpxyzlabel_after_morestyle1_assign $if not setglobal gp_morestyle2 $goto gpxyzlabel_after_morestyle2_assign $if "%gp_morestyle2%" == "no" $goto gpxyzlabel_after_morestyle2_assign PUT "set style %gp_morestyle2%" /; $label gpxyzlabel_after_morestyle2_assign $if not setglobal gp_morestyle3 $goto gpxyzlabel_after_morestyle3_assign $if "%gp_morestyle3%" == "no" $goto gpxyzlabel_after_morestyle3_assign PUT "set style %gp_morestyle3%" /; $label gpxyzlabel_after_morestyle3_assign * resetting of individual styles $if "%gp_resetstyle%"=="no" $goto gpxyzlabel_l_reset_axes $if not setglobal gp_resetstyle $goto gpxyzlabel_l_reset_axes $setglobal gp_l1style no $setglobal gp_l2style no $setglobal gp_l3style no $setglobal gp_l4style no $setglobal gp_l5style no $setglobal gp_l6style no $setglobal gp_l7style no $setglobal gp_l8style no $setglobal gp_l9style no $setglobal gp_l10style no $setglobal gp_l11style no $setglobal gp_l12style no $setglobal gp_l13style no $setglobal gp_l14style no $setglobal gp_l15style no $setglobal gp_l16style no * resetting of individual axes $label gpxyzlabel_l_reset_axes $if "%gp_resetaxes%"=="no" $goto gpxyzlabel_l_reset_done $if not setglobal gp_resetstyle $goto gpxyzlabel_l_reset_done $setglobal gp_l1axes no $setglobal gp_l2axes no $setglobal gp_l3axes no $setglobal gp_l4axes no $setglobal gp_l5axes no $setglobal gp_l6axes no $setglobal gp_l7axes no $setglobal gp_l8axes no $setglobal gp_l9axes no $setglobal gp_l10axes no $setglobal gp_l11axes no $setglobal gp_l12axes no $setglobal gp_l13axes no $setglobal gp_l14axes no $setglobal gp_l15axes no $setglobal gp_l16axes no $label gpxyzlabel_l_reset_done * Terminals $if setglobal gp_term $goto gpxyzlabel_specified_terminal $if setglobal gp_ppt $setglobal gp_term 'emf' $if setglobal gp_ppt put "set terminal emf %gp_color% '%gp_font%' %gp_fontsize% linewidth %gp_lwidth% size 871,653"/; $if not setglobal gp_ppt $setglobal gp_term "windows" $goto gpxyzlabel_more_on_terminal $label gpxyzlabel_specified_terminal $if "%gp_term%" =="windows" $goto gpxyzlabel_more_on_terminal $if "%gp_term%" =="emf" put "set terminal emf %gp_color% '%gp_font%' %gp_fontsize% linewidth %gp_lwidth% size 871,653"/; $if "%gp_term%" =="emf" $goto gpxyzlabel_more_on_terminal *$if setglobal gp_ppt put "set terminal %gp_term% size 871,653"/; put "set terminal %gp_term% size 871,653"/; $goto gpxyzlabel_more_on_terminal $label gpxyzlabel_more_on_terminal $if "%gp_term%" =="windows" put "set terminal windows" /; $if "%gp_term%" =="windows" $goto gpxyzlabel_specify_winoptions gp_plot_count = gp_plot_count + 1; $if setglobal gp_ppt $goto gpxyzlabel_determine_ppt_graph_name $if not setglobal gp_ppt put "set output '%gp_name%.%gp_term%'"/; $goto gpxyzlabel_specify_winoptions * Insert Auto Code 2 produced by make_2_pptplots.gms Sub Section 1 - Begin $label gpxyzlabel_determine_ppt_graph_name $if not setglobal gp_ppt_2 $goto gpxyzlabel_after_ppt_output_name_2 $if setglobal gp_ppt_2 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_2%.%gp_term%'" /; $if setglobal gp_ppt_2 $goto gpxyzlabel_specify_winoptions $label gpxyzlabel_after_ppt_output_name_2 $if not setglobal gp_ppt_3 $goto gpxyzlabel_after_ppt_output_name_3 $if setglobal gp_ppt_3 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_3%.%gp_term%'" /; $if setglobal gp_ppt_3 $goto gpxyzlabel_specify_winoptions $label gpxyzlabel_after_ppt_output_name_3 $if not setglobal gp_ppt_4 $goto gpxyzlabel_after_ppt_output_name_4 $if setglobal gp_ppt_4 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_4%.%gp_term%'" /; $if setglobal gp_ppt_4 $goto gpxyzlabel_specify_winoptions $label gpxyzlabel_after_ppt_output_name_4 $if not setglobal gp_ppt_5 $goto gpxyzlabel_after_ppt_output_name_5 $if setglobal gp_ppt_5 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_5%.%gp_term%'" /; $if setglobal gp_ppt_5 $goto gpxyzlabel_specify_winoptions $label gpxyzlabel_after_ppt_output_name_5 $if not setglobal gp_ppt_6 $goto gpxyzlabel_after_ppt_output_name_6 $if setglobal gp_ppt_6 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_6%.%gp_term%'" /; $if setglobal gp_ppt_6 $goto gpxyzlabel_specify_winoptions $label gpxyzlabel_after_ppt_output_name_6 $if not setglobal gp_ppt_7 $goto gpxyzlabel_after_ppt_output_name_7 $if setglobal gp_ppt_7 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_7%.%gp_term%'" /; $if setglobal gp_ppt_7 $goto gpxyzlabel_specify_winoptions $label gpxyzlabel_after_ppt_output_name_7 $if not setglobal gp_ppt_8 $goto gpxyzlabel_after_ppt_output_name_8 $if setglobal gp_ppt_8 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_8%.%gp_term%'" /; $if setglobal gp_ppt_8 $goto gpxyzlabel_specify_winoptions $label gpxyzlabel_after_ppt_output_name_8 $if not setglobal gp_ppt_9 $goto gpxyzlabel_after_ppt_output_name_9 $if setglobal gp_ppt_9 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_9%.%gp_term%'" /; $if setglobal gp_ppt_9 $goto gpxyzlabel_specify_winoptions $label gpxyzlabel_after_ppt_output_name_9 * Insert Auto Code 2 produced by make_2_pptplots.gms Sub Section 1 - End put "set output '%gp_name%_",gp_plot_count,"_1.%gp_term%'" /; $label gpxyzlabel_specify_winoptions file.nd = 3; file.nw = 12; * Mouse $if not setglobal gp_mouse put "unset mouse" /; $if "%gp_mouse%" == "no" put "unset mouse" /; * Cancel axes if not needed $if "%gp_y2axis%" == "no" $setglobal gp_y2scale "no" $if "%gp_y2axis%" == "no" $setglobal gp_y2range "no" $if "%gp_y2axis%" == "no" $setglobal gp_y2label "no" $if "%gp_x2axis%" == "no" $setglobal gp_x2scale "no" $if "%gp_x2axis%" == "no" $setglobal gp_x2range "no" $if "%gp_x2axis%" == "no" $setglobal gp_x2label "no" $if not setglobal gp_xrange $setglobal gp_xrange "no" $if "%gp_xrange%" == "no" put 'set auto x'/; $if "%gp_xrange%" == "no" $goto gpxyzlabel_yrange put 'set xrange [%gp_xrange%]'/; $label gpxyzlabel_yrange $if not setglobal gp_yrange $setglobal gp_yrange "no" $if "%gp_yrange%" == "no" put 'set auto y'/; $if "%gp_yrange%" == "no" $goto gpxyzlabel_scale_2axes put 'set yrange [%gp_yrange%]'/; * Calculate scalars to automatically scale the Y2 axis * The four scalars calculate the maximum and minimum value for vertical and horizontal axis $label gpxyzlabel_scale_2axes $if dimension 1 %1 $goto gpxyzlabel_det1Drange $if dimension 4 %1 $goto gpxyzlabel_boxwidth $if "%gp_style%" == "histogram" $goto gpxyzlabel_dethistrange $if a%2 == a $goto gpxyzlabel_detnewhistrange gp_ymin_value = smin((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%")); gp_ymax = smax((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%")); gp_xmin_value = smin((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%")); gp_xmax = smax((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%")); gp_x2low = gp_xmin_value; gp_x2up = gp_xmax; $goto gpxyzlabel_setboundry_gp $label gpxyzlabel_det1Drange $if not setglobal gp_add_xvalue_1D $setglobal gp_add_xvalue_1D 0 gp_ymin_value = smin((%gp_scen%),%1(%gp_scen%)); gp_ymax = smax((%gp_scen%),%1(%gp_scen%)); gp_xmin_value = %gp_add_xvalue_1D% + 1; gp_xmax = %gp_add_xvalue_1D% + card(%gp_scen%); $goto gpxyzlabel_setboundry_gp $label gpxyzlabel_dethistrange $if dimension 3 %1 $goto gpxyzlabel_detnewhistrange gp_ymin_value = smin((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%)); gp_ymax = smax((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%)); $if not setglobal gp_ymin $goto gpxyzlabel_setboundry_gp $if "%gp_ymin%" == "no" $goto gpxyzlabel_setboundry_gp gp_ymin_value = %gp_ymin%; $goto gpxyzlabel_setboundry_gp $label gpxyzlabel_detnewhistrange gp_ymin_value = smin((%gp_scen%,%gp_obsv_1%,%gp__col3%),%1(%gp_scen%,%gp_obsv_1%,%gp__col3%)); gp_ymax = smax((%gp_scen%,%gp_obsv_1%,%gp__col3%),%1(%gp_scen%,%gp_obsv_1%,%gp__col3%)); $if not setglobal gp_ymin $goto gpxyzlabel_setboundry_gp $if "%gp_ymin%" == "no" $goto gpxyzlabel_setboundry_gp gp_ymin_value = %gp_ymin%; $label gpxyzlabel_setboundry_gp gp_y2low = gp_ymin_value; gp_y2up = gp_ymax; $if not setglobal gp_x2scale $goto gpxyzlabel_x2range $if "%gp_x2scale%" == "no" $goto gpxyzlabel_x2range $if not setglobal gp_x2range $goto gpxyzlabel_x2auto $if "%gp_x2range%" == "no" $goto gpxyzlabel_x2auto $if setglobal gp_x2range $goto gpxyzlabel_x2range $goto gpxyzlabel_x2auto $label gpxyzlabel_x2auto $if not defined gp_xmin_value $goto gpxyzlabel_x2range $if setglobal gp_x2scale gp_x2low = %gp_x2scale% * gp_xmin_value; $if setglobal gp_x2scale gp_x2up = %gp_x2scale% * gp_xmax; put 'unset auto x'/; put 'unset auto x2'/; put 'set xrange [',gp_xmin_value, ' : ',gp_xmax,']'/; put 'set x2range [',gp_x2low,' : ',gp_x2up,']'/; $goto gpxyzlabel_y2scale $label gpxyzlabel_x2range $if not setglobal gp_x2range $goto gpxyzlabel_y2scale $if "%gp_x2range%" == "no" $goto gpxyzlabel_y2scale put 'set x2range [%gp_x2range%]'/; $label gpxyzlabel_y2scale $if not setglobal gp_y2scale $goto gpxyzlabel_y2range $if "%gp_y2scale%" == "no" $goto gpxyzlabel_y2range $if not setglobal gp_y2range $goto gpxyzlabel_y2auto $if "%gp_y2range%" == "no" $goto gpxyzlabel_y2auto $if setglobal gp_y2range $goto gpxyzlabel_y2range $label gpxyzlabel_y2auto $if setglobal gp_y2scale gp_y2low = %gp_y2scale% * gp_ymin_value; $if setglobal gp_y2scale gp_y2up = %gp_y2scale% * gp_ymax; put 'unset auto y'/; put 'unset auto y2'/; $if not setglobal gp_yrange $goto gpxyzlabel_new_y2range $if "%gp_yrange%" == "no" $goto gpxyzlabel_new_y2range put 'set y2range [%gp_y2scale%*%gp_yrange%*%gp_y2scale%]'/; $goto gpxyzlabel_y2range $label gpxyzlabel_new_y2range put 'set yrange [',gp_ymin_value, ' : ',gp_ymax,']'/; put 'set y2range [',gp_y2low,' : ',gp_y2up,']'/; $goto gpxyzlabel_boxwidth $label gpxyzlabel_y2range $if not setglobal gp_y2range $goto gpxyzlabel_boxwidth $if "%gp_y2range%" == "no" $goto gpxyzlabel_boxwidth put 'set y2range [%gp_y2range%]'/; $label gpxyzlabel_boxwidth $if setglobal gp_boxwid $setglobal gp_boxwidth %gp_boxwid% $if not setglobal gp_boxwidth $goto gpxyzlabel_figsize $if "%gp_boxwidth%" == "no" $goto gpxyzlabel_figsize $if "%gp_boxwidth%" == "0" $goto gpxyzlabel_figsize put 'set boxwidth %gp_boxwidth%'/; $label gpxyzlabel_figsize $if not setglobal gp_size $goto gpxyzlabel_gplabel_bmargin $if "%gp_size%" == "no" $goto gpxyzlabel_gplabel_bmargin put 'set size %gp_size%'/; $label gpxyzlabel_gplabel_bmargin $if not setglobal gp_bmargin $goto gpxyzlabel_gplabel_tmargin $if "%gp_bmargin%" == "no" $goto gpxyzlabel_gplabel_tmargin put "set bmargin %gp_bmargin%" /; $label gpxyzlabel_gplabel_tmargin $if not setglobal gp_tmargin $goto gpxyzlabel_gplabel_lmargin $if "%gp_tmargin%" == "no" $goto gpxyzlabel_gplabel_lmargin put "set tmargin %gp_tmargin%" /; $label gpxyzlabel_gplabel_lmargin $if not setglobal gp_lmargin $goto gpxyzlabel_gplabel_rmargin $if "%gp_lmargin%" == "no" $goto gpxyzlabel_gplabel_rmargin put "set lmargin %gp_lmargin%" /; $label gpxyzlabel_gplabel_rmargin $if not setglobal gp_rmargin $goto gpxyzlabel_x2axis $if "%gp_rmargin%" == "no" $goto gpxyzlabel_x2axis put "set rmargin %gp_rmargin%" /; $label gpxyzlabel_x2axis $if setglobal gp_x2scale $setglobal gp_x2axis 'yes' $if "%gp_x2scale%" == "no" $setglobal gp_x2axis 'no' $if setglobal gp_x2range $setglobal gp_x2axis 'yes' $if "%gp_x2range%" == "no" $setglobal gp_x2axis 'no' $if not setglobal gp_x2axis $goto gpxyzlabel_y2axis $if "%gp_x2axis%" == "no" $goto gpxyzlabel_y2axis put 'set x2tics'/; $label gpxyzlabel_y2axis $if not setglobal gp_y2scale $goto gpxyzlabel_aftery2scale_test $if "%gp_y2scale%" == "no" $goto gpxyzlabel_aftery2scale_test $if setglobal gp_y2scale $goto gpxyzlabel_beforeputy2tics $label gpxyzlabel_aftery2scale_test $if "%gp_x1y2%"=="no" $goto gpxyzlabel_afterx1y2_test $if setglobal gp_x1y2 $goto gpxyzlabel_beforeputy2tics $label gpxyzlabel_afterx1y2_test $if "%gp_x2y2%"=="no" $goto gpxyzlabel_afterx2y2_test $if setglobal gp_x2y2 $goto gpxyzlabel_beforeputy2tics $label gpxyzlabel_afterx2y2_test $if "%gp_y2range%" == "no" $goto gpxyzlabel_logscale $if not setglobal gp_y2axis $goto gpxyzlabel_logscale $label gpxyzlabel_beforeputy2tics put 'set y2tics'/; $label gpxyzlabel_logscale $if not setglobal gp_logscale $goto gpxyzlabel_gridline $if "%gp_logscale%" == "no" put /'unset logscale xy'/ $if "%gp_logscale%" == "no" $goto gpxyzlabel_gridline put /'set logscale %gp_logscale%'/; $label gpxyzlabel_gridline $if not setglobal gp_gline $setglobal gp_gline '4' $if "%gp_color%" == "monochrome" $setglobal gp_gline '4' $if "%gp_term%" == "windows" $setglobal gp_gline '13' $label gpxyzlabel_grid $if not setglobal gp_zeroax $setglobal gp_zeroax no $if %gp_zeroax% == no put 'unset zeroaxis'/; $if %gp_zeroax% == yes put 'set zeroaxis'/; $if %gp_zeroax% == yes $goto gpxyzlabel_grid2 $if not setglobal gp_xzeroax $setglobal gp_xzeroax no $if %gp_xzeroax% == no put 'unset xzeroaxis'/; $if %gp_xzeroax% == yes put 'set xzeroaxis'/; $if not setglobal gp_yzeroax $setglobal gp_yzeroax no $if %gp_yzeroax% == no put 'unset yzeroaxis'/; $if %gp_yzeroax% == no $goto gpxyzlabel_grid2 put 'set yzeroaxis' /; $label gpxyzlabel_grid2 $if not setglobal gp_grid $setglobal gp_grid no $if %gp_grid% == "no" put 'unset grid'/; $if "%gp_grid%" == "no" $goto gpxyzlabel_xgrid put 'set grid' /; $label gpxyzlabel_xgrid $if not setglobal gp_xgrid $goto gpxyzlabel_ygrid $if "%gp_xgrid%" == "no" $goto gpxyzlabel_ygrid put 'set grid xtics %gp_gline%' /; $label gpxyzlabel_ygrid $if not setglobal gp_ygrid $goto gpxyzlabel_formats $if "%gp_ygrid%" == "no" $goto gpxyzlabel_formats put 'set grid ytics %gp_gline%' /; $label gpxyzlabel_formats $if not setglobal gp_xform $goto gpxyzlabel_tickers $if "%gp_xform%" == "no" $goto gpxyzlabel_tickers put 'set format x %gp_xform%'/; $label gpxyzlabel_tickers $if not setglobal gp_tics $setglobal gp_tics 'in' $if "%gp_tics%" == "no" put 'unset tics'/; $if "%gp_tics%" == "no" $goto gpxyzlabel_gplb_xtics put 'set tics %gp_tics%'/; $goto gpxyzlabel_gplb_xtics $label gpxyzlabel_gplb_xtics $if not setglobal gp_xtics $setglobal gp_xtics "in" $if "%gp_xtics%" == "no" put 'unset xtics'/; $if "%gp_xtics%" == "no" $goto gpxyzlabel_ytics put 'set xtics %gp_xtics%'; *** Uwe if gp_xtics no then scale 0 is not applied!! $if not a%2==a $goto gpxyzlabel_label_xticincrement put " scale 0"; $goto gpxyzlabel_ytics $label gpxyzlabel_label_xticincrement $if not setglobal gp_xinc $goto gpxyzlabel_ytics $if '%gp_xinc%' == 'no' $goto gpxyzlabel_ytics put ' %gp_xinc%'; $label gpxyzlabel_ytics put /; $if not setglobal gp_ytics $setglobal gp_ytics "in" $if "%gp_ytics%" == "no" put 'unset ytics'/; $if "%gp_ytics%" == "no" $goto gpxyzlabel_styles put 'set ytics nomirror %gp_ytics%'; $if not setglobal gp_yinc put /; $if "%gp_yinc%" == "no" put /; $if not setglobal gp_yinc $goto gpxyzlabel_styles $if "%gp_yinc%" == "no" $goto gpxyzlabel_styles put ' %gp_yinc%'/; * Write options for labels, title, style, border, lines, and key $label gpxyzlabel_styles $if not setglobal gp_label $goto gpxyzlabel_aftermanuallabels $if "%gp_label%" == "no" put 'unset label'/; $if "%gp_label%" == "no" $goto gpxyzlabel_aftermanuallabels put 'set label'/; $label gpxyzlabel_aftermanuallabels * X-labels $if not setglobal gp_xl_l1 $goto gpxyzlabel_xlabel_noloop $if "%gp_xl_l1%" == "no" $goto gpxyzlabel_xlabel_noloop put 'set xlabel "'; $if setglobal gp_xl_l1 put %gp_xl_l1%.tl; $if setglobal gp_xl_l2 put ' ',%gp_xl_l2%.tl; $if setglobal gp_xl_l3 put ' ',%gp_xl_l3%.tl; $if setglobal gp_xl_l4 put ' ',%gp_xl_l4%.tl; PUT '"' /; $goto gpxyzlabel_ylable_loop $label gpxyzlabel_xlabel_noloop $if not setglobal gp_xxxvalue put 'unset xlabel'/; $if "%gp_xxxvalue%" == "no" put 'unset xlabel'/; $if "%gp_xlabel%" == "no" put 'unset xlabel'/; $if "%gp_xlabel%" == "no" $goto gpxyzlabel_ylable_loop $if setglobal gp_xxxvalue put 'set xlabel "%gp_xxxvalue%"'/; $if setglobal gp_xlabel put 'set xlabel "%gp_xlabel%"'/; * Y-labels $label gpxyzlabel_ylable_loop $if not setglobal gp_yl_l1 $goto gpxyzlabel_ylabel_noloop $if "%gp_yl_l1%" == "no" $goto gpxyzlabel_ylabel_noloop put 'set ylabel "'; $if setglobal gp_yl_l1 put %gp_yl_l1%.tl; $if setglobal gp_yl_l2 put ' ',%gp_yl_l2%.tl; $if setglobal gp_yl_l3 put ' ',%gp_yl_l3%.tl; $if setglobal gp_yl_l4 put ' ',%gp_yl_l4%.tl; PUT '"' /; $goto gpxyzlabel_zlable_loop $label gpxyzlabel_ylabel_noloop $if not setglobal gp_yyyvalue put 'unset ylabel'/; $if "%gp_yyyvalue%" == "no" put 'unset ylabel'/; $if "%gp_ylabel%" == "no" put 'unset ylabel'/; $if "%gp_ylabel%" == "no" $goto gpxyzlabel_y2label_check $if setglobal gp_yyyvalue put 'set ylabel "%gp_yyyvalue%"'/; $if setglobal gp_ylabel put 'set ylabel "%gp_ylabel%"'/; $label gpxyzlabel_y2label_check $if not setglobal gp_y2label put 'unset y2label'/; $if "%gp_y2label%" == "no" put 'unset y2label'/; $if not setglobal gp_y2label $goto gpxyzlabel_zlable_loop $if "%gp_y2label%" == "no" $goto gpxyzlabel_zlable_loop put 'set y2label "%gp_y2label%"'/; * Z-labels $label gpxyzlabel_zlable_loop $if not setglobal gp_zl_l1 $goto gpxyzlabel_zlabel_noloop $if "%gp_zl_l1%" == "no" $goto gpxyzlabel_zlabel_noloop put 'set zlabel "'; $if setglobal gp_zl_l1 put %gp_zl_l1%.tl; $if setglobal gp_zl_l2 put ' ',%gp_zl_l2%.tl; $if setglobal gp_zl_l3 put ' ',%gp_zl_l3%.tl; $if setglobal gp_zl_l4 put ' ',%gp_zl_l4%.tl; PUT '"' /; $goto gpxyzlabel_plottitle $label gpxyzlabel_zlabel_noloop $if not dimension 4 %1 $goto gpxyzlabel_check_x2_label $if dimension 4 %1 put 'set zlabel "%gp_zzzvalue%"'/; $if setglobal gp_zlabel put 'set zlabel "%gp_zlabel%"'/; $if "%gp_zlabel%" == "no" put 'unset zlabel'/; $goto gpxyzlabel_plottitle * X2-labels $label gpxyzlabel_check_x2_label $if not setglobal gp_x2label $goto gpxyzlabel_y2label $if "%gp_x2label%" == "no" $goto gpxyzlabel_y2label put 'set x2label "%gp_x2label%"'/; * Y2-labels $label gpxyzlabel_y2label $if not setglobal gp_y2label $goto gpxyzlabel_plottitle $if "%gp_y2label%" == "no" $goto gpxyzlabel_plottitle put 'set y2label "%gp_y2label%"'/; * Title $label gpxyzlabel_plottitle $if "%gp_keeptitleinppt%" == "no" $goto gpxyzlabel_skiptitle $if setglobal gp_keeptitleinppt $goto gpxyzlabel_after_unsetppttitle $if setglobal gp_ppt put 'unset title'/; $if setglobal gp_ppt $goto gpxyzlabel_skiptitle $label gpxyzlabel_after_unsetppttitle $if "%gp_loop1%" == "no" $goto gpxyzlabel_nolooptitle $if setglobal gp_loop1 $goto gpxyzlabel_title_loop1 $label gpxyzlabel_nolooptitle $if not setglobal gp_title $goto gpxyzlabel_skiptitle $if "%gp_title%" == "no" $goto gpxyzlabel_skiptitle put 'set title "%gp_title%"'/; $goto gpxyzlabel_skiptitle $label gpxyzlabel_title_loop1 $if not setglobal gp_title $setglobal gp_title " " put 'set title "%gp_title% ',%gp_loop1%.te(%gp_loop1%); $if setglobal gp_loop2 $goto gpxyzlabel_title_loop2 put '"' /; $goto gpxyzlabel_skiptitle $label gpxyzlabel_title_loop2 $if "%gp_loop2%" == "no" put '"' /; $if "%gp_loop2%" == "no" $goto gpxyzlabel_skiptitle put ' ',%gp_loop2%.te(%gp_loop2%); $if setglobal gp_loop3 $goto gpxyzlabel_title_loop3 put '"' /; $goto gpxyzlabel_skiptitle $label gpxyzlabel_title_loop3 $if "%gp_loop3%" == "no" put '"' /; $if "%gp_loop3%" == "no" $goto gpxyzlabel_skiptitle put ' ',%gp_loop3%.te(%gp_loop3%); $if setglobal gp_loop4 $goto gpxyzlabel_title_loop4 put '"' /; $goto gpxyzlabel_skiptitle $label gpxyzlabel_title_loop4 $if "%gp_loop4%" == "no" put '"' /; $if "%gp_loop4%" == "no" $goto gpxyzlabel_skiptitle put ' ',%gp_loop4%.te(%gp_loop4%); put '"' /; $goto gpxyzlabel_skiptitle $label gpxyzlabel_skiptitle $if not setglobal gp_style $setglobal gp_style linespoints $if "%gp_style%" == "no" $setglobal gp_style linespoints $if dimension 1 %1 $goto gpxyzlabel_gp_label_nohistogram $if not a%2==a $goto gpxyzlabel_gp_label_nohistogram $if not setglobal gp_style $setglobal gp_style histogram $if not "%gp_style%"=="histogram" $setglobal gp_style histogram $label gpxyzlabel_gp_label_nohistogram put 'set style data %gp_style%'/; $if not setglobal gp_fill $setglobal gp_fill 'solid 1' $if "%gp_fill%" == "no" $setglobal gp_fill 'empty' put 'set style fill %gp_fill%'/; $if not "%gp_style%"=="histogram" $goto gpxyzlabel_rectangle_options $if not setglobal gp_hist $setglobal gp_hist 'cluster' $if "%gp_hist%" == "no" $setglobal gp_hist 'cluster' put 'set style histogram %gp_hist%'/; $label gpxyzlabel_rectangle_options $if not setglobal gp_rectangle $goto gpxyzlabel_borderoptions $if "%gp_rectangle%" == "no" $goto gpxyzlabel_borderoptions put 'set style rectangle %gp_rectangle%'/; * Border $label gpxyzlabel_borderoptions file.nd = 0; file.nw = 0; $if not setglobal gp_border $setglobal gp_border yes $if not setglobal gp_borddim $setglobal gp_borddim '' $if "%gp_borddim%" == "all" $setglobal gp_borddim '' $if "%gp_borddim%" == "four" $setglobal gp_borddim '' $if "%gp_borddim%" == "two" $setglobal gp_borddim '3' $if "%gp_borddim%" == "x" $setglobal gp_borddim '1' $if "%gp_borddim%" == "y" $setglobal gp_borddim '2' $if "%gp_borddim%" == "zero" $setglobal gp_border no $if "%gp_borddim%" == "no" $setglobal gp_border no $if %gp_border% == "yes" put 'set border',' %gp_borddim%'/; $if %gp_border% == "no" put 'unset border'/; $if %gp_border% == "0" put 'unset border'/; * Key $if "%gp_key%" == "yes" $setglobal gp_key 'top left' $if not setglobal gp_key put 'set key top left'/; $if "%gp_key%" == "no" put 'unset key'/; $if not setglobal gp_key $goto gpxyzlabel_pointsz $if "%gp_key%" == "no" $goto gpxyzlabel_pointsz put 'set key %gp_key% '; $if not setglobal gp_keyoption $goto gpxyzlabel_keytitle $if "%gp_keyoption%" == "no" $goto gpxyzlabel_keytitle put '%gp_keyoption% '; $label gpxyzlabel_keytitle $if not setglobal gp_keytitle $goto gpxyzlabel_key_box $if "%gp_keytitle%" == "no" $goto gpxyzlabel_key_box put 'title "%gp_keytitle%" ' $label gpxyzlabel_key_box $if not setglobal gp_keybox put /; $if "%gp_keybox%" == "no" put /; $if not setglobal gp_keybox $goto gpxyzlabel_pointsz $if "%gp_keybox%" == "no" $goto gpxyzlabel_pointsz put 'box' /; * Point size $label gpxyzlabel_pointsz $if setglobal gp_pointsz $setglobal gp_pointsize "%gp_pointsz%" $if not setglobal gp_pointsize $goto gpxyzlabel_after_pointsz $if "%gp_pointsize%" == "no" $goto gpxyzlabel_after_pointsz put 'set pointsize %gp_pointsize%' /; $label gpxyzlabel_after_pointsz * User defined options $if not setglobal gp_option_1 $goto gpxyzlabel_after_user_option_1 $if "%gp_option_1%" == "no" $goto gpxyzlabel_after_user_option_1 $if "%gp_option_1%" == "" $goto gpxyzlabel_after_user_option_1 put "%gp_option_1%" /; $label gpxyzlabel_after_user_option_1 $if not setglobal gp_option_2 $goto gpxyzlabel_after_user_option_2 $if "%gp_option_2%" == "no" $goto gpxyzlabel_after_user_option_2 $if "%gp_option_2%" == "" $goto gpxyzlabel_after_user_option_2 put "%gp_option_2%" /; $label gpxyzlabel_after_user_option_2 $if not setglobal gp_option_3 $goto gpxyzlabel_after_user_option_3 $if "%gp_option_3%" == "no" $goto gpxyzlabel_after_user_option_3 $if "%gp_option_3%" == "" $goto gpxyzlabel_after_user_option_3 put "%gp_option_3%" /; $label gpxyzlabel_after_user_option_3 $if not setglobal gp_option_4 $goto gpxyzlabel_after_user_option_4 $if "%gp_option_4%" == "no" $goto gpxyzlabel_after_user_option_4 $if "%gp_option_4%" == "" $goto gpxyzlabel_after_user_option_4 put "%gp_option_4%" /; $label gpxyzlabel_after_user_option_4 $if not setglobal gp_ppt $goto gpxyzlabel_afterpptlinestyle $if not setglobal gp_l1style $goto gpxyzlabel_afterpptlinestyle_1 $if "%gp_l1style%"=="no" $goto gpxyzlabel_afterpptlinestyle_1 put 'set style line 1 %gp_l1style%' /; $label gpxyzlabel_afterpptlinestyle_1 $label gpxyzlabel_afterpptlinestyle * Use up to 16 different styles $if not setglobal gp_l1style $setglobal gp_l1style %gp_style% $if "%gp_l1style%"=="no" $setglobal gp_l1style %gp_style% $if not setglobal gp_l2style $setglobal gp_l2style %gp_style% $if "%gp_l2style%"=="no" $setglobal gp_l2style %gp_style% $if not setglobal gp_l3style $setglobal gp_l3style %gp_style% $if "%gp_l3style%"=="no" $setglobal gp_l3style %gp_style% $if not setglobal gp_l4style $setglobal gp_l4style %gp_style% $if "%gp_l4style%"=="no" $setglobal gp_l4style %gp_style% $if not setglobal gp_l5style $setglobal gp_l5style %gp_style% $if "%gp_l5style%"=="no" $setglobal gp_l5style %gp_style% $if not setglobal gp_l6style $setglobal gp_l6style %gp_style% $if "%gp_l6style%"=="no" $setglobal gp_l6style %gp_style% $if not setglobal gp_l7style $setglobal gp_l7style %gp_style% $if "%gp_l7style%"=="no" $setglobal gp_l7style %gp_style% $if not setglobal gp_l8style $setglobal gp_l8style %gp_style% $if "%gp_l8style%"=="no" $setglobal gp_l8style %gp_style% $if not setglobal gp_l9style $setglobal gp_l9style %gp_style% $if "%gp_l9style%"=="no" $setglobal gp_l9style %gp_style% $if not setglobal gp_l10style $setglobal gp_l10style %gp_style% $if "%gp_l10style%"=="no" $setglobal gp_l10style %gp_style% $if not setglobal gp_l11style $setglobal gp_l11style %gp_style% $if "%gp_l11style%"=="no" $setglobal gp_l11style %gp_style% $if not setglobal gp_l12style $setglobal gp_l12style %gp_style% $if "%gp_l12style%"=="no" $setglobal gp_l12style %gp_style% $if not setglobal gp_l13style $setglobal gp_l13style %gp_style% $if "%gp_l13style%"=="no" $setglobal gp_l13style %gp_style% $if not setglobal gp_l14style $setglobal gp_l14style %gp_style% $if "%gp_l14style%"=="no" $setglobal gp_l14style %gp_style% $if not setglobal gp_l15style $setglobal gp_l15style %gp_style% $if "%gp_l15style%"=="no" $setglobal gp_l15style %gp_style% $if not setglobal gp_l16style $setglobal gp_l16style %gp_style% $if "%gp_l16style%"=="no" $setglobal gp_l16style %gp_style% file.nd = 0; file.nw = 6; * Insert Auto Code 3 produced by make_4_linestyle.gms - begin $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_fixcolorassignment_2d $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_fixcolorassignment_2d gp_fixlinecolormap(gp_hex_color_name,%gp_fixcolor_set%) = no; gp_count=0; LOOP(%gp_fixcolor_set%, gp_count=gp_count+1; $if not setglobal gp_lc_1 $goto gpxyzlabel_after_fixed_lc_1_assign $if "%gp_lc_1%"=="no" $goto gpxyzlabel_after_fixed_lc_1_assign gp_fixlinecolormap("%gp_lc_1%",%gp_fixcolor_set%) $(gp_count eq 1) = yes; $label gpxyzlabel_after_fixed_lc_1_assign $if not setglobal gp_lc_2 $goto gpxyzlabel_after_fixed_lc_2_assign $if "%gp_lc_2%"=="no" $goto gpxyzlabel_after_fixed_lc_2_assign gp_fixlinecolormap("%gp_lc_2%",%gp_fixcolor_set%) $(gp_count eq 2) = yes; $label gpxyzlabel_after_fixed_lc_2_assign $if not setglobal gp_lc_3 $goto gpxyzlabel_after_fixed_lc_3_assign $if "%gp_lc_3%"=="no" $goto gpxyzlabel_after_fixed_lc_3_assign gp_fixlinecolormap("%gp_lc_3%",%gp_fixcolor_set%) $(gp_count eq 3) = yes; $label gpxyzlabel_after_fixed_lc_3_assign $if not setglobal gp_lc_4 $goto gpxyzlabel_after_fixed_lc_4_assign $if "%gp_lc_4%"=="no" $goto gpxyzlabel_after_fixed_lc_4_assign gp_fixlinecolormap("%gp_lc_4%",%gp_fixcolor_set%) $(gp_count eq 4) = yes; $label gpxyzlabel_after_fixed_lc_4_assign $if not setglobal gp_lc_5 $goto gpxyzlabel_after_fixed_lc_5_assign $if "%gp_lc_5%"=="no" $goto gpxyzlabel_after_fixed_lc_5_assign gp_fixlinecolormap("%gp_lc_5%",%gp_fixcolor_set%) $(gp_count eq 5) = yes; $label gpxyzlabel_after_fixed_lc_5_assign $if not setglobal gp_lc_6 $goto gpxyzlabel_after_fixed_lc_6_assign $if "%gp_lc_6%"=="no" $goto gpxyzlabel_after_fixed_lc_6_assign gp_fixlinecolormap("%gp_lc_6%",%gp_fixcolor_set%) $(gp_count eq 6) = yes; $label gpxyzlabel_after_fixed_lc_6_assign $if not setglobal gp_lc_7 $goto gpxyzlabel_after_fixed_lc_7_assign $if "%gp_lc_7%"=="no" $goto gpxyzlabel_after_fixed_lc_7_assign gp_fixlinecolormap("%gp_lc_7%",%gp_fixcolor_set%) $(gp_count eq 7) = yes; $label gpxyzlabel_after_fixed_lc_7_assign $if not setglobal gp_lc_8 $goto gpxyzlabel_after_fixed_lc_8_assign $if "%gp_lc_8%"=="no" $goto gpxyzlabel_after_fixed_lc_8_assign gp_fixlinecolormap("%gp_lc_8%",%gp_fixcolor_set%) $(gp_count eq 8) = yes; $label gpxyzlabel_after_fixed_lc_8_assign $if not setglobal gp_lc_9 $goto gpxyzlabel_after_fixed_lc_9_assign $if "%gp_lc_9%"=="no" $goto gpxyzlabel_after_fixed_lc_9_assign gp_fixlinecolormap("%gp_lc_9%",%gp_fixcolor_set%) $(gp_count eq 9) = yes; $label gpxyzlabel_after_fixed_lc_9_assign $if not setglobal gp_lc_10 $goto gpxyzlabel_after_fixed_lc_10_assign $if "%gp_lc_10%"=="no" $goto gpxyzlabel_after_fixed_lc_10_assign gp_fixlinecolormap("%gp_lc_10%",%gp_fixcolor_set%) $(gp_count eq 10) = yes; $label gpxyzlabel_after_fixed_lc_10_assign $if not setglobal gp_lc_11 $goto gpxyzlabel_after_fixed_lc_11_assign $if "%gp_lc_11%"=="no" $goto gpxyzlabel_after_fixed_lc_11_assign gp_fixlinecolormap("%gp_lc_11%",%gp_fixcolor_set%) $(gp_count eq 11) = yes; $label gpxyzlabel_after_fixed_lc_11_assign $if not setglobal gp_lc_12 $goto gpxyzlabel_after_fixed_lc_12_assign $if "%gp_lc_12%"=="no" $goto gpxyzlabel_after_fixed_lc_12_assign gp_fixlinecolormap("%gp_lc_12%",%gp_fixcolor_set%) $(gp_count eq 12) = yes; $label gpxyzlabel_after_fixed_lc_12_assign $if not setglobal gp_lc_13 $goto gpxyzlabel_after_fixed_lc_13_assign $if "%gp_lc_13%"=="no" $goto gpxyzlabel_after_fixed_lc_13_assign gp_fixlinecolormap("%gp_lc_13%",%gp_fixcolor_set%) $(gp_count eq 13) = yes; $label gpxyzlabel_after_fixed_lc_13_assign $if not setglobal gp_lc_14 $goto gpxyzlabel_after_fixed_lc_14_assign $if "%gp_lc_14%"=="no" $goto gpxyzlabel_after_fixed_lc_14_assign gp_fixlinecolormap("%gp_lc_14%",%gp_fixcolor_set%) $(gp_count eq 14) = yes; $label gpxyzlabel_after_fixed_lc_14_assign $if not setglobal gp_lc_15 $goto gpxyzlabel_after_fixed_lc_15_assign $if "%gp_lc_15%"=="no" $goto gpxyzlabel_after_fixed_lc_15_assign gp_fixlinecolormap("%gp_lc_15%",%gp_fixcolor_set%) $(gp_count eq 15) = yes; $label gpxyzlabel_after_fixed_lc_15_assign $if not setglobal gp_lc_16 $goto gpxyzlabel_after_fixed_lc_16_assign $if "%gp_lc_16%"=="no" $goto gpxyzlabel_after_fixed_lc_16_assign gp_fixlinecolormap("%gp_lc_16%",%gp_fixcolor_set%) $(gp_count eq 16) = yes; $label gpxyzlabel_after_fixed_lc_16_assign $if not setglobal gp_lc_17 $goto gpxyzlabel_after_fixed_lc_17_assign $if "%gp_lc_17%"=="no" $goto gpxyzlabel_after_fixed_lc_17_assign gp_fixlinecolormap("%gp_lc_17%",%gp_fixcolor_set%) $(gp_count eq 17) = yes; $label gpxyzlabel_after_fixed_lc_17_assign $if not setglobal gp_lc_18 $goto gpxyzlabel_after_fixed_lc_18_assign $if "%gp_lc_18%"=="no" $goto gpxyzlabel_after_fixed_lc_18_assign gp_fixlinecolormap("%gp_lc_18%",%gp_fixcolor_set%) $(gp_count eq 18) = yes; $label gpxyzlabel_after_fixed_lc_18_assign $if not setglobal gp_lc_19 $goto gpxyzlabel_after_fixed_lc_19_assign $if "%gp_lc_19%"=="no" $goto gpxyzlabel_after_fixed_lc_19_assign gp_fixlinecolormap("%gp_lc_19%",%gp_fixcolor_set%) $(gp_count eq 19) = yes; $label gpxyzlabel_after_fixed_lc_19_assign $if not setglobal gp_lc_20 $goto gpxyzlabel_after_fixed_lc_20_assign $if "%gp_lc_20%"=="no" $goto gpxyzlabel_after_fixed_lc_20_assign gp_fixlinecolormap("%gp_lc_20%",%gp_fixcolor_set%) $(gp_count eq 20) = yes; $label gpxyzlabel_after_fixed_lc_20_assign ); $label gpxyzlabel_after_fixcolorassignment_2d * Insert Auto Code 3 produced by make_4_linestyle.gms - end * +++++++++++++++++++++++ * * Section Plot Statements * * +++++++++++++++++++++++ * * Direct to histograms, 2D or 3D plots $if dimension 1 %1 $goto gpxyzlabel_plotstatement_1dgraph $if dimension 2 %1 $goto gpxyzlabel_plotstatement_histogram $if a%2 == a $goto gpxyzlabel_plotstatement_newhistogram $if dimension 4 %1 $goto gpxyzlabel_plotstatement_3dgraph * 2D plots put 'plot '; gp_count=1; loop(%gp_scen%, if (gp_count gt 1, put ',';); file.nw = 0 put '\'/' "gnuplot.dat" index ',(gp_count-1):0:0; put ' using 1:2'; * filled curves $if not "%gp_style%"=="filledcurves" $goto gpxyzlabel_after_fillcurvecheck $if a%4==a $goto gpxyzlabel_after_fillcurvecheck put ':3'; $label gpxyzlabel_after_fillcurvecheck * Insert Auto Code 4 produced by make_4_linestyle.gms - begin $if "%gp_l1style%"=="no" $goto gpxyzlabel_l_1_errorstyle $if "%gp_l1style%"=="xerrorlines" If(gp_count eq 1, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l1style%"=="yerrorlines" If(gp_count eq 1, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l1style%"=="xerrorbars" If(gp_count eq 1, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l1style%"=="yerrorbars" If(gp_count eq 1, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l1style%"=="candlesticks" If(gp_count eq 1, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l1style%"=="xyerrorlines" If(gp_count eq 1, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l1style%"=="xyerrorbars" If(gp_count eq 1, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l1style%"=="boxxyerrorbars" If(gp_count eq 1, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_1_errorstyle $if "%gp_l2style%"=="no" $goto gpxyzlabel_l_2_errorstyle $if "%gp_l2style%"=="xerrorlines" If(gp_count eq 2, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l2style%"=="yerrorlines" If(gp_count eq 2, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l2style%"=="xerrorbars" If(gp_count eq 2, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l2style%"=="yerrorbars" If(gp_count eq 2, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l2style%"=="candlesticks" If(gp_count eq 2, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l2style%"=="xyerrorlines" If(gp_count eq 2, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l2style%"=="xyerrorbars" If(gp_count eq 2, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l2style%"=="boxxyerrorbars" If(gp_count eq 2, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_2_errorstyle $if "%gp_l3style%"=="no" $goto gpxyzlabel_l_3_errorstyle $if "%gp_l3style%"=="xerrorlines" If(gp_count eq 3, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l3style%"=="yerrorlines" If(gp_count eq 3, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l3style%"=="xerrorbars" If(gp_count eq 3, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l3style%"=="yerrorbars" If(gp_count eq 3, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l3style%"=="candlesticks" If(gp_count eq 3, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l3style%"=="xyerrorlines" If(gp_count eq 3, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l3style%"=="xyerrorbars" If(gp_count eq 3, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l3style%"=="boxxyerrorbars" If(gp_count eq 3, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_3_errorstyle $if "%gp_l4style%"=="no" $goto gpxyzlabel_l_4_errorstyle $if "%gp_l4style%"=="xerrorlines" If(gp_count eq 4, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l4style%"=="yerrorlines" If(gp_count eq 4, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l4style%"=="xerrorbars" If(gp_count eq 4, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l4style%"=="yerrorbars" If(gp_count eq 4, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l4style%"=="candlesticks" If(gp_count eq 4, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l4style%"=="xyerrorlines" If(gp_count eq 4, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l4style%"=="xyerrorbars" If(gp_count eq 4, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l4style%"=="boxxyerrorbars" If(gp_count eq 4, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_4_errorstyle $if "%gp_l5style%"=="no" $goto gpxyzlabel_l_5_errorstyle $if "%gp_l5style%"=="xerrorlines" If(gp_count eq 5, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l5style%"=="yerrorlines" If(gp_count eq 5, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l5style%"=="xerrorbars" If(gp_count eq 5, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l5style%"=="yerrorbars" If(gp_count eq 5, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l5style%"=="candlesticks" If(gp_count eq 5, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l5style%"=="xyerrorlines" If(gp_count eq 5, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l5style%"=="xyerrorbars" If(gp_count eq 5, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l5style%"=="boxxyerrorbars" If(gp_count eq 5, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_5_errorstyle $if "%gp_l6style%"=="no" $goto gpxyzlabel_l_6_errorstyle $if "%gp_l6style%"=="xerrorlines" If(gp_count eq 6, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l6style%"=="yerrorlines" If(gp_count eq 6, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l6style%"=="xerrorbars" If(gp_count eq 6, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l6style%"=="yerrorbars" If(gp_count eq 6, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l6style%"=="candlesticks" If(gp_count eq 6, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l6style%"=="xyerrorlines" If(gp_count eq 6, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l6style%"=="xyerrorbars" If(gp_count eq 6, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l6style%"=="boxxyerrorbars" If(gp_count eq 6, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_6_errorstyle $if "%gp_l7style%"=="no" $goto gpxyzlabel_l_7_errorstyle $if "%gp_l7style%"=="xerrorlines" If(gp_count eq 7, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l7style%"=="yerrorlines" If(gp_count eq 7, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l7style%"=="xerrorbars" If(gp_count eq 7, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l7style%"=="yerrorbars" If(gp_count eq 7, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l7style%"=="candlesticks" If(gp_count eq 7, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l7style%"=="xyerrorlines" If(gp_count eq 7, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l7style%"=="xyerrorbars" If(gp_count eq 7, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l7style%"=="boxxyerrorbars" If(gp_count eq 7, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_7_errorstyle $if "%gp_l8style%"=="no" $goto gpxyzlabel_l_8_errorstyle $if "%gp_l8style%"=="xerrorlines" If(gp_count eq 8, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l8style%"=="yerrorlines" If(gp_count eq 8, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l8style%"=="xerrorbars" If(gp_count eq 8, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l8style%"=="yerrorbars" If(gp_count eq 8, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l8style%"=="candlesticks" If(gp_count eq 8, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l8style%"=="xyerrorlines" If(gp_count eq 8, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l8style%"=="xyerrorbars" If(gp_count eq 8, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l8style%"=="boxxyerrorbars" If(gp_count eq 8, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_8_errorstyle $if "%gp_l9style%"=="no" $goto gpxyzlabel_l_9_errorstyle $if "%gp_l9style%"=="xerrorlines" If(gp_count eq 9, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l9style%"=="yerrorlines" If(gp_count eq 9, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l9style%"=="xerrorbars" If(gp_count eq 9, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l9style%"=="yerrorbars" If(gp_count eq 9, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l9style%"=="candlesticks" If(gp_count eq 9, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l9style%"=="xyerrorlines" If(gp_count eq 9, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l9style%"=="xyerrorbars" If(gp_count eq 9, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l9style%"=="boxxyerrorbars" If(gp_count eq 9, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_9_errorstyle $if "%gp_l10style%"=="no" $goto gpxyzlabel_l_10_errorstyle $if "%gp_l10style%"=="xerrorlines" If(gp_count eq 10, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l10style%"=="yerrorlines" If(gp_count eq 10, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l10style%"=="xerrorbars" If(gp_count eq 10, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l10style%"=="yerrorbars" If(gp_count eq 10, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l10style%"=="candlesticks" If(gp_count eq 10, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l10style%"=="xyerrorlines" If(gp_count eq 10, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l10style%"=="xyerrorbars" If(gp_count eq 10, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l10style%"=="boxxyerrorbars" If(gp_count eq 10, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_10_errorstyle $if "%gp_l11style%"=="no" $goto gpxyzlabel_l_11_errorstyle $if "%gp_l11style%"=="xerrorlines" If(gp_count eq 11, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l11style%"=="yerrorlines" If(gp_count eq 11, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l11style%"=="xerrorbars" If(gp_count eq 11, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l11style%"=="yerrorbars" If(gp_count eq 11, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l11style%"=="candlesticks" If(gp_count eq 11, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l11style%"=="xyerrorlines" If(gp_count eq 11, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l11style%"=="xyerrorbars" If(gp_count eq 11, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l11style%"=="boxxyerrorbars" If(gp_count eq 11, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_11_errorstyle $if "%gp_l12style%"=="no" $goto gpxyzlabel_l_12_errorstyle $if "%gp_l12style%"=="xerrorlines" If(gp_count eq 12, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l12style%"=="yerrorlines" If(gp_count eq 12, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l12style%"=="xerrorbars" If(gp_count eq 12, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l12style%"=="yerrorbars" If(gp_count eq 12, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l12style%"=="candlesticks" If(gp_count eq 12, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l12style%"=="xyerrorlines" If(gp_count eq 12, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l12style%"=="xyerrorbars" If(gp_count eq 12, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l12style%"=="boxxyerrorbars" If(gp_count eq 12, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_12_errorstyle $if "%gp_l13style%"=="no" $goto gpxyzlabel_l_13_errorstyle $if "%gp_l13style%"=="xerrorlines" If(gp_count eq 13, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l13style%"=="yerrorlines" If(gp_count eq 13, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l13style%"=="xerrorbars" If(gp_count eq 13, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l13style%"=="yerrorbars" If(gp_count eq 13, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l13style%"=="candlesticks" If(gp_count eq 13, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l13style%"=="xyerrorlines" If(gp_count eq 13, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l13style%"=="xyerrorbars" If(gp_count eq 13, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l13style%"=="boxxyerrorbars" If(gp_count eq 13, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_13_errorstyle $if "%gp_l14style%"=="no" $goto gpxyzlabel_l_14_errorstyle $if "%gp_l14style%"=="xerrorlines" If(gp_count eq 14, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l14style%"=="yerrorlines" If(gp_count eq 14, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l14style%"=="xerrorbars" If(gp_count eq 14, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l14style%"=="yerrorbars" If(gp_count eq 14, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l14style%"=="candlesticks" If(gp_count eq 14, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l14style%"=="xyerrorlines" If(gp_count eq 14, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l14style%"=="xyerrorbars" If(gp_count eq 14, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l14style%"=="boxxyerrorbars" If(gp_count eq 14, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_14_errorstyle $if "%gp_l15style%"=="no" $goto gpxyzlabel_l_15_errorstyle $if "%gp_l15style%"=="xerrorlines" If(gp_count eq 15, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l15style%"=="yerrorlines" If(gp_count eq 15, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l15style%"=="xerrorbars" If(gp_count eq 15, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l15style%"=="yerrorbars" If(gp_count eq 15, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l15style%"=="candlesticks" If(gp_count eq 15, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l15style%"=="xyerrorlines" If(gp_count eq 15, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l15style%"=="xyerrorbars" If(gp_count eq 15, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l15style%"=="boxxyerrorbars" If(gp_count eq 15, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_15_errorstyle $if "%gp_l16style%"=="no" $goto gpxyzlabel_l_16_errorstyle $if "%gp_l16style%"=="xerrorlines" If(gp_count eq 16, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l16style%"=="yerrorlines" If(gp_count eq 16, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l16style%"=="xerrorbars" If(gp_count eq 16, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l16style%"=="yerrorbars" If(gp_count eq 16, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l16style%"=="candlesticks" If(gp_count eq 16, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l16style%"=="xyerrorlines" If(gp_count eq 16, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l16style%"=="xyerrorbars" If(gp_count eq 16, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l16style%"=="boxxyerrorbars" If(gp_count eq 16, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_16_errorstyle $if "%gp_l17style%"=="no" $goto gpxyzlabel_l_17_errorstyle $if "%gp_l17style%"=="xerrorlines" If(gp_count eq 17, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l17style%"=="yerrorlines" If(gp_count eq 17, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l17style%"=="xerrorbars" If(gp_count eq 17, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l17style%"=="yerrorbars" If(gp_count eq 17, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l17style%"=="candlesticks" If(gp_count eq 17, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l17style%"=="xyerrorlines" If(gp_count eq 17, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l17style%"=="xyerrorbars" If(gp_count eq 17, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l17style%"=="boxxyerrorbars" If(gp_count eq 17, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_17_errorstyle $if "%gp_l18style%"=="no" $goto gpxyzlabel_l_18_errorstyle $if "%gp_l18style%"=="xerrorlines" If(gp_count eq 18, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l18style%"=="yerrorlines" If(gp_count eq 18, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l18style%"=="xerrorbars" If(gp_count eq 18, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l18style%"=="yerrorbars" If(gp_count eq 18, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l18style%"=="candlesticks" If(gp_count eq 18, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l18style%"=="xyerrorlines" If(gp_count eq 18, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l18style%"=="xyerrorbars" If(gp_count eq 18, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l18style%"=="boxxyerrorbars" If(gp_count eq 18, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_18_errorstyle $if "%gp_l19style%"=="no" $goto gpxyzlabel_l_19_errorstyle $if "%gp_l19style%"=="xerrorlines" If(gp_count eq 19, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l19style%"=="yerrorlines" If(gp_count eq 19, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l19style%"=="xerrorbars" If(gp_count eq 19, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l19style%"=="yerrorbars" If(gp_count eq 19, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l19style%"=="candlesticks" If(gp_count eq 19, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l19style%"=="xyerrorlines" If(gp_count eq 19, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l19style%"=="xyerrorbars" If(gp_count eq 19, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l19style%"=="boxxyerrorbars" If(gp_count eq 19, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_19_errorstyle $if "%gp_l20style%"=="no" $goto gpxyzlabel_l_20_errorstyle $if "%gp_l20style%"=="xerrorlines" If(gp_count eq 20, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l20style%"=="yerrorlines" If(gp_count eq 20, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l20style%"=="xerrorbars" If(gp_count eq 20, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l20style%"=="yerrorbars" If(gp_count eq 20, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l20style%"=="candlesticks" If(gp_count eq 20, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l20style%"=="xyerrorlines" If(gp_count eq 20, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l20style%"=="xyerrorbars" If(gp_count eq 20, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l20style%"=="boxxyerrorbars" If(gp_count eq 20, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $label gpxyzlabel_l_20_errorstyle * Insert Auto Code 4 produced by make_4_linestyle.gms - end * Insert Auto Code 5 produced by make_4_linestyle.gms - begin $if not setglobal gp_l1axes $goto gpxyzlabel_after_1_axes $if "%gp_l1axes%"=="no" $goto gpxyzlabel_after_1_axes If(gp_count eq 1, put ' axes %gp_l1axes%';); $label gpxyzlabel_after_1_axes $if not setglobal gp_l2axes $goto gpxyzlabel_after_2_axes $if "%gp_l2axes%"=="no" $goto gpxyzlabel_after_2_axes If(gp_count eq 2, put ' axes %gp_l2axes%';); $label gpxyzlabel_after_2_axes $if not setglobal gp_l3axes $goto gpxyzlabel_after_3_axes $if "%gp_l3axes%"=="no" $goto gpxyzlabel_after_3_axes If(gp_count eq 3, put ' axes %gp_l3axes%';); $label gpxyzlabel_after_3_axes $if not setglobal gp_l4axes $goto gpxyzlabel_after_4_axes $if "%gp_l4axes%"=="no" $goto gpxyzlabel_after_4_axes If(gp_count eq 4, put ' axes %gp_l4axes%';); $label gpxyzlabel_after_4_axes $if not setglobal gp_l5axes $goto gpxyzlabel_after_5_axes $if "%gp_l5axes%"=="no" $goto gpxyzlabel_after_5_axes If(gp_count eq 5, put ' axes %gp_l5axes%';); $label gpxyzlabel_after_5_axes $if not setglobal gp_l6axes $goto gpxyzlabel_after_6_axes $if "%gp_l6axes%"=="no" $goto gpxyzlabel_after_6_axes If(gp_count eq 6, put ' axes %gp_l6axes%';); $label gpxyzlabel_after_6_axes $if not setglobal gp_l7axes $goto gpxyzlabel_after_7_axes $if "%gp_l7axes%"=="no" $goto gpxyzlabel_after_7_axes If(gp_count eq 7, put ' axes %gp_l7axes%';); $label gpxyzlabel_after_7_axes $if not setglobal gp_l8axes $goto gpxyzlabel_after_8_axes $if "%gp_l8axes%"=="no" $goto gpxyzlabel_after_8_axes If(gp_count eq 8, put ' axes %gp_l8axes%';); $label gpxyzlabel_after_8_axes $if not setglobal gp_l9axes $goto gpxyzlabel_after_9_axes $if "%gp_l9axes%"=="no" $goto gpxyzlabel_after_9_axes If(gp_count eq 9, put ' axes %gp_l9axes%';); $label gpxyzlabel_after_9_axes $if not setglobal gp_l10axes $goto gpxyzlabel_after_10_axes $if "%gp_l10axes%"=="no" $goto gpxyzlabel_after_10_axes If(gp_count eq 10, put ' axes %gp_l10axes%';); $label gpxyzlabel_after_10_axes $if not setglobal gp_l11axes $goto gpxyzlabel_after_11_axes $if "%gp_l11axes%"=="no" $goto gpxyzlabel_after_11_axes If(gp_count eq 11, put ' axes %gp_l11axes%';); $label gpxyzlabel_after_11_axes $if not setglobal gp_l12axes $goto gpxyzlabel_after_12_axes $if "%gp_l12axes%"=="no" $goto gpxyzlabel_after_12_axes If(gp_count eq 12, put ' axes %gp_l12axes%';); $label gpxyzlabel_after_12_axes $if not setglobal gp_l13axes $goto gpxyzlabel_after_13_axes $if "%gp_l13axes%"=="no" $goto gpxyzlabel_after_13_axes If(gp_count eq 13, put ' axes %gp_l13axes%';); $label gpxyzlabel_after_13_axes $if not setglobal gp_l14axes $goto gpxyzlabel_after_14_axes $if "%gp_l14axes%"=="no" $goto gpxyzlabel_after_14_axes If(gp_count eq 14, put ' axes %gp_l14axes%';); $label gpxyzlabel_after_14_axes $if not setglobal gp_l15axes $goto gpxyzlabel_after_15_axes $if "%gp_l15axes%"=="no" $goto gpxyzlabel_after_15_axes If(gp_count eq 15, put ' axes %gp_l15axes%';); $label gpxyzlabel_after_15_axes $if not setglobal gp_l16axes $goto gpxyzlabel_after_16_axes $if "%gp_l16axes%"=="no" $goto gpxyzlabel_after_16_axes If(gp_count eq 16, put ' axes %gp_l16axes%';); $label gpxyzlabel_after_16_axes $if not setglobal gp_l17axes $goto gpxyzlabel_after_17_axes $if "%gp_l17axes%"=="no" $goto gpxyzlabel_after_17_axes If(gp_count eq 17, put ' axes %gp_l17axes%';); $label gpxyzlabel_after_17_axes $if not setglobal gp_l18axes $goto gpxyzlabel_after_18_axes $if "%gp_l18axes%"=="no" $goto gpxyzlabel_after_18_axes If(gp_count eq 18, put ' axes %gp_l18axes%';); $label gpxyzlabel_after_18_axes $if not setglobal gp_l19axes $goto gpxyzlabel_after_19_axes $if "%gp_l19axes%"=="no" $goto gpxyzlabel_after_19_axes If(gp_count eq 19, put ' axes %gp_l19axes%';); $label gpxyzlabel_after_19_axes $if not setglobal gp_l20axes $goto gpxyzlabel_after_20_axes $if "%gp_l20axes%"=="no" $goto gpxyzlabel_after_20_axes If(gp_count eq 20, put ' axes %gp_l20axes%';); $label gpxyzlabel_after_20_axes * Insert Auto Code 5 produced by make_4_linestyle.gms - end put ' title "',%gp_scen%.tl,'"'; * Insert Auto Code 6 produced by make_4_linestyle.gms - begin $if not setglobal gp_l1style $goto gpxyzlabel_l_1_style $if "%gp_l1style%"=="no" $goto gpxyzlabel_l_1_style If(gp_count eq 1, put " with %gp_l1style%";); $if not "%gp_l1style%" == "boxes" $goto gpxyzlabel_l_1_style $if "%gp_color%" == "no" If(gp_count eq 1, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 1, put " lt -1";); $label gpxyzlabel_l_1_style $if not setglobal gp_l2style $goto gpxyzlabel_l_2_style $if "%gp_l2style%"=="no" $goto gpxyzlabel_l_2_style If(gp_count eq 2, put " with %gp_l2style%";); $if not "%gp_l2style%" == "boxes" $goto gpxyzlabel_l_2_style $if "%gp_color%" == "no" If(gp_count eq 2, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 2, put " lt -1";); $label gpxyzlabel_l_2_style $if not setglobal gp_l3style $goto gpxyzlabel_l_3_style $if "%gp_l3style%"=="no" $goto gpxyzlabel_l_3_style If(gp_count eq 3, put " with %gp_l3style%";); $if not "%gp_l3style%" == "boxes" $goto gpxyzlabel_l_3_style $if "%gp_color%" == "no" If(gp_count eq 3, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 3, put " lt -1";); $label gpxyzlabel_l_3_style $if not setglobal gp_l4style $goto gpxyzlabel_l_4_style $if "%gp_l4style%"=="no" $goto gpxyzlabel_l_4_style If(gp_count eq 4, put " with %gp_l4style%";); $if not "%gp_l4style%" == "boxes" $goto gpxyzlabel_l_4_style $if "%gp_color%" == "no" If(gp_count eq 4, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 4, put " lt -1";); $label gpxyzlabel_l_4_style $if not setglobal gp_l5style $goto gpxyzlabel_l_5_style $if "%gp_l5style%"=="no" $goto gpxyzlabel_l_5_style If(gp_count eq 5, put " with %gp_l5style%";); $if not "%gp_l5style%" == "boxes" $goto gpxyzlabel_l_5_style $if "%gp_color%" == "no" If(gp_count eq 5, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 5, put " lt -1";); $label gpxyzlabel_l_5_style $if not setglobal gp_l6style $goto gpxyzlabel_l_6_style $if "%gp_l6style%"=="no" $goto gpxyzlabel_l_6_style If(gp_count eq 6, put " with %gp_l6style%";); $if not "%gp_l6style%" == "boxes" $goto gpxyzlabel_l_6_style $if "%gp_color%" == "no" If(gp_count eq 6, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 6, put " lt -1";); $label gpxyzlabel_l_6_style $if not setglobal gp_l7style $goto gpxyzlabel_l_7_style $if "%gp_l7style%"=="no" $goto gpxyzlabel_l_7_style If(gp_count eq 7, put " with %gp_l7style%";); $if not "%gp_l7style%" == "boxes" $goto gpxyzlabel_l_7_style $if "%gp_color%" == "no" If(gp_count eq 7, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 7, put " lt -1";); $label gpxyzlabel_l_7_style $if not setglobal gp_l8style $goto gpxyzlabel_l_8_style $if "%gp_l8style%"=="no" $goto gpxyzlabel_l_8_style If(gp_count eq 8, put " with %gp_l8style%";); $if not "%gp_l8style%" == "boxes" $goto gpxyzlabel_l_8_style $if "%gp_color%" == "no" If(gp_count eq 8, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 8, put " lt -1";); $label gpxyzlabel_l_8_style $if not setglobal gp_l9style $goto gpxyzlabel_l_9_style $if "%gp_l9style%"=="no" $goto gpxyzlabel_l_9_style If(gp_count eq 9, put " with %gp_l9style%";); $if not "%gp_l9style%" == "boxes" $goto gpxyzlabel_l_9_style $if "%gp_color%" == "no" If(gp_count eq 9, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 9, put " lt -1";); $label gpxyzlabel_l_9_style $if not setglobal gp_l10style $goto gpxyzlabel_l_10_style $if "%gp_l10style%"=="no" $goto gpxyzlabel_l_10_style If(gp_count eq 10, put " with %gp_l10style%";); $if not "%gp_l10style%" == "boxes" $goto gpxyzlabel_l_10_style $if "%gp_color%" == "no" If(gp_count eq 10, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 10, put " lt -1";); $label gpxyzlabel_l_10_style $if not setglobal gp_l11style $goto gpxyzlabel_l_11_style $if "%gp_l11style%"=="no" $goto gpxyzlabel_l_11_style If(gp_count eq 11, put " with %gp_l11style%";); $if not "%gp_l11style%" == "boxes" $goto gpxyzlabel_l_11_style $if "%gp_color%" == "no" If(gp_count eq 11, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 11, put " lt -1";); $label gpxyzlabel_l_11_style $if not setglobal gp_l12style $goto gpxyzlabel_l_12_style $if "%gp_l12style%"=="no" $goto gpxyzlabel_l_12_style If(gp_count eq 12, put " with %gp_l12style%";); $if not "%gp_l12style%" == "boxes" $goto gpxyzlabel_l_12_style $if "%gp_color%" == "no" If(gp_count eq 12, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 12, put " lt -1";); $label gpxyzlabel_l_12_style $if not setglobal gp_l13style $goto gpxyzlabel_l_13_style $if "%gp_l13style%"=="no" $goto gpxyzlabel_l_13_style If(gp_count eq 13, put " with %gp_l13style%";); $if not "%gp_l13style%" == "boxes" $goto gpxyzlabel_l_13_style $if "%gp_color%" == "no" If(gp_count eq 13, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 13, put " lt -1";); $label gpxyzlabel_l_13_style $if not setglobal gp_l14style $goto gpxyzlabel_l_14_style $if "%gp_l14style%"=="no" $goto gpxyzlabel_l_14_style If(gp_count eq 14, put " with %gp_l14style%";); $if not "%gp_l14style%" == "boxes" $goto gpxyzlabel_l_14_style $if "%gp_color%" == "no" If(gp_count eq 14, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 14, put " lt -1";); $label gpxyzlabel_l_14_style $if not setglobal gp_l15style $goto gpxyzlabel_l_15_style $if "%gp_l15style%"=="no" $goto gpxyzlabel_l_15_style If(gp_count eq 15, put " with %gp_l15style%";); $if not "%gp_l15style%" == "boxes" $goto gpxyzlabel_l_15_style $if "%gp_color%" == "no" If(gp_count eq 15, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 15, put " lt -1";); $label gpxyzlabel_l_15_style $if not setglobal gp_l16style $goto gpxyzlabel_l_16_style $if "%gp_l16style%"=="no" $goto gpxyzlabel_l_16_style If(gp_count eq 16, put " with %gp_l16style%";); $if not "%gp_l16style%" == "boxes" $goto gpxyzlabel_l_16_style $if "%gp_color%" == "no" If(gp_count eq 16, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 16, put " lt -1";); $label gpxyzlabel_l_16_style $if not setglobal gp_l17style $goto gpxyzlabel_l_17_style $if "%gp_l17style%"=="no" $goto gpxyzlabel_l_17_style If(gp_count eq 17, put " with %gp_l17style%";); $if not "%gp_l17style%" == "boxes" $goto gpxyzlabel_l_17_style $if "%gp_color%" == "no" If(gp_count eq 17, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 17, put " lt -1";); $label gpxyzlabel_l_17_style $if not setglobal gp_l18style $goto gpxyzlabel_l_18_style $if "%gp_l18style%"=="no" $goto gpxyzlabel_l_18_style If(gp_count eq 18, put " with %gp_l18style%";); $if not "%gp_l18style%" == "boxes" $goto gpxyzlabel_l_18_style $if "%gp_color%" == "no" If(gp_count eq 18, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 18, put " lt -1";); $label gpxyzlabel_l_18_style $if not setglobal gp_l19style $goto gpxyzlabel_l_19_style $if "%gp_l19style%"=="no" $goto gpxyzlabel_l_19_style If(gp_count eq 19, put " with %gp_l19style%";); $if not "%gp_l19style%" == "boxes" $goto gpxyzlabel_l_19_style $if "%gp_color%" == "no" If(gp_count eq 19, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 19, put " lt -1";); $label gpxyzlabel_l_19_style $if not setglobal gp_l20style $goto gpxyzlabel_l_20_style $if "%gp_l20style%"=="no" $goto gpxyzlabel_l_20_style If(gp_count eq 20, put " with %gp_l20style%";); $if not "%gp_l20style%" == "boxes" $goto gpxyzlabel_l_20_style $if "%gp_color%" == "no" If(gp_count eq 20, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 20, put " lt -1";); $label gpxyzlabel_l_20_style * Insert Auto Code 6 produced by make_4_linestyle.gms - end * Insert Auto Code 7 produced by make_4_linestyle.gms - begin If(gp_count eq 1, $if not setglobal gp_lc_1 $goto gpxyzlabel_after_lc_1_assign $if "%gp_lc_1%"=="no" $goto gpxyzlabel_after_lc_1_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_1_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_1_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_1_normalassign $label gpxyzlabel_after_lc_1_fixedassign gp_xyz_ind_col("%gp_lc_1%") = yes; $label gpxyzlabel_after_lc_1_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_1%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_1_assign $if not setglobal gp_lw_1 $goto gpxyzlabel_after_lw_1_assign $if "%gp_lw_1%"=="no" $goto gpxyzlabel_after_lw_1_assign put " lw %gp_lw_1%"; $goto gpxyzlabel_after_lwidth_general_assign_1 $label gpxyzlabel_after_lw_1_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_1 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_1 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_1 ); If(gp_count eq 2, $if not setglobal gp_lc_2 $goto gpxyzlabel_after_lc_2_assign $if "%gp_lc_2%"=="no" $goto gpxyzlabel_after_lc_2_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_2_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_2_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_2_normalassign $label gpxyzlabel_after_lc_2_fixedassign gp_xyz_ind_col("%gp_lc_2%") = yes; $label gpxyzlabel_after_lc_2_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_2%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_2_assign $if not setglobal gp_lw_2 $goto gpxyzlabel_after_lw_2_assign $if "%gp_lw_2%"=="no" $goto gpxyzlabel_after_lw_2_assign put " lw %gp_lw_2%"; $goto gpxyzlabel_after_lwidth_general_assign_2 $label gpxyzlabel_after_lw_2_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_2 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_2 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_2 ); If(gp_count eq 3, $if not setglobal gp_lc_3 $goto gpxyzlabel_after_lc_3_assign $if "%gp_lc_3%"=="no" $goto gpxyzlabel_after_lc_3_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_3_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_3_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_3_normalassign $label gpxyzlabel_after_lc_3_fixedassign gp_xyz_ind_col("%gp_lc_3%") = yes; $label gpxyzlabel_after_lc_3_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_3%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_3_assign $if not setglobal gp_lw_3 $goto gpxyzlabel_after_lw_3_assign $if "%gp_lw_3%"=="no" $goto gpxyzlabel_after_lw_3_assign put " lw %gp_lw_3%"; $goto gpxyzlabel_after_lwidth_general_assign_3 $label gpxyzlabel_after_lw_3_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_3 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_3 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_3 ); If(gp_count eq 4, $if not setglobal gp_lc_4 $goto gpxyzlabel_after_lc_4_assign $if "%gp_lc_4%"=="no" $goto gpxyzlabel_after_lc_4_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_4_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_4_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_4_normalassign $label gpxyzlabel_after_lc_4_fixedassign gp_xyz_ind_col("%gp_lc_4%") = yes; $label gpxyzlabel_after_lc_4_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_4%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_4_assign $if not setglobal gp_lw_4 $goto gpxyzlabel_after_lw_4_assign $if "%gp_lw_4%"=="no" $goto gpxyzlabel_after_lw_4_assign put " lw %gp_lw_4%"; $goto gpxyzlabel_after_lwidth_general_assign_4 $label gpxyzlabel_after_lw_4_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_4 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_4 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_4 ); If(gp_count eq 5, $if not setglobal gp_lc_5 $goto gpxyzlabel_after_lc_5_assign $if "%gp_lc_5%"=="no" $goto gpxyzlabel_after_lc_5_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_5_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_5_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_5_normalassign $label gpxyzlabel_after_lc_5_fixedassign gp_xyz_ind_col("%gp_lc_5%") = yes; $label gpxyzlabel_after_lc_5_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_5%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_5_assign $if not setglobal gp_lw_5 $goto gpxyzlabel_after_lw_5_assign $if "%gp_lw_5%"=="no" $goto gpxyzlabel_after_lw_5_assign put " lw %gp_lw_5%"; $goto gpxyzlabel_after_lwidth_general_assign_5 $label gpxyzlabel_after_lw_5_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_5 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_5 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_5 ); If(gp_count eq 6, $if not setglobal gp_lc_6 $goto gpxyzlabel_after_lc_6_assign $if "%gp_lc_6%"=="no" $goto gpxyzlabel_after_lc_6_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_6_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_6_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_6_normalassign $label gpxyzlabel_after_lc_6_fixedassign gp_xyz_ind_col("%gp_lc_6%") = yes; $label gpxyzlabel_after_lc_6_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_6%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_6_assign $if not setglobal gp_lw_6 $goto gpxyzlabel_after_lw_6_assign $if "%gp_lw_6%"=="no" $goto gpxyzlabel_after_lw_6_assign put " lw %gp_lw_6%"; $goto gpxyzlabel_after_lwidth_general_assign_6 $label gpxyzlabel_after_lw_6_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_6 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_6 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_6 ); If(gp_count eq 7, $if not setglobal gp_lc_7 $goto gpxyzlabel_after_lc_7_assign $if "%gp_lc_7%"=="no" $goto gpxyzlabel_after_lc_7_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_7_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_7_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_7_normalassign $label gpxyzlabel_after_lc_7_fixedassign gp_xyz_ind_col("%gp_lc_7%") = yes; $label gpxyzlabel_after_lc_7_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_7%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_7_assign $if not setglobal gp_lw_7 $goto gpxyzlabel_after_lw_7_assign $if "%gp_lw_7%"=="no" $goto gpxyzlabel_after_lw_7_assign put " lw %gp_lw_7%"; $goto gpxyzlabel_after_lwidth_general_assign_7 $label gpxyzlabel_after_lw_7_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_7 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_7 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_7 ); If(gp_count eq 8, $if not setglobal gp_lc_8 $goto gpxyzlabel_after_lc_8_assign $if "%gp_lc_8%"=="no" $goto gpxyzlabel_after_lc_8_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_8_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_8_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_8_normalassign $label gpxyzlabel_after_lc_8_fixedassign gp_xyz_ind_col("%gp_lc_8%") = yes; $label gpxyzlabel_after_lc_8_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_8%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_8_assign $if not setglobal gp_lw_8 $goto gpxyzlabel_after_lw_8_assign $if "%gp_lw_8%"=="no" $goto gpxyzlabel_after_lw_8_assign put " lw %gp_lw_8%"; $goto gpxyzlabel_after_lwidth_general_assign_8 $label gpxyzlabel_after_lw_8_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_8 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_8 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_8 ); If(gp_count eq 9, $if not setglobal gp_lc_9 $goto gpxyzlabel_after_lc_9_assign $if "%gp_lc_9%"=="no" $goto gpxyzlabel_after_lc_9_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_9_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_9_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_9_normalassign $label gpxyzlabel_after_lc_9_fixedassign gp_xyz_ind_col("%gp_lc_9%") = yes; $label gpxyzlabel_after_lc_9_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_9%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_9_assign $if not setglobal gp_lw_9 $goto gpxyzlabel_after_lw_9_assign $if "%gp_lw_9%"=="no" $goto gpxyzlabel_after_lw_9_assign put " lw %gp_lw_9%"; $goto gpxyzlabel_after_lwidth_general_assign_9 $label gpxyzlabel_after_lw_9_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_9 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_9 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_9 ); If(gp_count eq 10, $if not setglobal gp_lc_10 $goto gpxyzlabel_after_lc_10_assign $if "%gp_lc_10%"=="no" $goto gpxyzlabel_after_lc_10_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_10_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_10_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_10_normalassign $label gpxyzlabel_after_lc_10_fixedassign gp_xyz_ind_col("%gp_lc_10%") = yes; $label gpxyzlabel_after_lc_10_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_10%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_10_assign $if not setglobal gp_lw_10 $goto gpxyzlabel_after_lw_10_assign $if "%gp_lw_10%"=="no" $goto gpxyzlabel_after_lw_10_assign put " lw %gp_lw_10%"; $goto gpxyzlabel_after_lwidth_general_assign_10 $label gpxyzlabel_after_lw_10_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_10 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_10 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_10 ); If(gp_count eq 11, $if not setglobal gp_lc_11 $goto gpxyzlabel_after_lc_11_assign $if "%gp_lc_11%"=="no" $goto gpxyzlabel_after_lc_11_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_11_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_11_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_11_normalassign $label gpxyzlabel_after_lc_11_fixedassign gp_xyz_ind_col("%gp_lc_11%") = yes; $label gpxyzlabel_after_lc_11_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_11%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_11_assign $if not setglobal gp_lw_11 $goto gpxyzlabel_after_lw_11_assign $if "%gp_lw_11%"=="no" $goto gpxyzlabel_after_lw_11_assign put " lw %gp_lw_11%"; $goto gpxyzlabel_after_lwidth_general_assign_11 $label gpxyzlabel_after_lw_11_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_11 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_11 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_11 ); If(gp_count eq 12, $if not setglobal gp_lc_12 $goto gpxyzlabel_after_lc_12_assign $if "%gp_lc_12%"=="no" $goto gpxyzlabel_after_lc_12_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_12_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_12_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_12_normalassign $label gpxyzlabel_after_lc_12_fixedassign gp_xyz_ind_col("%gp_lc_12%") = yes; $label gpxyzlabel_after_lc_12_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_12%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_12_assign $if not setglobal gp_lw_12 $goto gpxyzlabel_after_lw_12_assign $if "%gp_lw_12%"=="no" $goto gpxyzlabel_after_lw_12_assign put " lw %gp_lw_12%"; $goto gpxyzlabel_after_lwidth_general_assign_12 $label gpxyzlabel_after_lw_12_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_12 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_12 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_12 ); If(gp_count eq 13, $if not setglobal gp_lc_13 $goto gpxyzlabel_after_lc_13_assign $if "%gp_lc_13%"=="no" $goto gpxyzlabel_after_lc_13_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_13_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_13_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_13_normalassign $label gpxyzlabel_after_lc_13_fixedassign gp_xyz_ind_col("%gp_lc_13%") = yes; $label gpxyzlabel_after_lc_13_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_13%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_13_assign $if not setglobal gp_lw_13 $goto gpxyzlabel_after_lw_13_assign $if "%gp_lw_13%"=="no" $goto gpxyzlabel_after_lw_13_assign put " lw %gp_lw_13%"; $goto gpxyzlabel_after_lwidth_general_assign_13 $label gpxyzlabel_after_lw_13_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_13 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_13 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_13 ); If(gp_count eq 14, $if not setglobal gp_lc_14 $goto gpxyzlabel_after_lc_14_assign $if "%gp_lc_14%"=="no" $goto gpxyzlabel_after_lc_14_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_14_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_14_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_14_normalassign $label gpxyzlabel_after_lc_14_fixedassign gp_xyz_ind_col("%gp_lc_14%") = yes; $label gpxyzlabel_after_lc_14_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_14%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_14_assign $if not setglobal gp_lw_14 $goto gpxyzlabel_after_lw_14_assign $if "%gp_lw_14%"=="no" $goto gpxyzlabel_after_lw_14_assign put " lw %gp_lw_14%"; $goto gpxyzlabel_after_lwidth_general_assign_14 $label gpxyzlabel_after_lw_14_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_14 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_14 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_14 ); If(gp_count eq 15, $if not setglobal gp_lc_15 $goto gpxyzlabel_after_lc_15_assign $if "%gp_lc_15%"=="no" $goto gpxyzlabel_after_lc_15_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_15_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_15_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_15_normalassign $label gpxyzlabel_after_lc_15_fixedassign gp_xyz_ind_col("%gp_lc_15%") = yes; $label gpxyzlabel_after_lc_15_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_15%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_15_assign $if not setglobal gp_lw_15 $goto gpxyzlabel_after_lw_15_assign $if "%gp_lw_15%"=="no" $goto gpxyzlabel_after_lw_15_assign put " lw %gp_lw_15%"; $goto gpxyzlabel_after_lwidth_general_assign_15 $label gpxyzlabel_after_lw_15_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_15 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_15 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_15 ); If(gp_count eq 16, $if not setglobal gp_lc_16 $goto gpxyzlabel_after_lc_16_assign $if "%gp_lc_16%"=="no" $goto gpxyzlabel_after_lc_16_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_16_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_16_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_16_normalassign $label gpxyzlabel_after_lc_16_fixedassign gp_xyz_ind_col("%gp_lc_16%") = yes; $label gpxyzlabel_after_lc_16_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_16%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_16_assign $if not setglobal gp_lw_16 $goto gpxyzlabel_after_lw_16_assign $if "%gp_lw_16%"=="no" $goto gpxyzlabel_after_lw_16_assign put " lw %gp_lw_16%"; $goto gpxyzlabel_after_lwidth_general_assign_16 $label gpxyzlabel_after_lw_16_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_16 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_16 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_16 ); If(gp_count eq 17, $if not setglobal gp_lc_17 $goto gpxyzlabel_after_lc_17_assign $if "%gp_lc_17%"=="no" $goto gpxyzlabel_after_lc_17_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_17_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_17_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_17_normalassign $label gpxyzlabel_after_lc_17_fixedassign gp_xyz_ind_col("%gp_lc_17%") = yes; $label gpxyzlabel_after_lc_17_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_17%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_17_assign $if not setglobal gp_lw_17 $goto gpxyzlabel_after_lw_17_assign $if "%gp_lw_17%"=="no" $goto gpxyzlabel_after_lw_17_assign put " lw %gp_lw_17%"; $goto gpxyzlabel_after_lwidth_general_assign_17 $label gpxyzlabel_after_lw_17_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_17 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_17 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_17 ); If(gp_count eq 18, $if not setglobal gp_lc_18 $goto gpxyzlabel_after_lc_18_assign $if "%gp_lc_18%"=="no" $goto gpxyzlabel_after_lc_18_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_18_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_18_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_18_normalassign $label gpxyzlabel_after_lc_18_fixedassign gp_xyz_ind_col("%gp_lc_18%") = yes; $label gpxyzlabel_after_lc_18_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_18%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_18_assign $if not setglobal gp_lw_18 $goto gpxyzlabel_after_lw_18_assign $if "%gp_lw_18%"=="no" $goto gpxyzlabel_after_lw_18_assign put " lw %gp_lw_18%"; $goto gpxyzlabel_after_lwidth_general_assign_18 $label gpxyzlabel_after_lw_18_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_18 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_18 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_18 ); If(gp_count eq 19, $if not setglobal gp_lc_19 $goto gpxyzlabel_after_lc_19_assign $if "%gp_lc_19%"=="no" $goto gpxyzlabel_after_lc_19_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_19_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_19_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_19_normalassign $label gpxyzlabel_after_lc_19_fixedassign gp_xyz_ind_col("%gp_lc_19%") = yes; $label gpxyzlabel_after_lc_19_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_19%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_19_assign $if not setglobal gp_lw_19 $goto gpxyzlabel_after_lw_19_assign $if "%gp_lw_19%"=="no" $goto gpxyzlabel_after_lw_19_assign put " lw %gp_lw_19%"; $goto gpxyzlabel_after_lwidth_general_assign_19 $label gpxyzlabel_after_lw_19_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_19 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_19 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_19 ); If(gp_count eq 20, $if not setglobal gp_lc_20 $goto gpxyzlabel_after_lc_20_assign $if "%gp_lc_20%"=="no" $goto gpxyzlabel_after_lc_20_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto gpxyzlabel_after_lc_20_fixedassign $if "%gp_fixcolor_set%"=="no" $goto gpxyzlabel_after_lc_20_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto gpxyzlabel_after_lc_20_normalassign $label gpxyzlabel_after_lc_20_fixedassign gp_xyz_ind_col("%gp_lc_20%") = yes; $label gpxyzlabel_after_lc_20_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_20%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label gpxyzlabel_after_lc_20_assign $if not setglobal gp_lw_20 $goto gpxyzlabel_after_lw_20_assign $if "%gp_lw_20%"=="no" $goto gpxyzlabel_after_lw_20_assign put " lw %gp_lw_20%"; $goto gpxyzlabel_after_lwidth_general_assign_20 $label gpxyzlabel_after_lw_20_assign $if not setglobal gp_lwidth $goto gpxyzlabel_after_lwidth_general_assign_20 $if "%gp_lwidth%"=="no" $goto gpxyzlabel_after_lwidth_general_assign_20 put " lw %gp_lwidth%"; $label gpxyzlabel_after_lwidth_general_assign_20 ); * Insert Auto Code 7 produced by make_4_linestyle.gms - end file.nw = 6; gp_count = gp_count + 1; ); put /; $goto gpxyzlabel_write_data_file * 1D Plots $label gpxyzlabel_plotstatement_1dgraph gp_count=1; put 'plot \' / ' "gnuplot.dat" index 0 using 1:2 notitle with %gp_style% ' ; $goto gpxyzlabel_write_data_file * Segment 3D plots $label gpxyzlabel_plotstatement_3dgraph gp_count=1; put 'splot '; loop(%gp_planes%, if (gp_count gt 1, put ',';); file.nw = 0 put '\'/' "gnuplot.dat" index ',(gp_count-1):0:0, ' using 1:2:3'; put ' title "',%gp_planes%.tl,'"'; gp_count = gp_count + 1; ); put /; $goto gpxyzlabel_write_data_file * Segment Normal Histogram Plot $label gpxyzlabel_plotstatement_histogram gp_count=1; put 'plot '; loop(%gp_scen%, file.nw = 0; file.nd = 0; if (gp_count gt 1, put ',';); if (gp_count eq 1, put " 'gnuplot.dat' using "; else put " '' u ";); put (gp_count+1); $if not "%gp_hist%" == "columnstacked" if(gp_count eq 1, put ':xtic(1)';); $if "%gp_hist%" == "columnstacked" if(gp_count eq 1, put ':key(1)';); * Insert Auto Code 7a produced by make_345678_linestyle.gms - begin $if not setglobal gp_x1y1 $goto gpxyzlabel_afterx1y1_hist $if "%gp_x1y1%" == "no" $goto gpxyzlabel_afterx1y1_hist gpxyz_stoppvalue = 0; gpxyzset_one("%gp_x1y1%") = yes; gpxyzset_two("%gp_x1y1%")= yes; $if declared %gp_x1y1% gpxyzset_one(%gp_x1y1%) = yes; $if declared %gp_x1y1% gpxyzset_two(%gp_x1y1%)= yes; LOOP(gpxyzset_one $ SAMEAS(gpxyzset_one,%gp_scen%), PUT " axes x1y1 "; gpxyz_stoppvalue = 1; ); gpxyzset_one("%gp_x1y1%") = no; gpxyzset_two("%gp_x1y1%")= no; $if declared %gp_x1y1% gpxyzset_one(%gp_x1y1%) = no; $if declared %gp_x1y1% gpxyzset_two(%gp_x1y1%)= no; $label gpxyzlabel_afterx1y1_hist $if not setglobal gp_x1y2 $goto gpxyzlabel_afterx1y2_hist $if "%gp_x1y2%" == "no" $goto gpxyzlabel_afterx1y2_hist gpxyz_stoppvalue = 0; gpxyzset_one("%gp_x1y2%") = yes; gpxyzset_two("%gp_x1y2%")= yes; $if declared %gp_x1y2% gpxyzset_one(%gp_x1y2%) = yes; $if declared %gp_x1y2% gpxyzset_two(%gp_x1y2%)= yes; LOOP(gpxyzset_one $ SAMEAS(gpxyzset_one,%gp_scen%), PUT " axes x1y2 "; gpxyz_stoppvalue = 1; ); gpxyzset_one("%gp_x1y2%") = no; gpxyzset_two("%gp_x1y2%")= no; $if declared %gp_x1y2% gpxyzset_one(%gp_x1y2%) = no; $if declared %gp_x1y2% gpxyzset_two(%gp_x1y2%)= no; $label gpxyzlabel_afterx1y2_hist $if not setglobal gp_x2y1 $goto gpxyzlabel_afterx2y1_hist $if "%gp_x2y1%" == "no" $goto gpxyzlabel_afterx2y1_hist gpxyz_stoppvalue = 0; gpxyzset_one("%gp_x2y1%") = yes; gpxyzset_two("%gp_x2y1%")= yes; $if declared %gp_x2y1% gpxyzset_one(%gp_x2y1%) = yes; $if declared %gp_x2y1% gpxyzset_two(%gp_x2y1%)= yes; LOOP(gpxyzset_one $ SAMEAS(gpxyzset_one,%gp_scen%), PUT " axes x2y1 "; gpxyz_stoppvalue = 1; ); gpxyzset_one("%gp_x2y1%") = no; gpxyzset_two("%gp_x2y1%")= no; $if declared %gp_x2y1% gpxyzset_one(%gp_x2y1%) = no; $if declared %gp_x2y1% gpxyzset_two(%gp_x2y1%)= no; $label gpxyzlabel_afterx2y1_hist $if not setglobal gp_x2y2 $goto gpxyzlabel_afterx2y2_hist $if "%gp_x2y2%" == "no" $goto gpxyzlabel_afterx2y2_hist gpxyz_stoppvalue = 0; gpxyzset_one("%gp_x2y2%") = yes; gpxyzset_two("%gp_x2y2%")= yes; $if declared %gp_x2y2% gpxyzset_one(%gp_x2y2%) = yes; $if declared %gp_x2y2% gpxyzset_two(%gp_x2y2%)= yes; LOOP(gpxyzset_one $ SAMEAS(gpxyzset_one,%gp_scen%), PUT " axes x2y2 "; gpxyz_stoppvalue = 1; ); gpxyzset_one("%gp_x2y2%") = no; gpxyzset_two("%gp_x2y2%")= no; $if declared %gp_x2y2% gpxyzset_one(%gp_x2y2%) = no; $if declared %gp_x2y2% gpxyzset_two(%gp_x2y2%)= no; $label gpxyzlabel_afterx2y2_hist * Insert Auto Code 7a produced by make_345678_linestyle.gms - end * Insert Auto Code 7b produced by make_345678_linestyle.gms - begin IF(gp_count eq 1, $if not setglobal gp_axes_l1 $goto gpxyzlabel_after_axes_1_hist $if "%gp_axes_l1%" == "no" $goto gpxyzlabel_after_axes_1_hist PUT " axes %gp_axes_l1% "; $label gpxyzlabel_after_axes_1_hist ); IF(gp_count eq 2, $if not setglobal gp_axes_l2 $goto gpxyzlabel_after_axes_2_hist $if "%gp_axes_l2%" == "no" $goto gpxyzlabel_after_axes_2_hist PUT " axes %gp_axes_l2% "; $label gpxyzlabel_after_axes_2_hist ); IF(gp_count eq 3, $if not setglobal gp_axes_l3 $goto gpxyzlabel_after_axes_3_hist $if "%gp_axes_l3%" == "no" $goto gpxyzlabel_after_axes_3_hist PUT " axes %gp_axes_l3% "; $label gpxyzlabel_after_axes_3_hist ); IF(gp_count eq 4, $if not setglobal gp_axes_l4 $goto gpxyzlabel_after_axes_4_hist $if "%gp_axes_l4%" == "no" $goto gpxyzlabel_after_axes_4_hist PUT " axes %gp_axes_l4% "; $label gpxyzlabel_after_axes_4_hist ); IF(gp_count eq 5, $if not setglobal gp_axes_l5 $goto gpxyzlabel_after_axes_5_hist $if "%gp_axes_l5%" == "no" $goto gpxyzlabel_after_axes_5_hist PUT " axes %gp_axes_l5% "; $label gpxyzlabel_after_axes_5_hist ); IF(gp_count eq 6, $if not setglobal gp_axes_l6 $goto gpxyzlabel_after_axes_6_hist $if "%gp_axes_l6%" == "no" $goto gpxyzlabel_after_axes_6_hist PUT " axes %gp_axes_l6% "; $label gpxyzlabel_after_axes_6_hist ); IF(gp_count eq 7, $if not setglobal gp_axes_l7 $goto gpxyzlabel_after_axes_7_hist $if "%gp_axes_l7%" == "no" $goto gpxyzlabel_after_axes_7_hist PUT " axes %gp_axes_l7% "; $label gpxyzlabel_after_axes_7_hist ); IF(gp_count eq 8, $if not setglobal gp_axes_l8 $goto gpxyzlabel_after_axes_8_hist $if "%gp_axes_l8%" == "no" $goto gpxyzlabel_after_axes_8_hist PUT " axes %gp_axes_l8% "; $label gpxyzlabel_after_axes_8_hist ); IF(gp_count eq 9, $if not setglobal gp_axes_l9 $goto gpxyzlabel_after_axes_9_hist $if "%gp_axes_l9%" == "no" $goto gpxyzlabel_after_axes_9_hist PUT " axes %gp_axes_l9% "; $label gpxyzlabel_after_axes_9_hist ); IF(gp_count eq 10, $if not setglobal gp_axes_l10 $goto gpxyzlabel_after_axes_10_hist $if "%gp_axes_l10%" == "no" $goto gpxyzlabel_after_axes_10_hist PUT " axes %gp_axes_l10% "; $label gpxyzlabel_after_axes_10_hist ); IF(gp_count eq 11, $if not setglobal gp_axes_l11 $goto gpxyzlabel_after_axes_11_hist $if "%gp_axes_l11%" == "no" $goto gpxyzlabel_after_axes_11_hist PUT " axes %gp_axes_l11% "; $label gpxyzlabel_after_axes_11_hist ); IF(gp_count eq 12, $if not setglobal gp_axes_l12 $goto gpxyzlabel_after_axes_12_hist $if "%gp_axes_l12%" == "no" $goto gpxyzlabel_after_axes_12_hist PUT " axes %gp_axes_l12% "; $label gpxyzlabel_after_axes_12_hist ); IF(gp_count eq 13, $if not setglobal gp_axes_l13 $goto gpxyzlabel_after_axes_13_hist $if "%gp_axes_l13%" == "no" $goto gpxyzlabel_after_axes_13_hist PUT " axes %gp_axes_l13% "; $label gpxyzlabel_after_axes_13_hist ); IF(gp_count eq 14, $if not setglobal gp_axes_l14 $goto gpxyzlabel_after_axes_14_hist $if "%gp_axes_l14%" == "no" $goto gpxyzlabel_after_axes_14_hist PUT " axes %gp_axes_l14% "; $label gpxyzlabel_after_axes_14_hist ); IF(gp_count eq 15, $if not setglobal gp_axes_l15 $goto gpxyzlabel_after_axes_15_hist $if "%gp_axes_l15%" == "no" $goto gpxyzlabel_after_axes_15_hist PUT " axes %gp_axes_l15% "; $label gpxyzlabel_after_axes_15_hist ); IF(gp_count eq 16, $if not setglobal gp_axes_l16 $goto gpxyzlabel_after_axes_16_hist $if "%gp_axes_l16%" == "no" $goto gpxyzlabel_after_axes_16_hist PUT " axes %gp_axes_l16% "; $label gpxyzlabel_after_axes_16_hist ); IF(gp_count eq 17, $if not setglobal gp_axes_l17 $goto gpxyzlabel_after_axes_17_hist $if "%gp_axes_l17%" == "no" $goto gpxyzlabel_after_axes_17_hist PUT " axes %gp_axes_l17% "; $label gpxyzlabel_after_axes_17_hist ); IF(gp_count eq 18, $if not setglobal gp_axes_l18 $goto gpxyzlabel_after_axes_18_hist $if "%gp_axes_l18%" == "no" $goto gpxyzlabel_after_axes_18_hist PUT " axes %gp_axes_l18% "; $label gpxyzlabel_after_axes_18_hist ); IF(gp_count eq 19, $if not setglobal gp_axes_l19 $goto gpxyzlabel_after_axes_19_hist $if "%gp_axes_l19%" == "no" $goto gpxyzlabel_after_axes_19_hist PUT " axes %gp_axes_l19% "; $label gpxyzlabel_after_axes_19_hist ); IF(gp_count eq 20, $if not setglobal gp_axes_l20 $goto gpxyzlabel_after_axes_20_hist $if "%gp_axes_l20%" == "no" $goto gpxyzlabel_after_axes_20_hist PUT " axes %gp_axes_l20% "; $label gpxyzlabel_after_axes_20_hist ); * Insert Auto Code 7b produced by make_345678_linestyle.gms - end put ' ti col'; * Insert Auto Code 8 produced by make_4_linestyle.gms - begin IF(gp_count eq 1, $if not setglobal gp_lc_1 $goto gpxyzlabel_after_lc_1_hist $if "%gp_lc_1%" == "no" $goto gpxyzlabel_after_lc_1_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_1%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_1%") = no; $label gpxyzlabel_after_lc_1_hist ); IF(gp_count eq 2, $if not setglobal gp_lc_2 $goto gpxyzlabel_after_lc_2_hist $if "%gp_lc_2%" == "no" $goto gpxyzlabel_after_lc_2_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_2%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_2%") = no; $label gpxyzlabel_after_lc_2_hist ); IF(gp_count eq 3, $if not setglobal gp_lc_3 $goto gpxyzlabel_after_lc_3_hist $if "%gp_lc_3%" == "no" $goto gpxyzlabel_after_lc_3_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_3%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_3%") = no; $label gpxyzlabel_after_lc_3_hist ); IF(gp_count eq 4, $if not setglobal gp_lc_4 $goto gpxyzlabel_after_lc_4_hist $if "%gp_lc_4%" == "no" $goto gpxyzlabel_after_lc_4_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_4%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_4%") = no; $label gpxyzlabel_after_lc_4_hist ); IF(gp_count eq 5, $if not setglobal gp_lc_5 $goto gpxyzlabel_after_lc_5_hist $if "%gp_lc_5%" == "no" $goto gpxyzlabel_after_lc_5_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_5%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_5%") = no; $label gpxyzlabel_after_lc_5_hist ); IF(gp_count eq 6, $if not setglobal gp_lc_6 $goto gpxyzlabel_after_lc_6_hist $if "%gp_lc_6%" == "no" $goto gpxyzlabel_after_lc_6_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_6%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_6%") = no; $label gpxyzlabel_after_lc_6_hist ); IF(gp_count eq 7, $if not setglobal gp_lc_7 $goto gpxyzlabel_after_lc_7_hist $if "%gp_lc_7%" == "no" $goto gpxyzlabel_after_lc_7_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_7%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_7%") = no; $label gpxyzlabel_after_lc_7_hist ); IF(gp_count eq 8, $if not setglobal gp_lc_8 $goto gpxyzlabel_after_lc_8_hist $if "%gp_lc_8%" == "no" $goto gpxyzlabel_after_lc_8_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_8%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_8%") = no; $label gpxyzlabel_after_lc_8_hist ); IF(gp_count eq 9, $if not setglobal gp_lc_9 $goto gpxyzlabel_after_lc_9_hist $if "%gp_lc_9%" == "no" $goto gpxyzlabel_after_lc_9_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_9%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_9%") = no; $label gpxyzlabel_after_lc_9_hist ); IF(gp_count eq 10, $if not setglobal gp_lc_10 $goto gpxyzlabel_after_lc_10_hist $if "%gp_lc_10%" == "no" $goto gpxyzlabel_after_lc_10_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_10%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_10%") = no; $label gpxyzlabel_after_lc_10_hist ); IF(gp_count eq 11, $if not setglobal gp_lc_11 $goto gpxyzlabel_after_lc_11_hist $if "%gp_lc_11%" == "no" $goto gpxyzlabel_after_lc_11_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_11%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_11%") = no; $label gpxyzlabel_after_lc_11_hist ); IF(gp_count eq 12, $if not setglobal gp_lc_12 $goto gpxyzlabel_after_lc_12_hist $if "%gp_lc_12%" == "no" $goto gpxyzlabel_after_lc_12_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_12%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_12%") = no; $label gpxyzlabel_after_lc_12_hist ); IF(gp_count eq 13, $if not setglobal gp_lc_13 $goto gpxyzlabel_after_lc_13_hist $if "%gp_lc_13%" == "no" $goto gpxyzlabel_after_lc_13_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_13%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_13%") = no; $label gpxyzlabel_after_lc_13_hist ); IF(gp_count eq 14, $if not setglobal gp_lc_14 $goto gpxyzlabel_after_lc_14_hist $if "%gp_lc_14%" == "no" $goto gpxyzlabel_after_lc_14_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_14%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_14%") = no; $label gpxyzlabel_after_lc_14_hist ); IF(gp_count eq 15, $if not setglobal gp_lc_15 $goto gpxyzlabel_after_lc_15_hist $if "%gp_lc_15%" == "no" $goto gpxyzlabel_after_lc_15_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_15%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_15%") = no; $label gpxyzlabel_after_lc_15_hist ); IF(gp_count eq 16, $if not setglobal gp_lc_16 $goto gpxyzlabel_after_lc_16_hist $if "%gp_lc_16%" == "no" $goto gpxyzlabel_after_lc_16_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_16%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_16%") = no; $label gpxyzlabel_after_lc_16_hist ); IF(gp_count eq 17, $if not setglobal gp_lc_17 $goto gpxyzlabel_after_lc_17_hist $if "%gp_lc_17%" == "no" $goto gpxyzlabel_after_lc_17_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_17%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_17%") = no; $label gpxyzlabel_after_lc_17_hist ); IF(gp_count eq 18, $if not setglobal gp_lc_18 $goto gpxyzlabel_after_lc_18_hist $if "%gp_lc_18%" == "no" $goto gpxyzlabel_after_lc_18_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_18%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_18%") = no; $label gpxyzlabel_after_lc_18_hist ); IF(gp_count eq 19, $if not setglobal gp_lc_19 $goto gpxyzlabel_after_lc_19_hist $if "%gp_lc_19%" == "no" $goto gpxyzlabel_after_lc_19_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_19%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_19%") = no; $label gpxyzlabel_after_lc_19_hist ); IF(gp_count eq 20, $if not setglobal gp_lc_20 $goto gpxyzlabel_after_lc_20_hist $if "%gp_lc_20%" == "no" $goto gpxyzlabel_after_lc_20_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_20%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_20%") = no; $label gpxyzlabel_after_lc_20_hist ); * Insert Auto Code 8 produced by make_4_linestyle.gms - end *$if "%gp_color%" == "monochrome" put ' '; gp_count = gp_count + 1; ); $goto gpxyzlabel_write_data_file * Segment New Histogram Plot $label gpxyzlabel_plotstatement_newhistogram *put 'set xtics ('; *gp_count_2 = 1; loop(%gp__col3%, gp_count=1; loop(%gp_scen%, * file.nw = 0; file.nd = 3; file.lw=0; * put '"',%gp__col3%.TL,'" ',(gp_count+1+(gp_count_2-1)*card(%gp_scen%)); * if(...., put ", "; else put ")" /; * gp_count = gp_count + 1; ); gp_count_2 = gp_count_2 + 1; ); **** $if "%gp_hist%" == "columnstacked" ---> need ti col everywhere $if not setglobal gp_newhistogramgap $setglobal gp_newhistogramgap 1 $if "%gp_newhistogramgap%" == "no" $setglobal gp_newhistogramgap 1 put 'plot '; gp_count_2 = 1; loop(%gp__col3%, gp_count=1; loop(%gp_scen%, file.nw = 0; file.nd = 0; if(gp_count_2 gt 1 and gp_count eq 1, put ' ';); if(gp_count eq 1, put ' newhistogram "',%gp__col3%.TL,'"';); $if not "%gp_hist%" == "columnstacked" $goto gpxyzlabel_after_xposition file.nd = 3; if(gp_count eq 1, put ' lt 1 at ', ((gp_count_2-1)*card(%gp_scen%)+(gp_count_2-1)*%gp_newhistogramgap%);); file.nd = 0; $label gpxyzlabel_after_xposition * if(gp_count_2 gt 1 and gp_count eq 1, put ' lt 1';); if(gp_count gt 1, put ' ,';); if(gp_count eq 1, put ", 'gnuplot.dat' using "; else put " '' u ";); put (gp_count+1+(gp_count_2-1)*card(%gp_scen%)); $if not "%gp_hist%" == "columnstacked" if (gp_count eq 1, put ':xticlabels(1)';); $if "%gp_hist%" == "columnstacked" if (gp_count_2 eq 1 and gp_count eq 1, put ':key(1)';); $if not "%gp_hist%" == "columnstacked" if(gp_count_2 eq 1, put ' ti col'; else put ' ti "" ';); $if "%gp_hist%" == "columnstacked" if(gp_count_2 eq 1, put ' ti col'; else put ' ti col ';); * Insert Auto Code 8b produced by make_345678_linestyle.gms - begin IF(gp_count eq 1, $if not setglobal gp_axes_l1 $goto gpxyzlabel_after_axes_1_newhist $if "%gp_axes_l1%" == "no" $goto gpxyzlabel_after_axes_1_newhist PUT " axes %gp_axes_l1% "; $label gpxyzlabel_after_axes_1_newhist ); IF(gp_count eq 2, $if not setglobal gp_axes_l2 $goto gpxyzlabel_after_axes_2_newhist $if "%gp_axes_l2%" == "no" $goto gpxyzlabel_after_axes_2_newhist PUT " axes %gp_axes_l2% "; $label gpxyzlabel_after_axes_2_newhist ); IF(gp_count eq 3, $if not setglobal gp_axes_l3 $goto gpxyzlabel_after_axes_3_newhist $if "%gp_axes_l3%" == "no" $goto gpxyzlabel_after_axes_3_newhist PUT " axes %gp_axes_l3% "; $label gpxyzlabel_after_axes_3_newhist ); IF(gp_count eq 4, $if not setglobal gp_axes_l4 $goto gpxyzlabel_after_axes_4_newhist $if "%gp_axes_l4%" == "no" $goto gpxyzlabel_after_axes_4_newhist PUT " axes %gp_axes_l4% "; $label gpxyzlabel_after_axes_4_newhist ); IF(gp_count eq 5, $if not setglobal gp_axes_l5 $goto gpxyzlabel_after_axes_5_newhist $if "%gp_axes_l5%" == "no" $goto gpxyzlabel_after_axes_5_newhist PUT " axes %gp_axes_l5% "; $label gpxyzlabel_after_axes_5_newhist ); IF(gp_count eq 6, $if not setglobal gp_axes_l6 $goto gpxyzlabel_after_axes_6_newhist $if "%gp_axes_l6%" == "no" $goto gpxyzlabel_after_axes_6_newhist PUT " axes %gp_axes_l6% "; $label gpxyzlabel_after_axes_6_newhist ); IF(gp_count eq 7, $if not setglobal gp_axes_l7 $goto gpxyzlabel_after_axes_7_newhist $if "%gp_axes_l7%" == "no" $goto gpxyzlabel_after_axes_7_newhist PUT " axes %gp_axes_l7% "; $label gpxyzlabel_after_axes_7_newhist ); IF(gp_count eq 8, $if not setglobal gp_axes_l8 $goto gpxyzlabel_after_axes_8_newhist $if "%gp_axes_l8%" == "no" $goto gpxyzlabel_after_axes_8_newhist PUT " axes %gp_axes_l8% "; $label gpxyzlabel_after_axes_8_newhist ); IF(gp_count eq 9, $if not setglobal gp_axes_l9 $goto gpxyzlabel_after_axes_9_newhist $if "%gp_axes_l9%" == "no" $goto gpxyzlabel_after_axes_9_newhist PUT " axes %gp_axes_l9% "; $label gpxyzlabel_after_axes_9_newhist ); IF(gp_count eq 10, $if not setglobal gp_axes_l10 $goto gpxyzlabel_after_axes_10_newhist $if "%gp_axes_l10%" == "no" $goto gpxyzlabel_after_axes_10_newhist PUT " axes %gp_axes_l10% "; $label gpxyzlabel_after_axes_10_newhist ); IF(gp_count eq 11, $if not setglobal gp_axes_l11 $goto gpxyzlabel_after_axes_11_newhist $if "%gp_axes_l11%" == "no" $goto gpxyzlabel_after_axes_11_newhist PUT " axes %gp_axes_l11% "; $label gpxyzlabel_after_axes_11_newhist ); IF(gp_count eq 12, $if not setglobal gp_axes_l12 $goto gpxyzlabel_after_axes_12_newhist $if "%gp_axes_l12%" == "no" $goto gpxyzlabel_after_axes_12_newhist PUT " axes %gp_axes_l12% "; $label gpxyzlabel_after_axes_12_newhist ); IF(gp_count eq 13, $if not setglobal gp_axes_l13 $goto gpxyzlabel_after_axes_13_newhist $if "%gp_axes_l13%" == "no" $goto gpxyzlabel_after_axes_13_newhist PUT " axes %gp_axes_l13% "; $label gpxyzlabel_after_axes_13_newhist ); IF(gp_count eq 14, $if not setglobal gp_axes_l14 $goto gpxyzlabel_after_axes_14_newhist $if "%gp_axes_l14%" == "no" $goto gpxyzlabel_after_axes_14_newhist PUT " axes %gp_axes_l14% "; $label gpxyzlabel_after_axes_14_newhist ); IF(gp_count eq 15, $if not setglobal gp_axes_l15 $goto gpxyzlabel_after_axes_15_newhist $if "%gp_axes_l15%" == "no" $goto gpxyzlabel_after_axes_15_newhist PUT " axes %gp_axes_l15% "; $label gpxyzlabel_after_axes_15_newhist ); IF(gp_count eq 16, $if not setglobal gp_axes_l16 $goto gpxyzlabel_after_axes_16_newhist $if "%gp_axes_l16%" == "no" $goto gpxyzlabel_after_axes_16_newhist PUT " axes %gp_axes_l16% "; $label gpxyzlabel_after_axes_16_newhist ); IF(gp_count eq 17, $if not setglobal gp_axes_l17 $goto gpxyzlabel_after_axes_17_newhist $if "%gp_axes_l17%" == "no" $goto gpxyzlabel_after_axes_17_newhist PUT " axes %gp_axes_l17% "; $label gpxyzlabel_after_axes_17_newhist ); IF(gp_count eq 18, $if not setglobal gp_axes_l18 $goto gpxyzlabel_after_axes_18_newhist $if "%gp_axes_l18%" == "no" $goto gpxyzlabel_after_axes_18_newhist PUT " axes %gp_axes_l18% "; $label gpxyzlabel_after_axes_18_newhist ); IF(gp_count eq 19, $if not setglobal gp_axes_l19 $goto gpxyzlabel_after_axes_19_newhist $if "%gp_axes_l19%" == "no" $goto gpxyzlabel_after_axes_19_newhist PUT " axes %gp_axes_l19% "; $label gpxyzlabel_after_axes_19_newhist ); IF(gp_count eq 20, $if not setglobal gp_axes_l20 $goto gpxyzlabel_after_axes_20_newhist $if "%gp_axes_l20%" == "no" $goto gpxyzlabel_after_axes_20_newhist PUT " axes %gp_axes_l20% "; $label gpxyzlabel_after_axes_20_newhist ); * Insert Auto Code 8b produced by make_345678_linestyle.gms - end $if "%gp_hist%" == "columnstacked" $goto gpxyzlabel_afterinserthistlinecolors * Insert Auto Code 9 produced by make_4_linestyle.gms - begin IF(gp_count eq 1, $if not setglobal gp_lc_1 IF(gp_count_2 gt 1, put " lt 1"; ); $if "%gp_lc_1%" == "no" IF(gp_count_2 gt 1, put " lt 1"; ); $if not setglobal gp_lc_1 $goto gpxyzlabel_after_lc_1_newhist $if "%gp_lc_1%" == "no" $goto gpxyzlabel_after_lc_1_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_1%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_1%") = no; $label gpxyzlabel_after_lc_1_newhist ); IF(gp_count eq 2, $if not setglobal gp_lc_2 IF(gp_count_2 gt 1, put " lt 2"; ); $if "%gp_lc_2%" == "no" IF(gp_count_2 gt 1, put " lt 2"; ); $if not setglobal gp_lc_2 $goto gpxyzlabel_after_lc_2_newhist $if "%gp_lc_2%" == "no" $goto gpxyzlabel_after_lc_2_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_2%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_2%") = no; $label gpxyzlabel_after_lc_2_newhist ); IF(gp_count eq 3, $if not setglobal gp_lc_3 IF(gp_count_2 gt 1, put " lt 3"; ); $if "%gp_lc_3%" == "no" IF(gp_count_2 gt 1, put " lt 3"; ); $if not setglobal gp_lc_3 $goto gpxyzlabel_after_lc_3_newhist $if "%gp_lc_3%" == "no" $goto gpxyzlabel_after_lc_3_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_3%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_3%") = no; $label gpxyzlabel_after_lc_3_newhist ); IF(gp_count eq 4, $if not setglobal gp_lc_4 IF(gp_count_2 gt 1, put " lt 4"; ); $if "%gp_lc_4%" == "no" IF(gp_count_2 gt 1, put " lt 4"; ); $if not setglobal gp_lc_4 $goto gpxyzlabel_after_lc_4_newhist $if "%gp_lc_4%" == "no" $goto gpxyzlabel_after_lc_4_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_4%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_4%") = no; $label gpxyzlabel_after_lc_4_newhist ); IF(gp_count eq 5, $if not setglobal gp_lc_5 IF(gp_count_2 gt 1, put " lt 5"; ); $if "%gp_lc_5%" == "no" IF(gp_count_2 gt 1, put " lt 5"; ); $if not setglobal gp_lc_5 $goto gpxyzlabel_after_lc_5_newhist $if "%gp_lc_5%" == "no" $goto gpxyzlabel_after_lc_5_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_5%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_5%") = no; $label gpxyzlabel_after_lc_5_newhist ); IF(gp_count eq 6, $if not setglobal gp_lc_6 IF(gp_count_2 gt 1, put " lt 6"; ); $if "%gp_lc_6%" == "no" IF(gp_count_2 gt 1, put " lt 6"; ); $if not setglobal gp_lc_6 $goto gpxyzlabel_after_lc_6_newhist $if "%gp_lc_6%" == "no" $goto gpxyzlabel_after_lc_6_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_6%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_6%") = no; $label gpxyzlabel_after_lc_6_newhist ); IF(gp_count eq 7, $if not setglobal gp_lc_7 IF(gp_count_2 gt 1, put " lt 7"; ); $if "%gp_lc_7%" == "no" IF(gp_count_2 gt 1, put " lt 7"; ); $if not setglobal gp_lc_7 $goto gpxyzlabel_after_lc_7_newhist $if "%gp_lc_7%" == "no" $goto gpxyzlabel_after_lc_7_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_7%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_7%") = no; $label gpxyzlabel_after_lc_7_newhist ); IF(gp_count eq 8, $if not setglobal gp_lc_8 IF(gp_count_2 gt 1, put " lt 8"; ); $if "%gp_lc_8%" == "no" IF(gp_count_2 gt 1, put " lt 8"; ); $if not setglobal gp_lc_8 $goto gpxyzlabel_after_lc_8_newhist $if "%gp_lc_8%" == "no" $goto gpxyzlabel_after_lc_8_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_8%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_8%") = no; $label gpxyzlabel_after_lc_8_newhist ); IF(gp_count eq 9, $if not setglobal gp_lc_9 IF(gp_count_2 gt 1, put " lt 9"; ); $if "%gp_lc_9%" == "no" IF(gp_count_2 gt 1, put " lt 9"; ); $if not setglobal gp_lc_9 $goto gpxyzlabel_after_lc_9_newhist $if "%gp_lc_9%" == "no" $goto gpxyzlabel_after_lc_9_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_9%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_9%") = no; $label gpxyzlabel_after_lc_9_newhist ); IF(gp_count eq 10, $if not setglobal gp_lc_10 IF(gp_count_2 gt 1, put " lt 10"; ); $if "%gp_lc_10%" == "no" IF(gp_count_2 gt 1, put " lt 10"; ); $if not setglobal gp_lc_10 $goto gpxyzlabel_after_lc_10_newhist $if "%gp_lc_10%" == "no" $goto gpxyzlabel_after_lc_10_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_10%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_10%") = no; $label gpxyzlabel_after_lc_10_newhist ); IF(gp_count eq 11, $if not setglobal gp_lc_11 IF(gp_count_2 gt 1, put " lt 11"; ); $if "%gp_lc_11%" == "no" IF(gp_count_2 gt 1, put " lt 11"; ); $if not setglobal gp_lc_11 $goto gpxyzlabel_after_lc_11_newhist $if "%gp_lc_11%" == "no" $goto gpxyzlabel_after_lc_11_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_11%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_11%") = no; $label gpxyzlabel_after_lc_11_newhist ); IF(gp_count eq 12, $if not setglobal gp_lc_12 IF(gp_count_2 gt 1, put " lt 12"; ); $if "%gp_lc_12%" == "no" IF(gp_count_2 gt 1, put " lt 12"; ); $if not setglobal gp_lc_12 $goto gpxyzlabel_after_lc_12_newhist $if "%gp_lc_12%" == "no" $goto gpxyzlabel_after_lc_12_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_12%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_12%") = no; $label gpxyzlabel_after_lc_12_newhist ); IF(gp_count eq 13, $if not setglobal gp_lc_13 IF(gp_count_2 gt 1, put " lt 13"; ); $if "%gp_lc_13%" == "no" IF(gp_count_2 gt 1, put " lt 13"; ); $if not setglobal gp_lc_13 $goto gpxyzlabel_after_lc_13_newhist $if "%gp_lc_13%" == "no" $goto gpxyzlabel_after_lc_13_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_13%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_13%") = no; $label gpxyzlabel_after_lc_13_newhist ); IF(gp_count eq 14, $if not setglobal gp_lc_14 IF(gp_count_2 gt 1, put " lt 14"; ); $if "%gp_lc_14%" == "no" IF(gp_count_2 gt 1, put " lt 14"; ); $if not setglobal gp_lc_14 $goto gpxyzlabel_after_lc_14_newhist $if "%gp_lc_14%" == "no" $goto gpxyzlabel_after_lc_14_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_14%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_14%") = no; $label gpxyzlabel_after_lc_14_newhist ); IF(gp_count eq 15, $if not setglobal gp_lc_15 IF(gp_count_2 gt 1, put " lt 15"; ); $if "%gp_lc_15%" == "no" IF(gp_count_2 gt 1, put " lt 15"; ); $if not setglobal gp_lc_15 $goto gpxyzlabel_after_lc_15_newhist $if "%gp_lc_15%" == "no" $goto gpxyzlabel_after_lc_15_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_15%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_15%") = no; $label gpxyzlabel_after_lc_15_newhist ); IF(gp_count eq 16, $if not setglobal gp_lc_16 IF(gp_count_2 gt 1, put " lt 16"; ); $if "%gp_lc_16%" == "no" IF(gp_count_2 gt 1, put " lt 16"; ); $if not setglobal gp_lc_16 $goto gpxyzlabel_after_lc_16_newhist $if "%gp_lc_16%" == "no" $goto gpxyzlabel_after_lc_16_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_16%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_16%") = no; $label gpxyzlabel_after_lc_16_newhist ); IF(gp_count eq 17, $if not setglobal gp_lc_17 IF(gp_count_2 gt 1, put " lt 17"; ); $if "%gp_lc_17%" == "no" IF(gp_count_2 gt 1, put " lt 17"; ); $if not setglobal gp_lc_17 $goto gpxyzlabel_after_lc_17_newhist $if "%gp_lc_17%" == "no" $goto gpxyzlabel_after_lc_17_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_17%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_17%") = no; $label gpxyzlabel_after_lc_17_newhist ); IF(gp_count eq 18, $if not setglobal gp_lc_18 IF(gp_count_2 gt 1, put " lt 18"; ); $if "%gp_lc_18%" == "no" IF(gp_count_2 gt 1, put " lt 18"; ); $if not setglobal gp_lc_18 $goto gpxyzlabel_after_lc_18_newhist $if "%gp_lc_18%" == "no" $goto gpxyzlabel_after_lc_18_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_18%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_18%") = no; $label gpxyzlabel_after_lc_18_newhist ); IF(gp_count eq 19, $if not setglobal gp_lc_19 IF(gp_count_2 gt 1, put " lt 19"; ); $if "%gp_lc_19%" == "no" IF(gp_count_2 gt 1, put " lt 19"; ); $if not setglobal gp_lc_19 $goto gpxyzlabel_after_lc_19_newhist $if "%gp_lc_19%" == "no" $goto gpxyzlabel_after_lc_19_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_19%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_19%") = no; $label gpxyzlabel_after_lc_19_newhist ); IF(gp_count eq 20, $if not setglobal gp_lc_20 IF(gp_count_2 gt 1, put " lt 20"; ); $if "%gp_lc_20%" == "no" IF(gp_count_2 gt 1, put " lt 20"; ); $if not setglobal gp_lc_20 $goto gpxyzlabel_after_lc_20_newhist $if "%gp_lc_20%" == "no" $goto gpxyzlabel_after_lc_20_newhist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_20%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_20%") = no; $label gpxyzlabel_after_lc_20_newhist ); * Insert Auto Code 9 produced by make_4_linestyle.gms - end $label gpxyzlabel_afterinserthistlinecolors gp_count = gp_count + 1; ); if(card(%gp__col3%) gt gp_count_2, put ', \'; ); put /; gp_count_2 = gp_count_2 + 1; ); $label gpxyzlabel_write_data_file putclose; *__________________________________________ * * Gnuplot.dat - Contains Gnuplot Data *__________________________________________ * * permit user to specify an alternative value for NA: $if setglobal gp_na gp_na = %gp_na%; * permit user to suppress (0,0) observations gp_supzer=0; $if setglobal gp_supzero gp_supzer=1; $if "%gp_supzero%"=="no" gp_supzer=0; gp_00(%gp_scen%) = 0; gp_xy(%gp_scen%) = 0; gp__0(%gp_scen%) = inf; gp_data.pw = 3000; gp_data.nw = 16; gp_data.nd = 8; gp_data.nr = 1; gp_data.nr = 2; $if dimension 1 %1 $goto gpxyzlabel_put_1D_data $if dimension 2 %1 $goto gpxyzlabel_put_histogram_data $if a%2==a $goto gpxyzlabel_put_newhistogram_data $if dimension 4 %1 $goto gpxyzlabel_put_3D_data * Segment Put 2D Plot data loop(%gp_scen%, loop(%gp_obsv_1%, if( ((%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%") eq 0) and (%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%") eq 0) ), gp_00(%gp_scen%) = gp_00(%gp_scen%) + 1; else gp_00(%gp_scen%) = 0; ); gp_xy(%gp_scen%) = gp_xy(%gp_scen%) + 1; ); ); $if not setglobal gp_zeroend $setglobal gp_zeroend 'no' $if "%gp_zeroend%"=="yes" $goto gpxyzlabel_putdata gp__0(%gp_scen%) = gp_xy(%gp_scen%)- gp_00(%gp_scen%); $goto gpxyzlabel_putdata $label gpxyzlabel_putdata loop(%gp_scen%, gp_count = 0; loop(%gp_obsv_1%, gp_count = gp_count + 1; if( ((gp_supzer eq 0) and ((gp_count - gp__0(%gp_scen%)) lt 0) or ( %1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%") ne 0 or mapval(%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%")) eq mapval(eps)) or ( %1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%") ne 0 or mapval(%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%")) eq mapval(eps)) ), if (%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%") ; ); if (%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%") ; ); $if a%4==a $goto gpxyzlabel_line_break_indata if (%1(%gp_scen%,%gp_obsv_1%,"%gp__col3%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp__col3%") ; ); $if a%5==a $goto gpxyzlabel_line_break_indata if (%1(%gp_scen%,%gp_obsv_1%,"%gp__col4%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp__col4%") ; ); $if a%6==a $goto gpxyzlabel_line_break_indata if (%1(%gp_scen%,%gp_obsv_1%,"%gp__col5%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp__col5%") ; ); $if a%7==a $goto gpxyzlabel_line_break_indata if (%1(%gp_scen%,%gp_obsv_1%,"%gp__col6%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp__col6%") ; ); $goto gpxyzlabel_line_break_indata $label gpxyzlabel_line_break_indata put /; ); ); put //; ); $goto gpxyzlabel_write_gnuplot_ini * Segment Put 1D data $label gpxyzlabel_put_1D_data gp_count = 0; loop(%gp_scen%, gp_count = gp_count + 1; if(%1(%gp_scen%) ne 0 or mapval(%1(%gp_scen%) eq mapval(eps)), if (%1(%gp_scen%) eq gp_na, put gp_data, ' '; else put gp_data, gp_count ; ); if (%1(%gp_scen%) eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%) ; ); put /; ); ); $goto gpxyzlabel_write_gnuplot_ini * Segment Put 3D data $label gpxyzlabel_put_3D_data loop(%gp_planes%, loop(%gp_obsv_1%, loop(%gp_obsv_2%, put gp_data, %1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,"%gp_xxxvalue%")," "; put gp_data, %1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,"%gp_yyyvalue%")," "; put gp_data, %1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,"%gp_zzzvalue%")," "; put /; ); put /; ); put /; ); display "planes",%gp_planes%,"obsv1",%gp_obsv_1%,"obsv2",%gp_obsv_2%; $goto gpxyzlabel_write_gnuplot_ini * Put histogram data $label gpxyzlabel_put_histogram_data gp_data.tw = 0; gp_data.lw = 0; Put gp_data; Put '"dummy" '; loop(%gp_scen%, Put '"',%gp_scen%.tl,'" '; ); PUT /; loop(%gp_obsv_1%, gp_count = 0; put '"',%gp_obsv_1%.tl,'"' loop(%gp_scen%, gp_count = gp_count + 1; if( ((gp_supzer eq 0) and ((gp_count - gp__0(%gp_scen%)) lt 0) or ( %1(%gp_scen%,%gp_obsv_1%) ne 0 or mapval(%1(%gp_scen%,%gp_obsv_1%)) eq mapval(eps))), if (%1(%gp_scen%,%gp_obsv_1%) eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%);); ); ); PUT /; ); $goto gpxyzlabel_write_gnuplot_ini * Segment Put New histogram data $label gpxyzlabel_put_newhistogram_data gp_data.tw = 0; gp_data.lw = 0; Put gp_data; Put '"dummy" '; $if "%gp_hist%" == "columnstacked" loop(%gp__col3%, loop(%gp_scen%, Put '"',%gp_scen%.tl,'" '; ); $if "%gp_hist%" == "columnstacked" ); PUT /; loop(%gp_obsv_1%, gp_count = 0; put '"',%gp_obsv_1%.tl,'"' loop(%gp__col3%, loop(%gp_scen%, gp_count = gp_count + 1; if( ((gp_supzer eq 0) and ((gp_count - gp__0(%gp_scen%)) lt 0) or ( %1(%gp_scen%,%gp_obsv_1%,%gp__col3%) ne 0 or mapval(%1(%gp_scen%,%gp_obsv_1%,%gp__col3%)) eq mapval(eps))), if (%1(%gp_scen%,%gp_obsv_1%,%gp__col3%) eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,%gp__col3%);); ); ); ); PUT /; ); $goto gpxyzlabel_write_gnuplot_ini $label gpxyzlabel_write_gnuplot_ini putclose; $offuni * * * Overwrite wgnuplot.ini which resides in the windows system directory * *_______________________________________________________________________ * $if not "%gp_term%"=="windows" $goto gpxyzlabel_rungnupl put gp_winini; gp_winini.nd = 0; gp_winini.nw = 0; put '[WGNUPLOT]' /; put 'GraphOrigin=-4 -4' /; $if not setglobal gp_wheight $goto gpxyzlabel_win_size $if not setglobal gp_wlength $goto gpxyzlabel_win_size put "GraphSize=",%gp_wlength%," ",%gp_wheight% /; $goto gpxyzlabel_win_font $label gpxyzlabel_win_size put "GraphSize=648 460" /; $goto gpxyzlabel_win_font $label gpxyzlabel_win_font put 'GraphFont=%gp_font%,%gp_fontsize%' /; $if '%gp_color%' == 'monochrome' put 'GraphColor=0' /; $if '%gp_color%' == 'color' put 'GraphColor=1' /; put 'GraphToTop=1' /; put 'GraphBackground=255 255 255' /; $if not setglobal gp_bdwidth $setglobal gp_bdwidth '0' $if "%gp_bdwidth%" == "0" $setglobal gp_bdwidth '0' $if "%gp_bdwidth%" == "no" $setglobal gp_bdwidth '0' put 'Border=0 0 0 -',%gp_bdwidth%,' -',%gp_bdwidth% /; $if not setglobal gp_axwidth $setglobal gp_axwidth '2' put 'Axis=192 192 192 -',%gp_axwidth%,' -',%gp_axwidth% /; $ontext put 'Line1=255 0 0 0 0' /; put 'Line2=0 255 0 0 1' /; put 'Line3=0 0 255 0 2' /; put 'Line4=255 0 255 0 3' /; put 'Line5=0 0 128 0 4' /; put 'Line6=128 0 0 0 0' /; put 'Line7=0 128 128 0 1' /; put 'Line8=0 0 0 0 2' /; put 'Line9=128 128 128 0 3' /; put 'Line10=0 128 64 0 4' /; put 'Line11=128 128 0 0 0' /; put 'Line12=128 0 128 0 1' /; put 'Line13=192 192 192 0 2' /; put 'Line14=0 255 255 0 3' /; put 'Line15=255 255 0 0 4' /; $offtext * individual colors $if "%gp_fixcolor_set%" == "no" $goto gpxyzlabel_gp_lc_1_lb $if not setglobal gp_fixcolor_set $goto gpxyzlabel_gp_lc_1_lb $if not setglobal gp_lc_1 $setglobal gp_lc_1 Red $if not setglobal gp_lc_2 $setglobal gp_lc_2 BrightGreen $if not setglobal gp_lc_3 $setglobal gp_lc_3 Blue $if not setglobal gp_lc_4 $setglobal gp_lc_4 pink $if not setglobal gp_lc_5 $setglobal gp_lc_5 NavyBlue $if not setglobal gp_lc_6 $setglobal gp_lc_6 Brown $if not setglobal gp_lc_7 $setglobal gp_lc_7 Cyan $if not setglobal gp_lc_8 $setglobal gp_lc_8 Black $if not setglobal gp_lc_9 $setglobal gp_lc_9 darkgray $if not setglobal gp_lc_10 $setglobal gp_lc_10 Green $if not setglobal gp_lc_11 $setglobal gp_lc_11 Olive $if not setglobal gp_lc_12 $setglobal gp_lc_12 magenta $if not setglobal gp_lc_13 $setglobal gp_lc_13 LightGrey $if not setglobal gp_lc_14 $setglobal gp_lc_14 lightcyan $if not setglobal gp_lc_15 $setglobal gp_lc_15 Yellow $if not setglobal gp_lc_16 $setglobal gp_lc_16 chocolate $if not setglobal gp_lc_17 $setglobal gp_lc_17 coral $if not setglobal gp_lc_18 $setglobal gp_lc_18 cornflowerblue $if not setglobal gp_lc_19 $setglobal gp_lc_19 cornsilk $if not setglobal gp_lc_20 $setglobal gp_lc_20 crimson $if not setglobal gp_lc_21 $setglobal gp_lc_21 darkblue $if not setglobal gp_lc_22 $setglobal gp_lc_22 darkcyan $if not setglobal gp_lc_23 $setglobal gp_lc_23 darkgoldenrod $if not setglobal gp_lc_24 $setglobal gp_lc_24 darkgray $if not setglobal gp_lc_25 $setglobal gp_lc_25 darkgreen $if not setglobal gp_lc_26 $setglobal gp_lc_26 darkkhaki $if not setglobal gp_lc_27 $setglobal gp_lc_27 darkmagenta $if not setglobal gp_lc_28 $setglobal gp_lc_28 darkolivegreen $if not setglobal gp_lc_29 $setglobal gp_lc_29 darkorange $if not setglobal gp_lc_30 $setglobal gp_lc_30 darkorchid $if not setglobal gp_lc_31 $setglobal gp_lc_31 darkred $if not setglobal gp_lc_32 $setglobal gp_lc_32 darksalmon $if not setglobal gp_lc_33 $setglobal gp_lc_33 darkseagreen $if not setglobal gp_lc_34 $setglobal gp_lc_34 darkslateblue $if not setglobal gp_lc_35 $setglobal gp_lc_35 darkslategray $if not setglobal gp_lc_36 $setglobal gp_lc_36 darkturquoise $if not setglobal gp_lc_37 $setglobal gp_lc_37 darkviolet $if not setglobal gp_lc_38 $setglobal gp_lc_38 deeppink $if not setglobal gp_lc_39 $setglobal gp_lc_39 deepskyblue $if not setglobal gp_lc_40 $setglobal gp_lc_40 dimgray gp_count = 0; LOOP(%gp_fixcolor_set%, gp_count = gp_count + 1; LOOP(%gp_scen% $SAMEAS(%gp_fixcolor_set%,%gp_scen%), IF(gp_count eq 1, gp_xyz_fixed_col("%gp_lc_1%",%gp_scen%) = yes;); IF(gp_count eq 2, gp_xyz_fixed_col("%gp_lc_2%",%gp_scen%) = yes;); IF(gp_count eq 3, gp_xyz_fixed_col("%gp_lc_3%",%gp_scen%) = yes;); IF(gp_count eq 4, gp_xyz_fixed_col("%gp_lc_4%",%gp_scen%) = yes;); IF(gp_count eq 5, gp_xyz_fixed_col("%gp_lc_5%",%gp_scen%) = yes;); IF(gp_count eq 6, gp_xyz_fixed_col("%gp_lc_6%",%gp_scen%) = yes;); IF(gp_count eq 7, gp_xyz_fixed_col("%gp_lc_7%",%gp_scen%) = yes;); IF(gp_count eq 8, gp_xyz_fixed_col("%gp_lc_8%",%gp_scen%) = yes;); IF(gp_count eq 9, gp_xyz_fixed_col("%gp_lc_9%",%gp_scen%) = yes;); IF(gp_count eq 10, gp_xyz_fixed_col("%gp_lc_10%",%gp_scen%) = yes;); IF(gp_count eq 11, gp_xyz_fixed_col("%gp_lc_11%",%gp_scen%) = yes;); IF(gp_count eq 12, gp_xyz_fixed_col("%gp_lc_12%",%gp_scen%) = yes;); IF(gp_count eq 13, gp_xyz_fixed_col("%gp_lc_13%",%gp_scen%) = yes;); IF(gp_count eq 14, gp_xyz_fixed_col("%gp_lc_14%",%gp_scen%) = yes;); IF(gp_count eq 15, gp_xyz_fixed_col("%gp_lc_15%",%gp_scen%) = yes;); IF(gp_count eq 16, gp_xyz_fixed_col("%gp_lc_16%",%gp_scen%) = yes;); IF(gp_count eq 17, gp_xyz_fixed_col("%gp_lc_17%",%gp_scen%) = yes;); IF(gp_count eq 18, gp_xyz_fixed_col("%gp_lc_18%",%gp_scen%) = yes;); IF(gp_count eq 19, gp_xyz_fixed_col("%gp_lc_19%",%gp_scen%) = yes;); IF(gp_count eq 20, gp_xyz_fixed_col("%gp_lc_20%",%gp_scen%) = yes;); IF(gp_count eq 21, gp_xyz_fixed_col("%gp_lc_21%",%gp_scen%) = yes;); IF(gp_count eq 22, gp_xyz_fixed_col("%gp_lc_22%",%gp_scen%) = yes;); IF(gp_count eq 23, gp_xyz_fixed_col("%gp_lc_23%",%gp_scen%) = yes;); IF(gp_count eq 24, gp_xyz_fixed_col("%gp_lc_24%",%gp_scen%) = yes;); IF(gp_count eq 25, gp_xyz_fixed_col("%gp_lc_25%",%gp_scen%) = yes;); IF(gp_count eq 26, gp_xyz_fixed_col("%gp_lc_26%",%gp_scen%) = yes;); IF(gp_count eq 27, gp_xyz_fixed_col("%gp_lc_27%",%gp_scen%) = yes;); IF(gp_count eq 28, gp_xyz_fixed_col("%gp_lc_28%",%gp_scen%) = yes;); IF(gp_count eq 29, gp_xyz_fixed_col("%gp_lc_29%",%gp_scen%) = yes;); IF(gp_count eq 30, gp_xyz_fixed_col("%gp_lc_30%",%gp_scen%) = yes;); IF(gp_count eq 31, gp_xyz_fixed_col("%gp_lc_31%",%gp_scen%) = yes;); IF(gp_count eq 32, gp_xyz_fixed_col("%gp_lc_32%",%gp_scen%) = yes;); IF(gp_count eq 33, gp_xyz_fixed_col("%gp_lc_33%",%gp_scen%) = yes;); IF(gp_count eq 34, gp_xyz_fixed_col("%gp_lc_34%",%gp_scen%) = yes;); IF(gp_count eq 35, gp_xyz_fixed_col("%gp_lc_35%",%gp_scen%) = yes;); IF(gp_count eq 36, gp_xyz_fixed_col("%gp_lc_36%",%gp_scen%) = yes;); IF(gp_count eq 37, gp_xyz_fixed_col("%gp_lc_37%",%gp_scen%) = yes;); IF(gp_count eq 38, gp_xyz_fixed_col("%gp_lc_38%",%gp_scen%) = yes;); IF(gp_count eq 39, gp_xyz_fixed_col("%gp_lc_39%",%gp_scen%) = yes;); IF(gp_count eq 40, gp_xyz_fixed_col("%gp_lc_40%",%gp_scen%) = yes;); );); gp_scencount(%gp_scen%) = 0; gp_count = 0; LOOP(%gp_scen%, gp_count = gp_count + 1; gp_scencount(%gp_scen%) = gp_count; ); $label gpxyzlabel_gp_lc_1_lb put "Line1="; $if "%gp_lc_1%"=="no" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_1%"=="no" $goto gpxyzlabel_gp_lc_2_lb $if "%gp_lc_1%"=="0" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_1%"=="0" $goto gpxyzlabel_gp_lc_2_lb $if not setglobal gp_lc_1 put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_1 $goto gpxyzlabel_gp_lc_2_lb $if setglobal gp_lc_1 gp_xyz_ind_col("%gp_lc_1%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 1), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_1 gp_xyz_ind_col("%gp_lc_1%") = no; $goto gpxyzlabel_gp_lc_2_lb $label gpxyzlabel_gp_lc_2_lb put "Line2="; $if "%gp_lc_2%"=="no" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_2%"=="no" $goto gpxyzlabel_gp_lc_3_lb $if "%gp_lc_2%"=="0" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_2%"=="0" $goto gpxyzlabel_gp_lc_3_lb $if not setglobal gp_lc_2 put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_2 $goto gpxyzlabel_gp_lc_3_lb $if setglobal gp_lc_2 gp_xyz_ind_col("%gp_lc_2%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 2), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_2 gp_xyz_ind_col("%gp_lc_2%") = no; $goto gpxyzlabel_gp_lc_3_lb $label gpxyzlabel_gp_lc_3_lb put "Line3="; $if "%gp_lc_3%"=="no" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_3%"=="no" $goto gpxyzlabel_gp_lc_4_lb $if "%gp_lc_3%"=="0" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_3%"=="0" $goto gpxyzlabel_gp_lc_4_lb $if not setglobal gp_lc_3 put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_3 $goto gpxyzlabel_gp_lc_4_lb $if setglobal gp_lc_3 gp_xyz_ind_col("%gp_lc_3%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 3), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_3 gp_xyz_ind_col("%gp_lc_3%") = no; $goto gpxyzlabel_gp_lc_4_lb $label gpxyzlabel_gp_lc_4_lb put "Line4="; $if "%gp_lc_4%"=="no" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_4%"=="no" $goto gpxyzlabel_gp_lc_5_lb $if "%gp_lc_4%"=="0" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_4%"=="0" $goto gpxyzlabel_gp_lc_5_lb $if not setglobal gp_lc_4 put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_4 $goto gpxyzlabel_gp_lc_5_lb $if setglobal gp_lc_4 gp_xyz_ind_col("%gp_lc_4%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 4), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_4 gp_xyz_ind_col("%gp_lc_4%") = no; $goto gpxyzlabel_gp_lc_5_lb $label gpxyzlabel_gp_lc_5_lb put "Line5="; $if "%gp_lc_5%"=="no" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_5%"=="no" $goto gpxyzlabel_gp_lc_6_lb $if "%gp_lc_5%"=="0" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_5%"=="0" $goto gpxyzlabel_gp_lc_6_lb $if not setglobal gp_lc_5 put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_5 $goto gpxyzlabel_gp_lc_6_lb $if setglobal gp_lc_5 gp_xyz_ind_col("%gp_lc_5%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 5), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_5 gp_xyz_ind_col("%gp_lc_5%") = no; $goto gpxyzlabel_gp_lc_6_lb $label gpxyzlabel_gp_lc_6_lb put "Line6="; $if "%gp_lc_6%"=="no" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_6%"=="no" $goto gpxyzlabel_gp_lc_7_lb $if "%gp_lc_6%"=="0" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_6%"=="0" $goto gpxyzlabel_gp_lc_7_lb $if not setglobal gp_lc_6 put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_6 $goto gpxyzlabel_gp_lc_7_lb $if setglobal gp_lc_6 gp_xyz_ind_col("%gp_lc_6%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 6), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_6 gp_xyz_ind_col("%gp_lc_6%") = no; $goto gpxyzlabel_gp_lc_7_lb $label gpxyzlabel_gp_lc_7_lb put "Line7="; $if "%gp_lc_7%"=="no" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_7%"=="no" $goto gpxyzlabel_gp_lc_8_lb $if "%gp_lc_7%"=="0" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_7%"=="0" $goto gpxyzlabel_gp_lc_8_lb $if not setglobal gp_lc_7 put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_7 $goto gpxyzlabel_gp_lc_8_lb $if setglobal gp_lc_7 gp_xyz_ind_col("%gp_lc_7%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 7), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_7 gp_xyz_ind_col("%gp_lc_7%") = no; $goto gpxyzlabel_gp_lc_8_lb $label gpxyzlabel_gp_lc_8_lb put "Line8="; $if "%gp_lc_8%"=="no" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_8%"=="no" $goto gpxyzlabel_gp_lc_9_lb $if "%gp_lc_8%"=="0" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_8%"=="0" $goto gpxyzlabel_gp_lc_9_lb $if not setglobal gp_lc_8 put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_8 $goto gpxyzlabel_gp_lc_9_lb $if setglobal gp_lc_8 gp_xyz_ind_col("%gp_lc_8%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 8), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_8 gp_xyz_ind_col("%gp_lc_8%") = no; $goto gpxyzlabel_gp_lc_9_lb $label gpxyzlabel_gp_lc_9_lb put "Line9="; $if "%gp_lc_9%"=="no" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_9%"=="no" $goto gpxyzlabel_gp_lc_10_lb $if "%gp_lc_9%"=="0" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_9%"=="0" $goto gpxyzlabel_gp_lc_10_lb $if not setglobal gp_lc_9 put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_9 $goto gpxyzlabel_gp_lc_10_lb $if setglobal gp_lc_9 gp_xyz_ind_col("%gp_lc_9%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 9), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_9 gp_xyz_ind_col("%gp_lc_9%") = no; $goto gpxyzlabel_gp_lc_10_lb $label gpxyzlabel_gp_lc_10_lb put "Line10="; $if "%gp_lc_10%"=="no" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_10%"=="no" $goto gpxyzlabel_gp_lc_11_lb $if "%gp_lc_10%"=="0" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_10%"=="0" $goto gpxyzlabel_gp_lc_11_lb $if not setglobal gp_lc_10 put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_10 $goto gpxyzlabel_gp_lc_11_lb $if setglobal gp_lc_10 gp_xyz_ind_col("%gp_lc_10%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 10), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_10 gp_xyz_ind_col("%gp_lc_10%") = no; $goto gpxyzlabel_gp_lc_11_lb $label gpxyzlabel_gp_lc_11_lb put "Line11="; $if "%gp_lc_11%"=="no" put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_11%"=="no" $goto gpxyzlabel_gp_lc_12_lb $if "%gp_lc_11%"=="0" put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_11%"=="0" $goto gpxyzlabel_gp_lc_12_lb $if not setglobal gp_lc_11 put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_11 $goto gpxyzlabel_gp_lc_12_lb $if setglobal gp_lc_11 gp_xyz_ind_col("%gp_lc_11%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 11), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_11 gp_xyz_ind_col("%gp_lc_11%") = no; $goto gpxyzlabel_gp_lc_12_lb $label gpxyzlabel_gp_lc_12_lb put "Line12="; $if "%gp_lc_12%"=="no" put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_12%"=="no" $goto gpxyzlabel_gp_lc_13_lb $if "%gp_lc_12%"=="0" put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_12%"=="0" $goto gpxyzlabel_gp_lc_13_lb $if not setglobal gp_lc_12 put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_12 $goto gpxyzlabel_gp_lc_13_lb $if setglobal gp_lc_12 gp_xyz_ind_col("%gp_lc_12%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 12), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_12 gp_xyz_ind_col("%gp_lc_12%") = no; $goto gpxyzlabel_gp_lc_13_lb $label gpxyzlabel_gp_lc_13_lb put "Line13="; $if "%gp_lc_13%"=="no" put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_13%"=="no" $goto gpxyzlabel_gp_lc_14_lb $if "%gp_lc_13%"=="0" put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_13%"=="0" $goto gpxyzlabel_gp_lc_14_lb $if not setglobal gp_lc_13 put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_13 $goto gpxyzlabel_gp_lc_14_lb $if setglobal gp_lc_13 gp_xyz_ind_col("%gp_lc_13%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 13), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_13 gp_xyz_ind_col("%gp_lc_13%") = no; $goto gpxyzlabel_gp_lc_14_lb $label gpxyzlabel_gp_lc_14_lb put "Line14="; $if "%gp_lc_14%"=="no" put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_14%"=="no" $goto gpxyzlabel_gp_lc_15_lb $if "%gp_lc_14%"=="0" put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_14%"=="0" $goto gpxyzlabel_gp_lc_15_lb $if not setglobal gp_lc_14 put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_14 $goto gpxyzlabel_gp_lc_15_lb $if setglobal gp_lc_14 gp_xyz_ind_col("%gp_lc_14%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 14), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_14 gp_xyz_ind_col("%gp_lc_14%") = no; $goto gpxyzlabel_gp_lc_15_lb $label gpxyzlabel_gp_lc_15_lb put "Line15="; $if "%gp_lc_15%"=="no" put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_15%"=="no" $goto gpxyzlabel_gp_lc_16_lb $if "%gp_lc_15%"=="0" put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_15%"=="0" $goto gpxyzlabel_gp_lc_16_lb $if not setglobal gp_lc_15 put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_15 $goto gpxyzlabel_gp_lc_16_lb $if setglobal gp_lc_15 gp_xyz_ind_col("%gp_lc_15%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 15), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_15 gp_xyz_ind_col("%gp_lc_15%") = no; $goto gpxyzlabel_gp_lc_16_lb $label gpxyzlabel_gp_lc_16_lb put "Line16="; $if "%gp_lc_16%"=="no" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_16%"=="no" $goto gpxyzlabel_gp_lc_17_lb $if "%gp_lc_16%"=="0" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_16%"=="0" $goto gpxyzlabel_gp_lc_17_lb $if not setglobal gp_lc_16 put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_16 $goto gpxyzlabel_gp_lc_17_lb $if setglobal gp_lc_16 gp_xyz_ind_col("%gp_lc_16%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 16), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_16 gp_xyz_ind_col("%gp_lc_16%") = no; $goto gpxyzlabel_gp_lc_17_lb $label gpxyzlabel_gp_lc_17_lb put "Line17="; $if "%gp_lc_17%"=="no" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_17%"=="no" $goto gpxyzlabel_gp_lc_18_lb $if "%gp_lc_17%"=="0" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_17%"=="0" $goto gpxyzlabel_gp_lc_18_lb $if not setglobal gp_lc_17 put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_17 $goto gpxyzlabel_gp_lc_18_lb $if setglobal gp_lc_17 gp_xyz_ind_col("%gp_lc_17%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 17), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_17 gp_xyz_ind_col("%gp_lc_17%") = no; $goto gpxyzlabel_gp_lc_18_lb $label gpxyzlabel_gp_lc_18_lb put "Line18="; $if "%gp_lc_18%"=="no" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_18%"=="no" $goto gpxyzlabel_gp_lc_19_lb $if "%gp_lc_18%"=="0" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_18%"=="0" $goto gpxyzlabel_gp_lc_19_lb $if not setglobal gp_lc_18 put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_18 $goto gpxyzlabel_gp_lc_19_lb $if setglobal gp_lc_18 gp_xyz_ind_col("%gp_lc_18%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 18), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_18 gp_xyz_ind_col("%gp_lc_18%") = no; $goto gpxyzlabel_gp_lc_19_lb $label gpxyzlabel_gp_lc_19_lb put "Line19="; $if "%gp_lc_19%"=="no" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_19%"=="no" $goto gpxyzlabel_gp_lc_20_lb $if "%gp_lc_19%"=="0" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_19%"=="0" $goto gpxyzlabel_gp_lc_20_lb $if not setglobal gp_lc_19 put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_19 $goto gpxyzlabel_gp_lc_20_lb $if setglobal gp_lc_19 gp_xyz_ind_col("%gp_lc_19%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 19), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_19 gp_xyz_ind_col("%gp_lc_19%") = no; $goto gpxyzlabel_gp_lc_20_lb $label gpxyzlabel_gp_lc_20_lb put "Line20="; $if "%gp_lc_20%"=="no" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_20%"=="no" $goto gpxyzlabel_gp_lc_21_lb $if "%gp_lc_20%"=="0" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_20%"=="0" $goto gpxyzlabel_gp_lc_21_lb $if not setglobal gp_lc_20 put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_20 $goto gpxyzlabel_gp_lc_21_lb $if setglobal gp_lc_20 gp_xyz_ind_col("%gp_lc_20%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 20), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_20 gp_xyz_ind_col("%gp_lc_20%") = no; $goto gpxyzlabel_gp_lc_21_lb $label gpxyzlabel_gp_lc_21_lb put "Line21="; $if "%gp_lc_21%"=="no" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_21%"=="no" $goto gpxyzlabel_gp_lc_22_lb $if "%gp_lc_21%"=="0" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_21%"=="0" $goto gpxyzlabel_gp_lc_22_lb $if not setglobal gp_lc_21 put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_21 $goto gpxyzlabel_gp_lc_22_lb $if setglobal gp_lc_21 gp_xyz_ind_col("%gp_lc_21%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 21), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_21 gp_xyz_ind_col("%gp_lc_21%") = no; $goto gpxyzlabel_gp_lc_22_lb $label gpxyzlabel_gp_lc_22_lb put "Line22="; $if "%gp_lc_22%"=="no" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_22%"=="no" $goto gpxyzlabel_gp_lc_23_lb $if "%gp_lc_22%"=="0" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_22%"=="0" $goto gpxyzlabel_gp_lc_23_lb $if not setglobal gp_lc_22 put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_22 $goto gpxyzlabel_gp_lc_23_lb $if setglobal gp_lc_22 gp_xyz_ind_col("%gp_lc_22%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 22), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_22 gp_xyz_ind_col("%gp_lc_22%") = no; $goto gpxyzlabel_gp_lc_23_lb $label gpxyzlabel_gp_lc_23_lb put "Line23="; $if "%gp_lc_23%"=="no" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_23%"=="no" $goto gpxyzlabel_gp_lc_24_lb $if "%gp_lc_23%"=="0" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_23%"=="0" $goto gpxyzlabel_gp_lc_24_lb $if not setglobal gp_lc_23 put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_23 $goto gpxyzlabel_gp_lc_24_lb $if setglobal gp_lc_23 gp_xyz_ind_col("%gp_lc_23%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 23), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_23 gp_xyz_ind_col("%gp_lc_23%") = no; $goto gpxyzlabel_gp_lc_24_lb $label gpxyzlabel_gp_lc_24_lb put "Line24="; $if "%gp_lc_24%"=="no" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_24%"=="no" $goto gpxyzlabel_gp_lc_25_lb $if "%gp_lc_24%"=="0" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_24%"=="0" $goto gpxyzlabel_gp_lc_25_lb $if not setglobal gp_lc_24 put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_24 $goto gpxyzlabel_gp_lc_25_lb $if setglobal gp_lc_24 gp_xyz_ind_col("%gp_lc_24%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 24), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_24 gp_xyz_ind_col("%gp_lc_24%") = no; $goto gpxyzlabel_gp_lc_25_lb $label gpxyzlabel_gp_lc_25_lb put "Line25="; $if "%gp_lc_25%"=="no" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_25%"=="no" $goto gpxyzlabel_gp_lc_26_lb $if "%gp_lc_25%"=="0" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_25%"=="0" $goto gpxyzlabel_gp_lc_26_lb $if not setglobal gp_lc_25 put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_25 $goto gpxyzlabel_gp_lc_26_lb $if setglobal gp_lc_25 gp_xyz_ind_col("%gp_lc_25%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 25), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_25 gp_xyz_ind_col("%gp_lc_25%") = no; $goto gpxyzlabel_gp_lc_26_lb $label gpxyzlabel_gp_lc_26_lb put "Line26="; $if "%gp_lc_26%"=="no" put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_26%"=="no" $goto gpxyzlabel_gp_lc_27_lb $if "%gp_lc_26%"=="0" put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_26%"=="0" $goto gpxyzlabel_gp_lc_27_lb $if not setglobal gp_lc_26 put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_26 $goto gpxyzlabel_gp_lc_27_lb $if setglobal gp_lc_26 gp_xyz_ind_col("%gp_lc_26%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 26), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_26 gp_xyz_ind_col("%gp_lc_26%") = no; $goto gpxyzlabel_gp_lc_27_lb $label gpxyzlabel_gp_lc_27_lb put "Line27="; $if "%gp_lc_27%"=="no" put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_27%"=="no" $goto gpxyzlabel_gp_lc_28_lb $if "%gp_lc_27%"=="0" put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_27%"=="0" $goto gpxyzlabel_gp_lc_28_lb $if not setglobal gp_lc_27 put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_27 $goto gpxyzlabel_gp_lc_28_lb $if setglobal gp_lc_27 gp_xyz_ind_col("%gp_lc_27%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 27), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_27 gp_xyz_ind_col("%gp_lc_27%") = no; $goto gpxyzlabel_gp_lc_28_lb $label gpxyzlabel_gp_lc_28_lb put "Line28="; $if "%gp_lc_28%"=="no" put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_28%"=="no" $goto gpxyzlabel_gp_lc_29_lb $if "%gp_lc_28%"=="0" put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_28%"=="0" $goto gpxyzlabel_gp_lc_29_lb $if not setglobal gp_lc_28 put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_28 $goto gpxyzlabel_gp_lc_29_lb $if setglobal gp_lc_28 gp_xyz_ind_col("%gp_lc_28%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 28), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_28 gp_xyz_ind_col("%gp_lc_28%") = no; $goto gpxyzlabel_gp_lc_29_lb $label gpxyzlabel_gp_lc_29_lb put "Line29="; $if "%gp_lc_29%"=="no" put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_29%"=="no" $goto gpxyzlabel_gp_lc_30_lb $if "%gp_lc_29%"=="0" put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_29%"=="0" $goto gpxyzlabel_gp_lc_30_lb $if not setglobal gp_lc_29 put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_29 $goto gpxyzlabel_gp_lc_30_lb $if setglobal gp_lc_29 gp_xyz_ind_col("%gp_lc_29%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 29), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_29 gp_xyz_ind_col("%gp_lc_29%") = no; $goto gpxyzlabel_gp_lc_30_lb $label gpxyzlabel_gp_lc_30_lb put "Line30="; $if "%gp_lc_30%"=="no" put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_30%"=="no" $goto gpxyzlabel_gp_lc_31_lb $if "%gp_lc_30%"=="0" put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_30%"=="0" $goto gpxyzlabel_gp_lc_31_lb $if not setglobal gp_lc_30 put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_30 $goto gpxyzlabel_gp_lc_31_lb $if setglobal gp_lc_30 gp_xyz_ind_col("%gp_lc_30%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 30), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_30 gp_xyz_ind_col("%gp_lc_30%") = no; $goto gpxyzlabel_gp_lc_31_lb $label gpxyzlabel_gp_lc_31_lb put "Line31="; $if "%gp_lc_31%"=="no" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_31%"=="no" $goto gpxyzlabel_gp_lc_32_lb $if "%gp_lc_31%"=="0" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_31%"=="0" $goto gpxyzlabel_gp_lc_32_lb $if not setglobal gp_lc_31 put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_31 $goto gpxyzlabel_gp_lc_32_lb $if setglobal gp_lc_31 gp_xyz_ind_col("%gp_lc_31%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 31), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_31 gp_xyz_ind_col("%gp_lc_31%") = no; $goto gpxyzlabel_gp_lc_32_lb $label gpxyzlabel_gp_lc_32_lb put "Line32="; $if "%gp_lc_32%"=="no" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_32%"=="no" $goto gpxyzlabel_gp_lc_33_lb $if "%gp_lc_32%"=="0" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_32%"=="0" $goto gpxyzlabel_gp_lc_33_lb $if not setglobal gp_lc_32 put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_32 $goto gpxyzlabel_gp_lc_33_lb $if setglobal gp_lc_32 gp_xyz_ind_col("%gp_lc_32%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 32), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_32 gp_xyz_ind_col("%gp_lc_32%") = no; $goto gpxyzlabel_gp_lc_33_lb $label gpxyzlabel_gp_lc_33_lb put "Line33="; $if "%gp_lc_33%"=="no" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_33%"=="no" $goto gpxyzlabel_gp_lc_34_lb $if "%gp_lc_33%"=="0" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_33%"=="0" $goto gpxyzlabel_gp_lc_34_lb $if not setglobal gp_lc_33 put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_33 $goto gpxyzlabel_gp_lc_34_lb $if setglobal gp_lc_33 gp_xyz_ind_col("%gp_lc_33%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 33), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_33 gp_xyz_ind_col("%gp_lc_33%") = no; $goto gpxyzlabel_gp_lc_34_lb $label gpxyzlabel_gp_lc_34_lb put "Line34="; $if "%gp_lc_34%"=="no" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_34%"=="no" $goto gpxyzlabel_gp_lc_35_lb $if "%gp_lc_34%"=="0" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_34%"=="0" $goto gpxyzlabel_gp_lc_35_lb $if not setglobal gp_lc_34 put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_34 $goto gpxyzlabel_gp_lc_35_lb $if setglobal gp_lc_34 gp_xyz_ind_col("%gp_lc_34%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 34), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_34 gp_xyz_ind_col("%gp_lc_34%") = no; $goto gpxyzlabel_gp_lc_35_lb $label gpxyzlabel_gp_lc_35_lb put "Line35="; $if "%gp_lc_35%"=="no" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_35%"=="no" $goto gpxyzlabel_gp_lc_36_lb $if "%gp_lc_35%"=="0" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_35%"=="0" $goto gpxyzlabel_gp_lc_36_lb $if not setglobal gp_lc_35 put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_35 $goto gpxyzlabel_gp_lc_36_lb $if setglobal gp_lc_35 gp_xyz_ind_col("%gp_lc_35%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 35), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_35 gp_xyz_ind_col("%gp_lc_35%") = no; $goto gpxyzlabel_gp_lc_36_lb $label gpxyzlabel_gp_lc_36_lb put "Line36="; $if "%gp_lc_36%"=="no" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_36%"=="no" $goto gpxyzlabel_gp_lc_37_lb $if "%gp_lc_36%"=="0" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_36%"=="0" $goto gpxyzlabel_gp_lc_37_lb $if not setglobal gp_lc_36 put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_36 $goto gpxyzlabel_gp_lc_37_lb $if setglobal gp_lc_36 gp_xyz_ind_col("%gp_lc_36%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 36), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_36 gp_xyz_ind_col("%gp_lc_36%") = no; $goto gpxyzlabel_gp_lc_37_lb $label gpxyzlabel_gp_lc_37_lb put "Line37="; $if "%gp_lc_37%"=="no" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_37%"=="no" $goto gpxyzlabel_gp_lc_38_lb $if "%gp_lc_37%"=="0" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_37%"=="0" $goto gpxyzlabel_gp_lc_38_lb $if not setglobal gp_lc_37 put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_37 $goto gpxyzlabel_gp_lc_38_lb $if setglobal gp_lc_37 gp_xyz_ind_col("%gp_lc_37%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 37), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_37 gp_xyz_ind_col("%gp_lc_37%") = no; $goto gpxyzlabel_gp_lc_38_lb $label gpxyzlabel_gp_lc_38_lb put "Line38="; $if "%gp_lc_38%"=="no" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_38%"=="no" $goto gpxyzlabel_gp_lc_39_lb $if "%gp_lc_38%"=="0" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_38%"=="0" $goto gpxyzlabel_gp_lc_39_lb $if not setglobal gp_lc_38 put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_38 $goto gpxyzlabel_gp_lc_39_lb $if setglobal gp_lc_38 gp_xyz_ind_col("%gp_lc_38%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 38), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_38 gp_xyz_ind_col("%gp_lc_38%") = no; $goto gpxyzlabel_gp_lc_39_lb $label gpxyzlabel_gp_lc_39_lb put "Line39="; $if "%gp_lc_39%"=="no" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_39%"=="no" $goto gpxyzlabel_gp_lc_40_lb $if "%gp_lc_39%"=="0" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_39%"=="0" $goto gpxyzlabel_gp_lc_40_lb $if not setglobal gp_lc_39 put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_39 $goto gpxyzlabel_gp_lc_40_lb $if setglobal gp_lc_39 gp_xyz_ind_col("%gp_lc_39%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 39), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_39 gp_xyz_ind_col("%gp_lc_39%") = no; $goto gpxyzlabel_gp_lc_40_lb $label gpxyzlabel_gp_lc_40_lb put "Line40="; $if "%gp_lc_40%"=="no" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_40%"=="no" $goto gpxyzlabel_gp_lc_41_lb $if "%gp_lc_40%"=="0" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_40%"=="0" $goto gpxyzlabel_gp_lc_41_lb $if not setglobal gp_lc_40 put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_40 $goto gpxyzlabel_gp_lc_41_lb $if setglobal gp_lc_40 gp_xyz_ind_col("%gp_lc_40%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 40), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_40 gp_xyz_ind_col("%gp_lc_40%") = no; $goto gpxyzlabel_gp_lc_41_lb $label gpxyzlabel_gp_lc_41_lb gp_xyz_fixed_col(gp_line_color_name,%gp_scen%) = no; $goto gpxyzlabel_textopt $label gpxyzlabel_userwidth put 'Line1=255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line2=0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line3=0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line4=255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line5=0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line6=128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line7=0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line8=0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line9=128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line10=0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line11=128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line12=128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line13=192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line14=0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line15=255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $goto gpxyzlabel_textopt $label gpxyzlabel_textopt put 'TextOrigin=22 22' /; put 'TextSize=480 321' /; put 'TextMinimized=0' /; put 'TextFont=Terminal,9' /; put 'SysColors=0' /; putclose; execute 'if exist "%SysEnv.APPDATA%\wgnuplot.ini" del "%SysEnv.APPDATA%\wgnuplot.ini" >nul'; execute 'copy wgnuplot.ini "%SysEnv.APPDATA%\wgnuplot.ini"'; $goto gpxyzlabel_rungnupl *_____________________* * * * Run Gnuplot * *_____________________* * * $label gpxyzlabel_rungnupl display "Using terminal: %gp_term%, system: %system.filesys%"; $if not setglobal gp_ppt $goto gpxyzlabel_after_writing_ppt_file ppt_repeat_loop("1") = yes; $if not setglobal gp_ppt_2 $goto gpxyzlabel_after_checking_ppt2 $if not "%gp_ppt_2%"=="2" $goto gpxyzlabel_after_writing_ppt_file ppt_repeat_loop("2") = yes; $goto gpxyzlabel_after_checking_all_ppt $label gpxyzlabel_after_checking_ppt2 $if not setglobal gp_ppt_3 $goto gpxyzlabel_after_checking_ppt3 $if not "%gp_ppt_3%"=="3" $goto gpxyzlabel_after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; $goto gpxyzlabel_after_checking_all_ppt $label gpxyzlabel_after_checking_ppt3 $if not setglobal gp_ppt_4 $goto gpxyzlabel_after_checking_ppt4 $if not "%gp_ppt_4%"=="4" $goto gpxyzlabel_after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; $goto gpxyzlabel_after_checking_all_ppt $label gpxyzlabel_after_checking_ppt4 $if not setglobal gp_ppt_5 $goto gpxyzlabel_after_checking_ppt5 $if not "%gp_ppt_5%"=="5" $goto gpxyzlabel_after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; $goto gpxyzlabel_after_checking_all_ppt $label gpxyzlabel_after_checking_ppt5 $if not setglobal gp_ppt_6 $goto gpxyzlabel_after_checking_ppt6 $if not "%gp_ppt_6%"=="6" $goto gpxyzlabel_after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; ppt_repeat_loop("6") = yes; $goto gpxyzlabel_after_checking_all_ppt $label gpxyzlabel_after_checking_ppt6 $if not setglobal gp_ppt_7 $goto gpxyzlabel_after_checking_ppt7 $if not "%gp_ppt_7%"=="7" $goto gpxyzlabel_after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; ppt_repeat_loop("6") = yes; ppt_repeat_loop("7") = yes; $goto gpxyzlabel_after_checking_all_ppt $label gpxyzlabel_after_checking_ppt7 $if not setglobal gp_ppt_8 $goto gpxyzlabel_after_checking_ppt8 $if not "%gp_ppt_8%"=="8" $goto gpxyzlabel_after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; ppt_repeat_loop("6") = yes; ppt_repeat_loop("7") = yes; ppt_repeat_loop("8") = yes; $goto gpxyzlabel_after_checking_all_ppt $label gpxyzlabel_after_checking_ppt8 $if not setglobal gp_ppt_9 $goto gpxyzlabel_after_checking_ppt9 $if not "%gp_ppt_9%"=="9" $goto gpxyzlabel_after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; ppt_repeat_loop("6") = yes; ppt_repeat_loop("7") = yes; ppt_repeat_loop("8") = yes; ppt_repeat_loop("9") = yes; $goto gpxyzlabel_after_checking_all_ppt $label gpxyzlabel_after_checking_ppt9 $label gpxyzlabel_after_checking_all_ppt * ++++++++++++++++++++++++++ * * File for Power Point Macro * * ++++++++++++++++++++++++++ * PUT gams_ppt_list; gams_ppt_list.ap = 1; gams_ppt_list.nw = 0; gams_ppt_list.lw = 0; gams_ppt_list.nd = 0; $if not setglobal gp_ppt_fontname $setglobal gp_ppt_fontname Arial $if not setglobal gp_ppt_fontsize $setglobal gp_ppt_fontsize 40 $if not setglobal gp_ppt_boldfont $setglobal gp_ppt_boldfont 0 $if "%gp_ppt_boldfont%"=="yes" $setglobal gp_ppt_boldfont 1 $if "%gp_ppt_boldfont%"=="bold" $setglobal gp_ppt_boldfont 1 $if "%gp_ppt_boldfont%"=="no" $setglobal gp_ppt_boldfont 0 $if "%gp_ppt_boldfont%"=="normal" $setglobal gp_ppt_boldfont 0 IF(gp_plot_count eq 1, PUT "%gp_ppt_fontname%" /; PUT "%gp_ppt_boldfont%" /; PUT "%gp_ppt_fontsize%" /; ); gp_count = 0; LOOP(ppt_repeat_loop, gp_count = gp_count + 1; PUT "%gams.Workdir%%gp_name%_",gp_plot_count,"_",ppt_repeat_loop.TL,".%gp_term%"/; * Title $if "%gp_loop1%" == "no" $goto gpxyzlabel_noloopppttitle $if "%gp_loop1%" == "0" $goto gpxyzlabel_noloopppttitle $if setglobal gp_loop1 $goto gpxyzlabel_ppttitle_loop1 $label gpxyzlabel_noloopppttitle $if not setglobal gp_title $goto gpxyzlabel_assign_auto_title_for_ppt $if "%gp_title%" == "no" $goto gpxyzlabel_assign_auto_title_for_ppt $if "%gp_title%" == "0" $goto gpxyzlabel_assign_auto_title_for_ppt put '%gp_title%'; $goto gpxyzlabel_after_autoppttitle $label gpxyzlabel_assign_auto_title_for_ppt put '%2',' versus ','%3'; $goto gpxyzlabel_skipppttitle $label gpxyzlabel_after_autoppttitle * Names for different restart options $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto gpxyzlabel_skipppttitle $label gpxyzlabel_ppttitle_loop1 $if not setglobal gp_title $setglobal gp_title " " put '%gp_title% ',%gp_loop1%.te(%gp_loop1%); $if "%gp_loop2%" == "no" $goto gpxyzlabel_no_loop_title_2 $if "%gp_loop2%" == "0" $goto gpxyzlabel_no_loop_title_2 $if setglobal gp_loop2 $goto gpxyzlabel_ppttitle_loop2 $label gpxyzlabel_no_loop_title_2 $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto gpxyzlabel_skipppttitle $label gpxyzlabel_ppttitle_loop2 put ' ',%gp_loop2%.te(%gp_loop2%); $if "%gp_loop3%" == "no" $goto gpxyzlabel_no_loop_title_3 $if "%gp_loop3%" == "0" $goto gpxyzlabel_no_loop_title_3 $if setglobal gp_loop3 $goto gpxyzlabel_ppttitle_loop3 $label gpxyzlabel_no_loop_title_3 $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto gpxyzlabel_skipppttitle $label gpxyzlabel_ppttitle_loop3 put ' ',%gp_loop3%.te(%gp_loop3%); $if "%gp_loop4%" == "no" $goto gpxyzlabel_no_loop_title_4 $if "%gp_loop4%" == "0" $goto gpxyzlabel_no_loop_title_4 $if setglobal gp_loop4 $goto gpxyzlabel_ppttitle_loop4 $label gpxyzlabel_no_loop_title_4 $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto gpxyzlabel_skipppttitle $label gpxyzlabel_ppttitle_loop4 put ' ',%gp_loop4%.te(%gp_loop4%); $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto gpxyzlabel_skipppttitle $label gpxyzlabel_skipppttitle ); PUTCLOSE; $label gpxyzlabel_after_writing_ppt_file $if "%gp_term%"=="windows" execute 'if exist gnuplot.ini del gnuplot.ini >nul'; $if "%gp_term%"=="windows" execute 'copy gnuplot.inp gnuplot.ini >nul'; $if "%gp_term%"=="windows" execute '"%gams.sysdir%inclib\callgplt.bat" x'; $if "%gp_term%"=="windows" $goto gpxyzlabel_finishup $if "%gp_term%"=="wxt" execute 'if exist gnuplot.ini del gnuplot.ini >nul'; $if "%gp_term%"=="wxt" execute 'copy gnuplot.inp gnuplot.ini >nul'; $if "%gp_term%"=="wxt" execute '"%gams.sysdir%inclib\callgplt.bat" x'; $if "%gp_term%"=="wxt" $goto gpxyzlabel_finishup execute 'wgnuplot gnuplot.inp'; $goto gpxyzlabel_finishup $label gpxyzlabel_finishup uu___3("%2")=no; uu___3("%3")=no; uu___2(u__2)=no; uu___1(u__1)=no; execute "sleep 1"; $label gpxyzlabel_endofgnupltxyz $offuni $setglobal gp_l1style "no" $setglobal gp_l2style "no" $setglobal gp_l3style "no" $setglobal gp_l4style "no" $setglobal gp_l5style "no" $setglobal gp_l6style "no" $setglobal gp_l7style "no" $setglobal gp_l8style "no" $setglobal gp_l9style "no" $setglobal gp_l10style "no" $setglobal gp_l11style "no" $setglobal gp_l12style "no" $setglobal gp_l13style "no" $setglobal gp_l14style "no" $setglobal gp_l15style "no" $setglobal gp_l16style "no" allu2(u__1,u__2) = no; allu3(u__1,u__2,u__3) = no; allu4(u__1,u__2,u__3,u__4) = no; uu___1(u__1)=no; uu___2(u__2)=no; uu___3(u__3)=no; uu___4(u__4)=no; $setglobal gp_style no $goto gpxyzlabel_endofallgnupltxyzversions $label gpxyzlabel_version_base $if a%1==aloop $log ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $if a%1==aloop $log + Warning: Using Old Gnuplotxyz Interface $if a%1==aloop $log + use blank invocation of gnuplotxyz to allow loops $if a%1==aloop $log + $libinclude gnuplotxyz $if a%1==aloop $log + http://www.uni-hamburg.de/Wiss/FB/15/Sustainability/schneider/gnuplot/ $if a%1==aloop $log +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $if a%1==aloop $goto after_loop_log_base $if not a%2==a $log ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $if not a%2==a $log + Warning: Using Old Gnuplotxyz Interface $if not a%2==a $log + 2D Histograms need 2-dimensional parameter $if not a%2==a $log + $libinclude gnuplotxyz parametername $if not a%2==a $log + http://www.uni-hamburg.de/Wiss/FB/15/Sustainability/schneider/gnuplot/ $if not a%2==a $log +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $label after_loop_log_base * #### # # # # ##### # #### ##### # # # # ###### * # # ## # # # # # # # # # # # # # # * # # # # # # # # # # # # ## # # * # ### # # # # # ##### # # # # ## # # * # # # ## # # # # # # # # # # # * #### # # #### # ###### #### # # # # ###### $offlisting $onlisting $onuni * Exit compilation if there is a pre-existing program error: $if not exist "%gams.sysdir%inclib\callgplt.bat" $abort "missing callgplt.bat in gams inclib directory" $if not exist "%gams.sysdir%inclib\rt1.exe" $abort "missing rt1.exe in gams inclib directory" $if not exist "%gams.sysdir%wgnuplot.exe" $abort "missing wgnuplot.exe in gams system directory" $if not errorfree $exit $if declared u__1 $goto declared1 * One time declaration of sets parameters and files for graphs in a loop alias(u__1,u__2,u__3,u__4,*); set uu___1(u__1); set uu___2(u__2); set uu___3(u__3); set uu___4(u__4); set ppt_repeat_loop_all /1*9/; set ppt_repeat_loop(ppt_repeat_loop_all) This set allows to combine graphs from different restart files; $if "%1" == "loop" $goto decl_file_loop $if dimension 3 %1 set allu(u__1,u__2,u__3); $if dimension 4 %1 set allu(u__1,u__2,u__3,u__4); $goto decl_sets_param $label decl_file_loop $if "%2" == "2D" set allu(u__1,u__2,u__3); $if "%2" == "3D" set allu(u__1,u__2,u__3,u__4); $if "%2" == "2D" $goto decl_sets_param $if "%2" == "3D" $goto decl_sets_param $abort "add '2D' or '3D' as argument after '$libinclude gnupltxyz loop'" $label decl_sets_param $if setglobal dont_delete_list $goto list_file_ready execute 'if exist "%gams.sysdir%inclib\gams_ppt_list.txt" del "%gams.sysdir%inclib\gams_ppt_list.txt" >nul'; file gams_ppt_list /"%gams.sysdir%inclib\gams_ppt_list.txt"/; $setglobal dont_delete_list yes $label list_file_ready files gp_input /gnuplot.inp/ gp_data /gnuplot.dat/ gp_winini /wgnuplot.ini/ ; scalars gp_count gp_countfix gp_continue_loop gp_plot_count /0/ gp_na /na/ gp_supzer permit user to supress zero values gp_ymin_value gp_ymax gp_xmax gp_xmin_value gp_y2low gp_y2up gp_x2low gp_x2up ; parameters gp_scencount(*) scenario counter gp_00(*) number of zeros at the end gp_xy(*) total observations gp__0(*) total observations minus end zeros ; SETs gp_line_color_name /aliceblue '240 248 255',antiquewhite '250 235 215',aqua '0 255 255',aquamarine '127 255 212',azure '240 255 255',beige '245 245 220', bisque '255 228 196',black '0 0 0',blanchedalmond '255 235 205',blue '0 0 255',blueviolet '138 43 226',brown '165 42 42', BrightCyan '0 255 255',BrightGreen '0 255 0',BrightMagneta '255 0 255',burlywood '222 184 135',cadetblue '95 158 160',chartreuse '127 255 0', chocolate '210 105 30',coral '255 127 80',cornflowerblue '100 149 237',cornsilk '255 248 220',crimson '220 20 60',cyan '0 255 255', darkblue '0 0 139',darkcyan '0 139 139',darkgoldenrod '184 134 11',darkgray '169 169 169',darkgreen '0 100 0',DarkGrey '128 128 128', darkkhaki '189 183 107',darkmagenta '139 0 139',darkolivegreen '85 107 47',darkorange '255 140 0',darkorchid '153 50 204',darkred '139 0 0', darksalmon '233 150 122',darkseagreen '143 188 143',darkslateblue '72 61 139',darkslategray '47 79 79',darkturquoise '0 206 209',darkviolet '148 0 211', deeppink '255 20 147',deepskyblue '0 191 255',dimgray '105 105 105',dodgerblue '30 144 255',firebrick '178 34 34',floralwhite '255 250 240', forestgreen '34 139 34',fuchsia '255 0 255',gainsboro '220 220 220',ghostwhite '248 248 255',gold '255 215 0',goldenrod '218 165 32', gray '127 127 127',green '0 128 0',greenyellow '173 255 47',honeydew '240 255 240',hotpink '255 105 180',indianred '205 92 92', indigo '75 0 130',ivory '255 255 240',khaki '240 230 140',lavender '230 230 250',lavenderblush '255 240 245',lawngreen '124 252 0', lemonchiffon '255 250 205',lightblue '173 216 230',lightcoral '240 128 128',lightcyan '224 255 255',lightgoldenrodyellow '250 250 210',lightgreen '144 238 144', lightgrey '211 211 211',lightpink '255 182 193',lightsalmon '255 160 122',lightseagreen '32 178 170',lightskyblue '135 206 250',lightslategray '119 136 153', lightsteelblue '176 196 222',lightyellow '255 255 224',lime '0 255 0',limegreen '50 205 50',linen '250 240 230',magenta '255 0 255', Magneta '128 0 128',maroon '128 0 0',mediumaquamarine '102 205 170',mediumblue '0 0 205',mediumorchid '186 85 211',mediumpurple '147 112 219', mediumseagreen '60 179 113',mediumslateblue '123 104 238',mediumspringgreen '0 250 154',mediumturquoise '72 209 204',mediumvioletred '199 21 133',midnightblue '25 25 112', mintcream '245 255 250',mistyrose '255 228 225',moccasin '255 228 181',navajowhite '255 222 173',navy '0 0 128',navyblue '159 175 223', oldlace '253 245 230',olive '128 128 0',olivedrab '107 142 35',orange '255 165 0',orangered '255 69 0',orchid '218 112 214', palegoldenrod '238 232 170',palegreen '152 251 152',paleturquoise '175 238 238',palevioletred '219 112 147',papayawhip '255 239 213',peachpuff '255 218 185', peru '205 133 63',pink '255 192 203',plum '221 160 221',powderblue '176 224 230',purple '128 0 128',red '255 0 0', rosybrown '188 143 143',royalblue '65 105 225',saddlebrown '139 69 19',salmon '250 128 114',sandybrown '244 164 96',seagreen '46 139 87', seashell '255 245 238',sienna '160 82 45',silver '192 192 192',skyblue '135 206 235',slateblue '106 90 205',slategray '112 128 144', snow '255 250 250',springgreen '0 255 127',steelblue '70 130 180',tan '210 180 140',teal '0 128 128',thistle '216 191 216', tomato '255 99 71',turquoise '64 224 208',violet '238 130 238',wheat '245 222 179',white '255 255 255',whitesmoke '245 245 245', yellow '255 255 0',yellowgreen '139 205 50' / gp_hex_color_name / aliceblue 'F0F8FF',antiquewhite 'FAEBD7',aqua '00FFFF',aquamarine '7FFFD4',azure 'F0FFFF',beige 'F5F5DC', bisque 'FFE4C4',black '000000',blanchedalmond 'FFEBCD',blue '0000FF',blueviolet '8A2BE2',brown 'A52A2A', burlywood 'DEB887',cadetblue '5F9EA0',chartreuse '7FFF00',chocolate 'D2691E',coral 'FF7F50',cornflowerblue '6495ED', cornsilk 'FFF8DC',crimson 'DC143C',cyan '00FFFF',darkblue '00008B',darkcyan '008B8B',darkgoldenrod 'B8860B', darkgray 'A9A9A9',darkgreen '006400',darkkhaki 'BDB76B',darkmagenta '8B008B',darkolivegreen '556B2F',darkorange 'FF8C00', darkorchid '9932CC',darkred '8B0000',darksalmon 'E9967A',darkseagreen '8FBC8F',darkslateblue '483D8B',darkslategray '2F4F4F', darkturquoise '00CED1',darkviolet '9400D3',deeppink 'FF1493',deepskyblue '00BFFF',dimgray '696969',dodgerblue '1E90FF', firebrick 'B22222',floralwhite 'FFFAF0',forestgreen '228B22',fuchsia 'FF00FF',gainsboro 'DCDCDC',ghostwhite 'F8F8FF', gold 'FFD700',goldenrod 'DAA520',gray '7F7F7F',green '008000',greenyellow 'ADFF2F',honeydew 'F0FFF0', hotpink 'FF69B4',indianred 'CD5C5C',indigo '4B0082',ivory 'FFFFF0',khaki 'F0E68C',lavender 'E6E6FA', lavenderblush 'FFF0F5',lawngreen '7CFC00',lemonchiffon 'FFFACD',lightblue 'ADD8E6',lightcoral 'F08080',lightcyan 'E0FFFF', lightgoldenrodyellow 'FAFAD2',lightgreen '90EE90',lightgrey 'D3D3D3',lightpink 'FFB6C1',lightsalmon 'FFA07A',lightseagreen '20B2AA', lightskyblue '87CEFA',lightslategray '778899',lightsteelblue 'B0C4DE',lightyellow 'FFFFE0',lime '00FF00',limegreen '32CD32', linen 'FAF0E6',magenta 'FF00FF',maroon '800000',mediumaquamarine '66CDAA',mediumblue '0000CD',mediumorchid 'BA55D3', mediumpurple '9370DB',mediumseagreen '3CB371',mediumslateblue '7B68EE',mediumspringgreen '00FA9A',mediumturquoise '48D1CC',mediumvioletred 'C71585', midnightblue '191970',mintcream 'F5FFFA',mistyrose 'FFE4E1',moccasin 'FFE4B5',navajowhite 'FFDEAD',navy '000080', navyblue '9FAFDF',oldlace 'FDF5E6',olive '808000',olivedrab '6B8E23',orange 'FFA500',orangered 'FF4500', orchid 'DA70D6',palegoldenrod 'EEE8AA',palegreen '98FB98',paleturquoise 'AFEEEE',palevioletred 'DB7093',papayawhip 'FFEFD5', peachpuff 'FFDAB9',peru 'CD853F',pink 'FFC0CB',plum 'DDA0DD',powderblue 'B0E0E6',purple '800080', red 'FF0000',rosybrown 'BC8F8F',royalblue '4169E1',saddlebrown '8B4513',salmon '‡ FA8072',sandybrown 'F4A460', seagreen '2E8B57',seashell 'FFF5EE',sienna 'A0522D',silver 'C0C0C0',skyblue '87CEEB',slateblue '6A5ACD', slategray '708090',snow 'FFFAFA',springgreen '00FF7F',steelblue '4682B4',tan 'D2B48C',teal '008080', thistle 'D8BFD8',tomato 'FF6347',turquoise '40E0D0',violet 'EE82EE',wheat 'F5DEB3',white 'FFFFFF', whitesmoke 'F5F5F5',yellow 'FFFF00',yellowgreen '9ACD32' / gp_xyz_ind_col(*) gp_xyz_fixed_col(*,*) gp_fixlinecolormap(gp_hex_color_name,*) ; * Initialize gp_scencount("gp_nothing") = 0; gp_xyz_fixed_col(gp_line_color_name,"gp_nothing") = no; $if "%1" == "loop" $goto end_of_gnupltxy $goto declared1 * exit if not declared $label declared1 $if "%1" == "loop" $goto end_of_gnupltxy $if a%1==a $exit $if declared %1 $goto declared2 $error GNUPLOT: Identifier %1 is not declared. $exit * exit if not defined $label declared2 $if defined %1 $goto defined0 $error GNUPLOT: Identifier %1 is not defined. $exit * exit if not three or four dimensional $label defined0 $if dimension 3 %1 $goto define__2D $if dimension 4 %1 $goto define__3D $error GNUPLOT: Identifier %1 is neither three nor four dimensional. $exit * 2D Set up $label define__2D $if "%gp_style%" == "histogram" $goto define_histogram $if not a%2==a $goto define__2D_1 $error GNUPLOT2: Horizontal axis to be graphed 2nd argument is not present. $exit $label define__2D_1 $if not a%3==a $goto define__2D_2 $error GNUPLOT2: Vertical axis to be graphed 3rd argument is not present. $exit $label define__2D_2 *$goto end_of_gnupltxy allu(u__1,u__2,"%2") $ %1(u__1,u__2,"%2")=yes; allu(u__1,u__2,"%3") $ %1(u__1,u__2,"%3")=yes; *$goto end_of_gnupltxy uu___3("%3")=yes; uu___3("%2")=yes; uu___2(u__2)$sum(allu(u__1,u__2,uu___3),1) =yes; uu___1(u__1)$sum(allu(u__1,uu___2,uu___3),1)=yes; allu(u__1,u__2,u__3)$(%1(u__1,u__2,"%2") or %1(u__1,u__2,"%3"))=no; * UWE $goto end_of_gnupltxy $goto assign_more_variables * 3D Set up $label define__3D $if not a%2==a $goto define__3D_1 $error GNUPLOT2: Horizontal axis to be graphed 2nd argument is not present. $exit $label define__3D_1 $if not a%3==a $goto define__3D_2 $error GNUPLOT2: Z axis to be graphed 3rd argument is not present. $exit $label define__3D_2 $if not a%3==a $goto define__3D_3 $error GNUPLOT2: Vertical axis to be graphed 4th argument is not present. $exit $label define__3D_3 allu(u__1,u__2,u__3,u__4) $(%1(u__1,u__2,u__3,"%2") or %1(u__1,u__2,u__3,"%3") or %1(u__1,u__2,u__3,"%4") ) = yes; uu___4("%4") = yes; uu___4("%3") = yes; uu___4("%2") = yes; * observation set * have observations only if you have at least one non-zero coordinate uu___3(u__3) $sum(allu(u__1,u__2,u__3,uu___4),1) =yes; uu___2(u__2) $sum(allu(u__1,u__2,u__3,uu___4),1) =yes; * line/plane set * have lines only if you have observations uu___1(u__1) $sum(allu(u__1,uu___2,uu___3,uu___4),1)=yes; allu(u__1,u__2,u__3,u__4) $(%1(u__1,u__2,u__3,"%2") or %1(u__1,u__2,u__3,"%3") or %1(u__1,u__2,u__3,"%4") ) = no; $goto assign_more_variables * Histogram Set up $label define_histogram $log a%1 $log a%2 $if not a%2==a $goto define_histogram2 $error GNUPLOT2: Specify element of third dimension for histogram plot $exit $label define_histogram2 allu(u__1,u__2,u__3)$(%1(u__1,u__2,"%2")) =yes; uu___3("%2")=yes; uu___2(u__2)$sum(allu(u__1,u__2,uu___3),1) =yes; uu___1(u__1)$sum(allu(u__1,uu___2,uu___3),1)=yes; allu(u__1,u__2,u__3)$(%1(u__1,u__2,"%2"))=no; $goto assign_more_variables * UWE UWe $label assign_more_variables $offuni * 4th and 5th argument have changed meanings, they do not indicate terminal and figure name any more $if not setglobal gp_name $setglobal gp_name '%1' * 2D names $if dimension 3 %1 $setglobal gp_scen 'uu___1' $if dimension 3 %1 $setglobal gp_obsv_1 'uu___2' $if dimension 3 %1 $setglobal gp_xxxvalue "%2" $if dimension 3 %1 $setglobal gp_yyyvalue "%3" $if dimension 3 %1 $setglobal gp__col3 "%4" $if dimension 3 %1 $setglobal gp__col4 "%5" $if dimension 3 %1 $setglobal gp__col5 "%6" $if dimension 3 %1 $setglobal gp__col6 "%7" * 3D names $if dimension 4 %1 $setglobal gp_planes 'uu___1' $if dimension 4 %1 $setglobal gp_obsv_1 'uu___2' $if dimension 4 %1 $setglobal gp_obsv_2 'uu___3' $if dimension 4 %1 $setglobal gp_scen 'uu___4' $if dimension 4 %1 $setglobal gp_xxxvalue "%2" $if dimension 4 %1 $setglobal gp_yyyvalue "%3" $if dimension 4 %1 $setglobal gp_zzzvalue "%4" * Histograms $if "%gp_style%" == "histogram" $setglobal gp_singlecoordinate "%2" $onuni $if "%gp_style%" == "histogram" $goto abort_histogram $if dimension 4 %1 $goto abort_3D_plot abort$(sum((%gp_scen%,%gp_obsv_1%) $%1(%gp_scen%,%gp_obsv_1%,'%gp_xxxvalue%'),1) eq 0) '***','* data for %gp_xxxvalue% column are all zero', %1; abort$(sum((%gp_scen%,%gp_obsv_1%) $%1(%gp_scen%,%gp_obsv_1%,'%gp_yyyvalue%'),1) eq 0) '***','* data for %gp_yyyvalue% column are all zero', %1; $goto compile_input_commands $label abort_3D_plot abort$(sum((%gp_planes%,%gp_obsv_1%,%gp_obsv_2%) $%1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,'%gp_xxxvalue%'),1) eq 0) '***','* data for %gp_xxxvalue% column are all zero', %1; abort$(sum((%gp_planes%,%gp_obsv_1%,%gp_obsv_2%) $%1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,'%gp_zzzvalue%'),1) eq 0) '***','* data for %gp_zzzvalue% column are all zero', %1; abort$(sum((%gp_planes%,%gp_obsv_1%,%gp_obsv_2%) $%1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,'%gp_yyyvalue%'),1) eq 0) '***','* data for %gp_yyyvalue% column are all zero', %1; $goto compile_input_commands $label abort_histogram abort$(sum((%gp_scen%,%gp_obsv_1%) $%1(%gp_scen%,%gp_obsv_1%,'%gp_singlecoordinate%'),1) eq 0) '***','* data for %gp_xxxvalue% column are all zero', %1; $goto compile_input_commands * UWE UWE $label compile_input_commands * * * Gnuplot.inp - Contains Gnuplot Commands * *______________________________________________ * put gp_input; file.lw = 0; file.nr = 0; file.nd = 0; file.nw = 0; file.pw =900; * Insert Auto Code produced by make_label_code.gms - Begin $if not setglobal gp_label_1 $goto after_gplabel_1 $if '%gp_label_1%' == 'no' put 'unset label 1' /; $if '%gp_label_1%' == 'no' $goto after_gplabel_1 $if setglobal gp_label_1 put 'set label 1 %gp_label_1%' /; $goto after_gplabel_1 $label after_gplabel_1 $if not setglobal gp_label_2 $goto after_gplabel_2 $if '%gp_label_2%' == 'no' put 'unset label 2' /; $if '%gp_label_2%' == 'no' $goto after_gplabel_2 $if setglobal gp_label_2 put 'set label 2 %gp_label_2%' /; $goto after_gplabel_2 $label after_gplabel_2 $if not setglobal gp_label_3 $goto after_gplabel_3 $if '%gp_label_3%' == 'no' put 'unset label 3' /; $if '%gp_label_3%' == 'no' $goto after_gplabel_3 $if setglobal gp_label_3 put 'set label 3 %gp_label_3%' /; $goto after_gplabel_3 $label after_gplabel_3 $if not setglobal gp_label_4 $goto after_gplabel_4 $if '%gp_label_4%' == 'no' put 'unset label 4' /; $if '%gp_label_4%' == 'no' $goto after_gplabel_4 $if setglobal gp_label_4 put 'set label 4 %gp_label_4%' /; $goto after_gplabel_4 $label after_gplabel_4 $if not setglobal gp_label_5 $goto after_gplabel_5 $if '%gp_label_5%' == 'no' put 'unset label 5' /; $if '%gp_label_5%' == 'no' $goto after_gplabel_5 $if setglobal gp_label_5 put 'set label 5 %gp_label_5%' /; $goto after_gplabel_5 $label after_gplabel_5 $if not setglobal gp_label_6 $goto after_gplabel_6 $if '%gp_label_6%' == 'no' put 'unset label 6' /; $if '%gp_label_6%' == 'no' $goto after_gplabel_6 $if setglobal gp_label_6 put 'set label 6 %gp_label_6%' /; $goto after_gplabel_6 $label after_gplabel_6 $if not setglobal gp_label_7 $goto after_gplabel_7 $if '%gp_label_7%' == 'no' put 'unset label 7' /; $if '%gp_label_7%' == 'no' $goto after_gplabel_7 $if setglobal gp_label_7 put 'set label 7 %gp_label_7%' /; $goto after_gplabel_7 $label after_gplabel_7 $if not setglobal gp_label_8 $goto after_gplabel_8 $if '%gp_label_8%' == 'no' put 'unset label 8' /; $if '%gp_label_8%' == 'no' $goto after_gplabel_8 $if setglobal gp_label_8 put 'set label 8 %gp_label_8%' /; $goto after_gplabel_8 $label after_gplabel_8 $if not setglobal gp_label_9 $goto after_gplabel_9 $if '%gp_label_9%' == 'no' put 'unset label 9' /; $if '%gp_label_9%' == 'no' $goto after_gplabel_9 $if setglobal gp_label_9 put 'set label 9 %gp_label_9%' /; $goto after_gplabel_9 $label after_gplabel_9 * Insert Auto Code produced by make_label_code.gms - End * Color $if not setglobal gp_color $setglobal gp_color 'color' $if "%gp_color%" =="yes" $setglobal gp_color 'color' $if "%gp_color%" =="monochrome" $setglobal gp_color 'monochrome' $if "%gp_color%" =="no" $setglobal gp_color 'monochrome' $if "%gp_color%" =="bw" $setglobal gp_color 'monochrome' $if "%gp_color%" =="0" $setglobal gp_color 'monochrome' * Font $if not setglobal gp_font $setglobal gp_font 'Times New Roman' $if "%gp_font%" == "no" $setglobal gp_font 'Times New Roman' $if "%gp_font%" == "0" $setglobal gp_font 'Times New Roman' * Font Size $if not setglobal gp_fontsize $setglobal gp_fontsize '12' $if "%gp_fontsize%" == "no" $setglobal gp_fontsize '12' $if "%gp_fontsize%" == "0" $setglobal gp_fontsize '12' * Line Width $if not setglobal gp_lwidth $setglobal gp_lwidth '1' * More Styles $if not setglobal gp_morestyle1 $goto after_morestyle1_assign $if "%gp_morestyle1%" == "no" $goto after_morestyle1_assign PUT "set style %gp_morestyle1%" /; $label after_morestyle1_assign $if not setglobal gp_morestyle2 $goto after_morestyle2_assign $if "%gp_morestyle2%" == "no" $goto after_morestyle2_assign PUT "set style %gp_morestyle2%" /; $label after_morestyle2_assign $if not setglobal gp_morestyle3 $goto after_morestyle3_assign $if "%gp_morestyle3%" == "no" $goto after_morestyle3_assign PUT "set style %gp_morestyle3%" /; $label after_morestyle3_assign * resetting of individual styles $if "%gp_resetstyle%"=="no" $goto l_reset_axes $if "%gp_resetstyle%"=="0" $goto l_reset_axes $if not setglobal gp_resetstyle $goto l_reset_axes $setglobal gp_l1style "no" $setglobal gp_l2style "no" $setglobal gp_l3style "no" $setglobal gp_l4style "no" $setglobal gp_l5style "no" $setglobal gp_l6style "no" $setglobal gp_l7style "no" $setglobal gp_l8style "no" $setglobal gp_l9style "no" $setglobal gp_l10style "no" $setglobal gp_l11style "no" $setglobal gp_l12style "no" $setglobal gp_l13style "no" $setglobal gp_l14style "no" $setglobal gp_l15style "no" $setglobal gp_l16style "no" $goto l_reset_axes * resetting of individual axes $label l_reset_axes $if "%gp_resetaxes%"=="no" $goto l_reset_done $if "%gp_resetaxes%"=="0" $goto l_reset_done $if not setglobal gp_resetstyle $goto l_reset_done $setglobal gp_l1axes "no" $setglobal gp_l2axes "no" $setglobal gp_l3axes "no" $setglobal gp_l4axes "no" $setglobal gp_l5axes "no" $setglobal gp_l6axes "no" $setglobal gp_l7axes "no" $setglobal gp_l8axes "no" $setglobal gp_l9axes "no" $setglobal gp_l10axes "no" $setglobal gp_l11axes "no" $setglobal gp_l12axes "no" $setglobal gp_l13axes "no" $setglobal gp_l14axes "no" $setglobal gp_l15axes "no" $setglobal gp_l16axes "no" $goto l_reset_done $label l_reset_done * Terminal $if setglobal gp_term $goto specified_terminal $if setglobal gp_ppt $setglobal gp_term 'emf' $if setglobal gp_ppt put "set terminal emf %gp_color% '%gp_font%' %gp_fontsize% linewidth %gp_lwidth% size 871,653"/; $if not setglobal gp_ppt $setglobal gp_term "windows" $goto more_on_terminal $label specified_terminal $if "%gp_term%" =="windows" $goto more_on_terminal $if "%gp_term%" =="emf" put "set terminal emf %gp_color% '%gp_font%' %gp_fontsize% linewidth %gp_lwidth% size 871,653"/; $if "%gp_term%" =="emf" $goto more_on_terminal $if setglobal gp_ppt put "set terminal %gp_term% size 871,653"/; $goto more_on_terminal $label more_on_terminal $if "%gp_term%" =="windows" put "set terminal windows" /; put "unset mouse" /; $if "%gp_term%" =="windows" $goto specify_winoptions gp_plot_count = gp_plot_count + 1; $if setglobal gp_ppt $goto determine_ppt_graph_name $if not setglobal gp_ppt put "set output '%gp_name%.%gp_term%'"/; $goto specify_winoptions $label determine_ppt_graph_name $if not setglobal gp_ppt_2 $goto after_ppt_output_name_2 $if setglobal gp_ppt_2 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_2%.%gp_term%'" /; $if setglobal gp_ppt_2 $goto specify_winoptions $label after_ppt_output_name_2 $if not setglobal gp_ppt_3 $goto after_ppt_output_name_3 $if setglobal gp_ppt_3 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_3%.%gp_term%'" /; $if setglobal gp_ppt_3 $goto specify_winoptions $label after_ppt_output_name_3 $if not setglobal gp_ppt_4 $goto after_ppt_output_name_4 $if setglobal gp_ppt_4 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_4%.%gp_term%'" /; $if setglobal gp_ppt_4 $goto specify_winoptions $label after_ppt_output_name_4 $if not setglobal gp_ppt_5 $goto after_ppt_output_name_5 $if setglobal gp_ppt_5 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_5%.%gp_term%'" /; $if setglobal gp_ppt_5 $goto specify_winoptions $label after_ppt_output_name_5 $if not setglobal gp_ppt_6 $goto after_ppt_output_name_6 $if setglobal gp_ppt_6 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_6%.%gp_term%'" /; $if setglobal gp_ppt_6 $goto specify_winoptions $label after_ppt_output_name_6 $if not setglobal gp_ppt_7 $goto after_ppt_output_name_7 $if setglobal gp_ppt_7 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_7%.%gp_term%'" /; $if setglobal gp_ppt_7 $goto specify_winoptions $label after_ppt_output_name_7 $if not setglobal gp_ppt_8 $goto after_ppt_output_name_8 $if setglobal gp_ppt_8 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_8%.%gp_term%'" /; $if setglobal gp_ppt_8 $goto specify_winoptions $label after_ppt_output_name_8 $if not setglobal gp_ppt_9 $goto after_ppt_output_name_9 $if setglobal gp_ppt_9 put "set output '%gp_name%_",gp_plot_count,"_%gp_ppt_9%.%gp_term%'" /; $if setglobal gp_ppt_9 $goto specify_winoptions $label after_ppt_output_name_9 put "set output '%gp_name%_",gp_plot_count,"_1.%gp_term%'" /; $goto specify_winoptions $label specify_winoptions file.nd = 3; file.nw = 12; * Cancel axes if not needed $if "%gp_y2axis%" == "no" $setglobal gp_y2scale "0" $if "%gp_y2axis%" == "0" $setglobal gp_y2scale "0" $if "%gp_y2axis%" == "no" $setglobal gp_y2range "0" $if "%gp_y2axis%" == "0" $setglobal gp_y2range "0" $if "%gp_y2axis%" == "no" $setglobal gp_y2label "0" $if "%gp_y2axis%" == "0" $setglobal gp_y2label "0" $if "%gp_x2axis%" == "no" $setglobal gp_x2scale "0" $if "%gp_x2axis%" == "0" $setglobal gp_x2scale "0" $if "%gp_x2axis%" == "no" $setglobal gp_x2range "0" $if "%gp_x2axis%" == "0" $setglobal gp_x2range "0" $if "%gp_x2axis%" == "no" $setglobal gp_x2label "0" $if "%gp_x2axis%" == "0" $setglobal gp_x2label "0" $if not setglobal gp_xrange $setglobal gp_xrange "no" $if "%gp_xrange%" == "0" $setglobal gp_xrange "no" $if "%gp_xrange%" == "no" put 'set auto x'/; $if "%gp_xrange%" == "no" $goto yrange $if setglobal gp_xrange put 'set xrange [%gp_xrange%]'/; $goto yrange $label yrange $if not setglobal gp_yrange $setglobal gp_yrange "no" $if "%gp_yrange%" == "0" $setglobal gp_yrange "no" $if "%gp_yrange%" == "no" put 'set auto y'/; $if "%gp_yrange%" == "no" $goto scale_2axes $if setglobal gp_yrange put 'set yrange [%gp_yrange%]'/; $goto scale_2axes $label scale_2axes $if dimension 4 %1 $goto boxwidth * Calculate scalars which are needed to automatically scale the Y2 axis * The four scalars calculate the maximum and minimum value for * both the vertical and horizontal axis $if "%gp_style%" == "histogram" $goto dethistrange gp_ymin_value = smin((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%")); gp_ymax = smax((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%")); gp_xmin_value = smin((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%")); gp_xmax = smax((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%")); gp_x2low = gp_xmin_value; gp_x2up = gp_xmax; $goto setboundry_gp $label dethistrange gp_ymin_value = smin((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_singlecoordinate%")); gp_ymax = smax((%gp_scen%,%gp_obsv_1%),%1(%gp_scen%,%gp_obsv_1%,"%gp_singlecoordinate%")); $if not setglobal gp_ymin $goto setboundry_gp $if "%gp_ymin%" == "no" $goto setboundry_gp gp_ymin_value = %gp_ymin%; display gp_ymin_value; $label setboundry_gp gp_y2low = gp_ymin_value; gp_y2up = gp_ymax; $if not setglobal gp_x2scale $goto x2range $if "%gp_x2scale%" == "no" $goto x2range $if "%gp_x2scale%" == "0" $goto x2range $if "%gp_x2range%" == "no" $goto x2auto $if "%gp_x2range%" == "0" $goto x2auto $if not setglobal gp_x2range $goto x2auto $if setglobal gp_x2range $goto x2range $goto x2auto $label x2auto $if setglobal gp_x2scale gp_x2low = %gp_x2scale% * gp_xmin_value; $if setglobal gp_x2scale gp_x2up = %gp_x2scale% * gp_xmax; put 'unset auto x'/; put 'unset auto x2'/; put 'set xrange [',gp_xmin_value, ' : ',gp_xmax,']'/; put 'set x2range [',gp_x2low,' : ',gp_x2up,']'/; $goto y2scale $label x2range $if not setglobal gp_x2range $goto y2scale $if "%gp_x2range%" == "no" $goto y2scale $if "%gp_x2range%" == "0" $goto y2scale put 'set x2range [%gp_x2range%]'/; $label y2scale $if not setglobal gp_y2scale $goto y2range $if "%gp_y2scale%" == "no" $goto y2range $if "%gp_y2scale%" == "0" $goto y2range $if "%gp_y2range%" == "no" $goto y2auto $if "%gp_y2range%" == "0" $goto y2auto $if not setglobal gp_y2range $goto y2auto $if setglobal gp_y2range $goto y2range $goto y2auto $label y2auto $if setglobal gp_y2scale gp_y2low = %gp_y2scale% * gp_ymin_value; $if setglobal gp_y2scale gp_y2up = %gp_y2scale% * gp_ymax; put 'unset auto y'/; put 'unset auto y2'/; put 'set yrange [',gp_ymin_value, ' : ',gp_ymax,']'/; put 'set y2range [',gp_y2low,' : ',gp_y2up,']'/; $goto boxwidth $label y2range $if not setglobal gp_y2range $goto boxwidth $if "%gp_y2range%" == "no" $goto boxwidth $if "%gp_y2range%" == "0" $goto boxwidth put 'set y2range [%gp_y2range%]'/; $goto boxwidth $label boxwidth $if setglobal gp_boxwid $setglobal gp_boxwidth %gp_boxwid% $if not setglobal gp_boxwidth $goto figsize $if "%gp_boxwidth%" == "no" $goto figsize $if "%gp_boxwidth%" == "0" $goto figsize put 'set boxwidth %gp_boxwidth%'/; $goto figsize $label figsize $if "%gp_size%" == "no" $goto gplabel_bmargin $if "%gp_size%" == "0" $goto gplabel_bmargin $if not setglobal gp_size $goto gplabel_bmargin put 'set size %gp_size%'/; $goto gplabel_bmargin * margins at top bottom left and right $label gplabel_bmargin $if "%gp_bmargin%" == "no" $goto gplabel_tmargin $if "%gp_bmargin%" == "0" $goto gplabel_tmargin $if not setglobal gp_bmargin $goto gplabel_tmargin put "set bmargin %gp_bmargin%" /; $goto gplabel_tmargin $label gplabel_tmargin $if "%gp_tmargin%" == "no" $goto gplabel_lmargin $if "%gp_tmargin%" == "0" $goto gplabel_lmargin $if not setglobal gp_tmargin $goto gplabel_lmargin put "set tmargin %gp_tmargin%" /; $goto gplabel_lmargin $label gplabel_lmargin $if "%gp_lmargin%" == "no" $goto gplabel_rmargin $if "%gp_lmargin%" == "0" $goto gplabel_rmargin $if not setglobal gp_lmargin $goto gplabel_rmargin put "set lmargin %gp_lmargin%" /; $goto gplabel_rmargin $label gplabel_rmargin $if "%gp_rmargin%" == "no" $goto x2axis $if "%gp_rmargin%" == "0" $goto x2axis $if not setglobal gp_rmargin $goto x2axis put "set rmargin %gp_rmargin%" /; $goto x2axis * second x,y axis tics $label x2axis $if setglobal gp_x2scale $setglobal gp_x2axis 'yes' $if "%gp_x2scale%" == "no" $setglobal gp_x2axis 'no' $if "%gp_x2scale%" == "0" $setglobal gp_x2axis 'no' $if setglobal gp_x2range $setglobal gp_x2axis 'yes' $if "%gp_x2range%" == "no" $setglobal gp_x2axis 'no' $if "%gp_x2range%" == "0" $setglobal gp_x2axis 'no' $if not setglobal gp_x2axis $goto y2axis $if "%gp_x2axis%" == "0" $goto y2axis $if "%gp_x2axis%" == "no" $goto y2axis put 'set x2tics'/; $label y2axis $if not setglobal gp_y2scale $goto aftery2scale_test $if "%gp_y2scale%" == "no" $setglobal gp_y2axis 'no' $if "%gp_y2scale%" == "0" $setglobal gp_y2axis 'no' $if setglobal gp_y2scale $goto beforeputy2tics $label aftery2scale_test $if "%gp_x1y2%"=="no" $goto afterx1y2_test $if setglobal gp_x1y2 $goto beforeputy2tics $label afterx1y2_test $if "%gp_x2y2%"=="no" $goto afterx2y2_test $if setglobal gp_x2y2 $goto beforeputy2tics $label afterx2y2_test $if setglobal gp_y2range $setglobal gp_y2axis 'yes' $if "%gp_y2range%" == "no" $setglobal gp_y2axis 'no' $if "%gp_y2range%" == "0" $setglobal gp_y2axis 'no' $if not setglobal gp_y2axis $goto logscale $if "%gp_y2axis%" == "0" $goto logscale $if "%gp_y2axis%" == "no" $goto logscale $label beforeputy2tics put 'set y2tics'/; * logscale option $label logscale $if "%gp_logscale%" == "x" put /'set logscale x'/ $if "%gp_logscale%" == "y" put /'set logscale y'/ $if "%gp_logscale%" == "xy" put /'set logscale xy'/ $if "%gp_logscale%" == "0" put /'unset logscale xy'/ $if "%gp_logscale%" == "none" put /'unset logscale xy'/ $goto gridline * grid options $label gridline $if not setglobal gp_gline $setglobal gp_gline '4' $if "%gp_color%" == "monochrome" $setglobal gp_gline '4' $if "%gp_term%" == "windows" $setglobal gp_gline '13' $goto grid $label grid $if not setglobal gp_zeroax $setglobal gp_zeroax no $if %gp_zeroax% == yes put 'set zeroaxis'/; $if %gp_zeroax% == no put 'unset zeroaxis'/; $if %gp_zeroax% == yes $goto grid2 $if not setglobal gp_xzeroax $setglobal gp_xzeroax no $if %gp_xzeroax% == yes put 'set xzeroaxis'/; $if %gp_xzeroax% == no put 'unset xzeroaxis'/; $if not setglobal gp_yzeroax $setglobal gp_yzeroax no $if %gp_yzeroax% == yes put 'set yzeroaxis'/; $if %gp_yzeroax% == no put 'unset yzeroaxis'/; $goto grid2 $label grid2 $if not setglobal gp_grid $setglobal gp_grid no $if %gp_grid% == "0" put 'unset grid'/; $if %gp_grid% == "no" put 'unset grid'/; $if "%gp_grid%" == "0" $goto xgrid $if "%gp_grid%" == "no" $goto xgrid $if %gp_grid% == yes put 'set grid'/; $goto xgrid $label xgrid $if "%gp_xgrid%" == "0" $goto ygrid $if "%gp_xgrid%" == "no" $goto ygrid $if %gp_xgrid% == yes put 'set grid xtics '; $if %gp_xgrid% == yes put %gp_gline%; $if %gp_xgrid% == yes put /; $goto ygrid $label ygrid $if "%gp_ygrid%" == "0" $goto formats $if "%gp_ygrid%" == "no" $goto formats $if %gp_ygrid% == yes put 'set grid ytics '; $if %gp_ygrid% == yes put %gp_gline%; $if %gp_ygrid% == yes put /; $goto formats $label formats $if "%gp_xform%" == "0" $goto tickers $if "%gp_xform%" == "no" $goto tickers $if setglobal gp_xform put 'set format x %gp_xform%'/; $goto tickers * tick options for major tics $label tickers $if not setglobal gp_tics $setglobal gp_tics 'in' $if "%gp_tics%" == "no" put 'unset tics'/; $if "%gp_tics%" == "0" put 'unset tics'/; $if "%gp_tics%" == "no" $goto gplb_xtics $if "%gp_tics%" == "0" $goto gplb_xtics put 'set tics %gp_tics%'/; $goto gplb_xtics $label gplb_xtics $if not setglobal gp_xtics $setglobal gp_xtics "in" $if "%gp_xtics%" == "no" put 'unset xtics'/; $if "%gp_xtics%" == "0" put 'unset xtics'/; $if "%gp_xtics%" == "no" $goto ytics $if "%gp_xtics%" == "0" $goto ytics put 'set xtics %gp_xtics%'; $if not setglobal gp_xinc put /; $if not setglobal gp_xinc $goto ytics $if '%gp_xinc%' == 'no' put /; $if '%gp_xinc%' == 'no' $goto ytics $if '%gp_xinc%' == '0' put /; $if '%gp_xinc%' == '0' $goto ytics put ' %gp_xinc%'/; $goto ytics $label ytics $if not setglobal gp_ytics $setglobal gp_ytics "in" $if "%gp_ytics%" == "no" put 'unset ytics'/; $if "%gp_ytics%" == "0" put 'unset ytics'/; $if "%gp_ytics%" == "no" $goto styles $if "%gp_ytics%" == "0" $goto styles put 'set ytics %gp_ytics%'; $if not setglobal gp_yinc put /; $if not setglobal gp_yinc $goto styles $if "%gp_yinc%" == "0" put /; $if "%gp_yinc%" == "0" $goto styles $if "%gp_yinc%" == "no" put /; $if "%gp_yinc%" == "no" $goto styles put ' %gp_yinc%'/; $goto styles * Write options for labels, title, style, border, lines, and key $label styles $if "%gp_label%" == "no" put 'unset label'/; $if "%gp_label%" == "0" put 'unset label'/; $if "%gp_label%" == "no" $goto plottitle $if "%gp_label%" == "0" $goto plottitle $if "%gp_label%" == "yes" put 'set label'/; * X-labels $if not setglobal gp_xl_l1 $goto xlabel_noloop $if "%gp_xl_l1%" == "no" $goto xlabel_noloop $if "%gp_xl_l1%" == "0" $goto xlabel_noloop put 'set xlabel "'; $if setglobal gp_xl_l1 put %gp_xl_l1%.tl; $if setglobal gp_xl_l2 put ' ',%gp_xl_l2%.tl; $if setglobal gp_xl_l3 put ' ',%gp_xl_l3%.tl; $if setglobal gp_xl_l4 put ' ',%gp_xl_l4%.tl; PUT '"' /; $goto ylable_loop $label xlabel_noloop $if not setglobal gp_xlabel put 'set xlabel "%gp_xxxvalue%"'/; $if setglobal gp_xlabel put 'set xlabel "%gp_xlabel%"'/; $if "%gp_xlabel%" == "0" put 'unset xlabel'/; $if "%gp_xlabel%" == "no" put 'unset xlabel'/; $goto ylable_loop * Y-labels $label ylable_loop $if not setglobal gp_yl_l1 $goto ylabel_noloop $if "%gp_yl_l1%" == "no" $goto ylabel_noloop $if "%gp_yl_l1%" == "0" $goto ylabel_noloop put 'set ylabel "'; $if setglobal gp_yl_l1 put %gp_yl_l1%.tl; $if setglobal gp_yl_l2 put ' ',%gp_yl_l2%.tl; $if setglobal gp_yl_l3 put ' ',%gp_yl_l3%.tl; $if setglobal gp_yl_l4 put ' ',%gp_yl_l4%.tl; PUT '"' /; $goto zlable_loop $label ylabel_noloop $if not setglobal gp_ylabel put 'set ylabel "%gp_yyyvalue%"'/; $if setglobal gp_ylabel put 'set ylabel "%gp_ylabel%"'/; $if "%gp_ylabel%" == "0" put 'unset ylabel'/; $if "%gp_ylabel%" == "no" put 'unset ylabel'/; $if not setglobal gp_y2label put 'unset y2label'/; $if "%gp_y2label%" == "0" put 'unset y2label'/; $if "%gp_y2label%" == "no" put 'unset y2label'/; $if not setglobal gp_y2label $goto zlable_loop $if "%gp_y2label%" == "0" $goto zlable_loop $if "%gp_y2label%" == "no" $goto zlable_loop $if setglobal gp_y2label put 'set y2label "%gp_y2label%"'/; $goto zlable_loop * Z-labels $label zlable_loop $if not setglobal gp_zl_l1 $goto zlabel_noloop $if "%gp_zl_l1%" == "no" $goto zlabel_noloop $if "%gp_zl_l1%" == "0" $goto zlabel_noloop put 'set zlabel "'; $if setglobal gp_zl_l1 put %gp_zl_l1%.tl; $if setglobal gp_zl_l2 put ' ',%gp_zl_l2%.tl; $if setglobal gp_zl_l3 put ' ',%gp_zl_l3%.tl; $if setglobal gp_zl_l4 put ' ',%gp_zl_l4%.tl; PUT '"' /; $goto plottitle $label zlabel_noloop $if not dimension 4 %1 $goto check_x2_label $if dimension 4 %1 put 'set zlabel "%gp_zzzvalue%"'/; $if setglobal gp_zlabel put 'set zlabel "%gp_zlabel%"'/; $if "%gp_zlabel%" == "0" put 'unset zlabel'/; $if "%gp_zlabel%" == "no" put 'unset zlabel'/; $goto plottitle * X2-labels $label check_x2_label $if "%gp_x2label%" == "no" $goto y2label $if "%gp_x2label%" == "0" $goto y2label $if setglobal gp_x2label put 'set x2label "%gp_x2label%"'/; $goto y2label * Y2-labels $label y2label $if "%gp_y2label%" == "no" $goto plottitle $if "%gp_y2label%" == "0" $goto plottitle $if setglobal gp_y2label put 'set y2label "%gp_y2label%"'/; $goto plottitle * Title $label plottitle $if "%gp_keeptitleinppt%" == "no" $goto skiptitle $if setglobal gp_keeptitleinppt $goto after_unsetppttitle $if setglobal gp_ppt put 'unset title'/; $if setglobal gp_ppt $goto skiptitle $label after_unsetppttitle $if "%gp_loop1%" == "no" $goto nolooptitle $if "%gp_loop1%" == "0" $goto nolooptitle $if setglobal gp_loop1 $goto title_loop1 $label nolooptitle $if not setglobal gp_title $goto skiptitle $if "%gp_title%" == "no" $goto skiptitle $if "%gp_title%" == "0" $goto skiptitle put 'set title "%gp_title%"'/; $goto skiptitle $label title_loop1 $if not setglobal gp_title $setglobal gp_title " " put 'set title "%gp_title% ',%gp_loop1%.te(%gp_loop1%); $if setglobal gp_loop2 $goto title_loop2 put '"' /; $goto skiptitle $label title_loop2 $if "%gp_loop2%" == "no" put '"' /; $if "%gp_loop2%" == "0" put '"' /; $if "%gp_loop2%" == "no" $goto skiptitle $if "%gp_loop2%" == "0" $goto skiptitle put ' ',%gp_loop2%.te(%gp_loop2%); $if setglobal gp_loop3 $goto title_loop3 put '"' /; $goto skiptitle $label title_loop3 $if "%gp_loop3%" == "no" put '"' /; $if "%gp_loop3%" == "0" put '"' /; $if "%gp_loop3%" == "no" $goto skiptitle $if "%gp_loop3%" == "0" $goto skiptitle put ' ',%gp_loop3%.te(%gp_loop3%); $if setglobal gp_loop4 $goto title_loop4 put '"' /; $goto skiptitle $label title_loop4 $if "%gp_loop4%" == "no" put '"' /; $if "%gp_loop4%" == "0" put '"' /; $if "%gp_loop4%" == "no" $goto skiptitle $if "%gp_loop4%" == "0" $goto skiptitle put ' ',%gp_loop4%.te(%gp_loop4%); put '"' /; $goto skiptitle $goto skiptitle $label skiptitle $if not setglobal gp_style $setglobal gp_style lines $if "%gp_style%" == "no" $setglobal gp_style lines $if "%gp_style%" == "0" $setglobal gp_style lines put 'set style data %gp_style%'/; $if not setglobal gp_fill $setglobal gp_fill 'solid 0.5' $if "%gp_fill%" == "no" $setglobal gp_fill 'empty' $if "%gp_fill%" == "0" $setglobal gp_fill 'empty' put 'set style fill %gp_fill%'/; $if not setglobal gp_hist $goto rectangle_options $if "%gp_hist%" == "no" $goto rectangle_options $if "%gp_hist%" == "0" $goto rectangle_options put 'set style histogram %gp_hist%'/; $label rectangle_options $if not setglobal gp_rectangle $goto borderoptions $if "%gp_rectangle%" == "no" $goto borderoptions $if "%gp_rectangle%" == "0" $goto borderoptions put 'set style rectangle %gp_rectangle%'/; $goto borderoptions $label borderoptions file.nd = 0; file.nw = 0; $if not setglobal gp_border $setglobal gp_border yes $if not setglobal gp_borddim $setglobal gp_borddim '' $if "%gp_borddim%" == "all" $setglobal gp_borddim '' $if "%gp_borddim%" == "four" $setglobal gp_borddim '' $if "%gp_borddim%" == "two" $setglobal gp_borddim '3' $if "%gp_borddim%" == "x" $setglobal gp_borddim '1' $if "%gp_borddim%" == "y" $setglobal gp_borddim '2' $if "%gp_borddim%" == "zero" $setglobal gp_border no $if "%gp_borddim%" == "no" $setglobal gp_border no $if %gp_border% == "yes" put 'set border',' %gp_borddim%'/; $if %gp_border% == "no" put 'unset border'/; $if %gp_border% == "0" put 'unset border'/; $if "%gp_key%" == "yes" $setglobal gp_key 'top left' $if not setglobal gp_key put 'set key top left'/; $if not setglobal gp_key $goto pointsz $if "%gp_key%" == "no" put 'unset key'/; $if "%gp_key%" == "0" put 'unset key'/; $if "%gp_key%" == "no" $goto pointsz $if "%gp_key%" == "0" $goto pointsz put 'set key %gp_key% '; $if not setglobal gp_keyopt $goto keytitle $if "%gp_keyopt%" == "no" $goto keytitle $if "%gp_keyopt%" == "0" $goto keytitle put '%gp_keyopt% '; $label keytitle $if not setglobal gp_keytitle $goto key_box $if "%gp_keytitle%" == "no" $goto key_box $if "%gp_keytitle%" == "0" $goto key_box put 'title "%gp_keytitle%" ' $label key_box $if not setglobal gp_keybox put /; $if not setglobal gp_keybox $goto pointsz $if "%gp_keybox%" == "no" put /; $if "%gp_keybox%" == "no" $goto pointsz $if "%gp_keybox%" == "0" put /; $if "%gp_keybox%" == "0" $goto pointsz put 'box' /; $label pointsz $if not setglobal gp_pointsz $goto after_pointsz $if "%gp_pointsz%" == "0" $goto after_pointsz $if "%gp_pointsz%" == "no" $goto after_pointsz $if "%gp_pointsz%" == "" $goto after_pointsz put 'set pointsize %gp_pointsz%' /; $label after_pointsz * User defined options $if not setglobal gp_option_1 $goto after_user_option_1 $if "%gp_option_1%" == "no" $goto after_user_option_1 $if "%gp_option_1%" == "" $goto after_user_option_1 put "%gp_option_1%" /; $label after_user_option_1 $if not setglobal gp_option_2 $goto after_user_option_2 $if "%gp_option_2%" == "no" $goto after_user_option_2 $if "%gp_option_2%" == "" $goto after_user_option_2 put "%gp_option_2%" /; $label after_user_option_2 $if not setglobal gp_option_3 $goto after_user_option_3 $if "%gp_option_3%" == "no" $goto after_user_option_3 $if "%gp_option_3%" == "" $goto after_user_option_3 put "%gp_option_3%" /; $label after_user_option_3 $if not setglobal gp_option_4 $goto after_user_option_4 $if "%gp_option_4%" == "no" $goto after_user_option_4 $if "%gp_option_4%" == "" $goto after_user_option_4 put "%gp_option_4%" /; $label after_user_option_4 * Note the program below is created with put statements * Use up to 16 different styles $if not setglobal gp_l1style $setglobal gp_l1style %gp_style% $if "%gp_l1style%"=="no" $setglobal gp_l1style %gp_style% $if "%gp_l1style%"=="0" $setglobal gp_l1style %gp_style% $if not setglobal gp_l2style $setglobal gp_l2style %gp_style% $if "%gp_l2style%"=="no" $setglobal gp_l2style %gp_style% $if "%gp_l2style%"=="0" $setglobal gp_l2style %gp_style% $if not setglobal gp_l3style $setglobal gp_l3style %gp_style% $if "%gp_l3style%"=="no" $setglobal gp_l3style %gp_style% $if "%gp_l3style%"=="0" $setglobal gp_l3style %gp_style% $if not setglobal gp_l4style $setglobal gp_l4style %gp_style% $if "%gp_l4style%"=="no" $setglobal gp_l4style %gp_style% $if "%gp_l4style%"=="0" $setglobal gp_l4style %gp_style% $if not setglobal gp_l5style $setglobal gp_l5style %gp_style% $if "%gp_l5style%"=="no" $setglobal gp_l5style %gp_style% $if "%gp_l5style%"=="0" $setglobal gp_l5style %gp_style% $if not setglobal gp_l6style $setglobal gp_l6style %gp_style% $if "%gp_l6style%"=="no" $setglobal gp_l6style %gp_style% $if "%gp_l6style%"=="0" $setglobal gp_l6style %gp_style% $if not setglobal gp_l7style $setglobal gp_l7style %gp_style% $if "%gp_l7style%"=="no" $setglobal gp_l7style %gp_style% $if "%gp_l7style%"=="0" $setglobal gp_l7style %gp_style% $if not setglobal gp_l8style $setglobal gp_l8style %gp_style% $if "%gp_l8style%"=="no" $setglobal gp_l8style %gp_style% $if "%gp_l8style%"=="0" $setglobal gp_l8style %gp_style% $if not setglobal gp_l9style $setglobal gp_l9style %gp_style% $if "%gp_l9style%"=="no" $setglobal gp_l9style %gp_style% $if "%gp_l9style%"=="0" $setglobal gp_l9style %gp_style% $if not setglobal gp_l10style $setglobal gp_l10style %gp_style% $if "%gp_l10style%"=="no" $setglobal gp_l10style %gp_style% $if "%gp_l10style%"=="0" $setglobal gp_l10style %gp_style% $if not setglobal gp_l11style $setglobal gp_l11style %gp_style% $if "%gp_l11style%"=="no" $setglobal gp_l11style %gp_style% $if "%gp_l11style%"=="0" $setglobal gp_l11style %gp_style% $if not setglobal gp_l12style $setglobal gp_l12style %gp_style% $if "%gp_l12style%"=="no" $setglobal gp_l12style %gp_style% $if "%gp_l12style%"=="0" $setglobal gp_l12style %gp_style% $if not setglobal gp_l13style $setglobal gp_l13style %gp_style% $if "%gp_l13style%"=="no" $setglobal gp_l13style %gp_style% $if "%gp_l13style%"=="0" $setglobal gp_l13style %gp_style% $if not setglobal gp_l14style $setglobal gp_l14style %gp_style% $if "%gp_l14style%"=="no" $setglobal gp_l14style %gp_style% $if "%gp_l14style%"=="0" $setglobal gp_l14style %gp_style% $if not setglobal gp_l15style $setglobal gp_l15style %gp_style% $if "%gp_l15style%"=="no" $setglobal gp_l15style %gp_style% $if "%gp_l15style%"=="0" $setglobal gp_l15style %gp_style% $if not setglobal gp_l16style $setglobal gp_l16style %gp_style% $if "%gp_l16style%"=="no" $setglobal gp_l16style %gp_style% $if "%gp_l16style%"=="0" $setglobal gp_l16style %gp_style% file.nd = 0; file.nw = 6; * section xxx2 fix color assignment segment $if not setglobal gp_fixcolor_set $goto after_fixcolorassignment_2d $if "%gp_fixcolor_set%"=="no" $goto after_fixcolorassignment_2d gp_fixlinecolormap(gp_hex_color_name,%gp_fixcolor_set%) = no; gp_count=0; LOOP(%gp_fixcolor_set%, gp_count=gp_count+1; $if not setglobal gp_lc_1 $goto after_fixed_lc_1_assign $if "%gp_lc_1%"=="no" $goto after_fixed_lc_1_assign gp_fixlinecolormap("%gp_lc_1%",%gp_fixcolor_set%) $(gp_count eq 1) = yes; $label after_fixed_lc_1_assign $if not setglobal gp_lc_2 $goto after_fixed_lc_2_assign $if "%gp_lc_2%"=="no" $goto after_fixed_lc_2_assign gp_fixlinecolormap("%gp_lc_2%",%gp_fixcolor_set%) $(gp_count eq 2) = yes; $label after_fixed_lc_2_assign $if not setglobal gp_lc_3 $goto after_fixed_lc_3_assign $if "%gp_lc_3%"=="no" $goto after_fixed_lc_3_assign gp_fixlinecolormap("%gp_lc_3%",%gp_fixcolor_set%) $(gp_count eq 3) = yes; $label after_fixed_lc_3_assign $if not setglobal gp_lc_4 $goto after_fixed_lc_4_assign $if "%gp_lc_4%"=="no" $goto after_fixed_lc_4_assign gp_fixlinecolormap("%gp_lc_4%",%gp_fixcolor_set%) $(gp_count eq 4) = yes; $label after_fixed_lc_4_assign $if not setglobal gp_lc_5 $goto after_fixed_lc_5_assign $if "%gp_lc_5%"=="no" $goto after_fixed_lc_5_assign gp_fixlinecolormap("%gp_lc_5%",%gp_fixcolor_set%) $(gp_count eq 5) = yes; $label after_fixed_lc_5_assign $if not setglobal gp_lc_6 $goto after_fixed_lc_6_assign $if "%gp_lc_6%"=="no" $goto after_fixed_lc_6_assign gp_fixlinecolormap("%gp_lc_6%",%gp_fixcolor_set%) $(gp_count eq 6) = yes; $label after_fixed_lc_6_assign $if not setglobal gp_lc_7 $goto after_fixed_lc_7_assign $if "%gp_lc_7%"=="no" $goto after_fixed_lc_7_assign gp_fixlinecolormap("%gp_lc_7%",%gp_fixcolor_set%) $(gp_count eq 7) = yes; $label after_fixed_lc_7_assign $if not setglobal gp_lc_8 $goto after_fixed_lc_8_assign $if "%gp_lc_8%"=="no" $goto after_fixed_lc_8_assign gp_fixlinecolormap("%gp_lc_8%",%gp_fixcolor_set%) $(gp_count eq 8) = yes; $label after_fixed_lc_8_assign $if not setglobal gp_lc_9 $goto after_fixed_lc_9_assign $if "%gp_lc_9%"=="no" $goto after_fixed_lc_9_assign gp_fixlinecolormap("%gp_lc_9%",%gp_fixcolor_set%) $(gp_count eq 9) = yes; $label after_fixed_lc_9_assign $if not setglobal gp_lc_10 $goto after_fixed_lc_10_assign $if "%gp_lc_10%"=="no" $goto after_fixed_lc_10_assign gp_fixlinecolormap("%gp_lc_10%",%gp_fixcolor_set%) $(gp_count eq 10) = yes; $label after_fixed_lc_10_assign $if not setglobal gp_lc_11 $goto after_fixed_lc_11_assign $if "%gp_lc_11%"=="no" $goto after_fixed_lc_11_assign gp_fixlinecolormap("%gp_lc_11%",%gp_fixcolor_set%) $(gp_count eq 11) = yes; $label after_fixed_lc_11_assign $if not setglobal gp_lc_12 $goto after_fixed_lc_12_assign $if "%gp_lc_12%"=="no" $goto after_fixed_lc_12_assign gp_fixlinecolormap("%gp_lc_12%",%gp_fixcolor_set%) $(gp_count eq 12) = yes; $label after_fixed_lc_12_assign $if not setglobal gp_lc_13 $goto after_fixed_lc_13_assign $if "%gp_lc_13%"=="no" $goto after_fixed_lc_13_assign gp_fixlinecolormap("%gp_lc_13%",%gp_fixcolor_set%) $(gp_count eq 13) = yes; $label after_fixed_lc_13_assign $if not setglobal gp_lc_14 $goto after_fixed_lc_14_assign $if "%gp_lc_14%"=="no" $goto after_fixed_lc_14_assign gp_fixlinecolormap("%gp_lc_14%",%gp_fixcolor_set%) $(gp_count eq 14) = yes; $label after_fixed_lc_14_assign $if not setglobal gp_lc_15 $goto after_fixed_lc_15_assign $if "%gp_lc_15%"=="no" $goto after_fixed_lc_15_assign gp_fixlinecolormap("%gp_lc_15%",%gp_fixcolor_set%) $(gp_count eq 15) = yes; $label after_fixed_lc_15_assign $if not setglobal gp_lc_16 $goto after_fixed_lc_16_assign $if "%gp_lc_16%"=="no" $goto after_fixed_lc_16_assign gp_fixlinecolormap("%gp_lc_16%",%gp_fixcolor_set%) $(gp_count eq 16) = yes; $label after_fixed_lc_16_assign ); $label after_fixcolorassignment_2d * No histogram 2D and 3D plots $if "%gp_style%"=="histogram" $goto make_histogram_plot $if dimension 4 %1 $goto 3d___plot * 2D plots put 'plot '; gp_count=1; loop(%gp_scen%, if (gp_count gt 1, put ',';); file.nw = 0 put '\'/' "gnuplot.dat" index ',(gp_count-1):0:0; put ' using 1:2'; * filled curves $if not "%gp_style%"=="filledcurves" $goto after_fillcurvecheck $if a%4==a $goto after_fillcurvecheck put ':3'; $label after_fillcurvecheck $if "%gp_l1style%"=="no" $goto l_1_errorstyle $if "%gp_l1style%"=="0" $goto l_1_errorstyle $if "%gp_l1style%"=="xerrorlines" If(gp_count eq 1, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l1style%"=="yerrorlines" If(gp_count eq 1, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l1style%"=="xerrorbars" If(gp_count eq 1, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l1style%"=="yerrorbars" If(gp_count eq 1, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l1style%"=="candlesticks" If(gp_count eq 1, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l1style%"=="xyerrorlines" If(gp_count eq 1, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l1style%"=="xyerrorbars" If(gp_count eq 1, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l1style%"=="boxxyerrorbars" If(gp_count eq 1, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_1_errorstyle $label l_1_errorstyle $if "%gp_l2style%"=="no" $goto l_2_errorstyle $if "%gp_l2style%"=="0" $goto l_2_errorstyle $if "%gp_l2style%"=="xerrorlines" If(gp_count eq 2, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l2style%"=="yerrorlines" If(gp_count eq 2, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l2style%"=="xerrorbars" If(gp_count eq 2, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l2style%"=="yerrorbars" If(gp_count eq 2, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l2style%"=="candlesticks" If(gp_count eq 2, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l2style%"=="xyerrorlines" If(gp_count eq 2, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l2style%"=="xyerrorbars" If(gp_count eq 2, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l2style%"=="boxxyerrorbars" If(gp_count eq 2, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_2_errorstyle $label l_2_errorstyle $if "%gp_l3style%"=="no" $goto l_3_errorstyle $if "%gp_l3style%"=="0" $goto l_3_errorstyle $if "%gp_l3style%"=="xerrorlines" If(gp_count eq 3, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l3style%"=="yerrorlines" If(gp_count eq 3, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l3style%"=="xerrorbars" If(gp_count eq 3, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l3style%"=="yerrorbars" If(gp_count eq 3, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l3style%"=="candlesticks" If(gp_count eq 3, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l3style%"=="xyerrorlines" If(gp_count eq 3, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l3style%"=="xyerrorbars" If(gp_count eq 3, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l3style%"=="boxxyerrorbars" If(gp_count eq 3, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_3_errorstyle $label l_3_errorstyle $if "%gp_l4style%"=="no" $goto l_4_errorstyle $if "%gp_l4style%"=="0" $goto l_4_errorstyle $if "%gp_l4style%"=="xerrorlines" If(gp_count eq 4, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l4style%"=="yerrorlines" If(gp_count eq 4, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l4style%"=="xerrorbars" If(gp_count eq 4, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l4style%"=="yerrorbars" If(gp_count eq 4, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l4style%"=="candlesticks" If(gp_count eq 4, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l4style%"=="xyerrorlines" If(gp_count eq 4, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l4style%"=="xyerrorbars" If(gp_count eq 4, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l4style%"=="boxxyerrorbars" If(gp_count eq 4, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_4_errorstyle $label l_4_errorstyle $if "%gp_l5style%"=="no" $goto l_5_errorstyle $if "%gp_l5style%"=="0" $goto l_5_errorstyle $if "%gp_l5style%"=="xerrorlines" If(gp_count eq 5, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l5style%"=="yerrorlines" If(gp_count eq 5, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l5style%"=="xerrorbars" If(gp_count eq 5, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l5style%"=="yerrorbars" If(gp_count eq 5, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l5style%"=="candlesticks" If(gp_count eq 5, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l5style%"=="xyerrorlines" If(gp_count eq 5, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l5style%"=="xyerrorbars" If(gp_count eq 5, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l5style%"=="boxxyerrorbars" If(gp_count eq 5, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_5_errorstyle $label l_5_errorstyle $if "%gp_l6style%"=="no" $goto l_6_errorstyle $if "%gp_l6style%"=="0" $goto l_6_errorstyle $if "%gp_l6style%"=="xerrorlines" If(gp_count eq 6, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l6style%"=="yerrorlines" If(gp_count eq 6, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l6style%"=="xerrorbars" If(gp_count eq 6, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l6style%"=="yerrorbars" If(gp_count eq 6, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l6style%"=="candlesticks" If(gp_count eq 6, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l6style%"=="xyerrorlines" If(gp_count eq 6, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l6style%"=="xyerrorbars" If(gp_count eq 6, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l6style%"=="boxxyerrorbars" If(gp_count eq 6, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_6_errorstyle $label l_6_errorstyle $if "%gp_l7style%"=="no" $goto l_7_errorstyle $if "%gp_l7style%"=="0" $goto l_7_errorstyle $if "%gp_l7style%"=="xerrorlines" If(gp_count eq 7, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l7style%"=="yerrorlines" If(gp_count eq 7, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l7style%"=="xerrorbars" If(gp_count eq 7, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l7style%"=="yerrorbars" If(gp_count eq 7, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l7style%"=="candlesticks" If(gp_count eq 7, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l7style%"=="xyerrorlines" If(gp_count eq 7, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l7style%"=="xyerrorbars" If(gp_count eq 7, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l7style%"=="boxxyerrorbars" If(gp_count eq 7, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_7_errorstyle $label l_7_errorstyle $if "%gp_l8style%"=="no" $goto l_8_errorstyle $if "%gp_l8style%"=="0" $goto l_8_errorstyle $if "%gp_l8style%"=="xerrorlines" If(gp_count eq 8, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l8style%"=="yerrorlines" If(gp_count eq 8, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l8style%"=="xerrorbars" If(gp_count eq 8, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l8style%"=="yerrorbars" If(gp_count eq 8, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l8style%"=="candlesticks" If(gp_count eq 8, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l8style%"=="xyerrorlines" If(gp_count eq 8, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l8style%"=="xyerrorbars" If(gp_count eq 8, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l8style%"=="boxxyerrorbars" If(gp_count eq 8, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_8_errorstyle $label l_8_errorstyle $if "%gp_l9style%"=="no" $goto l_9_errorstyle $if "%gp_l9style%"=="0" $goto l_9_errorstyle $if "%gp_l9style%"=="xerrorlines" If(gp_count eq 9, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l9style%"=="yerrorlines" If(gp_count eq 9, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l9style%"=="xerrorbars" If(gp_count eq 9, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l9style%"=="yerrorbars" If(gp_count eq 9, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l9style%"=="candlesticks" If(gp_count eq 9, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l9style%"=="xyerrorlines" If(gp_count eq 9, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l9style%"=="xyerrorbars" If(gp_count eq 9, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l9style%"=="boxxyerrorbars" If(gp_count eq 9, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_9_errorstyle $label l_9_errorstyle $if "%gp_l10style%"=="no" $goto l_10_errorstyle $if "%gp_l10style%"=="0" $goto l_10_errorstyle $if "%gp_l10style%"=="xerrorlines" If(gp_count eq 10, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l10style%"=="yerrorlines" If(gp_count eq 10, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l10style%"=="xerrorbars" If(gp_count eq 10, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l10style%"=="yerrorbars" If(gp_count eq 10, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l10style%"=="candlesticks" If(gp_count eq 10, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l10style%"=="xyerrorlines" If(gp_count eq 10, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l10style%"=="xyerrorbars" If(gp_count eq 10, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l10style%"=="boxxyerrorbars" If(gp_count eq 10, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_10_errorstyle $label l_10_errorstyle $if "%gp_l11style%"=="no" $goto l_11_errorstyle $if "%gp_l11style%"=="0" $goto l_11_errorstyle $if "%gp_l11style%"=="xerrorlines" If(gp_count eq 11, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l11style%"=="yerrorlines" If(gp_count eq 11, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l11style%"=="xerrorbars" If(gp_count eq 11, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l11style%"=="yerrorbars" If(gp_count eq 11, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l11style%"=="candlesticks" If(gp_count eq 11, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l11style%"=="xyerrorlines" If(gp_count eq 11, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l11style%"=="xyerrorbars" If(gp_count eq 11, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l11style%"=="boxxyerrorbars" If(gp_count eq 11, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_11_errorstyle $label l_11_errorstyle $if "%gp_l12style%"=="no" $goto l_12_errorstyle $if "%gp_l12style%"=="0" $goto l_12_errorstyle $if "%gp_l12style%"=="xerrorlines" If(gp_count eq 12, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l12style%"=="yerrorlines" If(gp_count eq 12, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l12style%"=="xerrorbars" If(gp_count eq 12, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l12style%"=="yerrorbars" If(gp_count eq 12, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l12style%"=="candlesticks" If(gp_count eq 12, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l12style%"=="xyerrorlines" If(gp_count eq 12, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l12style%"=="xyerrorbars" If(gp_count eq 12, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l12style%"=="boxxyerrorbars" If(gp_count eq 12, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_12_errorstyle $label l_12_errorstyle $if "%gp_l13style%"=="no" $goto l_13_errorstyle $if "%gp_l13style%"=="0" $goto l_13_errorstyle $if "%gp_l13style%"=="xerrorlines" If(gp_count eq 13, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l13style%"=="yerrorlines" If(gp_count eq 13, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l13style%"=="xerrorbars" If(gp_count eq 13, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l13style%"=="yerrorbars" If(gp_count eq 13, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l13style%"=="candlesticks" If(gp_count eq 13, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l13style%"=="xyerrorlines" If(gp_count eq 13, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l13style%"=="xyerrorbars" If(gp_count eq 13, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l13style%"=="boxxyerrorbars" If(gp_count eq 13, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_13_errorstyle $label l_13_errorstyle $if "%gp_l14style%"=="no" $goto l_14_errorstyle $if "%gp_l14style%"=="0" $goto l_14_errorstyle $if "%gp_l14style%"=="xerrorlines" If(gp_count eq 14, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l14style%"=="yerrorlines" If(gp_count eq 14, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l14style%"=="xerrorbars" If(gp_count eq 14, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l14style%"=="yerrorbars" If(gp_count eq 14, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l14style%"=="candlesticks" If(gp_count eq 14, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l14style%"=="xyerrorlines" If(gp_count eq 14, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l14style%"=="xyerrorbars" If(gp_count eq 14, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l14style%"=="boxxyerrorbars" If(gp_count eq 14, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_14_errorstyle $label l_14_errorstyle $if "%gp_l15style%"=="no" $goto l_15_errorstyle $if "%gp_l15style%"=="0" $goto l_15_errorstyle $if "%gp_l15style%"=="xerrorlines" If(gp_count eq 15, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l15style%"=="yerrorlines" If(gp_count eq 15, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l15style%"=="xerrorbars" If(gp_count eq 15, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l15style%"=="yerrorbars" If(gp_count eq 15, put ':3:4 "%lf%lf%lf%lf"';); $if "%gp_l15style%"=="candlesticks" If(gp_count eq 15, put ':3:4:5 "%lf%lf%lf%lf%lf"';); $if "%gp_l15style%"=="xyerrorlines" If(gp_count eq 15, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l15style%"=="xyerrorbars" If(gp_count eq 15, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $if "%gp_l15style%"=="boxxyerrorbars" If(gp_count eq 15, put ':3:4:5:6 "%lf%lf%lf%lf%lf%lf"';); $goto l_15_errorstyle $label l_15_errorstyle $if "%gp_l1axes%"=="no" $goto l_2_axes $if "%gp_l1axes%"=="0" $goto l_2_axes $if not setglobal gp_l1axes $goto l_2_axes $if setglobal gp_l1axes If(gp_count eq 1, put ' axes %gp_l1axes%';); $label l_2_axes $if "%gp_l2axes%"=="no" $goto l_3_axes $if "%gp_l2axes%"=="0" $goto l_3_axes $if not setglobal gp_l2axes $goto l_3_axes $if setglobal gp_l2axes If(gp_count eq 2, put ' axes %gp_l2axes%';); $label l_3_axes $if "%gp_l3axes%"=="no" $goto l_4_axes $if "%gp_l3axes%"=="0" $goto l_4_axes $if not setglobal gp_l3axes $goto l_4_axes $if setglobal gp_l3axes If(gp_count eq 3, put ' axes %gp_l3axes%';); $label l_4_axes $if "%gp_l4axes%"=="no" $goto l_5_axes $if "%gp_l4axes%"=="0" $goto l_5_axes $if not setglobal gp_l4axes $goto l_5_axes $if setglobal gp_l4axes If(gp_count eq 4, put ' axes %gp_l4axes%';); $label l_5_axes $if "%gp_l5axes%"=="no" $goto l_6_axes $if "%gp_l5axes%"=="0" $goto l_6_axes $if not setglobal gp_l5axes $goto l_6_axes $if setglobal gp_l5axes If(gp_count eq 5, put ' axes %gp_l5axes%';); $label l_6_axes $if "%gp_l6axes%"=="no" $goto l_7_axes $if "%gp_l6axes%"=="0" $goto l_7_axes $if not setglobal gp_l6axes $goto l_7_axes $if setglobal gp_l6axes If(gp_count eq 6, put ' axes %gp_l6axes%';); $label l_7_axes $if "%gp_l7axes%"=="no" $goto l_8_axes $if "%gp_l7axes%"=="0" $goto l_8_axes $if not setglobal gp_l7axes $goto l_8_axes $if setglobal gp_l7axes If(gp_count eq 7, put ' axes %gp_l7axes%';); $label l_8_axes $if "%gp_l8axes%"=="no" $goto l_9_axes $if "%gp_l8axes%"=="0" $goto l_9_axes $if not setglobal gp_l8axes $goto l_9_axes $if setglobal gp_l8axes If(gp_count eq 8, put ' axes %gp_l8axes%';); $label l_9_axes $if "%gp_l9axes%"=="no" $goto l_10_axes $if "%gp_l9axes%"=="0" $goto l_10_axes $if not setglobal gp_l9axes $goto l_10_axes $if setglobal gp_l9axes If(gp_count eq 9, put ' axes %gp_l9axes%';); $label l_10_axes $if "%gp_l10axes%"=="no" $goto l_11_axes $if "%gp_l10axes%"=="0" $goto l_11_axes $if not setglobal gp_l10axes $goto l_11_axes $if setglobal gp_l10axes If(gp_count eq 10, put ' axes %gp_l10axes%';); $label l_11_axes $if "%gp_l11axes%"=="no" $goto l_12_axes $if "%gp_l11axes%"=="0" $goto l_12_axes $if not setglobal gp_l11axes $goto l_12_axes $if setglobal gp_l11axes If(gp_count eq 11, put ' axes %gp_l11axes%';); $label l_12_axes $if "%gp_l12axes%"=="no" $goto l_13_axes $if "%gp_l12axes%"=="0" $goto l_13_axes $if not setglobal gp_l12axes $goto l_13_axes $if setglobal gp_l12axes If(gp_count eq 12, put ' axes %gp_l12axes%';); $label l_13_axes $if "%gp_l13axes%"=="no" $goto l_14_axes $if "%gp_l13axes%"=="0" $goto l_14_axes $if not setglobal gp_l13axes $goto l_14_axes $if setglobal gp_l13axes If(gp_count eq 13, put ' axes %gp_l13axes%';); $label l_14_axes $if "%gp_l14axes%"=="no" $goto l_15_axes $if "%gp_l14axes%"=="0" $goto l_15_axes $if not setglobal gp_l14axes $goto l_15_axes $if setglobal gp_l14axes If(gp_count eq 14, put ' axes %gp_l14axes%';); $label l_15_axes $if "%gp_l15axes%"=="no" $goto l_16_axes $if "%gp_l15axes%"=="0" $goto l_16_axes $if not setglobal gp_l15axes $goto l_16_axes $if setglobal gp_l15axes If(gp_count eq 15, put ' axes %gp_l15axes%';); $label l_16_axes put ' title "',%gp_scen%.tl,'"'; $if "%gp_l1style%"=="no" $goto l_1_style $if "%gp_l1style%"=="0" $goto l_1_style $if setglobal gp_l1style If(gp_count eq 1, put " with %gp_l1style%";); $if not "%gp_l1style%" == "boxes" $goto l_1_style $if "%gp_color%" == "monochrome" If(gp_count eq 1, put " lt -1";); $goto l_1_style $label l_1_style $if "%gp_l2style%"=="no" $goto l_2_style $if "%gp_l2style%"=="0" $goto l_2_style $if setglobal gp_l2style If(gp_count eq 2, put " with %gp_l2style%";); $if not "%gp_l2style%" == "boxes" $goto l_2_style $if "%gp_color%" == "no" If(gp_count eq 2, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 2, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 2, put " lt -1";); $goto l_2_style $label l_2_style $if "%gp_l3style%"=="no" $goto l_3_style $if "%gp_l3style%"=="0" $goto l_3_style $if setglobal gp_l3style If(gp_count eq 3, put " with %gp_l3style%";); $if not "%gp_l3style%" == "boxes" $goto l_3_style $if "%gp_color%" == "no" If(gp_count eq 3, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 3, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 3, put " lt -1";); $goto l_3_style $label l_3_style $if "%gp_l4style%"=="no" $goto l_4_style $if "%gp_l4style%"=="0" $goto l_4_style $if setglobal gp_l4style If(gp_count eq 4, put " with %gp_l4style%";); $if not "%gp_l4style%" == "boxes" $goto l_4_style $if "%gp_color%" == "no" If(gp_count eq 4, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 4, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 4, put " lt -1";); $goto l_4_style $label l_4_style $if "%gp_l5style%"=="no" $goto l_5_style $if "%gp_l5style%"=="0" $goto l_5_style $if setglobal gp_l5style If(gp_count eq 5, put " with %gp_l5style%";); $if not "%gp_l5style%" == "boxes" $goto l_5_style $if "%gp_color%" == "no" If(gp_count eq 5, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 5, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 5, put " lt -1";); $goto l_5_style $label l_5_style $if "%gp_l6style%"=="no" $goto l_6_style $if "%gp_l6style%"=="0" $goto l_6_style $if setglobal gp_l6style If(gp_count eq 6, put " with %gp_l6style%";); $if not "%gp_l6style%" == "boxes" $goto l_6_style $if "%gp_color%" == "no" If(gp_count eq 6, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 6, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 6, put " lt -1";); $goto l_6_style $label l_6_style $if "%gp_l7style%"=="no" $goto l_7_style $if "%gp_l7style%"=="0" $goto l_7_style $if setglobal gp_l7style If(gp_count eq 7, put " with %gp_l7style%";); $if not "%gp_l7style%" == "boxes" $goto l_7_style $if "%gp_color%" == "no" If(gp_count eq 7, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 7, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 7, put " lt -1";); $goto l_7_style $label l_7_style $if "%gp_l8style%"=="no" $goto l_8_style $if "%gp_l8style%"=="0" $goto l_8_style $if setglobal gp_l8style If(gp_count eq 8, put " with %gp_l8style%";); $if not "%gp_l8style%" == "boxes" $goto l_8_style $if "%gp_color%" == "no" If(gp_count eq 8, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 8, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 8, put " lt -1";); $goto l_8_style $label l_8_style $if "%gp_l9style%"=="no" $goto l_9_style $if "%gp_l9style%"=="0" $goto l_9_style $if setglobal gp_l9style If(gp_count eq 9, put " with %gp_l9style%";); $if not "%gp_l9style%" == "boxes" $goto l_9_style $if "%gp_color%" == "no" If(gp_count eq 9, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 9, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 9, put " lt -1";); $goto l_9_style $label l_9_style $if "%gp_l10style%"=="no" $goto l_10_style $if "%gp_l10style%"=="0" $goto l_10_style $if setglobal gp_l10style If(gp_count eq 10, put " with %gp_l10style%";); $if not "%gp_l10style%" == "boxes" $goto l_10_style $if "%gp_color%" == "no" If(gp_count eq 10, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 10, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 10, put " lt -1";); $goto l_10_style $label l_10_style $if "%gp_l11style%"=="no" $goto l_11_style $if "%gp_l11style%"=="0" $goto l_11_style $if setglobal gp_l11style If(gp_count eq 11, put " with %gp_l11style%";); $if not "%gp_l11style%" == "boxes" $goto l_11_style $if "%gp_color%" == "no" If(gp_count eq 11, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 11, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 11, put " lt -1";); $goto l_11_style $label l_11_style $if "%gp_l12style%"=="no" $goto l_12_style $if "%gp_l12style%"=="0" $goto l_12_style $if setglobal gp_l12style If(gp_count eq 12, put " with %gp_l12style%";); $if not "%gp_l12style%" == "boxes" $goto l_12_style $if "%gp_color%" == "no" If(gp_count eq 12, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 12, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 12, put " lt -1";); $goto l_12_style $label l_12_style $if "%gp_l13style%"=="no" $goto l_13_style $if "%gp_l13style%"=="0" $goto l_13_style $if setglobal gp_l13style If(gp_count eq 13, put " with %gp_l13style%";); $if not "%gp_l13style%" == "boxes" $goto l_13_style $if "%gp_color%" == "no" If(gp_count eq 13, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 13, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 13, put " lt -1";); $goto l_13_style $label l_13_style $if "%gp_l14style%"=="no" $goto l_14_style $if "%gp_l14style%"=="0" $goto l_14_style $if setglobal gp_l14style If(gp_count eq 14, put " with %gp_l14style%";); $if not "%gp_l14style%" == "boxes" $goto l_14_style $if "%gp_color%" == "no" If(gp_count eq 14, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 14, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 14, put " lt -1";); $goto l_14_style $label l_14_style $if "%gp_l15style%"=="no" $goto l_15_style $if "%gp_l15style%"=="0" $goto l_15_style $if setglobal gp_l15style If(gp_count eq 15, put " with %gp_l15style%";); $if not "%gp_l15style%" == "boxes" $goto l_15_style $if "%gp_color%" == "no" If(gp_count eq 15, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 15, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 15, put " lt -1";); $goto l_15_style $label l_15_style $if "%gp_l16style%"=="no" $goto l_16_style $if "%gp_l16style%"=="0" $goto l_16_style $if setglobal gp_l16style If(gp_count eq 16, put " with %gp_l16style%";); $if not "%gp_l16style%" == "boxes" $goto l_16_style $if "%gp_color%" == "no" If(gp_count eq 16, put " lt -1";); $if "%gp_color%" == "0" If(gp_count eq 16, put " lt -1";); $if "%gp_color%" == "monochrome" If(gp_count eq 16, put " lt -1";); $goto l_16_style $label l_16_style * section xxx3 make_linecolor2D.gms If(gp_count eq 1, $if not setglobal gp_lc_1 $goto after_lc_1_assign $if "%gp_lc_1%"=="no" $goto after_lc_1_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_1_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_1_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_1_normalassign $label after_lc_1_fixedassign gp_xyz_ind_col("%gp_lc_1%") = yes; $label after_lc_1_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_1%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_1_assign $if not setglobal gp_lw_1 $goto after_lw_1_assign $if "%gp_lw_1%"=="no" $goto after_lw_1_assign put " lw %gp_lw_1%"; $goto after_lwidth_general_assign_1 $label after_lw_1_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_1 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_1 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_1 ); If(gp_count eq 2, $if not setglobal gp_lc_2 $goto after_lc_2_assign $if "%gp_lc_2%"=="no" $goto after_lc_2_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_2_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_2_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_2_normalassign $label after_lc_2_fixedassign gp_xyz_ind_col("%gp_lc_2%") = yes; $label after_lc_2_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_2%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_2_assign $if not setglobal gp_lw_2 $goto after_lw_2_assign $if "%gp_lw_2%"=="no" $goto after_lw_2_assign put " lw %gp_lw_2%"; $goto after_lwidth_general_assign_2 $label after_lw_2_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_2 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_2 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_2 ); If(gp_count eq 3, $if not setglobal gp_lc_3 $goto after_lc_3_assign $if "%gp_lc_3%"=="no" $goto after_lc_3_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_3_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_3_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_3_normalassign $label after_lc_3_fixedassign gp_xyz_ind_col("%gp_lc_3%") = yes; $label after_lc_3_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_3%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_3_assign $if not setglobal gp_lw_3 $goto after_lw_3_assign $if "%gp_lw_3%"=="no" $goto after_lw_3_assign put " lw %gp_lw_3%"; $goto after_lwidth_general_assign_3 $label after_lw_3_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_3 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_3 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_3 ); If(gp_count eq 4, $if not setglobal gp_lc_4 $goto after_lc_4_assign $if "%gp_lc_4%"=="no" $goto after_lc_4_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_4_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_4_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_4_normalassign $label after_lc_4_fixedassign gp_xyz_ind_col("%gp_lc_4%") = yes; $label after_lc_4_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_4%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_4_assign $if not setglobal gp_lw_4 $goto after_lw_4_assign $if "%gp_lw_4%"=="no" $goto after_lw_4_assign put " lw %gp_lw_4%"; $goto after_lwidth_general_assign_4 $label after_lw_4_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_4 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_4 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_4 ); If(gp_count eq 5, $if not setglobal gp_lc_5 $goto after_lc_5_assign $if "%gp_lc_5%"=="no" $goto after_lc_5_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_5_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_5_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_5_normalassign $label after_lc_5_fixedassign gp_xyz_ind_col("%gp_lc_5%") = yes; $label after_lc_5_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_5%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_5_assign $if not setglobal gp_lw_5 $goto after_lw_5_assign $if "%gp_lw_5%"=="no" $goto after_lw_5_assign put " lw %gp_lw_5%"; $goto after_lwidth_general_assign_5 $label after_lw_5_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_5 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_5 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_5 ); If(gp_count eq 6, $if not setglobal gp_lc_6 $goto after_lc_6_assign $if "%gp_lc_6%"=="no" $goto after_lc_6_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_6_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_6_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_6_normalassign $label after_lc_6_fixedassign gp_xyz_ind_col("%gp_lc_6%") = yes; $label after_lc_6_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_6%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_6_assign $if not setglobal gp_lw_6 $goto after_lw_6_assign $if "%gp_lw_6%"=="no" $goto after_lw_6_assign put " lw %gp_lw_6%"; $goto after_lwidth_general_assign_6 $label after_lw_6_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_6 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_6 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_6 ); If(gp_count eq 7, $if not setglobal gp_lc_7 $goto after_lc_7_assign $if "%gp_lc_7%"=="no" $goto after_lc_7_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_7_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_7_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_7_normalassign $label after_lc_7_fixedassign gp_xyz_ind_col("%gp_lc_7%") = yes; $label after_lc_7_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_7%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_7_assign $if not setglobal gp_lw_7 $goto after_lw_7_assign $if "%gp_lw_7%"=="no" $goto after_lw_7_assign put " lw %gp_lw_7%"; $goto after_lwidth_general_assign_7 $label after_lw_7_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_7 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_7 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_7 ); If(gp_count eq 8, $if not setglobal gp_lc_8 $goto after_lc_8_assign $if "%gp_lc_8%"=="no" $goto after_lc_8_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_8_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_8_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_8_normalassign $label after_lc_8_fixedassign gp_xyz_ind_col("%gp_lc_8%") = yes; $label after_lc_8_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_8%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_8_assign $if not setglobal gp_lw_8 $goto after_lw_8_assign $if "%gp_lw_8%"=="no" $goto after_lw_8_assign put " lw %gp_lw_8%"; $goto after_lwidth_general_assign_8 $label after_lw_8_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_8 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_8 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_8 ); If(gp_count eq 9, $if not setglobal gp_lc_9 $goto after_lc_9_assign $if "%gp_lc_9%"=="no" $goto after_lc_9_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_9_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_9_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_9_normalassign $label after_lc_9_fixedassign gp_xyz_ind_col("%gp_lc_9%") = yes; $label after_lc_9_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_9%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_9_assign $if not setglobal gp_lw_9 $goto after_lw_9_assign $if "%gp_lw_9%"=="no" $goto after_lw_9_assign put " lw %gp_lw_9%"; $goto after_lwidth_general_assign_9 $label after_lw_9_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_9 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_9 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_9 ); If(gp_count eq 10, $if not setglobal gp_lc_10 $goto after_lc_10_assign $if "%gp_lc_10%"=="no" $goto after_lc_10_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_10_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_10_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_10_normalassign $label after_lc_10_fixedassign gp_xyz_ind_col("%gp_lc_10%") = yes; $label after_lc_10_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_10%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_10_assign $if not setglobal gp_lw_10 $goto after_lw_10_assign $if "%gp_lw_10%"=="no" $goto after_lw_10_assign put " lw %gp_lw_10%"; $goto after_lwidth_general_assign_10 $label after_lw_10_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_10 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_10 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_10 ); If(gp_count eq 11, $if not setglobal gp_lc_11 $goto after_lc_11_assign $if "%gp_lc_11%"=="no" $goto after_lc_11_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_11_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_11_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_11_normalassign $label after_lc_11_fixedassign gp_xyz_ind_col("%gp_lc_11%") = yes; $label after_lc_11_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_11%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_11_assign $if not setglobal gp_lw_11 $goto after_lw_11_assign $if "%gp_lw_11%"=="no" $goto after_lw_11_assign put " lw %gp_lw_11%"; $goto after_lwidth_general_assign_11 $label after_lw_11_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_11 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_11 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_11 ); If(gp_count eq 12, $if not setglobal gp_lc_12 $goto after_lc_12_assign $if "%gp_lc_12%"=="no" $goto after_lc_12_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_12_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_12_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_12_normalassign $label after_lc_12_fixedassign gp_xyz_ind_col("%gp_lc_12%") = yes; $label after_lc_12_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_12%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_12_assign $if not setglobal gp_lw_12 $goto after_lw_12_assign $if "%gp_lw_12%"=="no" $goto after_lw_12_assign put " lw %gp_lw_12%"; $goto after_lwidth_general_assign_12 $label after_lw_12_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_12 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_12 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_12 ); If(gp_count eq 13, $if not setglobal gp_lc_13 $goto after_lc_13_assign $if "%gp_lc_13%"=="no" $goto after_lc_13_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_13_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_13_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_13_normalassign $label after_lc_13_fixedassign gp_xyz_ind_col("%gp_lc_13%") = yes; $label after_lc_13_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_13%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_13_assign $if not setglobal gp_lw_13 $goto after_lw_13_assign $if "%gp_lw_13%"=="no" $goto after_lw_13_assign put " lw %gp_lw_13%"; $goto after_lwidth_general_assign_13 $label after_lw_13_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_13 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_13 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_13 ); If(gp_count eq 14, $if not setglobal gp_lc_14 $goto after_lc_14_assign $if "%gp_lc_14%"=="no" $goto after_lc_14_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_14_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_14_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_14_normalassign $label after_lc_14_fixedassign gp_xyz_ind_col("%gp_lc_14%") = yes; $label after_lc_14_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_14%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_14_assign $if not setglobal gp_lw_14 $goto after_lw_14_assign $if "%gp_lw_14%"=="no" $goto after_lw_14_assign put " lw %gp_lw_14%"; $goto after_lwidth_general_assign_14 $label after_lw_14_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_14 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_14 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_14 ); If(gp_count eq 15, $if not setglobal gp_lc_15 $goto after_lc_15_assign $if "%gp_lc_15%"=="no" $goto after_lc_15_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_15_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_15_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_15_normalassign $label after_lc_15_fixedassign gp_xyz_ind_col("%gp_lc_15%") = yes; $label after_lc_15_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_15%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_15_assign $if not setglobal gp_lw_15 $goto after_lw_15_assign $if "%gp_lw_15%"=="no" $goto after_lw_15_assign put " lw %gp_lw_15%"; $goto after_lwidth_general_assign_15 $label after_lw_15_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_15 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_15 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_15 ); If(gp_count eq 16, $if not setglobal gp_lc_16 $goto after_lc_16_assign $if "%gp_lc_16%"=="no" $goto after_lc_16_assign put " lc rgb "; $if not setglobal gp_fixcolor_set $goto after_lc_16_fixedassign $if "%gp_fixcolor_set%"=="no" $goto after_lc_16_fixedassign gp_xyz_ind_col(gp_hex_color_name) $gp_fixlinecolormap(gp_hex_color_name,%gp_scen%) = yes; $goto after_lc_16_normalassign $label after_lc_16_fixedassign gp_xyz_ind_col("%gp_lc_16%") = yes; $label after_lc_16_normalassign LOOP(gp_hex_color_name $ gp_xyz_ind_col(gp_hex_color_name), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_16%") = no; gp_xyz_ind_col(gp_hex_color_name) = no; $label after_lc_16_assign $if not setglobal gp_lw_16 $goto after_lw_16_assign $if "%gp_lw_16%"=="no" $goto after_lw_16_assign put " lw %gp_lw_16%"; $goto after_lwidth_general_assign_16 $label after_lw_16_assign $if not setglobal gp_lwidth $goto after_lwidth_general_assign_16 $if "%gp_lwidth%"=="no" $goto after_lwidth_general_assign_16 put " lw %gp_lwidth%"; $label after_lwidth_general_assign_16 ); file.nw = 6; gp_count = gp_count + 1; ); put /; $goto write_data_file * 3D plots $label 3d___plot gp_count=1; put 'splot '; loop(%gp_planes%, if (gp_count gt 1, put ',';); file.nw = 0 put '\'/' "gnuplot.dat" index ',(gp_count-1):0:0, ' using 1:2:3'; put ' title "',%gp_planes%.tl,'"'; gp_count = gp_count + 1; ); put /; $goto write_data_file * Histogram Plots $label make_histogram_plot gp_count=1; put 'plot '; loop(%gp_scen%, file.nw = 0; file.nd = 0; if (gp_count gt 1, put ',';); if (gp_count eq 1, put " 'gnuplot.dat' using "; else put " '' u ";); put (gp_count+1); $if not "%gp_hist%" == "columnstacked" if (gp_count eq 1, put ':xtic(1)';); $if "%gp_hist%" == "columnstacked" if (gp_count eq 1, put ':key(1)';); put ' ti col'; IF(gp_count eq 1, $if not setglobal gp_lc_1 $goto after_lc_1_hist $if "%gp_lc_1%" == "no" $goto after_lc_1_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_1%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_1%") = no; $label after_lc_1_hist ); IF(gp_count eq 2, $if not setglobal gp_lc_2 $goto after_lc_2_hist $if "%gp_lc_2%" == "no" $goto after_lc_2_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_2%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_2%") = no; $label after_lc_2_hist ); IF(gp_count eq 3, $if not setglobal gp_lc_3 $goto after_lc_3_hist $if "%gp_lc_3%" == "no" $goto after_lc_3_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_3%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_3%") = no; $label after_lc_3_hist ); IF(gp_count eq 4, $if not setglobal gp_lc_4 $goto after_lc_4_hist $if "%gp_lc_4%" == "no" $goto after_lc_4_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_4%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_4%") = no; $label after_lc_4_hist ); IF(gp_count eq 5, $if not setglobal gp_lc_5 $goto after_lc_5_hist $if "%gp_lc_5%" == "no" $goto after_lc_5_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_5%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_5%") = no; $label after_lc_5_hist ); IF(gp_count eq 6, $if not setglobal gp_lc_6 $goto after_lc_6_hist $if "%gp_lc_6%" == "no" $goto after_lc_6_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_6%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_6%") = no; $label after_lc_6_hist ); IF(gp_count eq 7, $if not setglobal gp_lc_7 $goto after_lc_7_hist $if "%gp_lc_7%" == "no" $goto after_lc_7_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_7%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_7%") = no; $label after_lc_7_hist ); IF(gp_count eq 8, $if not setglobal gp_lc_8 $goto after_lc_8_hist $if "%gp_lc_8%" == "no" $goto after_lc_8_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_8%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_8%") = no; $label after_lc_8_hist ); IF(gp_count eq 9, $if not setglobal gp_lc_9 $goto after_lc_9_hist $if "%gp_lc_9%" == "no" $goto after_lc_9_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_9%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_9%") = no; $label after_lc_9_hist ); IF(gp_count eq 10, $if not setglobal gp_lc_10 $goto after_lc_10_hist $if "%gp_lc_10%" == "no" $goto after_lc_10_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_10%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_10%") = no; $label after_lc_10_hist ); IF(gp_count eq 11, $if not setglobal gp_lc_11 $goto after_lc_11_hist $if "%gp_lc_11%" == "no" $goto after_lc_11_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_11%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_11%") = no; $label after_lc_11_hist ); IF(gp_count eq 12, $if not setglobal gp_lc_12 $goto after_lc_12_hist $if "%gp_lc_12%" == "no" $goto after_lc_12_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_12%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_12%") = no; $label after_lc_12_hist ); IF(gp_count eq 13, $if not setglobal gp_lc_13 $goto after_lc_13_hist $if "%gp_lc_13%" == "no" $goto after_lc_13_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_13%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_13%") = no; $label after_lc_13_hist ); IF(gp_count eq 14, $if not setglobal gp_lc_14 $goto after_lc_14_hist $if "%gp_lc_14%" == "no" $goto after_lc_14_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_14%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_14%") = no; $label after_lc_14_hist ); IF(gp_count eq 15, $if not setglobal gp_lc_15 $goto after_lc_15_hist $if "%gp_lc_15%" == "no" $goto after_lc_15_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_15%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_15%") = no; $label after_lc_15_hist ); IF(gp_count eq 16, $if not setglobal gp_lc_16 $goto after_lc_16_hist $if "%gp_lc_16%" == "no" $goto after_lc_16_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_16%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_16%") = no; $label after_lc_16_hist ); IF(gp_count eq 17, $if not setglobal gp_lc_17 $goto after_lc_17_hist $if "%gp_lc_17%" == "no" $goto after_lc_17_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_17%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_17%") = no; $label after_lc_17_hist ); IF(gp_count eq 18, $if not setglobal gp_lc_18 $goto after_lc_18_hist $if "%gp_lc_18%" == "no" $goto after_lc_18_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_18%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_18%") = no; $label after_lc_18_hist ); IF(gp_count eq 19, $if not setglobal gp_lc_19 $goto after_lc_19_hist $if "%gp_lc_19%" == "no" $goto after_lc_19_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_19%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_19%") = no; $label after_lc_19_hist ); IF(gp_count eq 20, $if not setglobal gp_lc_20 $goto after_lc_20_hist $if "%gp_lc_20%" == "no" $goto after_lc_20_hist PUT " lc rgb "; gp_xyz_ind_col("%gp_lc_20%") = yes; gp_xyz_ind_col(gp_hex_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_hex_color_name $(gp_xyz_ind_col(gp_hex_color_name) or gp_xyz_fixed_col(gp_hex_color_name,%gp_scen%)), put '"#',gp_hex_color_name.te(gp_hex_color_name),'"'; ); gp_xyz_ind_col("%gp_lc_20%") = no; $label after_lc_20_hist ); *$if "%gp_color%" == "monochrome" put ' '; gp_count = gp_count + 1; ); $goto write_data_file * UWE UWe $label write_data_file putclose; *__________________________________________ * * Gnuplot.dat - Contains Gnuplot Data *__________________________________________ * * permit user to specify an alternative value for NA: $if setglobal gp_na gp_na = %gp_na%; * permit user to suppress (0,0) observations gp_supzer=0; $if setglobal gp_supzero gp_supzer=1; $if "%gp_supzero%"=="yes" gp_supzer=1; $if "%gp_supzero%"=="no" gp_supzer=0; $if dimension 3 %1 gp_00(%gp_scen%) = 0; $if dimension 3 %1 gp_xy(%gp_scen%) = 0; $if dimension 3 %1 gp__0(%gp_scen%) = inf; gp_data.pw = 900; gp_data.nw = 16; gp_data.nd = 8; gp_data.nr = 2; $if "%gp_style%"=="histogram" $goto put_histogram_data $if dimension 4 %1 $goto put_3D_data * Put 2D data loop(%gp_scen%, loop(%gp_obsv_1%, if( ((%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%") eq 0) and (%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%") eq 0) ), gp_00(%gp_scen%) = gp_00(%gp_scen%) + 1; else gp_00(%gp_scen%) = 0; ); gp_xy(%gp_scen%) = gp_xy(%gp_scen%) + 1; ); ); $if not setglobal gp_zeroend $setglobal gp_zeroend 'no' $if "%gp_zeroend%"=="yes" $goto putdata gp__0(%gp_scen%) = gp_xy(%gp_scen%)- gp_00(%gp_scen%); $goto putdata $label putdata loop(%gp_scen%, gp_count = 0; loop(%gp_obsv_1%, gp_count = gp_count + 1; if( ((gp_supzer eq 0) and ((gp_count - gp__0(%gp_scen%)) lt 0) or ( %1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%") ne 0 or mapval(%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%")) eq mapval(eps)) or ( %1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%") ne 0 or mapval(%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%")) eq mapval(eps)) ), if (%1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp_xxxvalue%") ; ); if (%1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp_yyyvalue%") ; ); $if a%4==a $goto line_break_indata if (%1(%gp_scen%,%gp_obsv_1%,"%gp__col3%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp__col3%") ; ); $if a%5==a $goto line_break_indata if (%1(%gp_scen%,%gp_obsv_1%,"%gp__col4%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp__col4%") ; ); $if a%6==a $goto line_break_indata if (%1(%gp_scen%,%gp_obsv_1%,"%gp__col5%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp__col5%") ; ); $if a%7==a $goto line_break_indata if (%1(%gp_scen%,%gp_obsv_1%,"%gp__col6%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp__col6%") ; ); $goto line_break_indata $label line_break_indata put /; ); ); put //; ); $goto write_gnuplot_ini *+++++++++++++++* * Put 3D data $label put_3D_data loop(%gp_planes%, loop(%gp_obsv_1%, loop(%gp_obsv_2%, put gp_data, %1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,"%gp_xxxvalue%")," "; put gp_data, %1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,"%gp_yyyvalue%")," "; put gp_data, %1(%gp_planes%,%gp_obsv_1%,%gp_obsv_2%,"%gp_zzzvalue%")," "; put /; ); put /; ); put /; ); display "planes",%gp_planes%,"obsv1",%gp_obsv_1%,"obsv2",%gp_obsv_2%; $goto write_gnuplot_ini * Put histogram data $label put_histogram_data gp_data.tw = 0; gp_data.lw = 0; Put gp_data; Put '"dummy" '; loop(%gp_scen%, Put '"',%gp_scen%.tl,'" '; ); PUT /; loop(%gp_obsv_1%, gp_count = 0; put '"',%gp_obsv_1%.tl,'"' loop(%gp_scen%, gp_count = gp_count + 1; if( ((gp_supzer eq 0) and ((gp_count - gp__0(%gp_scen%)) lt 0) or ( %1(%gp_scen%,%gp_obsv_1%,"%gp_singlecoordinate%") ne 0 or mapval(%1(%gp_scen%,%gp_obsv_1%,"%gp_singlecoordinate%")) eq mapval(eps))), if (%1(%gp_scen%,%gp_obsv_1%,"%gp_singlecoordinate%") eq gp_na, put gp_data, ' '; else put gp_data, %1(%gp_scen%,%gp_obsv_1%,"%gp_singlecoordinate%");); ); ); PUT /; ); $goto write_gnuplot_ini * UWE UWE $label write_gnuplot_ini putclose; $offuni * * * Overwrite wgnuplot.ini which resides in the windows system directory * *_______________________________________________________________________ * $if not "%gp_term%"=="windows" $goto rungnupl put gp_winini; gp_winini.nd = 0; gp_winini.nw = 0; put '[WGNUPLOT]' /; put 'GraphOrigin=-4 -4' /; $if not setglobal gp_wheight $goto win_size $if not setglobal gp_wlength $goto win_size put "GraphSize=",%gp_wlength%," ",%gp_wheight% /; $goto win_font $label win_size put "GraphSize=648 460" /; $goto win_font $label win_font put 'GraphFont=%gp_font%,%gp_fontsize%' /; $if '%gp_color%' == 'monochrome' put 'GraphColor=0' /; $if '%gp_color%' == 'color' put 'GraphColor=1' /; put 'GraphToTop=1' /; put 'GraphBackground=255 255 255' /; $if not setglobal gp_bdwidth $setglobal gp_bdwidth '0' $if "%gp_bdwidth%" == "0" $setglobal gp_bdwidth '0' $if "%gp_bdwidth%" == "no" $setglobal gp_bdwidth '0' put 'Border=0 0 0 -',%gp_bdwidth%,' -',%gp_bdwidth% /; $if not setglobal gp_axwidth $setglobal gp_axwidth '2' put 'Axis=192 192 192 -',%gp_axwidth%,' -',%gp_axwidth% /; $ontext put 'Line1=255 0 0 0 0' /; put 'Line2=0 255 0 0 1' /; put 'Line3=0 0 255 0 2' /; put 'Line4=255 0 255 0 3' /; put 'Line5=0 0 128 0 4' /; put 'Line6=128 0 0 0 0' /; put 'Line7=0 128 128 0 1' /; put 'Line8=0 0 0 0 2' /; put 'Line9=128 128 128 0 3' /; put 'Line10=0 128 64 0 4' /; put 'Line11=128 128 0 0 0' /; put 'Line12=128 0 128 0 1' /; put 'Line13=192 192 192 0 2' /; put 'Line14=0 255 255 0 3' /; put 'Line15=255 255 0 0 4' /; $offtext * individual colors $if "%gp_fixcolor_set%" == "no" $goto gp_lc_1_lb $if not setglobal gp_fixcolor_set $goto gp_lc_1_lb $if not setglobal gp_lc_1 $setglobal gp_lc_1 Red $if not setglobal gp_lc_2 $setglobal gp_lc_2 BrightGreen $if not setglobal gp_lc_3 $setglobal gp_lc_3 Blue $if not setglobal gp_lc_4 $setglobal gp_lc_4 pink $if not setglobal gp_lc_5 $setglobal gp_lc_5 NavyBlue $if not setglobal gp_lc_6 $setglobal gp_lc_6 Brown $if not setglobal gp_lc_7 $setglobal gp_lc_7 Cyan $if not setglobal gp_lc_8 $setglobal gp_lc_8 Black $if not setglobal gp_lc_9 $setglobal gp_lc_9 darkgray $if not setglobal gp_lc_10 $setglobal gp_lc_10 Green $if not setglobal gp_lc_11 $setglobal gp_lc_11 Olive $if not setglobal gp_lc_12 $setglobal gp_lc_12 magenta $if not setglobal gp_lc_13 $setglobal gp_lc_13 LightGrey $if not setglobal gp_lc_14 $setglobal gp_lc_14 lightcyan $if not setglobal gp_lc_15 $setglobal gp_lc_15 Yellow $if not setglobal gp_lc_16 $setglobal gp_lc_16 chocolate $if not setglobal gp_lc_17 $setglobal gp_lc_17 coral $if not setglobal gp_lc_18 $setglobal gp_lc_18 cornflowerblue $if not setglobal gp_lc_19 $setglobal gp_lc_19 cornsilk $if not setglobal gp_lc_20 $setglobal gp_lc_20 crimson $if not setglobal gp_lc_21 $setglobal gp_lc_21 darkblue $if not setglobal gp_lc_22 $setglobal gp_lc_22 darkcyan $if not setglobal gp_lc_23 $setglobal gp_lc_23 darkgoldenrod $if not setglobal gp_lc_24 $setglobal gp_lc_24 darkgray $if not setglobal gp_lc_25 $setglobal gp_lc_25 darkgreen $if not setglobal gp_lc_26 $setglobal gp_lc_26 darkkhaki $if not setglobal gp_lc_27 $setglobal gp_lc_27 darkmagenta $if not setglobal gp_lc_28 $setglobal gp_lc_28 darkolivegreen $if not setglobal gp_lc_29 $setglobal gp_lc_29 darkorange $if not setglobal gp_lc_30 $setglobal gp_lc_30 darkorchid $if not setglobal gp_lc_31 $setglobal gp_lc_31 darkred $if not setglobal gp_lc_32 $setglobal gp_lc_32 darksalmon $if not setglobal gp_lc_33 $setglobal gp_lc_33 darkseagreen $if not setglobal gp_lc_34 $setglobal gp_lc_34 darkslateblue $if not setglobal gp_lc_35 $setglobal gp_lc_35 darkslategray $if not setglobal gp_lc_36 $setglobal gp_lc_36 darkturquoise $if not setglobal gp_lc_37 $setglobal gp_lc_37 darkviolet $if not setglobal gp_lc_38 $setglobal gp_lc_38 deeppink $if not setglobal gp_lc_39 $setglobal gp_lc_39 deepskyblue $if not setglobal gp_lc_40 $setglobal gp_lc_40 dimgray gp_count = 0; LOOP(%gp_fixcolor_set%, gp_count = gp_count + 1; LOOP(%gp_scen% $SAMEAS(%gp_fixcolor_set%,%gp_scen%), IF(gp_count eq 1, gp_xyz_fixed_col("%gp_lc_1%",%gp_scen%) = yes;); IF(gp_count eq 2, gp_xyz_fixed_col("%gp_lc_2%",%gp_scen%) = yes;); IF(gp_count eq 3, gp_xyz_fixed_col("%gp_lc_3%",%gp_scen%) = yes;); IF(gp_count eq 4, gp_xyz_fixed_col("%gp_lc_4%",%gp_scen%) = yes;); IF(gp_count eq 5, gp_xyz_fixed_col("%gp_lc_5%",%gp_scen%) = yes;); IF(gp_count eq 6, gp_xyz_fixed_col("%gp_lc_6%",%gp_scen%) = yes;); IF(gp_count eq 7, gp_xyz_fixed_col("%gp_lc_7%",%gp_scen%) = yes;); IF(gp_count eq 8, gp_xyz_fixed_col("%gp_lc_8%",%gp_scen%) = yes;); IF(gp_count eq 9, gp_xyz_fixed_col("%gp_lc_9%",%gp_scen%) = yes;); IF(gp_count eq 10, gp_xyz_fixed_col("%gp_lc_10%",%gp_scen%) = yes;); IF(gp_count eq 11, gp_xyz_fixed_col("%gp_lc_11%",%gp_scen%) = yes;); IF(gp_count eq 12, gp_xyz_fixed_col("%gp_lc_12%",%gp_scen%) = yes;); IF(gp_count eq 13, gp_xyz_fixed_col("%gp_lc_13%",%gp_scen%) = yes;); IF(gp_count eq 14, gp_xyz_fixed_col("%gp_lc_14%",%gp_scen%) = yes;); IF(gp_count eq 15, gp_xyz_fixed_col("%gp_lc_15%",%gp_scen%) = yes;); IF(gp_count eq 16, gp_xyz_fixed_col("%gp_lc_16%",%gp_scen%) = yes;); IF(gp_count eq 17, gp_xyz_fixed_col("%gp_lc_17%",%gp_scen%) = yes;); IF(gp_count eq 18, gp_xyz_fixed_col("%gp_lc_18%",%gp_scen%) = yes;); IF(gp_count eq 19, gp_xyz_fixed_col("%gp_lc_19%",%gp_scen%) = yes;); IF(gp_count eq 20, gp_xyz_fixed_col("%gp_lc_20%",%gp_scen%) = yes;); IF(gp_count eq 21, gp_xyz_fixed_col("%gp_lc_21%",%gp_scen%) = yes;); IF(gp_count eq 22, gp_xyz_fixed_col("%gp_lc_22%",%gp_scen%) = yes;); IF(gp_count eq 23, gp_xyz_fixed_col("%gp_lc_23%",%gp_scen%) = yes;); IF(gp_count eq 24, gp_xyz_fixed_col("%gp_lc_24%",%gp_scen%) = yes;); IF(gp_count eq 25, gp_xyz_fixed_col("%gp_lc_25%",%gp_scen%) = yes;); IF(gp_count eq 26, gp_xyz_fixed_col("%gp_lc_26%",%gp_scen%) = yes;); IF(gp_count eq 27, gp_xyz_fixed_col("%gp_lc_27%",%gp_scen%) = yes;); IF(gp_count eq 28, gp_xyz_fixed_col("%gp_lc_28%",%gp_scen%) = yes;); IF(gp_count eq 29, gp_xyz_fixed_col("%gp_lc_29%",%gp_scen%) = yes;); IF(gp_count eq 30, gp_xyz_fixed_col("%gp_lc_30%",%gp_scen%) = yes;); IF(gp_count eq 31, gp_xyz_fixed_col("%gp_lc_31%",%gp_scen%) = yes;); IF(gp_count eq 32, gp_xyz_fixed_col("%gp_lc_32%",%gp_scen%) = yes;); IF(gp_count eq 33, gp_xyz_fixed_col("%gp_lc_33%",%gp_scen%) = yes;); IF(gp_count eq 34, gp_xyz_fixed_col("%gp_lc_34%",%gp_scen%) = yes;); IF(gp_count eq 35, gp_xyz_fixed_col("%gp_lc_35%",%gp_scen%) = yes;); IF(gp_count eq 36, gp_xyz_fixed_col("%gp_lc_36%",%gp_scen%) = yes;); IF(gp_count eq 37, gp_xyz_fixed_col("%gp_lc_37%",%gp_scen%) = yes;); IF(gp_count eq 38, gp_xyz_fixed_col("%gp_lc_38%",%gp_scen%) = yes;); IF(gp_count eq 39, gp_xyz_fixed_col("%gp_lc_39%",%gp_scen%) = yes;); IF(gp_count eq 40, gp_xyz_fixed_col("%gp_lc_40%",%gp_scen%) = yes;); );); gp_scencount(%gp_scen%) = 0; gp_count = 0; LOOP(%gp_scen%, gp_count = gp_count + 1; gp_scencount(%gp_scen%) = gp_count; ); $label gp_lc_1_lb put "Line1="; $if "%gp_lc_1%"=="no" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_1%"=="no" $goto gp_lc_2_lb $if "%gp_lc_1%"=="0" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_1%"=="0" $goto gp_lc_2_lb $if not setglobal gp_lc_1 put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_1 $goto gp_lc_2_lb $if setglobal gp_lc_1 gp_xyz_ind_col("%gp_lc_1%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 1), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_1 gp_xyz_ind_col("%gp_lc_1%") = no; $goto gp_lc_2_lb $label gp_lc_2_lb put "Line2="; $if "%gp_lc_2%"=="no" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_2%"=="no" $goto gp_lc_3_lb $if "%gp_lc_2%"=="0" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_2%"=="0" $goto gp_lc_3_lb $if not setglobal gp_lc_2 put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_2 $goto gp_lc_3_lb $if setglobal gp_lc_2 gp_xyz_ind_col("%gp_lc_2%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 2), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_2 gp_xyz_ind_col("%gp_lc_2%") = no; $goto gp_lc_3_lb $label gp_lc_3_lb put "Line3="; $if "%gp_lc_3%"=="no" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_3%"=="no" $goto gp_lc_4_lb $if "%gp_lc_3%"=="0" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_3%"=="0" $goto gp_lc_4_lb $if not setglobal gp_lc_3 put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_3 $goto gp_lc_4_lb $if setglobal gp_lc_3 gp_xyz_ind_col("%gp_lc_3%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 3), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_3 gp_xyz_ind_col("%gp_lc_3%") = no; $goto gp_lc_4_lb $label gp_lc_4_lb put "Line4="; $if "%gp_lc_4%"=="no" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_4%"=="no" $goto gp_lc_5_lb $if "%gp_lc_4%"=="0" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_4%"=="0" $goto gp_lc_5_lb $if not setglobal gp_lc_4 put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_4 $goto gp_lc_5_lb $if setglobal gp_lc_4 gp_xyz_ind_col("%gp_lc_4%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 4), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_4 gp_xyz_ind_col("%gp_lc_4%") = no; $goto gp_lc_5_lb $label gp_lc_5_lb put "Line5="; $if "%gp_lc_5%"=="no" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_5%"=="no" $goto gp_lc_6_lb $if "%gp_lc_5%"=="0" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_5%"=="0" $goto gp_lc_6_lb $if not setglobal gp_lc_5 put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_5 $goto gp_lc_6_lb $if setglobal gp_lc_5 gp_xyz_ind_col("%gp_lc_5%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 5), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_5 gp_xyz_ind_col("%gp_lc_5%") = no; $goto gp_lc_6_lb $label gp_lc_6_lb put "Line6="; $if "%gp_lc_6%"=="no" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_6%"=="no" $goto gp_lc_7_lb $if "%gp_lc_6%"=="0" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_6%"=="0" $goto gp_lc_7_lb $if not setglobal gp_lc_6 put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_6 $goto gp_lc_7_lb $if setglobal gp_lc_6 gp_xyz_ind_col("%gp_lc_6%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 6), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_6 gp_xyz_ind_col("%gp_lc_6%") = no; $goto gp_lc_7_lb $label gp_lc_7_lb put "Line7="; $if "%gp_lc_7%"=="no" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_7%"=="no" $goto gp_lc_8_lb $if "%gp_lc_7%"=="0" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_7%"=="0" $goto gp_lc_8_lb $if not setglobal gp_lc_7 put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_7 $goto gp_lc_8_lb $if setglobal gp_lc_7 gp_xyz_ind_col("%gp_lc_7%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 7), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_7 gp_xyz_ind_col("%gp_lc_7%") = no; $goto gp_lc_8_lb $label gp_lc_8_lb put "Line8="; $if "%gp_lc_8%"=="no" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_8%"=="no" $goto gp_lc_9_lb $if "%gp_lc_8%"=="0" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_8%"=="0" $goto gp_lc_9_lb $if not setglobal gp_lc_8 put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_8 $goto gp_lc_9_lb $if setglobal gp_lc_8 gp_xyz_ind_col("%gp_lc_8%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 8), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_8 gp_xyz_ind_col("%gp_lc_8%") = no; $goto gp_lc_9_lb $label gp_lc_9_lb put "Line9="; $if "%gp_lc_9%"=="no" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_9%"=="no" $goto gp_lc_10_lb $if "%gp_lc_9%"=="0" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_9%"=="0" $goto gp_lc_10_lb $if not setglobal gp_lc_9 put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_9 $goto gp_lc_10_lb $if setglobal gp_lc_9 gp_xyz_ind_col("%gp_lc_9%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 9), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_9 gp_xyz_ind_col("%gp_lc_9%") = no; $goto gp_lc_10_lb $label gp_lc_10_lb put "Line10="; $if "%gp_lc_10%"=="no" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_10%"=="no" $goto gp_lc_11_lb $if "%gp_lc_10%"=="0" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_10%"=="0" $goto gp_lc_11_lb $if not setglobal gp_lc_10 put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_10 $goto gp_lc_11_lb $if setglobal gp_lc_10 gp_xyz_ind_col("%gp_lc_10%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 10), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_10 gp_xyz_ind_col("%gp_lc_10%") = no; $goto gp_lc_11_lb $label gp_lc_11_lb put "Line11="; $if "%gp_lc_11%"=="no" put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_11%"=="no" $goto gp_lc_12_lb $if "%gp_lc_11%"=="0" put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_11%"=="0" $goto gp_lc_12_lb $if not setglobal gp_lc_11 put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_11 $goto gp_lc_12_lb $if setglobal gp_lc_11 gp_xyz_ind_col("%gp_lc_11%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 11), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_11 gp_xyz_ind_col("%gp_lc_11%") = no; $goto gp_lc_12_lb $label gp_lc_12_lb put "Line12="; $if "%gp_lc_12%"=="no" put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_12%"=="no" $goto gp_lc_13_lb $if "%gp_lc_12%"=="0" put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_12%"=="0" $goto gp_lc_13_lb $if not setglobal gp_lc_12 put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_12 $goto gp_lc_13_lb $if setglobal gp_lc_12 gp_xyz_ind_col("%gp_lc_12%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 12), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_12 gp_xyz_ind_col("%gp_lc_12%") = no; $goto gp_lc_13_lb $label gp_lc_13_lb put "Line13="; $if "%gp_lc_13%"=="no" put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_13%"=="no" $goto gp_lc_14_lb $if "%gp_lc_13%"=="0" put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_13%"=="0" $goto gp_lc_14_lb $if not setglobal gp_lc_13 put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_13 $goto gp_lc_14_lb $if setglobal gp_lc_13 gp_xyz_ind_col("%gp_lc_13%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 13), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_13 gp_xyz_ind_col("%gp_lc_13%") = no; $goto gp_lc_14_lb $label gp_lc_14_lb put "Line14="; $if "%gp_lc_14%"=="no" put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_14%"=="no" $goto gp_lc_15_lb $if "%gp_lc_14%"=="0" put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_14%"=="0" $goto gp_lc_15_lb $if not setglobal gp_lc_14 put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_14 $goto gp_lc_15_lb $if setglobal gp_lc_14 gp_xyz_ind_col("%gp_lc_14%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 14), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_14 gp_xyz_ind_col("%gp_lc_14%") = no; $goto gp_lc_15_lb $label gp_lc_15_lb put "Line15="; $if "%gp_lc_15%"=="no" put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_15%"=="no" $goto gp_lc_16_lb $if "%gp_lc_15%"=="0" put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_15%"=="0" $goto gp_lc_16_lb $if not setglobal gp_lc_15 put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_15 $goto gp_lc_16_lb $if setglobal gp_lc_15 gp_xyz_ind_col("%gp_lc_15%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 15), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_15 gp_xyz_ind_col("%gp_lc_15%") = no; $goto gp_lc_16_lb $label gp_lc_16_lb put "Line16="; $if "%gp_lc_16%"=="no" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_16%"=="no" $goto gp_lc_17_lb $if "%gp_lc_16%"=="0" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_16%"=="0" $goto gp_lc_17_lb $if not setglobal gp_lc_16 put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_16 $goto gp_lc_17_lb $if setglobal gp_lc_16 gp_xyz_ind_col("%gp_lc_16%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 16), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_16 gp_xyz_ind_col("%gp_lc_16%") = no; $goto gp_lc_17_lb $label gp_lc_17_lb put "Line17="; $if "%gp_lc_17%"=="no" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_17%"=="no" $goto gp_lc_18_lb $if "%gp_lc_17%"=="0" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_17%"=="0" $goto gp_lc_18_lb $if not setglobal gp_lc_17 put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_17 $goto gp_lc_18_lb $if setglobal gp_lc_17 gp_xyz_ind_col("%gp_lc_17%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 17), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_17 gp_xyz_ind_col("%gp_lc_17%") = no; $goto gp_lc_18_lb $label gp_lc_18_lb put "Line18="; $if "%gp_lc_18%"=="no" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_18%"=="no" $goto gp_lc_19_lb $if "%gp_lc_18%"=="0" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_18%"=="0" $goto gp_lc_19_lb $if not setglobal gp_lc_18 put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_18 $goto gp_lc_19_lb $if setglobal gp_lc_18 gp_xyz_ind_col("%gp_lc_18%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 18), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_18 gp_xyz_ind_col("%gp_lc_18%") = no; $goto gp_lc_19_lb $label gp_lc_19_lb put "Line19="; $if "%gp_lc_19%"=="no" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_19%"=="no" $goto gp_lc_20_lb $if "%gp_lc_19%"=="0" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_19%"=="0" $goto gp_lc_20_lb $if not setglobal gp_lc_19 put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_19 $goto gp_lc_20_lb $if setglobal gp_lc_19 gp_xyz_ind_col("%gp_lc_19%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 19), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_19 gp_xyz_ind_col("%gp_lc_19%") = no; $goto gp_lc_20_lb $label gp_lc_20_lb put "Line20="; $if "%gp_lc_20%"=="no" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_20%"=="no" $goto gp_lc_21_lb $if "%gp_lc_20%"=="0" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_20%"=="0" $goto gp_lc_21_lb $if not setglobal gp_lc_20 put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_20 $goto gp_lc_21_lb $if setglobal gp_lc_20 gp_xyz_ind_col("%gp_lc_20%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 20), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_20 gp_xyz_ind_col("%gp_lc_20%") = no; $goto gp_lc_21_lb $label gp_lc_21_lb put "Line21="; $if "%gp_lc_21%"=="no" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_21%"=="no" $goto gp_lc_22_lb $if "%gp_lc_21%"=="0" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_21%"=="0" $goto gp_lc_22_lb $if not setglobal gp_lc_21 put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_21 $goto gp_lc_22_lb $if setglobal gp_lc_21 gp_xyz_ind_col("%gp_lc_21%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 21), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_21 gp_xyz_ind_col("%gp_lc_21%") = no; $goto gp_lc_22_lb $label gp_lc_22_lb put "Line22="; $if "%gp_lc_22%"=="no" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_22%"=="no" $goto gp_lc_23_lb $if "%gp_lc_22%"=="0" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_22%"=="0" $goto gp_lc_23_lb $if not setglobal gp_lc_22 put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_22 $goto gp_lc_23_lb $if setglobal gp_lc_22 gp_xyz_ind_col("%gp_lc_22%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 22), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_22 gp_xyz_ind_col("%gp_lc_22%") = no; $goto gp_lc_23_lb $label gp_lc_23_lb put "Line23="; $if "%gp_lc_23%"=="no" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_23%"=="no" $goto gp_lc_24_lb $if "%gp_lc_23%"=="0" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_23%"=="0" $goto gp_lc_24_lb $if not setglobal gp_lc_23 put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_23 $goto gp_lc_24_lb $if setglobal gp_lc_23 gp_xyz_ind_col("%gp_lc_23%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 23), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_23 gp_xyz_ind_col("%gp_lc_23%") = no; $goto gp_lc_24_lb $label gp_lc_24_lb put "Line24="; $if "%gp_lc_24%"=="no" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_24%"=="no" $goto gp_lc_25_lb $if "%gp_lc_24%"=="0" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_24%"=="0" $goto gp_lc_25_lb $if not setglobal gp_lc_24 put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_24 $goto gp_lc_25_lb $if setglobal gp_lc_24 gp_xyz_ind_col("%gp_lc_24%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 24), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_24 gp_xyz_ind_col("%gp_lc_24%") = no; $goto gp_lc_25_lb $label gp_lc_25_lb put "Line25="; $if "%gp_lc_25%"=="no" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_25%"=="no" $goto gp_lc_26_lb $if "%gp_lc_25%"=="0" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_25%"=="0" $goto gp_lc_26_lb $if not setglobal gp_lc_25 put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_25 $goto gp_lc_26_lb $if setglobal gp_lc_25 gp_xyz_ind_col("%gp_lc_25%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 25), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_25 gp_xyz_ind_col("%gp_lc_25%") = no; $goto gp_lc_26_lb $label gp_lc_26_lb put "Line26="; $if "%gp_lc_26%"=="no" put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_26%"=="no" $goto gp_lc_27_lb $if "%gp_lc_26%"=="0" put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_26%"=="0" $goto gp_lc_27_lb $if not setglobal gp_lc_26 put '128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_26 $goto gp_lc_27_lb $if setglobal gp_lc_26 gp_xyz_ind_col("%gp_lc_26%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 26), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_26 gp_xyz_ind_col("%gp_lc_26%") = no; $goto gp_lc_27_lb $label gp_lc_27_lb put "Line27="; $if "%gp_lc_27%"=="no" put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_27%"=="no" $goto gp_lc_28_lb $if "%gp_lc_27%"=="0" put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_27%"=="0" $goto gp_lc_28_lb $if not setglobal gp_lc_27 put '128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_27 $goto gp_lc_28_lb $if setglobal gp_lc_27 gp_xyz_ind_col("%gp_lc_27%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 27), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_27 gp_xyz_ind_col("%gp_lc_27%") = no; $goto gp_lc_28_lb $label gp_lc_28_lb put "Line28="; $if "%gp_lc_28%"=="no" put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_28%"=="no" $goto gp_lc_29_lb $if "%gp_lc_28%"=="0" put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_28%"=="0" $goto gp_lc_29_lb $if not setglobal gp_lc_28 put '192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_28 $goto gp_lc_29_lb $if setglobal gp_lc_28 gp_xyz_ind_col("%gp_lc_28%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 28), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_28 gp_xyz_ind_col("%gp_lc_28%") = no; $goto gp_lc_29_lb $label gp_lc_29_lb put "Line29="; $if "%gp_lc_29%"=="no" put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_29%"=="no" $goto gp_lc_30_lb $if "%gp_lc_29%"=="0" put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_29%"=="0" $goto gp_lc_30_lb $if not setglobal gp_lc_29 put '0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_29 $goto gp_lc_30_lb $if setglobal gp_lc_29 gp_xyz_ind_col("%gp_lc_29%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 29), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_29 gp_xyz_ind_col("%gp_lc_29%") = no; $goto gp_lc_30_lb $label gp_lc_30_lb put "Line30="; $if "%gp_lc_30%"=="no" put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_30%"=="no" $goto gp_lc_31_lb $if "%gp_lc_30%"=="0" put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_30%"=="0" $goto gp_lc_31_lb $if not setglobal gp_lc_30 put '255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_30 $goto gp_lc_31_lb $if setglobal gp_lc_30 gp_xyz_ind_col("%gp_lc_30%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 30), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_30 gp_xyz_ind_col("%gp_lc_30%") = no; $goto gp_lc_31_lb $label gp_lc_31_lb put "Line31="; $if "%gp_lc_31%"=="no" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_31%"=="no" $goto gp_lc_32_lb $if "%gp_lc_31%"=="0" put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_31%"=="0" $goto gp_lc_32_lb $if not setglobal gp_lc_31 put '255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_31 $goto gp_lc_32_lb $if setglobal gp_lc_31 gp_xyz_ind_col("%gp_lc_31%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 31), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_31 gp_xyz_ind_col("%gp_lc_31%") = no; $goto gp_lc_32_lb $label gp_lc_32_lb put "Line32="; $if "%gp_lc_32%"=="no" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_32%"=="no" $goto gp_lc_33_lb $if "%gp_lc_32%"=="0" put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_32%"=="0" $goto gp_lc_33_lb $if not setglobal gp_lc_32 put '0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_32 $goto gp_lc_33_lb $if setglobal gp_lc_32 gp_xyz_ind_col("%gp_lc_32%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 32), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_32 gp_xyz_ind_col("%gp_lc_32%") = no; $goto gp_lc_33_lb $label gp_lc_33_lb put "Line33="; $if "%gp_lc_33%"=="no" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_33%"=="no" $goto gp_lc_34_lb $if "%gp_lc_33%"=="0" put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_33%"=="0" $goto gp_lc_34_lb $if not setglobal gp_lc_33 put '0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_33 $goto gp_lc_34_lb $if setglobal gp_lc_33 gp_xyz_ind_col("%gp_lc_33%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 33), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_33 gp_xyz_ind_col("%gp_lc_33%") = no; $goto gp_lc_34_lb $label gp_lc_34_lb put "Line34="; $if "%gp_lc_34%"=="no" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_34%"=="no" $goto gp_lc_35_lb $if "%gp_lc_34%"=="0" put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_34%"=="0" $goto gp_lc_35_lb $if not setglobal gp_lc_34 put '255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_34 $goto gp_lc_35_lb $if setglobal gp_lc_34 gp_xyz_ind_col("%gp_lc_34%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 34), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_34 gp_xyz_ind_col("%gp_lc_34%") = no; $goto gp_lc_35_lb $label gp_lc_35_lb put "Line35="; $if "%gp_lc_35%"=="no" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_35%"=="no" $goto gp_lc_36_lb $if "%gp_lc_35%"=="0" put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_35%"=="0" $goto gp_lc_36_lb $if not setglobal gp_lc_35 put '0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_35 $goto gp_lc_36_lb $if setglobal gp_lc_35 gp_xyz_ind_col("%gp_lc_35%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 35), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_35 gp_xyz_ind_col("%gp_lc_35%") = no; $goto gp_lc_36_lb $label gp_lc_36_lb put "Line36="; $if "%gp_lc_36%"=="no" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_36%"=="no" $goto gp_lc_37_lb $if "%gp_lc_36%"=="0" put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_36%"=="0" $goto gp_lc_37_lb $if not setglobal gp_lc_36 put '128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_36 $goto gp_lc_37_lb $if setglobal gp_lc_36 gp_xyz_ind_col("%gp_lc_36%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 36), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_36 gp_xyz_ind_col("%gp_lc_36%") = no; $goto gp_lc_37_lb $label gp_lc_37_lb put "Line37="; $if "%gp_lc_37%"=="no" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_37%"=="no" $goto gp_lc_38_lb $if "%gp_lc_37%"=="0" put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_37%"=="0" $goto gp_lc_38_lb $if not setglobal gp_lc_37 put '0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_37 $goto gp_lc_38_lb $if setglobal gp_lc_37 gp_xyz_ind_col("%gp_lc_37%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 37), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_37 gp_xyz_ind_col("%gp_lc_37%") = no; $goto gp_lc_38_lb $label gp_lc_38_lb put "Line38="; $if "%gp_lc_38%"=="no" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_38%"=="no" $goto gp_lc_39_lb $if "%gp_lc_38%"=="0" put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_38%"=="0" $goto gp_lc_39_lb $if not setglobal gp_lc_38 put '0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_38 $goto gp_lc_39_lb $if setglobal gp_lc_38 gp_xyz_ind_col("%gp_lc_38%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 38), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_38 gp_xyz_ind_col("%gp_lc_38%") = no; $goto gp_lc_39_lb $label gp_lc_39_lb put "Line39="; $if "%gp_lc_39%"=="no" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_39%"=="no" $goto gp_lc_40_lb $if "%gp_lc_39%"=="0" put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_39%"=="0" $goto gp_lc_40_lb $if not setglobal gp_lc_39 put '128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_39 $goto gp_lc_40_lb $if setglobal gp_lc_39 gp_xyz_ind_col("%gp_lc_39%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 39), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_39 gp_xyz_ind_col("%gp_lc_39%") = no; $goto gp_lc_40_lb $label gp_lc_40_lb put "Line40="; $if "%gp_lc_40%"=="no" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_40%"=="no" $goto gp_lc_41_lb $if "%gp_lc_40%"=="0" put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if "%gp_lc_40%"=="0" $goto gp_lc_41_lb $if not setglobal gp_lc_40 put '0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; $if not setglobal gp_lc_40 $goto gp_lc_41_lb $if setglobal gp_lc_40 gp_xyz_ind_col("%gp_lc_40%") = yes; gp_xyz_ind_col(gp_line_color_name) $sum(gp_xyz_fixed_col,1) = no; LOOP(gp_line_color_name $(gp_xyz_ind_col(gp_line_color_name) or sum(%gp_scen% $(gp_scencount(%gp_scen%) eq 40), gp_xyz_fixed_col(gp_line_color_name,%gp_scen%))), put gp_line_color_name.te(gp_line_color_name); ); put ' -',%gp_lwidth%,' -',%gp_lwidth% /; $if setglobal gp_lc_40 gp_xyz_ind_col("%gp_lc_40%") = no; $goto gp_lc_41_lb $label gp_lc_41_lb gp_xyz_fixed_col(gp_line_color_name,%gp_scen%) = no; $goto textopt $label userwidth put 'Line1=255 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line2=0 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line3=0 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line4=255 0 255 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line5=0 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line6=128 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line7=0 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line8=0 0 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line9=128 128 128 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line10=0 128 64 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line11=128 128 0 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line12=128 0 128 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line13=192 192 192 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line14=0 255 255 -',%gp_lwidth%,' -',%gp_lwidth% /; put 'Line15=255 255 0 -',%gp_lwidth%,' -',%gp_lwidth% /; $goto textopt $label textopt put 'TextOrigin=22 22' /; put 'TextSize=480 321' /; put 'TextMinimized=0' /; put 'TextFont=Terminal,9' /; put 'SysColors=0' /; putclose; execute 'if exist "%SysEnv.APPDATA%\wgnuplot.ini" del "%SysEnv.APPDATA%\wgnuplot.ini" >nul'; execute 'copy wgnuplot.ini "%SysEnv.APPDATA%\wgnuplot.ini"'; $goto rungnupl *_____________________* * * * Run Gnuplot * *_____________________* * * $label rungnupl display "Using terminal: %gp_term%, system: %system.filesys%"; $if not setglobal gp_ppt $goto after_writing_ppt_file ppt_repeat_loop("1") = yes; $if not setglobal gp_ppt_2 $goto after_checking_ppt2 $if not "%gp_ppt_2%"=="2" $goto after_writing_ppt_file ppt_repeat_loop("2") = yes; $goto after_checking_all_ppt $label after_checking_ppt2 $if not setglobal gp_ppt_3 $goto after_checking_ppt3 $if not "%gp_ppt_3%"=="3" $goto after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; $goto after_checking_all_ppt $label after_checking_ppt3 $if not setglobal gp_ppt_4 $goto after_checking_ppt4 $if not "%gp_ppt_4%"=="4" $goto after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; $goto after_checking_all_ppt $label after_checking_ppt4 $if not setglobal gp_ppt_5 $goto after_checking_ppt5 $if not "%gp_ppt_5%"=="5" $goto after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; $goto after_checking_all_ppt $label after_checking_ppt5 $if not setglobal gp_ppt_6 $goto after_checking_ppt6 $if not "%gp_ppt_6%"=="6" $goto after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; ppt_repeat_loop("6") = yes; $goto after_checking_all_ppt $label after_checking_ppt6 $if not setglobal gp_ppt_7 $goto after_checking_ppt7 $if not "%gp_ppt_7%"=="7" $goto after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; ppt_repeat_loop("6") = yes; ppt_repeat_loop("7") = yes; $goto after_checking_all_ppt $label after_checking_ppt7 $if not setglobal gp_ppt_8 $goto after_checking_ppt8 $if not "%gp_ppt_8%"=="8" $goto after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; ppt_repeat_loop("6") = yes; ppt_repeat_loop("7") = yes; ppt_repeat_loop("8") = yes; $goto after_checking_all_ppt $label after_checking_ppt8 $if not setglobal gp_ppt_9 $goto after_checking_ppt9 $if not "%gp_ppt_9%"=="9" $goto after_writing_ppt_file ppt_repeat_loop("2") = yes; ppt_repeat_loop("3") = yes; ppt_repeat_loop("4") = yes; ppt_repeat_loop("5") = yes; ppt_repeat_loop("6") = yes; ppt_repeat_loop("7") = yes; ppt_repeat_loop("8") = yes; ppt_repeat_loop("9") = yes; $goto after_checking_all_ppt $label after_checking_ppt9 $label after_checking_all_ppt * ++++++++++++++++++++++++++ * * File for Power Point Macro * * ++++++++++++++++++++++++++ * PUT gams_ppt_list; gams_ppt_list.ap = 1; gams_ppt_list.nw = 0; gams_ppt_list.lw = 0; gams_ppt_list.nd = 0; $if not setglobal gp_ppt_fontname $setglobal gp_ppt_fontname Arial $if not setglobal gp_ppt_fontsize $setglobal gp_ppt_fontsize 40 $if not setglobal gp_ppt_boldfont $setglobal gp_ppt_boldfont 0 $if "%gp_ppt_boldfont%"=="yes" $setglobal gp_ppt_boldfont 1 $if "%gp_ppt_boldfont%"=="bold" $setglobal gp_ppt_boldfont 1 $if "%gp_ppt_boldfont%"=="no" $setglobal gp_ppt_boldfont 0 $if "%gp_ppt_boldfont%"=="normal" $setglobal gp_ppt_boldfont 0 IF(gp_plot_count eq 1, PUT "%gp_ppt_fontname%" /; PUT "%gp_ppt_boldfont%" /; PUT "%gp_ppt_fontsize%" /; ); gp_count = 0; LOOP(ppt_repeat_loop, gp_count = gp_count + 1; PUT "%gams.Workdir%%gp_name%_",gp_plot_count,"_",ppt_repeat_loop.TL,".%gp_term%"/; * Title $if "%gp_loop1%" == "no" $goto noloopppttitle $if "%gp_loop1%" == "0" $goto noloopppttitle $if setglobal gp_loop1 $goto ppttitle_loop1 $label noloopppttitle $if not setglobal gp_title $goto assign_auto_title_for_ppt $if "%gp_title%" == "no" $goto assign_auto_title_for_ppt $if "%gp_title%" == "0" $goto assign_auto_title_for_ppt put '%gp_title%'; $goto after_autoppttitle $label assign_auto_title_for_ppt put '%2',' versus ','%3'; $goto skipppttitle $label after_autoppttitle * Names for different restart options $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto skipppttitle $label ppttitle_loop1 $if not setglobal gp_title $setglobal gp_title " " put '%gp_title% ',%gp_loop1%.te(%gp_loop1%); $if "%gp_loop2%" == "no" $goto no_loop_title_2 $if "%gp_loop2%" == "0" $goto no_loop_title_2 $if setglobal gp_loop2 $goto ppttitle_loop2 $label no_loop_title_2 $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto skipppttitle $label ppttitle_loop2 put ' ',%gp_loop2%.te(%gp_loop2%); $if "%gp_loop3%" == "no" $goto no_loop_title_3 $if "%gp_loop3%" == "0" $goto no_loop_title_3 $if setglobal gp_loop3 $goto ppttitle_loop3 $label no_loop_title_3 $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto skipppttitle $label ppttitle_loop3 put ' ',%gp_loop3%.te(%gp_loop3%); $if "%gp_loop4%" == "no" $goto no_loop_title_4 $if "%gp_loop4%" == "0" $goto no_loop_title_4 $if setglobal gp_loop4 $goto ppttitle_loop4 $label no_loop_title_4 $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto skipppttitle $label ppttitle_loop4 put ' ',%gp_loop4%.te(%gp_loop4%); $if setglobal gp_ppt_1_name If(gp_count eq 1, put "%gp_ppt_1_name%"; ); $if setglobal gp_ppt_2_name If(gp_count eq 2, put "%gp_ppt_2_name%"; ); $if setglobal gp_ppt_3_name If(gp_count eq 3, put "%gp_ppt_3_name%"; ); $if setglobal gp_ppt_4_name If(gp_count eq 4, put "%gp_ppt_4_name%"; ); $if setglobal gp_ppt_5_name If(gp_count eq 5, put "%gp_ppt_5_name%"; ); $if setglobal gp_ppt_6_name If(gp_count eq 6, put "%gp_ppt_6_name%"; ); $if setglobal gp_ppt_7_name If(gp_count eq 7, put "%gp_ppt_7_name%"; ); $if setglobal gp_ppt_8_name If(gp_count eq 8, put "%gp_ppt_8_name%"; ); $if setglobal gp_ppt_9_name If(gp_count eq 9, put "%gp_ppt_9_name%"; ); put /; $goto skipppttitle $label skipppttitle ); PUTCLOSE; * Executing Gnuplot * $label after_writing_ppt_file $if "%gp_term%"=="windows" execute 'if exist gnuplot.ini del gnuplot.ini >nul'; $if "%gp_term%"=="windows" execute 'copy gnuplot.inp gnuplot.ini >nul'; $if "%gp_term%"=="windows" execute '"%gams.sysdir%inclib\callgplt.bat" x'; $if "%gp_term%"=="windows" $goto finishup $if "%gp_term%"=="wxt" execute 'if exist gnuplot.ini del gnuplot.ini >nul'; $if "%gp_term%"=="wxt" execute 'copy gnuplot.inp gnuplot.ini >nul'; $if "%gp_term%"=="wxt" execute '"%gams.sysdir%inclib\callgplt.bat" x'; $if "%gp_term%"=="wxt" $goto finishup execute 'wgnuplot gnuplot.inp'; $goto finishup $label finishup uu___3("%2")=no; uu___3("%3")=no; uu___2(u__2)=no; uu___1(u__1)=no; execute "sleep 1"; $goto end_of_gnupltxy $label end_of_gnupltxy $setglobal gp_l1style "no" $setglobal gp_l2style "no" $setglobal gp_l3style "no" $setglobal gp_l4style "no" $setglobal gp_l5style "no" $setglobal gp_l6style "no" $setglobal gp_l7style "no" $setglobal gp_l8style "no" $setglobal gp_l9style "no" $setglobal gp_l10style "no" $setglobal gp_l11style "no" $setglobal gp_l12style "no" $setglobal gp_l13style "no" $setglobal gp_l14style "no" $setglobal gp_l15style "no" $setglobal gp_l16style "no" $label gpxyzlabel_endofallgnupltxyzversions $exit