Iber model

Sunday, November 24, 2024     [ login ]

Forums

Forums > 04_Post-proceso

Tiempo en punto concreto

Enrique Escolano
30/04/2024 15:05:00
Tiempo en punto concreto
No tienes que programar, ya te he escrito el proc que lo hace yo !!
Y te he explicado paso a paso como usarlo, no sé explicarlo mejor, deberías ser capaz de entenderlo, te lo repito prácticamente igual

este código

proc MyCreateGraphMaxDepth { } {
  set result_analysis "Maps of Maximums"
  set result_name "Depth (m)"
  set step_values [GiD_Info postprocess get all_steps $result_analysis]
  set max_total -1
  set step_max_total -1
  set max_values [list]
  foreach step_value $step_values {
    set max_value [GiD_Result get -max [list $result_name $result_analysis $step_value]]
    lappend max_values $max_value
    if { $max_value>$max_total } {
      set max_total $max_value
      set step_max_total $step_value
    }
  }
  GiD_Graph create "Max $result_name along time" "Time step" "Max $result_name" $step_values $max_values "sec" "m"
  GidUtils::OpenWindow GRAPHS
  W "Max $result_name value is $max_total m reached at time step $step_max_total"
}

lo copias en un fichero con extensión .tcl, donde tu quieras y con el nombre que tu quieras, pongamos

C:/temp/my_find_max_depth.tcl

y escribes en la línea que hay abajo de todo de la ventana de Iber lo que te he dicho:

-np- source C:/temp/my_find_max_depth.tcl
y pulsa la tecla <Return>

y estando en postproceso escribe esto

-np- MyCreateGraphMaxDepth
y pulsa <Return>

 Tiempo en punto concreto   Juan Carlos Sampedro Martín 26/04/2024 10:57
 Tiempo en punto concreto   Enrique Escolano 26/04/2024 18:05
     Tiempo en punto concreto   Juan Carlos Sampedro Martín 30/04/2024 08:10
         Tiempo en punto concreto   Enrique Escolano 30/04/2024 15:05
             Tiempo en punto concreto   Juan Carlos Sampedro Martín 02/05/2024 19:21