Paso 3 — CSV como tabla de decisión
*CFOPEN,m09_results,csv
*VWRITE
('case_id,beam_h,...,validation_pass,feasible')
*DO,i,1,n_cases
*VWRITE,i,h_store(i),...,val_pass_store(i),feasible_store(i)
*ENDDO
*CFCLOSSolo el driver escribe el CSV. Si cada submacro escribe su propio archivo, la última iteración sobrescribe las anteriores y la selección pierde sentido.
Paso 4 — Seleccionar el diseño mínimo apto
selected_case=0
selected_h=0
*DO,i,1,n_cases
*IF,feasible_store(i),EQ,1,THEN
*IF,selected_case,EQ,0,THEN
selected_case=i
selected_h=h_store(i)
*ELSE
*IF,h_store(i),LT,selected_h,THEN
selected_case=i
selected_h=h_store(i)
*ENDIF
*ENDIF
*ENDIF
*ENDDO
Para el barrido base, la selección esperada es selected_case=3,
selected_h=0.12 m. Comprueba también la tendencia:
|uy(i+1)| < |uy(i)| al aumentar la altura.