Posted to tcl by Resilience at Sun Jul 04 15:41:17 GMT 2010view raw

  1. ####################################################################
  2. #code to interprete
  3. for {set dpr $dpr_min} {$dpr <= $dpr_max} {incr dpr $dpr_incr} {
  4. for {set daa $daa_min} {$daa <= $daa_max} {set daa [expr $daa + $daa_incr]} {
  5. #segregación por tipo de maquina
  6. foreach aero_type $aero_type_loop {
  7.  
  8. foreach result $results {
  9. #generacion del directorio
  10. set namefile_graph2exec "graph2exec;$result;dpr-$dpr;daa-$daa;"
  11.  
  12. puts "gnuplot \"./results/graph2exec/dpr-$dpr;daa-$daa;/$aero_type/$namefile_graph2exec\""
  13. exec gnuplot "\"./results/graph2exec/dpr-$dpr;daa-$daa;/$aero_type/$namefile_graph2exec\""
  14. }
  15. }
  16. }
  17. }
  18.  
  19.  
  20. ####################################################################
  21. #output
  22. #the file exists, because if it is executed on a a terminal the output line
  23. #gnuplot "./results/graph2exec/dpr-20;daa-500;/aero1.5MW/graph2exec;rbc;dpr-20;daa-500;"
  24. #the script is executed correctly by gnuplot
  25.  
  26. gnuplot "./results/graph2exec/dpr-20;daa-500;/aero1.5MW/graph2exec;rbc;dpr-20;daa-500;"
  27. Cannot open load file '"./results/graph2exec/dpr-20;daa-500;/aero1.5MW/graph2exec;rbc;dpr-20;daa-500;"'
  28. line 0: util.c: No such file or directory
  29.  
  30. while executing
  31. "exec gnuplot "\"./results/graph2exec/dpr-$dpr;daa-$daa;/$aero_type/$namefile_graph2exec\"""
  32. ("foreach" body line 6)
  33. invoked from within
  34. "foreach result $results {
  35. #generacion del directorio
  36. set namefile_graph2exec "graph2exec;$result;dpr-$dpr;daa-$daa;"
  37.  
  38. puts "gnuplot \"./re..."
  39. ("foreach" body line 3)
  40. invoked from within
  41. "foreach aero_type $aero_type_loop {
  42.  
  43. foreach result $results {
  44. #generacion del directorio
  45. set namefile_graph2exec "graph2exec;$result;dpr-$..."
  46. ("for" body line 4)
  47. invoked from within
  48. "for {set dpr $dpr_min} {$dpr <= $dpr_max} {incr dpr $dpr_incr} {
  49. for {set daa $daa_min} {$daa <= $daa_max} {set daa [expr $daa + $daa_incr]} {
  50. #seg..."
  51. (file "./rbc.tcl" line 1148)
  52.  
  53.